PERTEMUAN II
VARIABEL & TIPE DATA
PROCEDURE & FUNCTION
Tipe data
Tipe – tipe data yang sering digunakan dalam visual basic :
Ø Boolean
Contoh penggunaan:
Dim jawab as Boolean
jawab =true
Ø Date
Contoh penggunaan :
Dim tanggal as date
Tanggal=”19/02/2006”
Tanggal=#19/02/2006#
Tanggal=”21/03/2006 18:30:14”
Tanggal=now
Ø Byte
Ø Integer, simbol %
Ø Long Integer, simbol &
Ø Single, simbol !
Ø Double, simbol #
Ø Currency, simbol @
Ø Text/string, simbol $
Pendeklarasian variable
Deklarasi Dim
Digunakan untuk mendeklarasikan variable Berlaku pada program dan atau sub-program
Sintaks:
Dim Nama_var as tipe_data
Contoh :
Dim I as integer ‘atau dim I%
Dim kalimat as string ‘atau dim kalimat$
Dim frmbaru as form
Deklarasi Public
Menyatakan variable yang berlaku secara umum, biasanya diletakkan pada module atau General
Sintaks:
Public nama_var as tipe_data
Contoh :
Public a as integer
Deklarasi Private
Menyatakan variable yang berlaku pada sub program
Sintaks:
Private nama_var as tipe_data
Contoh :
Private nama as string
Deklarasi Static
Menyatakan suatu variable yang berlaku pada sub program. Digunakan untuk menjaga suatu nilai variable agar tidak berubah ketika dijalankan.
Sintaks:
Static nama_var as tipe_data
Pendeklarasian Array
Contoh :
Dim Angka as variant
Angka=array(1,5,7,8,9)
Atau
Dim angka(1 to 5) as integer
Pendeklarasian Konstanta
Digunakan untuk memberikan nilai konstan pada suatu variable
Sintaks :
Public/Private const nama_var as tipe_data = nilai
Contoh :
public const pass as string = “2222”
Operator – operator dasar
Operator Matematika
No | Operasi | Operator |
1 | Perpangkatan | ^ |
2 | Perkalian | * |
3 | Pembagian | / |
4 | Pembagian integer | \ |
5 | Modulus | Mod |
6 | Penambahan | + |
7 | Pengurangan | - |
Operator Logika
Operator : And, Or dan Not
Opr1 | Opr2 | And | Or | Not |
True | True | True | True | False |
True | False | False | True | False |
False | True | False | True | True |
False | False | False | False | True |
Operator Perbandingan
Operator | simbol |
Sama dengan | = |
Tidak sama dengan | <> atau >< |
Lebih besar | > |
Lebih kecil | < |
Lebih besar sama dengan | >= |
Lebih kecil sama dengan | <= |
Operator String
Operator yang digunakan untuk pengolahan string.
Operasi | sintaks |
Penggabungan string | String1 + string2 |
Mengambil string dari kiri | Left(string,panjang) |
Mengambil string dari kanan | Right(string,panjang) |
Mengambil string dari tengah | Mid(string,posisi_awal,panjang) |
Mengambil panjang string | Len(string) |
Merubah ke huruf kapital | Ucase(string) |
Merubah ke huruf kecil | Lcase(string) |
Konversi tipe data
Nama fungsi | Tipe tujuan |
Cbool | Boolean |
Cbyte | Byte |
Ccur | Currency |
Cdate | date |
Cdbl | Double |
Cint atau Val | Integer |
Clng | Long Integer |
Csng | Single |
Cstr atau str | String |
Cvar | Variant |
cverr | Error |
PROSEDUR DAN FUNGSI
Procedure atau subrutin adalah sekumpulan perintah yang diberi nama dan dapat dipanggil sewaktu – waktu. Dalam program dikenal dua macam subrutin, yaitu : sub procedure dan function.
Keuntungan penggunaan prosedur :
1. kita dapat membagi program menjadi komponen yang mandiri.
2. Satu prosedur atau fungsi dapat dipakai berulang – ulang
Sub procedure
Prosedur yang tidak mengembalikan nilai.
Sintaks :
Private/public sub nama_proc (parameter)
<Pernyataan>
…
End sub
Contoh :
Penulisan sub prosedur
Sub penjumlahan(a, b As Integer)
jumlah = a + b
Text1 = jumlah
End Sub
Pemanggilan sub prosedur
Private Sub Command1_Click()
Call penjumlahan(2, 3)
End Sub
Function
Prosedur yang mengembalikan nilai.
Sintaks :
Private/public function nama_fungsi (parameter)
<Pernyataan>
…
End function
Contoh :
Penulisan fungsi
Function jumlah(a, b As Integer)
jumlah = a + b
End Function
Pemanggilan fungsi
Private Sub Command1_Click()
Text1 = jumlah(2, 3)
End Sub
Praktikum 2 :
1. Buka project baru, dan tambahkan obyek-obyek seperti gambar berikut :
2. Atur Propertinya sebagai berikut :
Object | Properti | Nilai |
Form1 | (Name) | Frmlatihan2 |
Frame1 | Caption | Masukkan kalimat : |
Text1 | (Name) | txtkalimat |
Label1 | (Name) | Lblkalimat |
Label2 | (Name) | Lblhasil |
Alignment | 2-center | |
Command1 | (Name) | Cmdlen |
Caption | Panjang String | |
Command2 | (Name) | Cmdleft |
Caption | Ambil 3 dari kiri | |
Command3 | (Name) | Cmdright |
Caption | Ambil 3 dari kanan | |
Command4 | (Name) | Cmdmid |
Caption | Ambil 3 dari karakter ke 3 | |
Command5 | (Name) | Cmdkapital |
Caption | Upper | |
Command6 | (Name) | Cmdkecil |
Caption | Lower |
3. Ketik kode program berikut :
Dim kal As String
Dim hasil As String
 |
Sub kosong()
txtkalimat.Text = ""
lblkalimat.Caption = ""
lblhasil.Caption = ""
End sub
 |
Function panjangkalimat(x as string)
panjangkalimat = Len(x)
End function
Private Sub Form_Load()
Call kosong
End Sub
Private Sub txtkalimat_Change()
lblkalimat.Caption = txtkalimat.Text
End Sub
Private Sub Cmdlen_Click()
Dim panjang as integer
kal = lblkalimat.Caption
panjang=panjangkalimat(kal)
lblhasil.caption=panjang & ” karakter”
End Sub
Private Sub cmdleft_Click()
kal = lblkalimat.Caption
hasil = Left(kal, 2)
lblhasil.Caption = hasil
End Sub
0 komentar:
Posting Komentar