Pendeklarasian Variable

Listing Program


'Membuat deklarasi data
Dim nilai1 As Integer
Dim nilai2 As Integer
Dim hasil As Integer


Baca Penuh >>>



Private Sub CmdBersih_Click()
'Membersihkan Form
Me.txtnilai1.Text = ""
Me.txtnilai2.Text = ""
Me.txthasil.Text = ""
Me.optbagi.Value = False
Me.optkali.Value = False
Me.optkurang.Value = False
Me.optlebihbesar.Value = False
Me.optlebihbesarsamadengan.Value = False
Me.optlebihkecil.Value = False
Me.optlebihkecilsamadengan.Value = False
Me.optpangkat.Value = False
Me.optsamadengan.Value = False
Me.opttambah.Value = False
Me.opttdksama.Value = False
Me.txtnilai1.SetFocus
End Sub

Private Sub CmdKeluar_Click()
'Membuat Pesan pada saat Klik Tombol Keluar
pesan = MsgBox("Yakin ney mo udahan Belajarnya ??....", vbOKCancel, "YUKS....BELAJAR VB")
If pesan = vbOK Then
End
End If
End Sub

Private Sub optbagi_Click()
hasil = Val(nilai1 / nilai2)
Me.txthasil.Text = hasil
End Sub

Private Sub optkali_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) * Val(Me.txtnilai2.Text)
End Sub

Private Sub optkurang_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) - Val(Me.txtnilai2.Text)
End Sub

Private Sub optlebihbesar_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) > Val(Me.txtnilai2.Text)
End Sub

Private Sub optlebihbesarsamadengan_Click()
hasil = (nilai1 <= nilai2)
Me.txthasil.Text = hasil
End Sub

Private Sub optlebihkecil_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) < Val(Me.txtnilai2.Text)
End Sub

Private Sub optlebihkecilsamadengan_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) <= Val(Me.txtnilai2.Text)
End Sub

Private Sub optnot_Click()
Me.txthasil.Text = Not Val(Me.txtnilai1.Text)
End Sub

Private Sub optpangkat_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) ^ Val(Me.txtnilai2.Text)
End Sub

Private Sub optsamadengan_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) = Val(Me.txtnilai2.Text)
End Sub

Private Sub opttambah_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) + Val(Me.txtnilai2.Text)
End Sub

Private Sub opttdksama_Click()
Me.txthasil.Text = Val(Me.txtnilai1.Text) <> Val(Me.txtnilai2.Text)
End Sub

Private Sub txtnilai1_Change()
'Memberikan Identitas Penamaan Nilai 1 pada Text1
nilai1 = Val(Me.txtnilai1.Text)
End Sub

Private Sub txtnilai1_KeyPress(KeyAscii As Integer)
'Memberi perintah Enter
If KeyAscii = 13 Then
Me.txtnilai2.SetFocus
End If
End Sub

Private Sub txtnilai2_Change()
'Memberikan Identitas Penamaan Nilai 2 pada Text2
nilai2 = Val(Me.txtnilai2.Text)
End Sub