Похожие работы на «Программирование логической игры на visual basic »

Программирование логической игры на visual basic
Программирование и комп-ры, Программирование логической игры на visual basic , Работа Курсовая ... k = 1 Then Label8.Caption = Label56.Caption If k = 1 Then Label8.BackColor = Label56.BackColor If k = 1 Then Label8.ForeColor = Label56.ForeColor If k ...
... Then Label23.ForeColor = Label56.ForeColor If k = 17 Then Label24.Caption = Label56.Caption If k = 17 Then Label24.BackColor = Label56.BackColor If k ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... 13) + Chr$(10) Check2.Enabled = False End If End Sub Private Sub Check3_Cli.ck() If Check3.Value = 0 Then Listi.Columns = 1 Else Listi.Columns = 2 End ...
... Elself Combo2.Text = "черный" Then LabelS.BackColor = &HO Elself Combo2.Text = "Синий" Then LabelS.BackColor = &HFFOOOO Elself Combo2.Text = "Зеленый" ...


Решение экономических задач с помощью VBA [нестрогое соответствие]
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая ... For p = 2 To 6 If p = 2 Then For j = 1 To k + 1 A(j) = Cells(j + 3, 2).Value Next j End If If p > 2 Then For j = 1 To k + 1 A(j) = Cells(j + 3, p + 5) ...
... For n = 1 To k + 1 m = -1 For j = 1 To n If m < A(j) + r(n + 1 - j, p) Then m = A(j) + r(n + 1 - j, p) End If Next j Cells(n + 3, 6 + p).Value = m l ...


Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов [нестрогое соответствие]
Программирование и комп-ры, Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов , Работа Курсовая ... Init() Cng_List (False) n = 0 For i = 1 To m For j = 1 To m A(i, j) = 0 Next j Next i Sheet2.Visible = xlSheetHidden Sheet3.Visible = xlSheetHidden ...
... Введите матрицу А из файла") Else If Sheet3.Cells(i + 3, j) = "" Then A(i, j) = 0 ' заполнение матрицы с клавиатуры Else A(i, j) = Sheet3.Cells(i + 3, ...


Индексированные элементы управления [нестрогое соответствие]
Программирование и комп-ры, Индексированные элементы управления , Лекции ... End If Command1.Caption < Command3.Caption Then End If Command1.Caption < Command4.Caption Then End If Command1.Caption < Command5.Caption Then End If ...
... End If Command2.Caption < Command3.Caption Then End If Command2.Caption < Command4.Caption Then End If Command2.Caption < Command5.Caption Then End If ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... End; {конец описания процедуры MatrMult} Procedure Prim; {заголовок процедуры Prim} Var i, j: Integer; Begin For i:= 1 to n do {блок задания элементов ...
... что Warn1, но в 4 строки} var i,j: byte; begin i:=Length(s1); j:=i; i:=Length(s2); if (i>j) then j:=i; i:=Length(s3); if (i>j) then j:=i; i:=Length(s4 ...


VBA Платежка [нестрогое соответствие]
Экономико-математическое моделирование, VBA Платежка, Курсовая ... отнимает 1 день от даты If IsDate(Дата) = True Then Дата = CDate(Дата) - 1 Else End If End Sub Private Sub Плюс_Click() ' прибавляет один день к дате ...
... ByVal KeyAscii As MSForms.ReturnInteger) If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0 End Sub Private Sub УНН_KeyPress(ByVal KeyAscii As ...


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... begin BtnNext.Font.Color:=clWindowText; BtnNext.Caption:='finished'; LabelInput.Font.Color:=clRed; LabelInput.Visible:=True; end else begin BtnNext. ...
... begin BtnNext.Font.Color:=clWindowText; BtnNext.Caption:='finished'; LabelInput.Font.Color:=clRed; LabelInput.Visible:=True; end else begin BtnNext


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей [нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... For i:=1 to 7 do begin {---- deltaA-deltaB > d(AB) then change mark} {} if (vertexArr[j].marked) AND (not(vertexArr[i].marked)) then begin vertexArr[i ...
... vertexArr[sender].mark.prevPtr; push(k); While k<>target do begin push(vertexArr[k].mark.PrevPtr); k:=vertexArr[k].mark.PrevPtr; End; End; Procedure


Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic [нестрогое соответствие]
Программирование и комп-ры, Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic ... ... Label19.Caption = "" Label20.Caption = "" Label21.Caption = "" Label22.Caption = "" Fotd = 0 Oos = 0 Oobakt = 0 Ozap = 0 Odz = 0 Oba = 0 Oksk = 0 a ...
... s510 = 0 If s730 = "" Then s730 = 0 If s740 = "" Then s740 = 0 If s735 = "" Then s735 = 0 tekpassiv = c - s500 - s510 - s730 - s735 - s740 Label15. ...