MEMBUAT KALKULATOR SEDERHANA

MEMBUAT KALKULATOR SEDERHANA Aplikasi Delphi 7.0 dapat digunakan untuk membuat kalkulator sederhana dengan menggunakan bahasa pemrograman PASCAL. Langkah-langkahnya:  Double klik pada icon Delphi 7.0  Setelah muncul jendela projectnya, lalu buatlah programnya dengan menggunakan command pallete. Maka hasilnya akan seperti ini:

 Double click pada button “Hitung”, kemudian masukkan codingnya seperti ini: procedure TForm1.Button1Click(Sender: TObject); var a,b,c : integer; d,e,f : real; begin if RadioButton1.Checked =true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a + b ; edit3.Text := inttostr(c); end else if RadioButton2.Checked =true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a - b; edit3.Text := inttostr(c); end else if RadioButton3.Checked = true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a * b; edit3.Text := inttostr(c); end else if RadioButton4.Checked = true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a div b ; edit3.Text := inttostr(c); end else if RadioButton5.Checked = true then begin d:= strtofloat(edit1.Text); e:= strtofloat(edit2.Text); f := d / e; edit3.Text := floattostr(f); end else if RadioButton7.Checked = true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a Mod b ; edit3.text := inttostr(c) end end;  Maka jalankan program dari coding yang telah dimasukkan pada button “Hitung” dengan cara tekan f9 atau play. 1. Maka akan seperti ini bila kita klik button Penjumlahan :

2. Maka akan seperti ini bila kita klik button Pengurangan:

3. Maka akan seperti ini bila kita klik button Perkalian :

4. Maka akan seperti ini bila kita klik button Pembagian:

5. Maka akan seperti ini bila kita klik button Pembagian Real:

6. Maka akan seperti ini bila kita k;ik button Sisa Bagi:

 Double click pada button “Hapus”, kemudian masukkan codingnya seperti ini: procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text := ''; edit2.Text := ''; edit3.Text := ''; edit1.setfocus; radiobutton1.checked := false; radiobutton2.Checked := false; radiobutton3.Checked := false; radiobutton4.Checked := false; radiobutton7.Checked := false; radiobutton5.Checked := false; end; procedure TForm1.Button3Click(Sender: TObject); begin close end; end.  Maka jalankan program dari coding yang telah dimasukkan pada button “Hapus” dengan cara tekan f9 atau play. Maka akan menjadi seperti ini:

 Double click pada button “Keluar”, kemudian masukkan codingnya seperti ini: procedure TForm1.Button3Click(Sender: TObject); begin close end; end.

MEMBUAT PROGRAM MENGGUNAKAN DELPHI

MEMBUAT PROGRAM MENGGUNAKAN DELPHI PART II Langkah-langkahnya:  Double klik pada icon Delphi 7.0  Setelah muncul jendela projectnya, lalu buatlah programnya dengan menggunakan command pallete. Maka hasilnya akan seperti ini:

 Double click pada button “Hitung”, kemudian masukkan codingnya seperti ini:

 Lalu Double click pada button “Hapus”, kemudian masukkan codingnya seperti ini:

 Setelah itu double click pada button “Keluar”, kemudian masukkan codingnya seperti ini :

 Lalu setelah itu klik play atau f9 untuk memulai program. Namun, pertama-tama kita masukkan jari-jarinya.Lalu kita mengklik button “hitung” akan muncul seperti ini:

 Kemudian kita klik button “hapus” untuk menghapus data-data yang terdapat pada kolom.maka akan tampil seperti ini:

 Lalu klik button “Keluar” untuk mengakhiri program.

MEMBUAT PROGRAM MENGGUNAKAN DELPHI PART I Aplikasi Delphi 7.0 dapat digunakan untuk membuat program sederhana dengan menggunakan bahasa pemrograman PASCAL. Langkah-langkahnya:  Double klik pada icon Delphi 7.0  Setelah muncul jendela projectnya, lalu buatlah programnya dengan menggunakan command pallete. Maka hasilnya akan seperti ini:

 Double click pada button “Tampilkan Data”, kemudian masukkan codingnya seperti ini:

 Lalu Double click pada button “Hapus”, kemudian masukkan codingnya seperti ini:

 Lalu setelah itu klik play atau f9 untuk memulai program. Maka jika kita mengklik button “Tampilkan Data” akan muncul seperti ini:

Dan Seperti ini:

MENGGUNAKAN PERULANGAN PADA VISUAL BASIC Perulangan Dalam visual basic ada 3 macam, yaitu : 1. Do Until 2. Do While 3. For Next Untuk dapat menggunakan perulangan dalam visual basic kita harus menggunakan kondisi “IF”. Contoh 1: Pertama-tama membuat program visual basic angka integer step 2. Langkahnya: 1. Buka aplikasi Visual basic 6.0 pada Pc 2. klik double 3. Setelah muncul halaman project, mulailah membuat perintah pada jendela form. Lalu akan jadi seperti ini :

4. Lalu double klik pada “for next” setelah itu masukkan codyingnya dan seterusnya. Codyingnya yaitu seperti ini :

5. Jika sudah di masukkan codyingnya lalu tekan play atau F5 untuk menjalankan program yang telah di buat. 1. Jika kita mengklik “For Next”, maka akan muncul seperti ini :

2. Jika kita mengklik “Do while”, maka akan muncul seperti ini :

3. Jika kita mengklik “Do until”, maka akan muncul seperti ini :

4. Jika kita mengklik “for (step 2)”, maka akan muncul seperti ini :

5. Lalu setelah itu kita klik “clear” dan kita Klik “out”.