vb

MODUL 2
VARIABEL, VAL DAN KONSTANTA

Setelah melaksanakan praktikum pada bab ini diharapkan mahasiswa dapat:
□ Mengetahui apa yang dimaksud dengan variabel, Val dan konstanta
□ Mengetahui bagaimana mendeklarasikan sebuah variabel dan konstanta

VARIABEL
Variabel merupakan suatu tempat dalam memori yang diberi nama ( sebagai pengenal ) dan dialokasikan untuk menampung data.
Syntax : Dim nama variabel As Type data
Contoh : Dim a As Integer
Dim nama As String
Aturan pemberian nama variabel dalam Visual Basic adalah :
1. Tidak lebih dari 40 karakter
2. Terdiri atas huruf, angka dan underscore ( _ )
3. Karakter pertama harus sebuah huruf
4. Tidak boleh menggunakan kata yang didefinisikan oleh visual basic ( reserved word )

VAL
Val atau Value ini digunakan jika kita tidak mendeklarasikan suatu variabel, atau untuk mengkonversikan atau merubah dari type data string ke type data numeric.

Latihan 2

Atur Propertinya :
Object Property Nilai
Form Name Frmlatih2
Caption Form Latihan 2
Label1 Caption Program Penjumlahan
Label2 Caption Angka 1
Label3 Caption Angka 2
Label4 Caption Hasil
Text1 Name Txtangka1
Text Kosongkan/delete
Text2 Name Txtangka2
Text Kosongkan/delete
Text3 Name Txthasil
Text Kosongkan/delete
Command1 Name cmdtambah
Caption &Tambah
Command2 Name cmdkeluar
Caption &Keluar
Listing Program :
1. Pendeklarasian variabel, letakkan pada General
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer

2. Object cmdkeluar, Event Click
Private Sub cmdkeluar_Click()
Unload Me
End Sub

3. Object cmdtambah, Event Click
Private Sub cmdtambah_Click()
angka1 = txtangka1.Text
angka2 = txtangka2.Text
hasil = angka1 + angka2
txthasil.Text = hasil
End Sub
Latihan 3

Atur Propertinya :
Object Property Nilai
Form Name Frmlatih3
Caption Aplikasi StopWatch
Label1 Caption Waktu Awal
Label2 Caption Waktu Akhir
Label3 Caption Selisih Waktu
Label4 Name lblawal
Caption Kosongkan
BorderStyle 1-Fixed Single
Label5 Name lblakhir
Caption Kosongkan
BorderStyle 1-Fixed Single
Label6 Name lblselisih
Caption Kosongkan
BorderStyle 1-Fixed Single
Command1 Name cmdmulai
Caption Waktu Mulai
Command2 Name Cmdselesai
Caption Waktu Selesai
Command3 Name Cmdkeluar
Caption Keluar

Listing Program :
1. Pendeklarasian variabel, letakkan di general
Dim waktumulai As Variant
Dim waktuselesai As Variant
Dim selisihwaktu As Variant

2. Object cmdkeluar, Event Click
Private Sub cmdkeluar_Click()
End
End Sub

3. Object cmdmulai, Event Click
Private Sub cmdmulai_Click()
‘Menetapkan dan menampilkan waktu mulai
waktumulai = Now
lblawal.Caption = Format(waktumulai, “hh:mm:ss”)
End Sub

4. Object cmdselesai, Event Click
Private Sub cmdselesai_Click()
‘Menentukan waktu selesai, hitung selisih waktu
‘Tampilkan keduanya di kotak label
waktuselesai = Now
selisihwaktu = waktuselesai – waktumulai
lblakhir.Caption = Format(waktuselesai, “hh:mm:ss”)
lblselisih.Caption = Format(selisihwaktu, “hh:mm:ss”)
End Sub

Latihan 4  Tanpa deklarasi Variabel

Atur Propertinya :
Object Property Nilai
Form Name Frmlatih4
Caption Aplikasi Kalkulator
Label1 Caption Angka 1
Label2 Caption Angka 2
Label3 Caption Angka 1 + Angka 2
Label4 Caption Angka 1 – Angka 2
Label5 Caption Angka 1 * Angka 2
Label6 Caption Angka 1 / Angka 2
Label7 Caption Angka 1 Mod Angka 2
Label8 Caption Angka 1 \ Angka 2
Text1 Name txtangka1
Text2 Name txtangka2
Text3 Name txttambah
Text4 Name txtkurang
Text5 Name txtkali
Text6 Name txtbagi
Text7 Name txtmod
Text8 Name txtbagiinteger
Command1 Name cmdproses
Caption Proses
Command2 Name Cmdkeluar
Caption Keluar

Listing Program :
1. Object cmdkeluar, Event Click
Private Sub cmdkeluar_Click()
Unload Me
End Sub

2. Object cmdproses, Event Click
Private Sub cmdproses_Click()
txttambah.Text = Val(txtangka1.Text) + Val(txtangka2.Text)
txtkurang.Text = Val(txtangka1.Text) – Val(txtangka2.Text)
txtkali.Text = Val(txtangka1.Text) * Val(txtangka2.Text)
txtbagi.Text = Val(txtangka1.Text) / Val(txtangka2.Text)
txtmod.Text = Val(txtangka1.Text) Mod Val(txtangka2.Text)
txtbagiinteger.Text = Val(txtangka1.Text) \ Val(txtangka2.Text)
End Sub

KONSTANTA
Konstanta sama dengan variabel tetapi konstanta mempunyai nilai tetap atau sifatnya konstan. Pendeklarasian konstanta dalam visual basic menggunakan Const [nama konstanta] As [tipe data dari konstanta] = [nilai konstanta].
Contoh pendeklarasian konstanta :
Const Phi As Integer = 3.14

Latihan 5

Atur propertinya :
Object Property Nilai
Form Name Frmlatih5
Caption Luas Lingkaran
Label1 Caption Jari-jari
Label2 Caption Luas
Text1 Name txtjari
Text2 Name txtlhasil
Command1 Name cmdhitung
Caption Hitung
Command2 Name Cmdkeluar
Caption Keluar

Listing Program :
1. Deklarasi Variabel dan Konstanta, letakkan pada General
Const phi As Double = 3.14
Dim hasil As Double

2. Object Cmdhitung, Event Click
Private Sub cmdhitung_Click()
hasil = phi * (txtjari.Text * txtjari.Text)
txthasil.Text = hasil
End Sub

3. Object Cmdkeluar, event Click
Private Sub cmdkeluar_Click()
Unload Me
End Sub

Tugas 2

Buatlah aplikasi untuk mencari volume tabung.
Dengan rumus V = luas alas * tinggi
Luas alas = phi * jari-jari * jari-jari
Di kumpulkan minggu depan harus di print, untuk ketentuan tugas sama seperti minggu sebelumnya.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s