Kalkulator Sederhana

Okey temen" semua sesuai janji aq d tutorial sebelumnya aq kan coba bahas untuk buat program sederhana. Untuk para pemula aq kan berikan contoh program yang mudah di pahami dan mudah di buat. Disini aq buat sebuah program Kalkulator Sederhana. Design formnya sebagai berikut :

ALGORITMA :
1. Inputkan Nilai pertama dan Nilai kedua
2. Pilih Operator
3. Klik Command Proses

• Jika Operator Tambah aktif maka Hasil = Nilai1 + Nilai2
• Jika Operator Kurang aktif maka Hasil = Nilai1 - Nilai2
• Jika Operator Kali maka aktif Hasil = Nilai1 * Nilai2
• Jika Operator Bagi maka aktif Hasil = Nilai1 / Nilai2

4. Jika command HAPUS di tekan maka semua text akan kosong

>> Properties

Tool Box	Properties
	Name	Caption	Text	Auto Size	Back Style	Border Style
Form	Form1	Latihan 1	-	-	-
Label	Label1	Kalkulator 1	-	True	Transparant
Text1	Nilai1	-	Kosongkan	-	-	Fixed Single
Text2	Nilai2	-	Kosongkan	-	-	Fixed Single
Text3	Nilai3	-	Kosongkan	-	-	Fixed Single
Command1	Cmd_Proses	Proses	-	-	-
Command2	Cmd_Hapus	Hapus	-	-	-
Frame	Frame1	Operator	-	-	-
Option Botton1	Option1	Tambah	-	-	-
Option Botton2	Option2	Kurang	-	-	-
Option Botton3	Option3	Kali	-	-	-
Option Botton4	Option4	Bagi	-	-	-

>> Langkah - langkah pembuatan :

1. Buka program VB sesuai langkah - langkah seperti pada tutorial sebelumnya
2. Buat dan design formnya sesuai yang kamu inginkan kurang lebih seperti contoh di atas
3. Masukkan Perintah / source code berikut pada Cmd_Proses :

Private Sub Cmd_Proses_Click()     If Option1.Value = True Then         Hasil.Text = Val(Nilai1.Text) + Val(Nilai2.Text)     ElseIf Option2.Value = True Then         Option1.Value = False         Hasil.Text = Val(Nilai1.Text) - Val(Nilai2.Text)     ElseIf Option3.Value = True Then         Hasil.Text = Val(Nilai1.Text) * Val(Nilai2.Text)     ElseIf Option4.Value = True Then         Hasil.Text = Val(Nilai1.Text) / Val(Nilai2.Text)     End If End Sub 4. Kemudian Masukkan perintah / sourcode pada Cmd_Hapus, sebagai berikut : Private Sub Cmd_Hapus_Click()     Nilai1.Text = ""     Nilai2.Text = ""     Nilai3.Text = ""     Nilai1.SetFocus End Sub 5. Lalu coba jalankan program dengan menekan F5 pada keyboard! Naah... mudah-mudahan tutorial ini bermanfaat buat kalian yaw temen-temen,,, semoga kalian bisa lebih baik dari sebelumnya. Selamat Mencoba yaw temen-temen....!!!! Atau kalo kalian mengalami kesulitan kalian bisa download project-nya disini