Похожие работы на «Калькулятор на VB - это легко! »

Калькулятор на VB - это легко!
Программирование и комп-ры, Калькулятор на VB - это легко! , Рефераты ... добавляем цифру надписи табло Tablo.Caption = Tablo.Caption & Index End If End If End If Tablo.Tag = "" ' возможен (...) ввод дробного числа End Sub ...
... нет" Then vtoroe = Val(Tablo.Caption): rezultat End If Select Case Index ' запишем выбранное действие Case 0 deystvie = "разделить" Case 2 deystvie ...


Индексированные элементы управления [нестрогое соответствие]
Программирование и комп-ры, Индексированные элементы управления , Лекции ... 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 ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... GetPrName(processor1:Tlabel); var SI:TsystemInfo; begin GetSystemInfo(SI); Case SI.dwProcessorType of 386:Processor1.caption:='386'; 486:Processor1. ...
... Windows 95 (98)'; ver_platform_win32_nt:os.caption:='Windows NT'; end; with osverinfo do begin winver:=format('%d.%d',[dwmajorversion, dwminorversion] ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий [нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... begin NumMarks:=StrToFloat(ReadString('MARK_CONFIG','MARKS_VALUE',Default)); Label3.Caption:='Общий балл для всех задач равен '+FloatToStr(NumMarks) ...
... FloatToStr(Okrugl(n2*100,2))+'%, '+FloatToStr(Okrugl(n3*100,2))+'%.'; end; if MCon='1' then begin Series2.Clear; Series4.Clear; Series5.Clear; Label1. ...


Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция While Wend Вместо Do While x=0 Loop While x=0 Wend |If условное выражение Then (Enter) |If выражение Then | |несколько операторов |оператор | |Else ...
... Form_QueryUnload(Cansel As Integer, UnloadMode As Integer) X % = MgBox("Вы уверены?", VbYesNo) If X % = VbNo Then Cancel = True Else Cancel = False ...


Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ [нестрогое соответствие]
Программирование и комп-ры, Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ , Рефераты ... в Visual Basic!" 'Выдает сообщение "Выдает приветственное сообщение End Sub Private Sub Text1_Change() Text1.Enabled = False 'Делает текстовое поле ...
... перехода в др. форму End Sub Private Sub Command3_Click() Form2.Hide 'Скрывает 2 форму Form3.Show 'Показывает 3 форму Command1.Enabled = True ' Делает ...


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 ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... else St2 else St3; эквивалентен оператор if L1 then begin if L2 then St1 else St2; end else St3; В этом операторе для повышения структурированности ...
... запись не прочитана, сразу выход из цикла} end; {Case} end; {цикла For} finally CloseFile(f1); {закрываем файл-источник} CloseFile(f2); {закрываем ...


Программирование логической игры на visual basic [нестрогое соответствие]
Программирование и комп-ры, Программирование логической игры на visual basic , Работа Курсовая ... Caption - 5 If et = 4 Then Label48.Caption = Label48.Caption + 10 If et = 5 Then Label48.Caption = Label48.Caption - 10 If et = 6 Then Label48.Caption ...
... If et = 11 Then Label48.Caption = Label48.Caption - 200 If et = 12 Then Label48.Caption = 0 If et = 13 Then Label48.Caption = 0 If et = 14 Then End If ...


Тригонометричні ефемериди планет Сонячної системи [нестрогое соответствие]
Программирование и комп-ры, Тригонометричні ефемериди планет Сонячної системи, Курсовая ... begin ComboBox2.ItemIndex:=0; M0:=1; ZM:=1; ZM1:=1; end; end; R0:=StrToInt(ComboBox3.Text); ZR:=StrToInt(ComboBox3.Text); ZR1:=StrToInt(ComboBox3.Text ...
... Уран'; 8: Label1.Caption:='Нептун'; 9: Label1.Caption:='Плутон'; end; Label3.Caption:=IntToStr(ZD1); Label5.Caption:=IntToStr(ZR1); case ZM1 of 1: ...