Tutorial membuat Kalkulator Sederhana melalui Visual basic 6.0

assalamualaikum ,saya akan berbagi sedikit pengalaman saya belajar VB 6.0
di sini saya akan mencoba mencoba membuat aplikasi sederhana kalkulator 
buatlah desaign form sebagai berikut :
1. masukan 20 commandbutton
2.masukan 1 text box
atur posisi sedemikian rupa

Setelah itu Masukan Script di bawah ini
Private pilihan As String
Private x As Double
Private y As Double

Private Sub AC_Click()
Text1.Text = ""
y = x = 0
tanda.Enabled = False
End Sub

Private Sub Akar_Click()
If x < 0 Then
Text1.Text = "Angka Tidak Boleh Negatif Coy"
Else
Text1.Text = Sqr(x)
End If
End Sub

Private Sub Bagi_Click()
Text1.Text = ""
pilihan = "bagi"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
x = Text1.Text
tanda.Enabled = True
End Sub

Private Sub Form_Load()
tanda.Enabled = False
End Sub

Private Sub Hasil_Click()
If pilihan = "tambah" Then
x = y + x
Text1.Text = x
ElseIf pilihan = "kurang" Then
x = y - x
Text1.Text = x
ElseIf pilihan = "kali" Then
x = y * x
Text1.Text = x
ElseIf pilihan = "bagi" And x <> 0 Then
x = y / x
Text1.Text = x
Else
Text1.Text = "Tidak Terdefinisi"
End If
End Sub

Private Sub Kali_Click()
Text1.Text = ""
pilihan = "kali"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Koma_Click()
If Text1.Text = "" Then
Text1.Text = "0."
Else
Text1.Text = Text1.Text & "."
End If
End Sub

Private Sub Kuadrat_Click()
Text1.Text = x ^ 2
End Sub

Private Sub Kurang_Click()
Text1.Text = ""
pilihan = "kurang"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Tambah_Click()
Text1.Text = ""
pilihan = "tambah"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Tanda_Click()
If x < 0 Then
Text1.Text = -x
x = -x
Else
Text1.Text = "-" & Text1.Text
x = -x
End If
End Sub



tekan F5 untuk mencoba
sekian semoga bermanfaat
assalamualaikum wr wb

Please Give Us Your 1 Minute In Sharing This Post!

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →

Powered By: BloggerYard.Com