MATERI PERTEMUAN 3

Kami mempelajari tentang "TIPE DATA"

MATERI 3

TIPE DATA PADA VISUAL BASIC
 

Tipe data	Ukuran
Integer ( Bilangan bulat )	2 byte
String (Huruf, angka, tanda baca)	1 byte / character
Boolean (True/False)	1 byte
Single (pecahan)	4 byte
Currency ( Mata Uang)	1 byte / character
Double (pecahan)	8 byte
Date (tgl, jam)	1 byte /character
Long (Bilangan bulat)	4 byte

Format Definisi :
Dim nama_variable as tipe_data
Contoh :
Dim nilai as Integer
Dim alamat as String
Dim tgl_lahir as Date

PERBEDAAN SINGEL DOUBLE

 

 

 Coding nya

Setelah runing program

PROJECT 2 (MEMBUAT OPERATOR DATA)

Buatlah user interface sebagai berikut

 Coding nya untuk frame "arimatika"

Dim a As Single
Dim b As Single

Private Sub Option1_Click()
a = Text1.Text
b = Text2.Text
hasil = a + b
Text3.Text = hasil
End Sub

Private Sub Option2_Click()
a = Text1.Text
b = Text2.Text
hasil = a - b
Text3.Text = hasil
End Sub

Private Sub Option3_Click()
a = Text1.Text
b = Text2.Text
hasil = a * b
Text3.Text = hasil
End Sub

Private Sub Option4_Click()
a = Text1.Text
b = Text2.Text
hasil = a / b
Text3.Text = hasil
End Sub

Private Sub Option5_Click()
a = Text1.Text
b = Text2.Text
hasil = a And b
Text3.Text = hasil
End Sub

Private Sub Option6_Click()
a = Text1.Text
b = Text2.Text
hasil = a Mod b
Text3.Text = hasil
End Sub

Private Sub Option7_Click()
a = Text1.Text
b = Text2.Text
hasil = a ^ b
Text3.Text = hasil
End Sub

Private Sub Option8_Click()
a = Text1.Text
b = Text2.Text
hasil = a \ b
Text3.Text = hasil
End Sub

Coding untuk frame"perbandingan"

Private Sub Option10_Click()
a = Text1.Text
b = Text2.Text
hasil = a < b
Text3.Text = hasil
End Sub

Private Sub Option12_Click()
a = Text1.Text
b = Text2.Text
hasil = a <> b
Text3.Text = hasil
End Sub

Private Sub Option13_Click()
a = Text1.Text
b = Text2.Text
hasil = a >= b
Text3.Text = hasil
End Sub

Private Sub Option14_Click()
a = Text1.Text
b = Text2.Text
hasil = a <= b
Text3.Text = hasil
End Sub

Private Sub Option9_Click()
a = Text1.Text
b = Text2.Text
hasil = a > b
Text3.Text = hasil
End Sub

TERIMAKASIH..........