Gambarnya blum di upload euy. sementara kodenya dulu :
Mohon maaf sebelumnya buat yang protes, saya lupa upload gambarnya soalnya udah lama banget.
Buat form seperti di bawah
Sourcecodenya sbb:
05 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
21 | procedure Button1Click(Sender: TObject); |
22 | procedure Button2Click(Sender: TObject); |
23 | procedure Button3Click(Sender: TObject); |
24 | procedure Button4Click(Sender: TObject); |
37 | procedure TForm1 . Button1Click(Sender: TObject); |
39 | x:= strtofloat (Editbilangan1 . Text); |
40 | y:= strtofloat (Editbilangan2 . Text); |
42 | Edithasil . Text := floattostr (z); |
45 | procedure TForm1 . Button2Click(Sender: TObject); |
47 | x:= strtofloat (Editbilangan1 . Text); |
48 | y:= strtofloat (Editbilangan2 . Text); |
50 | Edithasil . Text := floattostr (z); |
53 | procedure TForm1 . Button3Click(Sender: TObject); |
55 | x:= strtofloat (Editbilangan1 . Text); |
56 | y:= strtofloat (Editbilangan2 . Text); |
58 | Edithasil . Text := floattostr (z); |
61 | procedure TForm1 . Button4Click(Sender: TObject); |
63 | x:= strtofloat (Editbilangan1 . Text); |
64 | y:= strtofloat (Editbilangan2 . Text); |
66 | Edithasil . Text := floattostr (z); |
Hasilnya sebagai berikut :
Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi
0 komentar:
Posting Komentar