MENGENAL DATA DAN VARIABEL PERTEMUAN 04 KARTINI Skom
MENGENAL DATA DAN VARIABEL PERTEMUAN - 04 KARTINI, Skom. , MMSI NAMA PRODI & FAKULTAS ILMU KESEHATAN
PERTEMUAN IV MENGGUNAKAN EVENT DAN PROPERTY KEMAMPUAN AKHIR YANG DIHARAPKAN • Mahasiswa mengerti type variable dan jenis data yang di disimpan/tampung • Mahasiswa dapat Memahami cara mendeklarasikan variable dan berbagai jenis Data yang akan tersimpan • Mahasiswa dapat Memahami Scope variable private, general dan public • Contoh Program : Variabel Test • Penjelasan algoritma program variabel Test
Mengenal Data dan Variabel • • • Ketika seorang user (pengguna) menggunakan sebuah program komputer, seringkali komputer memintanya untuk memberikan informasi. Informasi ini kemudian disimpan atau diolah oleh komputer. Informasi inilah yang disebut dengan DATA. Visual Basic 6 mengenal beberapa type data, antara lain : String adalah type data untuk teks (huruf, angka dan tanda baca). Integer adalah type data untuk angka bulat. Single adalah type data untuk angka pecahan. Currency adalah type data untuk angka mata uang. Date adalah type data untuk tanggal dan jam. Boolean adalah type data yang bernilai TRUE atau FALSE.
Mengenal Data dan Variabel Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu membutuhkan alokasi jumlah memory (byte) yang berbeda. Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program : Dim <nama_variabel> As <type_data> Contoh : Dim nama_user As String Aturan di dalam penamaan variabel : • Harus diawali dengan huruf. • Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter underscore (_). • Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <, >, dll). • Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh Visual Basic 6 (seperti : dim, as, • string, integer, dll).
Mengenal Data dan Variabel Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan type datanya. Cara mengisi nilai data ke dalam sebuah variabel : <nama_variabel> = <nilai_data> Contoh : nama_user = “krisna” Untuk type data tertentu nilai_data harus diapit tanda pembatas. Type data string dibatasi tanda petikganda: “nilai_data”. Type data date dibatasi tanda pagar : #nilai_data#. Type data lainnya tidak perlu tanda pembatas. Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) : • Variabel global adalah variabel yang dapat dikenali oleh seluruh bagian program. Nilai data yang • tersimpan didalamnya akan hidup terus selama program berjalan. • Variabel lokal adalah variabel yang hanya dikenali oleh satu bagian program saja. Nilai data yang • tersimpan didalamnya hanya hidup selama bagian program tersebut dijalankan. Variabel yang nilai datanya bersifat tetap dan tidak bisa diubah disebut KONSTANTA. Penulisan deklarasi konstanta di dalam kode program : Const <nama_kontanta> As <type_data> = <nilai_data> Contoh : Const tgl_gajian As Date = #25/09/2003#
Contoh Program : Variabel Test Aktifkan VB 6 melalui tombol Start. Buka kembali project Latihan. vbp. Tambahkan Form baru ke dalam Project. Pada Jendela Form buatlah UI seperti ini : (Gunakan komponen Command. Button dan Label):
Contoh Program : Variabel Test Pengaturan property setiap object-nya adalah sebagai berikut :
Contoh Program : Variabel Test Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut : Dim test 2 As Integer Private Sub Command 1_Click() Dim test 1 As String test 1 = "nusantara" Label 1. Caption = test 1 Label 2. Caption = test 2 Label 3. Caption = test 3 End Sub
Contoh Program : Variabel Test Private Sub Command 2_Click() test 2 = 10 Label 1. Caption = test 1 Label 2. Caption = test 2 Label 3. Caption = test 3 End Sub Private Sub Command 3_Click() Const test 3 As Single = 90. 55 Label 1. Caption = test 1 Label 2. Caption = test 2 Label 3. Caption = test 3 End Sub Simpan Form 3 (nama file : Lat 3. frm). Klik menu Project > Project 1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi Form 3.
Contoh Program : Variabel Test Private Sub Command 2_Click() test 2 = 10 Label 1. Caption = test 1 Label 2. Caption = test 2 Label 3. Caption = test 3 End Sub Private Sub Command 3_Click() Const test 3 As Single = 90. 55 Label 1. Caption = test 1 Label 2. Caption = test 2 Label 3. Caption = test 3 End Sub Simpan Form 3 (nama file : Lat 3. frm). Klik menu Project > Project 1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi Form 3.
Contoh Program : Variabel Test
Penjelasan Kode Program
Penjelasan Kode Program
Penjelasan Kode Program
Penjelasan Kode Program
Penjelasan Kode Program
Penjelasan Kode Program Untuk membuktikan bahwa nilai data sebuah konstanta bersifat tetap, modifikasi kode program sbb : Private Sub Command 3_Click() Const test 3 As Single = 90. 55 test 3 = 50. 22 Label 1. Caption = test 1 Label 2. Caption = test 2 Label 3. Caption = test 3 End Sub Perhatikan : penulisan angka pecahan (single) pada kode program tetap menggunakan tanda titik (. ) meskipun regional setting komputernya sudah Indonesia. Bila tidak akan muncul pesan error.
Penjelasan Kode Program Coba jalankan Project 1, kemudian klik tombol Test 3. Akan muncul pesan error : Klik OK, kemudian stop programnya dengan meng-klik tombol End pada Toolbar. Agar program tetap berjalan tanpa harus menghapus kode program yang salah, maka tambahkan tanda petik-tunggal (‘) di depan kode program yang salah tersebut (contoh : ‘test 3 = 50. 22). Teks setelah tanda petiktunggal oleh Visual Basic 6 diartikan sebagai komentar dan tidak akan dieksekusi ketika program berjalan.
Penjelasan Kode Program Visual Basic 6 membolehkan sebuah variabel tidak dideklarasikan terlebih dahulu (dengan perintah Dim atau Const), tetapi hal ini akan membuat error pada kode program agak sulit dilacak. Jadi, sebaiknya setiap variabel selalu dideklarasikan (baik yang lokal maupun global). Agar dapat diketahui variabel mana yang belum dideklarasikan, pada bagian atas kode program ambahkan perintah berikut : Option Explicit Coba jalankan Project 1, kemudian klik tombol Test 1. Akan muncul pesan error : Klik OK, kemudian stop programnya dengan meng-klik tombol End pada Toolbar.
CONTOH PROGRAM (1) • Buatlah disain form dgn seting propertie berikut ini : • OBJECT FORM 2 LABEL 1 TEXTBOX 1 LABEL 2 TEXTBOX 2 LABEL 3 TEXTBOX 3 LABEL 4 LABEL 5 LABEL 6 COMMAND 1 COMMAND 2 COMMAND 3 ROPERTIE-CAPTIONP ROPERTIE TEXT HARUS BANYAK LATIHAN DIRUMAH NAMA : DIKOSONGKAN NILAI 1 : DIKOSONGKAN NILAI 2 : DIKOSONGKAN EXIT HITUNG RATA 2 CLEAR
CONTOH PROGRAM (2) Gbr 1. Runing design form Gbr 2. Click tombol hitung rata 2
CONTOH PROGRAM (3) Gbr 3. Click tombol Clear
• • • Dim n 1, n 1 as integer Dim mana as String * 15 Dim rata 2 as single • • • • • Private Sub Command 2_Click() n 1 =text 2. text n 2=text 3. text nama=Text 1. text Rata 2= (n 1 + n 2)/2 Label 6. Caption = rata 2 Label 5. Caption = "NILAI RATA-RATA ANDA ADALAH = " Label 4. Caption = nama Label 5. Auto. Size = True Label 6. Auto. Size = True Label 1. Visible = False Label 2. Visible = False Label 3. Visible = False Text 1. Visible = False Text 2. Visible = False Text 3. Visible = False Form 6. Caption = "BANYAK 2 LAH MEMBACA DAN LATIHAN" Form 6. Back. Color = vb. Green End Sub CONTOH PROGRAM (4)
CONTOH PROGRAM (5) • • • • Private Sub Command 3_Click() Text 1. Text = " " Text 2. Text = " " Text 3. Text = " " Label 6. Caption = " " Label 5. Caption = " " Label 4. Caption = " " Label 1. Visible = True Label 2. Visible = True Label 3. Visible = True Text 1. Visible = True Text 2. Visible = True Text 3. Visible = True Form 6. Caption = "HARUS BANYAK LATIHAN DIRUMAH" Form 6. Back. Color = vb. PASTEL End sub
CONTOH PROGRAM (6) Buka project baru, double click Control, Label 1, Label 2, Label 3, command 1 & command 2, command 3, command 4, pada toolbox. Setting properti caption seperti terlihat dibwh ini : Gbr 1. Running Design Form 1 Gbr 2. Click tombol Lihat Hslnya
CONTOH PROGRAM (7) Gbr 3. Running Design Form 1 Gbr 4. Click tombol Outputnya
CONTOH PROGRAM (8) CODE Dengan Type Variant • • Private Sub Command 1_Click() Dim nilai, luas nilai = Text 1 luas = nilai * nilai Msg. Box "Bujursangkar ini memiliki Sisi " & nilai & " Yang Luasnya adlh : " & luas Label 2. Caption = "Bujursangkar ini memiliki Sisi " & nilai & " Yang Luasnya adlh : " & luas Label 2. Back. Color = vb. Yellow End Sub • • Private Sub Command 2_Click() Dim daya = Text 2 Msg. Box "Strikaan " & daya & " WATT, akan Menghslkan Panas : " & daya * 60 & " JOULE Selama 1 Menit" Label 2. Caption = " Strikaan " & daya & " WATT, akan Menghslkan Panas : " & daya * 60 & " JOULE Selama 1 Menit" Label 2. Back. Color = vb. Green End Sub • • •
CONTOH PROGRAM (9) • Private Sub Command 3_Click() • End Sub • • Private Sub Command 4_Click() Label 2. Caption = " " Text 1 = " " Text 2 = " " Text 1. Set. Focus Form 2. Back. Color = vb. Blue End Sub
- Slides: 29