Похожие работы на «VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования »
VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования
Программирование и комп-ры, VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования , Рефераты
... Depth As Integer) Dim pl As Integer Dim i As Integer Dim good_i As Integer Dim good_value As Integer Dim enemy_i As Integer Dim enemy_value As Integer ...
... Dim Residual() As Integer Dim num_nodes As Integer Dim id1 As Integer Dim id2 As Integer Dim node As FlowNode Dim to_node As FlowNode Dim from_node As ...
Нахождение кратчайшего пути
[нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая
... procedure DrawPath(First,Last:integer;Light:boolean=false); procedure IONewPoint(xPos,yPos:integer); procedure DrawAll; procedure FormMouseDown( X, Y: ...
... 1 do Arr[i]:=Arr[i+1]; Dec(Dim); SetLength(Arr,Dim+1); DrawAll; end; procedure TDrawingObject.SetActive(Num:integer); begin Arr[Num].Color:=RedLight; ...
Решение экономических задач с помощью VBA
[нестрогое соответствие]
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая
... End Sub Sub Task4() Worksheets("Задание4").Activate End Sub Sub Task1_Evrica() Dim mas1(3) As Integer Dim mas2(3) As Integer Dim Mas_I1(3) As Integer ...
... End Sub Sub Task3_Evrica() Dim AA_2(10) As Integer Dim MM_1(10) As Integer Dim MM_2(10) As Integer Dim MM_3(10) As Integer Dim MM_4(10) As Integer Dim ...
Програмирование на Visual Basic
[нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат
... keyascii = 13 Then combo2.Addltern combo2.Text End If End Sub Private Sub Form_Load () Listl.AddItem "Иванов И.И." Listl.AddItem "Петров П.П." Listl. ...
... 13 Then Poisk = Text4.Text FindCriteriy = "Name =" ... & Poisk & """ Datal.Recordset.FindFirst FindCriteriy If Datal.Recordset.NoMatch Then
Курс лекций по V B 5.0
[нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция
... тип пользователя Type StudentRecord Name As String Adress As String End Type 2. Объявляем массив записей типа Student как глобальную переменную Global ...
... объект "TableDef для каждой из 3-х таблиц Dim AuFlds(2) As Field, TitFlds(5) As Field, PubFlds(10) As Field " объект Field "для каждого поля каждой ...
VBA Платежка
[нестрогое соответствие]
Экономико-математическое моделирование, VBA Платежка, Курсовая
... Label16.Caption = " Нажав на эту кнопку Вы можете удалить выбранного Получателя из списка Получателей " End Sub Private Sub ПоНомеру_MouseMove(ByVal ...
... текущей платёжки" End Sub Private Sub Дата_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label16. ...
Модель файловой системы FAT
[нестрогое соответствие]
Программирование и комп-ры, Модель файловой системы FAT,
... NewFile.Name = .EditBoxes("Name").Text NewFile.Size = .EditBoxes("Size").Text End With Call AddFile(NewFile) 'Вызов процедуры добавления файла Refresh ...
... Cells(temp + 1; 2); Cells(temp + 1; 4)).Value Next End Sub Sub ToFAT(NumberCell As Integer; Value As Integer) 'Процедура записи в заданную ячейку FAT ...
Организация баз данных
[нестрогое соответствие]
Программирование и комп-ры, Организация баз данных, Курсовая
Const conNumButtons = 8 Dim dbs As Database Dim rst As Recordset Dim strSQL As String Dim intOption As Integer ' Установка фокуса на первую кнопку ...
... ОК_Click() On Error GoTo Err_OK_Click Dim strMsg As String, strTitle As String Dim intStyle As Integer ' Если отчет о продажах по годам не был открыт ...
Разработка системы автоматизации для малого коммерческого предприятия работающего в сфере информационных услуг
[нестрогое соответствие]
Программирование и комп-ры, Разработка системы автоматизации для малого коммерческого предприятия работающего в сфере информационных услуг , Диплом и ...
... 11) As String Dim numb2(11) As String Dim mil, tus, ed As Long Dim sot, des, ed1 As Integer Dim strval, strkop As String Dim kop As Integer Dim str1, ...
... As String Dim i, j As Integer Dim Цена, ЦенаП, Сопровождение, Сумма As Double Dim Дата As Date Dim ДатаTMP As Date Dim ДатаПМС As Date Dim ДатаTMP2 As ...
Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\
[нестрогое соответствие]
Программирование и комп-ры, Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ , Рефераты
... Dim p As Integer Dim per As Integer Dim i, j As Integer Dim a1(50) As Single Dim a2(10) As Single Dim a3(10) As Single Dim a4(10) As Single Dim a5(10) ...
... Dim mar(40) As Single Dim maw(40) As Single Dim buf1 As Single Dim buf2 As Single Dim buf3 As Single Dim buf4 As Single Dim buf5 As Single Dim buf6 As ...
