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...
Wah makasih bang abu, nanti sy latihan...
BalasHapusAplikasinya sederhana betul :D
BalasHapus