Salam berjaya buat sobat blogger di seluruh jagat raya, wkwkwk... Dalam
tulisan kali ini @bu kepengen sharing kepada sobat-sobit kaitannya dengan
aplikasi kalkulator sederhana menggunakan bahasa pemrograman delphi. Buat kalian
nih yang suka belajar pemrograman yang satu ini pasti gk tertarik buat baca
artikel ini, tapi buat sobat-sobit blogger yang masih awam dengan pemrograman
delphi, berikut @bu berikan latihan buat kalian semua. Berikut tutorial
pembuatan aplikasi kalkulatornya:
KOMPONEN YANG DIGUNAKAN:
1). Form (1 buah)
- Name: Form 1
Caption: Kalkulatorku
2). Label (2 buah)
- Name: Label1
Caption: Angka pertama
- Name: Label2
Caption: Angka kedua
3). Edit (3 buah)
- Name: Edit1
Text: (kosongkan)
- Name: Edit2
Text: (kosongkan)
- Name: Edit3
Text: (kosongkan)
Enabled: False
4). Button (4 buah)
- Name: Button1
Caption: +
- Name: Button2
Caption: -
- Name: Button3
Caption: *
- Name: Button4
Caption: /
RANCANGAN FORM:
SINTAKS BUTTON1 (Double Klik Pada Button1) :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := floattostr(strtofloat(Edit1.Text) + strtofloat(Edit2.Text));
end;
SINTAKS BUTTON2 (Double Klik Pada Button2) :
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text := floattostr(strtofloat(Edit1.Text) - strtofloat(Edit2.Text));
end;
SINTAKS BUTTON3 (Double Klik Pada Button3) :
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit3.Text := floattostr(strtofloat(Edit1.Text) * strtofloat(Edit2.Text));
end;
SINTAKS BUTTON4 (Double Klik Pada Button4) :
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit3.Text := floattostr(strtofloat(Edit1.Text) / strtofloat(Edit2.Text));
end;
Sekian sobat blogger :). Semoga bermanfaat buat kalian semua, blog ini semata-mata sebagai sarana buat saya berbagi. Mengenai rancangan formnya terserah buat sobat-sobit aja gimana cara kreasinya, kalau cantik cara merancangnya tdk menutup kemungkinan ada yang mau beli, wkwkwk.
See you dalam update berikutnya...