- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
Код с продакшена рабочего проекта :-D
Dim got_new_batch As Boolean = False
Dim batch_numb As Integer = 0
Dim temp_batch As Integer = 0
While got_new_batch = False
temp_batch = objRandom.Next(400000000)
If check_batch_avaliable(temp_batch) = True Then
got_new_batch = True
batch_numb = temp_batch
End If
End While
Public Function check_batch_avaliable(ByVal batch_number As Integer) As Boolean
'CWC-7/11/2016-Rewritten to avoid runtime error
Dim RC As Integer = -1
Dim DBConnection As New IfxConnection(INFXConnectionStr_RPCentral)
'Try
Dim SQL As String = ""
SQL = " select first 1 batch_numb from " + System.Configuration.ConfigurationManager.AppSettings("InformixTable") + " where batch_numb = " & batch_number
Dim DBCommand As New IfxCommand(SQL, DBConnection)
DBCommand.CommandType = CommandType.Text
DBCommand.CommandTimeout = 200
DBConnection.Open()
RC = CInt(DBCommand.ExecuteScalar())
DBConnection.Close()
' Catch ex As Exception
' Dim ErrMsg = ex.Message
' Finally
If Not DBConnection Is Nothing Then
If DBConnection.State = ConnectionState.Open Then
DBConnection.Close()
End If
DBConnection = Nothing
End If
' End Try
If RC > 0 Then
Return False
Else
Return True
End If
End Function
Follow us!
в бесконечном цикле выбирать рендомную запись этот лол
Кстати, как часто он угадывает запись?
До сих пор с него припекает, т.к попадались в т.ч забавные игрухи( типа того же Zombie Smashers ), написанных, видать, под WinXP.
И, б.-же, сколько же оно требует всевозможных рантаймов, либ и проч необходимого для запуска( т.е даже на хрюше не всегда работало, а с семеркой и, тем более, десяткой - вообще веселуха )
msvbvm50.dll
vbrun60sp6.exe занимал что-то около 10 метров.
На фоне монструозных дотнетов и яв это ужос как много.
dll-hell и отсутствие пакетного менеджера общая болезнь виндов.
Можно и в vc++ и в mingw наделать shared buildов и забыть добавить нужные dllки.
Конкретно в случае с виндой подобная проблема в особо запущенном состоянии была, почему-то, именно у VB..
У остального - обычно хватало стандартной пачки редистов и все отлично работало.
В случае с ВБ - нередко, требуется дополнительно куча стороннего и условно-стороннего барахла, притом, нередко, хз_какого, т.к сама прога, вылетая с ошибкой, это сообщает далеко не всегда.
Вот и думай потом, что конкретно и какой версии проге надобно, а так же - ну нафига было относительно простые проекты делать именно на ВБ, когда были всякие VC и иже с ними.
Спрашиваю, т.к у ГК много копий одно время было. Некоторые - даже с перепостом на основной ресурс творящегося на копии срача.
..а потом - ломай голову, какого *** guestXXX сам с собой в десятке лиц спорит.
Но я давно на ГК не заходил. Чет ностальгия одолела и, как назло, сразу VB !:)
п.с: но я, все-таки, на целых 33 - 09 = 24 секунды раньше :)
В случае же с VB выскакивает сообщение «Класс не зарегистрирован», причём зачастую даже названия класса нет. Причём выскочить оно может не сразу, а в процессе работы.
Даже жаль чутка.. т.к некоторые игры были воистину годные и атмосферные.
А из не_игр почти все благополучно ушло в небытие.
Ну а дотнеты или явы - это отдельная история.
Хотя, как минимум, там под конкретную версию обычно просто конкретный толстый установочник с тонной барахла, после установки которого все даже работает.. иногда.
А разве с Microsoft Visual C++ Redistributable таких проблем не было? Вы скачали ms vcredist 2015, а для работы софта нужен ms vcredist 2008 или ms vcredist 2005.
Под каждую версию дот.нета вообще нужно качать свой установщик. Тут без вариантов.
C явой было проще: до 8ой версии можно было брать самую свежую и всё работало.
В 9ой они много чего сломали, и теперь юзерам придётся держать несколько версий явы.
И с ними были проблемы.
В xp не было 2005 и 2008.
> так их надо было распостранять с софтом
То есть проблема распространения зависимостей и либ это не какая-то особенность VB.
Это вообще не проблема. У разных версий vcredist разные названия dll. Там сразу видно, какую версию нужно скачать и установить.
Ага, особенно сразу видно, когда винда тебе говорит "программа некорректно установлена, попробуйте её переустановить".
Но однозначно не меньше трёх дискет.
Но там емнип были вообще всё. comctl32.ocx. А сам msvbvm весил куда меньше.
Тем более, что речь о проектах 00-х...
Бейсик можно было конпелировать в псевдокод (P-code).
Такие EXE-шники работали куда медленее, зато имели меньший объём. В целом фича была абсолютно бесполезной.
Даже само название рантайма: msvbvm намекает.
А вот в «VB» впервые решили использовать байткод не для зожатия исходников, а для рантайма.
Кстати, во время редактирования код мог помещаться в поле не весь и приходилось выходить из режима редактирования, он конпелировал всё написанное говно, и потом надо опять открывать нужный кусочек, он деконпелировался и загружался в поле редактирования. Форматирование и регистр вне строковых литералов терялись конечно.
Веселуха!
Да.
В том-то и дело что они почему-то не замахивались на кроссплатформенность. Только оптимизировали размер.
А ко времени выхода VB размер бинарника перестал играть такую важную роль, в то время как просадка скорости в интерпретаторе была значительной.
VB6
Там не нужно было морочить голову прямым управлением памятью и многопоточностью.
В VB был простенький сборщик на счётчике ссылок.
И хитрая псевдомногопоточность с DoEvents и таймерами.