Struktur Data II dengan Visual Basic Bekerja Dengan
Struktur Data II dengan Visual Basic Bekerja Dengan Form ptputraastawa@gmail. com Ptputraastawa. wordpress. com @2011
Data dan Variabel
Penggunaan Data dan Variabel • Informasi yang disimpan atau diolah oleh komputer disebut DATA.
Type Data VB • 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.
Variable • 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.
Penulisan deklarasi variabel Dim <nama_variabel> As <type_data> ▫ Contoh : Dim nama_user As String
Aturan 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).
Contoh: program variable • Gunakan komponen Command. Button dan Label
Object Properties Value Form 3 Caption Start. Up. Position Variabel Test 2 – Center. Screen Command 1 -3 Caption Test 1 Test 2 Label 1 -3 Back. Color Caption • Pengaturan property setiap object Test 3 Palette : <putih> <kosong>
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 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 • Code Editor ketikkan kode program
Operator
Pengertian Operator • Operator merupakan simbol yang digunakan untuk melakukan suatu operasi terhadap nilai data
Tiga jenis operator • Operator Aritmatika • Operator Perbandingan • Operator Logika
Simbol Operasi Matematis Contoh ^ pemangkatan 5 ^ 2 hasilnya 25 * perkalian 5 * 2 hasilnya 10 / pembagian (hasil pecahan) 5 / 2 hasilnya 2, 5 pembagian (hasil bulat) 5 2 hasilnya 2 sisa pembagian 5 Mod 2 hasilnya 1 + penjumlahan 5 + 2 hasilnya 7 - pengurangan 5 – 2 hasilnya 3 & penggabungan string 5 & 2 hasilnya 52 Mod • Operator Aritmatika
Simbol < > <= >= = <> Operasi Perbandingan lebih kecil lebih besar lebih kecil atau sama dengan lebih besar atau sama dengan tidak sama dengan • Operator Perbandingan Contoh 5 < 2 hasilnya FALSE 5 > 2 hasilnya TRUE 5 <= 2 hasilnya FALSE 5 >= 2 hasilnya TRUE 5 = 2 hasilnya FALSE 5 <> 2 hasilnya TRUE
Simbol Or And Not Operasi Logika atau dan Tidak • Operator Logika Contoh (5 < 2) Or (5 > 2) hasilnya TRUE (5 < 2) And (5 > 2) hasilnya FALSE Not (5 < 2) hasilnya TRUE
Contoh Program : Operator • UI Operator
• UI Operator
Pengaturan property setiap object Object Label 1 -2 Properties Caption Start. Up Position Caption Text 1 -2 Frame 1 -3 Text Caption Option 1 -14 Caption Label 3 Alignment Back. Color Fore. Color Caption Form 4 Value Operator Test 2 – Center. Screen Var 1 : Var 2 : <kosong> Op. Aritmatika Op. Perbandingan Op. Logika +, -, *, /, && >, <, =, <>, >=, <= Not, Or, And 2 – Center Palette : <putih> Palette : <merah> <kosong>
Code Editor kode program(1) Dim var 1 As Single, var 2 As Single, hasil As Single Private Sub Option 1_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = var 1 + var 2 Label 3. Caption = hasil End Sub Private Sub Option 2_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = var 1 -var 2 Label 3. Caption = hasil End Sub
Code Editor kode program(2) Private Sub Option 3_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = var 1 * var 2 Label 3. Caption = hasil End Sub Private Sub Option 4_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = var 1 / var 2 Label 3. Caption = hasil End Sub
Code Editor kode program(3) Private Sub Option 5_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = var 1 & var 2 Label 3. Caption = hasil End Sub Private Sub Option 6_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = (var 1 > var 2) Label 3. Caption = hasil Label 3. Caption = Format(hasil, "True/False") End Sub
Code Editor kode program(4) Private Sub Option 7_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = (var 1 < var 2) Label 3. Caption = Format(hasil, "True/False") End Sub Private Sub Option 8_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = (var 1 = var 2) Label 3. Caption = Format(hasil, "True/False") End Sub
Code Editor kode program(5) Private Sub Option 9_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = (var 1 <> var 2) Label 3. Caption = Format(hasil, "True/False") End Sub Private Sub Option 10_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = (var 1 >= var 2) Label 3. Caption = Format(hasil, "True/False") End Sub
Code Editor kode program(6) Private Sub Option 11_Click() var 1 = Text 1. Text var 2 = Text 2. Text hasil = (var 1 <= var 2) Label 3. Caption = Format(hasil, "True/False") End Sub Private Sub Option 12_Click() var 1 = IIf(Text 1. Text = "True", -1, 0) hasil = Not (var 1) Label 3. Caption = Format(hasil, "True/False") End Sub
Code Editor kode program(7) Private Sub Option 13_Click() var 1 = IIf(Text 1. Text = "True", -1, 0) var 2 = IIf(Text 2. Text = "True", -1, 0) hasil = (var 1 Or var 2) Label 3. Caption = Format(hasil, "True/False") End Sub Private Sub Option 14_Click() var 1 = IIf(Text 1. Text = "True", -1, 0) var 2 = IIf(Text 2. Text = "True", -1, 0) hasil = (var 1 And var 2) Label 3. Caption = Format(hasil, "True/False") End Sub
Terima Kasih
- Slides: 27