|
|
Petunjuk, sebaiknya lembar latihan ini anda cetak ke printer.
1. Aktifkan jendela Immedietly dengan menggunakan menu View, Immedietly Window atau menekan Ctrl + G
dan cobalah beberapa ekspresi berikut :
? 1 + 2
? "1" + "2"
? 1 + "2"
? "1" + 2
? 1 & 2
? "1" & "2"
? "1" & 2
Catatan : Operator + dapat digunakan untuk penjumlahan maupun pengabungan string, tetapi untuk pengabungan string lebih disarankan untuk menggunakan Operator &.
? #18 May 2001# + 31
? #19 June 2001# - 1
? #19 June 2001# - #17 June 2001#
? #05/18/2001# + 31
? #06/19/2001# - 1
? #06/19/2001# - #06/17/2001#
? #01:01:01# + 0.25 'Mengapa ?
? #06:01:01# - 0.25
? #06:01:01# - #05:30:30#
Catatan : Pada Visual Basic data date/time ditulis dengan #tanggal#, Operator + digunakan untuk menambah sejumlah hari, Operator - digunakan untuk mengurangi sejumlah hari atau selisih hari.
? True + 0
? True + "0"
? False
? False + 0
? True = -1
? False = 0
Catatan : Pada Visual Basic nilai True adalah sama dengan -1, dan nilai False adalah 0
? "indoprog" like "i*"
? "Indoprog" like "i*"
? "Indoprog" like "[iI]*"
? "a" like "[a-z]"
? "A" like "[!a-z]"
? "A1" like "A?"
? "A1" like "A#"
? "Aa" like "A#"
Lengkapilah daftar berikut :
| a | c | a and b | a or b | a xor b | a eqv b | a imp b |
| True | True | |||||
| True | False | |||||
| False | True | |||||
| False | False |
Dengan mencoba satu persatu, misalnya :
Catatan : Operator and, or, xor, eqv, imp, dan not dapat digunakan untuk operasi bitwise
2. Tanamkan sebuah kontrol CommandButton pada Form1, dan atau properti name : cmdCoba, dan caption : &Coba, seperti berikut ini :
Lakukan koding pada event cmdCoba_Click, sebagai berikut :
Private Sub MyCoba_Click()
Dim a As Integer
Dim b As Integer
Dim c As String
Dim d As String
a = 1.2 + 2.2 'Berapa nilai a
b = 1.3 + 2.3 'Berapa nilai b
c = "100" 'Berapa nilai c
d = c + 200 'Berapa nilai d
Print a
Print b
Print c
Print d
End Sub
Jalankan program, dan klik pada tombol Coba, dan perhatikan hasilnya, apakah sesuai dengan perkiraan anda?
