Visual Basic 6.0 For Beginners Febryan Hari Purwanto
[email protected]
Chapter 5 Operator Matematika Dalam pemrograman kita tidak hanya sekedar mempelajari bahasa pemrogramannya saja, banyak hal yang harus dipelajari seperti salah satunya adalah Operator Matematika. Dalam bahasa pemrograman Operator Matematika dapat diartikan sebagai symbol yang digunakan untuk melakukan operasi terhadap nilai data. Operator dalam bahasa pemrograman dapat berupa karakter ataupun berupa kata khusus yang melambangkan satu operasi tertentu, misalnya operator untuk operasi penjumlahan (+), pengurangan(‐),pembagian(/),perkalian(*) dan sebagainya. 1. Operator Aritmatika Operator Matematika yaitu operator yang digunakan untuk operasi matematis terhadap suatu nilai data. Ada beberapa operator aritmatika yang dapat digunakan dalam pemrograman antara lain : Operasi Simbol Contoh Pangkat ^ 4 ^ 2 = 16 Perkalian * 4 * 2 = 8 Pembagian / 5 / 2 = 2,5 Pembagian Integer \ 5 \ 2 = 2 Sisa Bagi Mod 4 Mod 2 = 0 Penjumlahan + 4 + 2 = 6 Pengurangan ‐ 4 ‐ 2 = 2 Penggabungan String & 4 & 2 = 42
a. Pangkat ( Eksponen) Pemangkatan atau eksponen banyak digunakan dalam operasi komputer, eksponen mempunyai operator carret(^) dan sintaksnya adalah sebagai berikut : Eksponen = bilanngan1^bilangan2 Contoh : Eksponen = 5^2 hasilnya = 25 Eksponen = 3^2 hasilnya = 9 Eksponen = 2^‐2 hasilnya = 0,25 b. Perkalian Perkalian digunakan untuk mengalikan dua buah bilangan atau lebih, simbolnya (*) dan sintaksnya dalam pemrograman adalah : Perkalian = bilangan1 * bilangan2 Contoh : Perkalian = 2 * 2 hasilnya = 4 Perkalian = 5 * 5 hasilnya = 25 c. Pembagian Pembagian digunakan untuk melakukan operasi pembagian terhadap bilangan, simbolnya (/) dan sintaksnya : Pembagian = bilangan1 / bilangan2 Contoh : Pembagian = 4 / 2 hasilnya = 2 Pembagian = 5 / 2 hasilnya = 2,5 d. Pembagian Integer Pembagian Integer pada dasarnya sama dengan pembagian biasa, tetapi hasil yang diperoleh adalah bilangan integer atau bilangan bulat. Simbolnya (\) dan sintksnya : PembagianInt = bilangan1 \ bilangan2 Contoh : PembagianInt = 4 \ 2 hasilnya = 2 PembagianInt = 5 \ 2 hasilnya = 2
e. Sisa Bagi (Modulus) Sisa bagi (Mod) digunakan untuk mendapatkan sisa dari pembagian dua buah bilangan, sintaksnya : Sisa = bilangan1 Mod bilangan2 Contoh : Sisa = 4 Mod 2 hasilnya = 0 Sisa = 5 Mod 2 hasilnya = 1 f. Penjumlahan Penjumlahan (+) digunakan untuk melakukan operasi penjumlahan pada bilangan, sintaksnya : Penjumlahan = bilangan1 + bilangan2 Contoh : Penjumlahan = 4 + 2 hasilnya = 6 Penjumlahan = 5 + 5 hasilnya = 10 g. Pengurangan Pengurangan (‐) digunakan untuk melakukan operasi pengurangan terhadap bilangan, sintaksnya : Pengurangan = bilangan1 – bilangan2 Contoh : hasilnya = 2 Pengurangan = 4 – 2 Pengurangan = 5 – 2 hasilnya = 3 h. Penggabungan String ( Concat ) Penggabungan string, simbolnya (&) digunakan untuk menggabungkan dua buah string. sintaksnya : String = string1 & string2 Contoh : String = harry & potter hasilnya = harrypotter String = 5 & 6 hasilnya = 56
2. Operator Logika Operator Logika adalah operator yang digunakan untuk membandingkan suatu perbandingan tertentu, simbol‐simbol yang digunakan antara lain : Operasi Simbol Contoh Dan And (4>1) And (1>4) = False Atau Or (4>1) Or (1>4) = True Tidak/Bukan Not Not (1>4) = True Dan = Operasi bernilai True jika kedua syarat benar Or = Operasi bernilai True jika salah satu syarat benar Not = Kebalikan dari, Misalkan jika A = True maka Not A = False 3. Operator Perbandingan Operator Perbandingan digunakan untuk membandingkan nilai‐nilai data, antara lain : Operasi Simbol Contoh Samadengan = 4=2 hasilnya False Tidak Samadengan <> 4<>2 hasilnya True Lebih Kecil < 4<2 hasilnya False Lebih Besar > 4>2 hasilnya True Lebih Kecil Samadengan <= 4<=2 hasilnya False Lebih Besar Samadengan >= 4>=2 hasilnya True
Agar lebih memahami tentang Operator Matematika buatlah sebuah program dengan menggunakan Visual Basic 6.0 . Langkah pertama buatlah User Interface Seperti di bawah ini :
Kemudian atur property tiap objek sebagai berikut : Object Property Form1 Caption Label1 Caption Label2 Caption Label3 Caption Frame1 Caption Frame2 Caption Frame3 Caption Option1 Name Caption Option2 Name Caption Option3 Name Caption Option4 Name Caption Option5 Name Caption Option6 Name Caption
Value Operator Matematika Bilangan1 Bilangan2 Hasil Operasi Operasi Aritmatika Operasi Logika Operasi Perbandingan optPangkat ^ optKali * optBagi / optBagiInt \ optMod Mod optConcat &
optJumlah Option7 Name + Caption Name optKurang Option8 Caption ‐ optAnd Option9 Name And Caption optOr Option10 Name Or Caption Option11 Name optNot Not Bilangan1 Caption optSamadengan Option12 Name Caption = Name optTidakSamadengan Option13 Caption <> optBesar Name Option14 > Caption Name optKecil Option15 Caption < Name Option16 optBesarSamadengan Caption >= Name Option17 optKecilSamadengan Caption <= Kemudian copy kode program di bawah ini pada kode editor di Visual basic 6.0, kemudian jalankan program tersebut dan test apakah hasil yang diperoleh sama dengan teori yang telah kita pelajari sebelumnya. Kode Program : Dim Bilangan1 As Single Dim Bilangan2 As Single Dim Hasil As Single Private Sub optAnd_Click() Bilangan1 = IIf(txtBilangan1.Text = "True", ‐1, 0) Bilangan2 = IIf(txtBilangan2.Text = "True", ‐1, 0) Hasil = (Bilangan1 And Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optBagi_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text
Hasil = Bilangan1 / Bilangan2 txtHasil = Hasil End Sub Private Sub optBagiInt_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = Bilangan1 \ Bilangan2 txtHasil = Hasil End Sub Private Sub optBesar_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = (Bilangan1 > Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optBesarSamadengan_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = (Bilangan1 >= Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optConcat_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = Bilangan1 & Bilangan2 txtHasil = Hasil End Sub Private Sub optJumlah_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = Bilangan1 + Bilangan2 txtHasil = Hasil End Sub
Private Sub optKali_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = Bilangan1 * Bilangan2 txtHasil = Hasil End Sub Private Sub optKecil_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = (Bilangan1 < Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optKecilSamadengan_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = (Bilangan1 <= Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optKurang_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = Bilangan1 ‐ Bilangan2 txtHasil = Hasil End Sub Private Sub optMod_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = Bilangan1 Mod Bilangan2 txtHasil = Hasil End Sub Private Sub optNot_Click() Bilangan1 = IIf(txtBilangan1.Text = "True", ‐1, 0) Hasil = (Not Bilangan1)
txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optOr_Click() Bilangan1 = IIf(txtBilangan1.Text = "True", ‐1, 0) Bilangan2 = IIf(txtBilangan2.Text = "True", ‐1, 0) Hasil = (Bilangan1 Or Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optPangkat_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = Bilangan1 ^ Bilangan2 txtHasil = Hasil End Sub Private Sub optSamadengan_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = (Bilangan1 = Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub Private Sub optTidakSamadengan_Click() Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Hasil = (Bilangan1 <> Bilangan2) txtHasil.Text = Format(Hasil, "True/False") End Sub
Penjelasan Kode Program : Dim Bilangan1 As Single Dim Bilangan2 As Single Dim Hasil As Single Mendaklarasikan 3 buah variable dengan nama Bilangan1,Bilangan2 dan Hasil bertipe Single Bilangan1 = txtBilangan1.Text Bilangan2 = txtBilangan2.Text Inisalisasi nilai variable Bilangan1 dan Bilangan2 dari nilai yang diinputkan pada textbox txtBilangan1 dan txtBilangan2 Hasil = Bilangan1 \ Bilangan2 txtHasil = Hasil inisialisasi nilai variable Hasil yang diperoleh dari perhitungan antara bilangan1 dan 2, kemudian menampilkan hasilnya pada txtHasil Bilangan1 = IIf(txtBilangan1.Text = "True", ‐1, 0) Bilangan2 = IIf(txtBilangan2.Text = "True", ‐1, 0) Jika txtBilangan1 diinputkan kata “True” tanpa tanda kutip maka ubah nilai menjadi ‐1 jika lainnya maka ubah nilai menjadi 0. txtHasil.Text = Format(Hasil, "True/False") Memberi Format sehingga hasil yang ditampilkan pada txtHasil berupa nilai “True” atau “False” Catatan : Untuk melakukan test pada operator logika, input data yaitu kata “True” atau “False” (tanpa tanda kutip) selain itu input data berupa bilangan.
