yudoblogs

LOGIKA PROGRAM (FORM 1) unit Timer; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, Menus; type   TForm1 = class(TForm)     MainMenu1: TMainMenu;     N1: TMenuItem;     Merah1: TMenuItem;     Kuning1: TMenuItem;     Biru1: TMenuItem;     Hitam1: TMenuItem;     Menu1: TMenuItem;     Form21: TMenuItem;     Exit1: TMenuItem;     Label1: TLabel;     Label2: TLabel;     Timer1: TTimer;     Timer2: TTimer;     Hijau1: TMenuItem; procedure Timer1Timer(Sender: TObject);     procedure Timer2Timer(Sender: TObject);     procedure Merah1Click(Sender: TObject);     procedure Kuning1Click(Sender: TObject...

2. Pengulangan dan Percabangan pada Delphi Saya akan menjelaskan pemrograman delphi yang menjelaskan tentang perulangan dan percabangan. Pertama-tama saya akan menjelaskan tentang program perulangan terlebih dahulu. Berikut ini adalah alur dan logika program diatas. unit Prog_perulangan; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Memo1: TMemo;     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { P...