MEMBUAT PROGRAM PERKALIAN SEDERHANA DENGAN DELPHI

-

 
Salam super untuk kita semua pada kesempatan kali ini saya akan mencoba memposting pembuatan program perkalian sederhana menggunakan delphi.
Baiklah langsung saja kita buat dengan langkah – langkah yang sebenarnya cukup sederhana yaitu sebagai berikut :
1.       Desain form  seperti gambar dibawah..

2.       Dengan atribut sebagai berikut :
Kontrol
Caption
Name
Label1
PERKALIAN SEDERHANA
Label1
Label2
Angka 1
Label2
Label3
Angka 2
Label3
Label4
Hasil
Label4
Edit1
Edit1
Edit1
Edit2
Edit2
Edit2
Edit3
Edit3
Edit3
Edit4
Edit4
Edit4
Button1
+
Button1
Button2
-
Button2
Button3
X
Button3
Button4
/
Button4
Button5
Hapus
Button5
Button6
Keluar
Button6

3.       Klik 2x pada button ( + ) lalu masukkan script sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Text:= inttostr(strtoint(edit1.Text) + strtoint(edit2.Text));

end;

4.       Pada  bagian Button ( – ) tuliskan script berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:= inttostr(strtoint(edit1.Text) - strtoint(edit2.Text));
end;

5.       Untuk button ( X ) scriptnya sebagai berikut :
procedure TForm1.Button3Click(Sender: TObject);
begin
edit3.Text:= inttostr(strtoint(edit1.Text) * strtoint(edit2.Text));
end;

6.       Kemudian pada bagian Button / tuliskan script sebagai berikut :
procedure TForm1.Button4Click(Sender: TObject);
begin
edit3.Text:=currtostr(strtocurr(edit1.Text)/strtocurr(edit2.Text));
end;

7.       Lalu klik 2x pada form dan tuliskan kode sebagai berikut :
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;

8.       Untuk button hapus tuliskan scrip di bawah
procedure TForm1.Button5Click(Sender: TObject);
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit1.SetFocus
end;

9.       Terakhir pada button keluar anda cukup menuliskan kode Close;
procedure TForm1.Button6Click(Sender: TObject);
begin
CLOSE;
end;

10.   Jalankan program atau dengan menekan tombol F9 pada keyboard.
Selamat mencoba semoga berhasil !!!

Postingan populer dari blog ini

MEMASUKAN PRESET KAMERA RAW KE ADOBE PHOTOSHOP CC

-
Gambar
  Selamat pagi dan selamat beraktifitas ya sobat semua pada kesempatan ini saya akan membagikan tutorial cara menambahkan preset camera RAW di adobe CC, yuk langsung saya simak caranya   1.        Siapkan file preset yg akan kita insert ke photoshop, kemudian silahkan sobat copy kemudian pastekan di folder setting dengan cara Local Disk C >   User > AppData > Roaming > Adobe > Camera Raw > Setting. Jika folder app data belum muncul silahkan sobat munculkan terlebih dahulu atau caranya bisa sobat lihat disini 2.        Lalu silahkan sobat pastekan di folder setting tadi 3.        Setelah selesai lalu silahkan buka adobe photoshop sobat pilih Filter > Camera Raw Filter 4.        Setelah muncul kotak dialog pilih preset maka otomatis preset yang kita tambahkan tadi akan muncul Sekian semoga bermanfaat bagi teman-teman terim...
Baca selengkapnya

CARA MEMBUAT PROGRAM PERKALIAN SEDERHANA PADA VISUAL BASIC

-
Gambar
Untuk cara-cara nya simak langkah- langkah sebagai berikut :  1.        Masukkanlah 4 buah label, 3 buah teks box, dan 3 buah command.. 2.        Buatlah field – field sebagai berikut : Atribut Caption Name Command1 &Hitung Cmdhitung Command2 &Hapus Cmdhapus Command2 &Keluar Cmdkeluar Label1 RUMUS PERKALIAN Label1 Label2 Bilangan Pertama Txtbil1 Label3 Bilangan Kedua Txtbil2 Label1 Hasil txtbilhasil 3.        Klik 2x pada command hitung lalu tuliskan scrip sebagai berikut : Private Sub cmdhitung_Click(Index As Integer) Dim bil1, bil2, bilhasil bil1 = Val(txtbil1.Text) bil2 = Val(txtbil2.Text) bilhasil = bil1 * bil2 txtbilhasil.Text = bilhasil End Sub 4.        Untuk co...
Baca selengkapnya

MENGHITUNG FAKTORIAL PADA VISUAL BASIC

-
Gambar
Langkah – langkah untuk menghitung Factorial pada VB adalah sebagai berikut : 1.        Desain form seperti gambar di bawah. 2.        Buatlah field – field sebagai berikut : Kontrol Caption Name Command1 Hitung Cmdhitung Command2 Hapus Cmdhapus Command3 Keluar Cmdkeluar TextBox1 - Txt1 TextBox2 - Txt2 Label1 Menghitung Faktorial Label1 Label2 Masukan Nilai Label2 Label3 Hasil Label3 3.        Masukkan code script berikut pada command Hitung Private Sub Cmdhitung_Click() Dim A As Double A = 1 For i = 1 To Text1.Text A = A * i Next i Text2.Text = A End Sub 4.        Pada command hapus tuliskan code berikut Private Sub cmdhapus_Click(Index As Integer) Text1.Tex...
Baca selengkapnya