Variabel, Tipe Data dan Operator pada vb

Variabel, Tipe Data dan Operator

1. Variabel

Variabel adalah nama atau simbol yang digunakan  untuk mewakili suatu  nilai. Suatu variabel mempunyai nama dan menyimpan tipe data yang merupakan jenis data variabel.

Aturan penamaan variabel adalah sebagai berikut:

·    Harus dimulai dengan sebuah huruf

·    Tidak lebih dari 255 karakter

·    Tidak  boleh  sama  dengan  nama  statement,  fungsi,  metode,  objek,  dan sebagainya yang merupakan bahasa dari Visual BASIC.

·    Tidak boleh ada spasi, tanda titik(.), tanda seru(!), atau karakter @, &, $, dan #. Deklarasi variabel dapat dituliskan dengan urutan sebagai berikut:

Public <nama_variabel> As <Tipe_Data>

Atau

Dim <nama_variabel> As <Tipe_Data>

Contoh :

Public Angka1 As Integer

Dim Nama As String

2.  Tipe Data

Tipe data adalah jenis data yang disimpan dalam variabel. Tipe data untuk Visual

BASIC adalah sebagai berikut:

·    Tipe Data Numerik: digunakan untuk menyimpan data numerik, terdiri dari:

Tipe Data	Ukuran	Range
Byte	1 byte	0 sampai 255
Integer	2 byte	-32.768 sampai 32.767
Long	4 byte	-2.147.483.648 sampai 2.147.483.647
Single	4 byte	-3,402823E38 sampai -1,401298E-45; 1,401298E-45 sampai 3,402823E38
Double	8 byte	-1.79769313486232E308 sampai -4,94065645841247E-324; 4,94065645841247E-324 sampai 1.79769313486232E308
Currency	8 byte	-922.337.203.685.477,5808 sampai 922.337.203.685.477,5807

·    Tipe  Data  String  :  digunakan  untuk  menyimpan  data  berbentuk  karakter.

Panjang  maksimal  karakter  yang  dapat  disimpan  adalah  65.400  karakter. Penulisan data dengan tipe ini diawali dan diakhiri dengan tanda petik dua (“). Contoh:

Dim Nama As String

Nama = “Habib Maulan”

·    Tipe Data Logika (Boolean) : melakukan pengetesan logika. Data dengan tipe data ini hanya dapat bernilai benar(True) atau salah(False).

Contoh:

Dim Baru As Boolean

Baru = True

3.  Konstanta

Konstanta adalah suatu nilai konstan yang tidak berubah. Seperti halnya variabel, konstanta dapat diberi nama dimana aturan penamaannya sama dengan variabel. Contoh:

Const A = 10

4.  Operator

·    Operator Pemberi Nilai

Deklarasi   pemberian   nilai   pada   Visual   BASIC   =   Bahasa   BASIC   yaitu menggunakan operator sama dengan ( = ).

Contoh :

a = 24

nama = “Yudha Noviandi”

·    Operator Arimatika

Operator	Operasi
+	Penjumlahan
-	Pengurangan
*	Perkalian
/	Pembagian
\	Pembagian dengan hasil bilangan bulat
Mod	Sisa Pembagian (Modulus)

·    Operator Boolean

Operator	Operasi
Not	Negasi
And	Logika and
Or	Logika or
Xor	Logika xor

·    Operator Pembanding

Operator	Operasi
=	Sama dengan
<>	Tidak sama dengan
<	Kurang dari
>	Lebih dari
<=	Kurang dari atau sama dengan
>=	Lebih dari atau sama dengan

·    Derajat Operator

Operator	Derajat
Not	Tertinggi
* / \ mod and
+ - or xor
= <> <= >=	Terendah

Program III : Program Aritmatika Sederhana

Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 3.1.

Gambar 3.1. Desain form Program III

Pengaturan Properti

Komponen	Properti	Nilai
Form1	(Name) Caption StartupPosition	Frmaritmatika Program Aritmatika 2-Center Screen
Label1	Caption	Bilangan 1
Label2	Caption	Bilangan 2
Label3	Caption	Hasil
Textbox1	(Name) Text	Txtbil1 (kosongkan)
Textbox2	(Name) Text	Txtbil2 (kosongkan)
Textbox3	(Name) Text	Txthasil (kosongkan)
CommandButton1	(Name) Caption	Cmdtambah Tambah
CommandButton2	(Name) Caption	Cmdkurang Kurang
CommandButton3	(Name) Caption	Cmdkali Kali
CommandButton4	(Name) Caption	Cmdbagi Bagi
CommandButton5	(Name) Caption	Cmdkeluar Keluar

Listing Program III

Private Sub cmdbagi_Click()

Dim bil1, bil2, hasil As Double bil1 = Val(txtbil1.Text)

bil2 = Val(txtbil2.Text) hasil = bil1 / bil2 txthasil.Text = hasil

End Sub

Private Sub cmdkali_Click()

Dim bil1, bil2, hasil As Integer bil1 = Val(txtbil1.Text)

bil2 = Val(txtbil2.Text) hasil = bil1 * bil2 txthasil.Text = hasil

End Sub

Private Sub cmdkeluar_Click() Unload Me

End Sub

Private Sub cmdkurang_Click()

Dim bil1, bil2, hasil As Integer bil1 = Val(txtbil1.Text)

bil2 = Val(txtbil2.Text) hasil = bil1 - bil2 txthasil.Text = hasil

End Sub

Private Sub cmdtambah_Click()

Dim bil1, bil2, hasil As Integer bil1 = Val(txtbil1.Text)

bil2 = Val(txtbil2.Text) hasil = bil1 + bil2 txthasil.Text = hasil

End Sub

Simpan Project dan Form, jalankan program dan coba lakukan perhitungan.