Popular Post

Posted by : Panji Maulana Putra Saturday, December 2, 2017




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)
Frmaritmatika

Caption
Program Aritmatika

StartupPosition
2-Center Screen



Label1
Caption
Bilangan 1



Label2
Caption
Bilangan 2



Label3
Caption
Hasil



Textbox1
(Name)
Txtbil1

Text
(kosongkan)



Textbox2
(Name)
Txtbil2

Text
(kosongkan)



Textbox3
(Name)
Txthasil

Text
(kosongkan)



CommandButton1
(Name)
Cmdtambah

Caption
Tambah



CommandButton2
(Name)
Cmdkurang

Caption
Kurang



CommandButton3
(Name)
Cmdkali

Caption
Kali



CommandButton4
(Name)
Cmdbagi

Caption
Bagi



CommandButton5
(Name)
Cmdkeluar

Caption
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.



Leave a Reply

Subscribe to Posts | Subscribe to Comments

- Copyright © Panjiologi - Date A Live - Powered by Blogger - Designed by Johanes Djogan -