Cara Membuat Kalkulator Sederhana VB 6.0

Cara Membuat Kalkulator Sederhana VB 6.0 - kali ini kita akan belajar cara membuat kalkulator sederhana. memang sudah banyak kalkulator diluarsana yang dibuat menggunakan Visual basic,tapi kali ini kita membuatnya sedikit berbeda. Dengan menambahkan Tombol ON/OFF pada kalkulator ini.
langkah pertama kita buka aplikasi Visual Basic 6.0 dan buat project baru
klik aplikasi visual basic –> pilih Standart Exe –> lalu pilih Ok
langkah kedua sekarang kita desain Project kalkulator ini seperti gambah di bawah ini :

Cara Membuat Kalkulator Sederhana VB 6.0 
Setelah form kita desain sekarang ubah Name setiap komponen

untuk componen Button numeric 0-9

ganti Name menjadi Comammand(angka button tersebut)

misalnya button 1 menjadi Command1,button 2 menjadi Command2 dan seterunya.

sedangkan untuk tombol oprasi sesuaikan dengan caption oprasinya.

misalkan button ” + “ name kita ganti menjadi “tambah” dan yang lainnya juga sama seperti itu.

Untuk button kurang ganti captionnya menjadi “__” undescor dua kali bukan “–” strip.

dan untuk tombol “ON” ganti name menjadi “nyalah” sedangkan tombol “OFF” menjadi “mati

langkah selanjutnya kita klik kanan pada form lalu pilih “view code”

setelah itu kita bersihkan dulu  kolom codenya dengan cara CTRL+A dan tekan BackSpace atau delete.

nah kalo langkah diatas udah semua sekarang copy dan paste code dibawah ini:

Private Sub bagi_Click()
If Label1.Caption = “” Then
Label1.Caption = Text1.Text
Label5.Caption = bagi.Caption
End If
If Label5.Caption <> “” Then
Label5.Caption = “/”
End If
Text1.Text = “”
End Sub

Private Sub Command0_Click()
Text1.Text = (Text1.Text) + Command0.Caption
End Sub

Private Sub Command1_Click()
Text1.Text = (Text1.Text) + Command1.Caption
End Sub

Private Sub Command10_Click()
Text1.Text = “”
Label1.Caption = “”
Label2.Caption = “”
Label4.Caption = “”
Label5.Caption = “”
End Sub

Private Sub Command11_Click()
Text1.Text = “”
End Sub

Private Sub Command2_Click()
Text1.Text = (Text1.Text) + Command2.Caption
End Sub

Private Sub Command3_Click()
Text1.Text = (Text1.Text) + Command3.Caption
End Sub

Private Sub Command4_Click()
Text1.Text = (Text1.Text) + Command4.Caption
End Sub

Private Sub Command5_Click()
Text1.Text = (Text1.Text) + Command5.Caption
End Sub

Private Sub Command6_Click()
Text1.Text = (Text1.Text) + Command6.Caption
End Sub

Private Sub Command7_Click()
Text1.Text = (Text1.Text) + Command7.Caption
End Sub

Private Sub Command8_Click()
Text1.Text = (Text1.Text) + Command8.Caption
End Sub

Private Sub Command9_Click()
Text1.Text = (Text1.Text) + Command9.Caption
End Sub

Private Sub Form_Activate()
For Each Control In Me
If TypeName(Control) = “CommandButton” Then
Control.Enabled = False
End If
Next
nyalah.Enabled = True
Form1.BackColor = &H0&
Text1.BackColor = &H0&
Label1.BackColor = &H0&
Label2.BackColor = &H0&
Label4.BackColor = &H0&
Label5.BackColor = &H0&
Label3.BackColor = &H0&
End Sub

Private Sub hasil_Click()
If Label1.Caption And Text1.Text <> “” Then
Label2.Caption = Text1.Text
Select Case Label5.Caption
Case “+”
Label4.Caption = Val(Label1.Caption) + Val(Label2.Caption)
Case “/”
Label4.Caption = Val(Label1.Caption) / Val(Label2.Caption)
Case “X”
Label4.Caption = Val(Label1.Caption) * Val(Label2.Caption)
Case “__”
Label4.Caption = Val(Label1.Caption) – Val(Label2.Caption)
End Select
End If
Text1.Text = “”
End Sub

Private Sub kali_Click()
If Label1.Caption = “” Then
Label1.Caption = Text1.Text
Label5.Caption = kali.Caption
End If
If Label5.Caption <> “” Then
Label5.Caption = “X”
End If
Text1.Text = “”
End Sub

Private Sub kurang_Click()
If Label1.Caption = “” Then
Label1.Caption = Text1.Text
Label5.Caption = kurang.Caption
End If
If Label5.Caption <> “” Then
Label5.Caption = “__”
End If
Text1.Text = “”
End Sub

Private Sub nyalah_Click()
For Each Control In Me
If TypeName(Control) = “CommandButton” Then
Control.Enabled = True
End If
Next
Form1.BackColor = &HFFFF80
Text1.BackColor = &HFFFF80
Label1.BackColor = &HFFFF80
Label2.BackColor = &HFFFF80
Label4.BackColor = &HFFFF80
Label5.BackColor = &HFFFF80
Label3.BackColor = &HFFFF80
End Sub

Private Sub tambah_Click()
If Label1.Caption = “” Then
Label1.Caption = Text1.Text
Label5.Caption = tambah.Caption
End If
If Label5.Caption <> “” Then
Label5.Caption = “+”
End If
Text1.Text = “”
End Sub

Sekian tentang Cara Membuat Kalkulator Sederhana VB 6.0 - Seomoga Bermanfaat.

Bagikan ke

Facebook Google+ Twitter

Search