Latihan04 (Fungsi Operator)
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..
Lalu Klik Run - Start atau tekan f5 :
MATERI VB6
Jika anda baru Belajar VB 6 silakan belajar dari materi pertama :
Materi ke-2 : Membuat Form
Materi ke-3 : Variabel dan Konstanta
Materi ke-4 : Operator
Materi ke-5 : Fungsi Operator
Materi ke-6 : Fungsi Standar Visual Basic
Materi ke-7 : Percabangan
Materi ke-8 : Percabangan Lanjutan
Materi ke-9 : Procedure dan Function
Materi ke-10 : Module
Materi ke-11 : Array
Materi ke-12 : Efek Form dan Control Componen
Materi ke-13 : Database Form Barang
Materi ke-14 : Database Form Kasir
Materi ke-15 : Transaksi One To One
Materi ke-16 : Laporan Dengan Data Report