Delphi визуалды программалау ортасы
жүктеу/скачать 1,51 Mb.
|
Delphi
- Бұл бет үшін навигация:
- Бағдарлама листингі
- 22-сурет 23-сурет 24-сурет 25-сурет №15. Уақыт есептеуіш
- 26-сурет Ішкі бағдарлама листингі
- 16. Оятқыш сағат
- 17. Олимпиада жалауы
13 - кесте
4. айнымалыларды енгізу: ik, k, i : integer; s : string; a : array [1..15] of integer. 5. Жобаны сақтап, сосын оны іске қосып, орындалуын тексеріңіз. Бағдарлама листингі procedure Tform1.FormCreate(Sender: Tobject); begin Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end; procedure Tform1.Button1Click(Sender: Tobject); begin Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end; procedure Tform1.Button2Click(Sender: Tobject); begin close; end; procedure Tform1.Button3Click(Sender: Tobject); begin k := StrToInt (Edit2.Text); For i:= 1 to 15 do if k = a[i] then ik := i; if ik = 0 then Edit3.Text := 'number ubsent' else Edit3.Text := IntToStr (ik); end; procedure Tform1.Button4Click(Sender: Tobject); begin randomize; s := ''; For i := 1 to 15 do begin a[i] := random (26); s := concat (s, IntToStr (a[i]), #32); end; Edit1.Text := s; end; end. Әрекеттер бойынша жобалардың түрлері: 22-сурет 23-сурет 24-сурет 25-сурет №15. Уақыт есептеуіш Жұмыстың мақсаты – ағымдағы уақыт пен ағымдағы күнді шығарып, көрсететін бағдарлама құру. Бағдарламаны іске асыру жоспарының сипаттамасы 1. Жаңа жоба ашу. 2. Пішінге мына компоненттерді: Button, Edit, Label орналастыру. 3. Мына кестеде жазылған әрекеттерді орындау: 14 - кесте
26-сурет Ішкі бағдарлама листингі: var DateTime : TdateTime; procedure Tform1.Button1Click(Sender: Tobject); begin DateTime:=Time; Edit1.Text:=TimeToStr(DateTime); end; procedure Tform1.Button2Click(Sender: Tobject); begin Edit2.Text:=DateToStr(Date); end; end. №16. Оятқыш сағат Жұмыстың мақсаты – көрсетілген уақытта оятатын оятқыш сағаттың бағдарламасын жасау. Пішінде қазіргі уақыт пен ояту уақыты бөлек-бөлек көрсетіліп тұруы тиіс. 27-сурет Жұмысты іске асырудың бағдарламасы: var Hour,Min: word; // индикатордағы уақыт AlHour, AlMin: word; //оятқышқа орнатылған уақыт AlHour:AlMin // бағдарлама жұмысының басталуы procedure TForm1.FormCreate(Sender: TObject); begin Hour := HourOf(Now); Min := MinuteOf(Now); Label1.Caption := IntToStr(Hour); if Min < 10 then Label2.Caption := '0'+IntToStr(Min) else Label2.Caption := IntToStr(Min); end; // таймерден түсетін сигнал procedure TForm1.Timer1Timer(Sender: TObject); var cHour,cMin: word; begin // ағымдағы уақытты алу cHour := HourOf(Now); cMin := MinuteOf(Now); if Timer1.Tag = 0 //экрандағы бағдарлама терезесі then begin { ағымдағы уақытпен индикаторда көрінген уақыттың сәйкестігін тексеру} if cHour <> Hour then begin Hour := cHour; Label1.Caption := IntToStr(Hour); end; if cMin <> Min then begin Min := cMin; if min <10 then Label2.Caption := '0' + IntToStr(Min) else Label2.Caption := IntToStr(Min); end; // (:) қос нүктенің жыпылықтауын қаматамасыз ету if Label3.Visible then Label3.Visible := False else label3.Visible := True; end else // бағдарлама терезесі жасырылған, сигнал // жіберу сәтінің келгендігін тексеру if (cHour = AlHour) and (cMin = AlMin) // сигнал ! then begin Form2.Show; Timer1.Tag := 0; Timer1.Interval := 1000; end; end; // UpDown1 шерту оятқыш -сағаттың сигнал беру уақытын өзгертеді procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType); begin if UpDown1.Position < 10 then Label4.Caption := '0' + IntToStr(UpDown1.Position) else Label4.Caption := IntToStr(UpDown1.Position); end; // UpDown1 шерту оятқыш-минуттың сигнал беру уақытын өзгертеді procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType); begin if UpDown2.Position < 10 then Label5.Caption := '0' + IntToStr(UpDown2.Position) else Label5.Caption := IntToStr(UpDown2.Position); end; // OK батырмасын шерту procedure TForm1.Button1Click(Sender: TObject); begin // оятқышты орнату AlHour := UpDown1.Position; AlMin := UpDown2.Position; Timer1.Tag := 1; Form1.Hide; // Timer1.Interval := 3000; // әрбір 3 секунд сайын тексеру end; end. №17. Олимпиада жалауы Жұмыстың мақсаты – пішін бетінде олимпиада жалауын сызатын бағдарлама құру. жүктеу/скачать 1,51 Mb. Достарыңызбен бөлісу:
|