Latihan04 (Fungsi Operator) : VB6

Silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe – Open.

Buat tampilan form seperti dibawah ini :

Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

 catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.

 Ketentuan Soal:
1. Nilai1 dan Nilai2 di input dengan aturan :
a. Operator aritmatika dan operator relasi diinput nilai angka
b. Operator logika and dan or dengan true or false untuk pengisian nilai1 dan nilai2
c. Operator logika not melakukan pilihan suatu nilai true or false
2. Button lagi digunakan mengulangi langkah penginputan dari awal
3. Button keluar digunakan untuk keluar dari aplikasi

masukkan listing program seperti berikut :

Private Sub cmd1_Click()
txthasil = Val(txtnil1.Text) = Val(txtnil2.Text)
End Sub
Private Sub cmd2_Click()
txthasil = Val(txtnil1.Text) < Val(txtnil2.Text) End Sub Private Sub cmd3_Click() txthasil = Val(txtnil1.Text) > Val(txtnil2.Text)
End Sub
Private Sub cmd4_Click()
txthasil = Val(txtnil1.Text) <= Val(txtnil2.Text) End Sub Private Sub cmd5_Click() txthasil = Val(txtnil1.Text) >= Val(txtnil2.Text)
End Sub
Private Sub cmd6_Click()
txthasil = Val(txtnil1.Text) <> Val(txtnil2.Text)
End Sub
Private Sub cmdbagi_Click()
txthasil = Val(txtnil1.Text) / Val(txtnil2.Text)
End Sub
Private Sub cmdkali_Click()
txthasil = Val(txtnil1.Text) * Val(txtnil2.Text)
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdkurang_Click()
txthasil = Val(txtnil1.Text) – Val(txtnil2.Text)
End Sub
Private Sub cmdlagi_Click()
txtnil1.Text = “”
txtnil2.Text = “”
txthasil.Text = “”
txtnot = “”
txtnil1.SetFocus
End Sub
Private Sub cmdmod_Click()
txthasil = Val(txtnil1.Text) Mod Val(txtnil2.Text)
End Sub
Private Sub cmdnot_Click()
If cmdnot = True Then
txtnot = Not True
Else
txtnot = Not False
End If
End Sub
Private Sub cmdor_Click()
If txtnil1 = “true” Or txtnil2 = “true” Then
txthasil = “true”
ElseIf txtnil1 = “true” Or txtnil2 = “false” Then
txthasil = “true”
ElseIf txtnil1 = “false” Or txtnil2 = “true” Then
txthasil = “true”
Else
txthasil = “false”
End If
End Sub
Private Sub cmdtambah_Click()
txthasil = Val(txtnil1.Text) + Val(txtnil2.Text)
End Sub

 Penjelasan Coding :
Val ; Menjadikan karakter angka bisa digunakan untuk pengopratoran perhitungan.
if txtnil1 = “true” Or txtnil2=”true” then txthasil=”true” ; jika txtnil1 bernilai true atau txtnil2 bernilai true maka txthasil akan true.
Jika ingin bertanya silakan lewat kotak komentar dibawah..