< PreviousMicrosoft Visual Basic 6.0175Label2 bertuliskan "Layar monitor"Label2.Caption = "Layar monitor"Case 1’Jika mengklik ”Persegi” maka tampil Label1 dan label2Label1.Visible = TrueLabel2.Visible = True’Tampil shape berbentuk persegi (bentuk 1)Shape1.Shape = 1’Muncul pada Picture1 gambar yang berlokasi C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Hh01669_.WMFPicture1.Picture = LoadPicture("C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Hh01669_.WMF")’Muncul pada Picture1 gambar yang berlokasi C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Bd04897_.WMFPicture2.Picture = LoadPicture("C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Bd04897_.WMF")’Label1 bertuliskan ”Bangku” dan Label2 bertuliskan ”Sisi dadu”Label1.Caption = "Bangku"Label2.Caption = "Sisi dadu"Case 2’Jika mengklik ”Oval” maka tampil Label1 dan label2Label1.Visible = TrueLabel2.Visible = True’Tampil shape berbentuk oval (bentuk 2)Shape1.Shape = 2’Muncul pada Picture1 gambar yang berlokasi C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Pe01659_.WMFPicture1.Picture = LoadPicture("C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Pe01659_.WMF")’Muncul pada Picture2 gambar yang berlokasi C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Pe02719_.WMFPicture2.Picture = LoadPicture("C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Pe02719_.WMF")Teknologi Informasi dan Komunikasi Kelas X176’Label1 bertuliskan ”Bentuk bola raghby” dan Label2 bertuliskan ”Bentuk cermin”Label1.Caption = "Bentuk bola raghby"Label2.Caption = "Bentuk cermin"Case 3’Jika mengklik ”Lingkaran” maka tampil Label1 dan label2Label1.Visible = TrueLabel2.Visible = True’Tampil shape berbentuk lingkaran (bentuk 3)Shape1.Shape = 3’Muncul pada Picture1 gambar yang berlokasi C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Bd07304_.wmfPicture1.Picture = LoadPicture("C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Bd07304_.wmf")’Muncul pada Picture2 gambar yang berlokasi C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Bd07175_.WMFPicture2.Picture = LoadPicture("C:\Program Files\Common Files\MicrosoftShared\Clipart\cagcat50\Bd07175_.WMF")’Label1 bertuliskan ”Lampu lalu lintas” dan Label2 bertuliskan ”Bentuk Setir Mobil”Label1.Caption = "Lampu lalu lintas"Label2.Caption = "Setir Mobil"End SelectEnd SubPrivate Sub Check1_Click()’Jika kotak cek bernilai 1 (diberi tanda cek) makaIf Check1.Value = 1 Then’Font Label1 ditebalkan (Bold)Label1.FontBold = True’Font Label2 ditebalkan (Bold)Label2.FontBold = TrueElse’Jika tidak maka’Font Label1 tidak ditebalkan (Bold)Label1.FontBold = False’Font Label2 tidak ditebalkan (Bold)Label2.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()Microsoft Visual Basic 6.0177’Jika kotak cek bernilai 1 (diberi tanda cek) makaIf Check2.Value = 1 Then’Font Label1 dimiringkan (Italic)Label1.FontItalic = True’Font Label2 dimiringkan (Italic)Label2.FontItalic = TrueElse’jika tidak maka’Font Label1 tidak dimiringkan (Italic)Label1.FontItalic = False’Font Label2 tidak dimiringkan (Italic)Label2.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()’Jika kotak cek bernilai 1 (diberi tanda cek) makaIf Check3.Value = 1 Then’Font Label1 digaris bawahi (Underline)Label1.FontUnderline = True’Font Label2 digaris bawahi (Underline)Label2.FontUnderline = TrueElse’Jika tidak maka’Font Label1 tidak digaris bawahi (Underline)Label1.FontUnderline = False’Font Label2 tidak digaris bawahi (Underline)Label2.FontUnderline = FalseEnd IfEnd SubPrivate Sub Option1_Click()’Jika tombol option1 bernilai benar (diklik) makaOption1.Value = True’Warna font label1 adalah merahLabel1.ForeColor = &HC0&’Warna font label2 adalah merahLabel2.ForeColor = &HC0&’Warna Shape1 adalah merahShape1.FillColor = &HC0&End SubPrivate Sub Option2_Click()’Jika tombol option2 bernilai benar (diklik) makaOption2.Value = TrueTeknologi Informasi dan Komunikasi Kelas X178’Warna font label1 adalah kuningLabel1.ForeColor = &HFFFF&’Warna font label2 adalah kuningLabel2.ForeColor = &HFFFF&Warna Shape1 adalah kuningShape1.FillColor = &HFFFF&End SubPrivate Sub Option3_Click()’Jika tombol option3 bernilai benar (diklik) makaOption3.Value = True’Warna font label1 adalah hijauLabel1.ForeColor = &H8000&’Warna font label2 adalah hijauLabel2.ForeColor = &H8000&’Warna Shape1 adalah hijauShape1.FillColor = &H8000&End SubPrivate Sub Option4_Click()’Jika tombol option4 bernilai benar (diklik) makaOption4.Value = True’Warna font label1 adalah biruLabel1.ForeColor = &HFF0000’Warna font label2 adalah biruLabel2.ForeColor = &HFF0000’Warna Shape1 adalah biruShape1.FillColor = &HFF0000End SubProgram 4Penulisan Kode’Jika label1 bertuliskan ”SELAMAT BELAJAR MICROSOFT VISUAL BASIC 6.0” makaIf Label1.Caption = "SELAMAT BELAJAR MICROSOFT VISUAL BASIC 6.0" Then’Label1 bertuliskan "Aku sangat bahagia sekali mempelajari Bahasa Pemrograman ini"Label1.Caption = "Aku sangat bahagia sekali mempelajari BahasaPemrograman ini"Else‘Jika tidak maka‘Jika label1 bertuliskan " Aku sangat bahagia sekali mempelajari Bahasa Pemrograman ini "makaIf Label1.Caption = "Aku sangat bahagia sekali mempelajari BahasaPemrograman ini" ThenMicrosoft Visual Basic 6.0179’Label1 bertuliskan "Aku pikir sulit.... Ternyata sangat mudah sekali yach..."Label1.Caption = "Aku pikir sulit.... Ternyata sangat mudah sekaliyach..."Else’Jika tidak maka 'label1 bertuliskan "SELAMAT BELAJAR MICROSOFT VISUAL BASIC 6.0"Label1.Caption = "SELAMAT BELAJAR MICROSOFT VISUAL BASIC 6.0"End IfEnd IfEnd SubPrivate Sub Text1_Change()End SubPrivate Sub Command2_Click()’Jika Tombol perintah 2 diklik maka’Jika teks label1 berwarna hitam makaIf Label1.ForeColor = &H80000012 ThenTombol perintah 2 bertuliskan 'Hitamkan"Command2.Caption = "Hitamkan"’Teks label1 berwarna merahLabel1.ForeColor = &HC0&Else’Jika tidak makaTombol perintah 2 bertuliskan 'Merahkan"Command2.Caption = "Merahkan"’Label 1 berwarna standarLabel1.ForeColor = &H80000012End IfEnd SubPrivate Sub Command3_Click()’Jika tombol perintah 3 diklik maka’Jika Label1 tampil makaIf Label1.Visible = True Then’Label1 tidak tampakLabel1.Visible = False’Tombol perintah 3 bertuliskan 'Tampilkan"Command3.Caption = "Tampilkan"Else’Jika tidak makaTampil Label1Label1.Visible = True’Tombol perintah 3 bertuliskan 'Sembunyikan"Command3.Caption = "Sembunyikan"End IfEnd SubTeknologi Informasi dan Komunikasi Kelas X180Private Sub Command4_Click()’Jika tombol perintah 4 diklik maka’Label1 tampilLabel1.Visible = True’Tombol perintah 3 bertuliskan ”Tanyakan guru anda apabila mendapatkan kesulitan dalam belajar”Label1.Caption = "Tanyakan guru anda apabila mendapatkan kesulitandalam belajar"End SubProgram 5.Kode Program:Private Sub Combo1_Click()Dim a As VariantDim b As Variant’a adalah nilai pada kotak teks 1a = Val(Text1.Text)’b adalah nilai pada kotak teks 2b = Val(Text2.Text)’Pilih dan klik indeks pada daftar combo1Select Case Combo1.ListIndex‘Jika memilih ”a + b” makaCase 0’Label5 bertuliskan a + bLabel5.Caption = a + b’Jika memilih "a - b" makaCase 1’Label5 bertuliskan a - bLabel5.Caption = a - b’Jika memilih "a * b" makaCase 2’Label5 bertuliskan a * bLabel5.Caption = a * b’Jika memilih "a : b" makaCase 3Label5.Caption = a/b’Label5 bertuliskan a / bEnd SelectEnd SubPrivate Sub Form_Load()’Tambahkan pada datar combo item ”A + B”Combo1.AddItem "A + B"'Tambahkan pada datar combo item ”A - B”Combo1.AddItem "A - B"'Tambahkan pada datar combo item ”A * B”Combo1.AddItem "A x B"’Tambahkan pada datar combo item ”A : B”Combo1.AddItem "A : B"End SubMicrosoft Visual Basic 6.01815.EventEvent adalah kejadian atau cara yang digunakan dalam berinteraksi dengan form atau kontrol.Event-event telah tersedia oleh Microsoft Visual Basic 6.0 dan dapat dilihat melalui kotak jendelaProject Form (Code).Selain keempat komponen dalam membuat aplikasi melalui Microsoft Visual Basic, kitamengenal pula komponen lainnya yaitu:a.Metode (Methods) adalah serangkaian perintah yang sudah tersedia dalam membuat aplikasi.b.Prosedur umum (general procedure) adalah kode yang dibutuhkan oleh aplikasi. Kode initidak berhubungan secara langsung dengan kontrol yang ada.Daftar pilihan Eventyang digunakanEventKeteranganChangeClickDbClickMouseDownMouseMoveMouseUpGotFocusKeyDownKeyPressKeyUpLostFocusTerjadi saat caption kontrol berubah.Terjadi saat user mengklik kontrol.Terjadi saat user mengklik ganda kontrol.Terjadi saat user menekan tombol mouse pada kontrol.Terjadi saat user menggerakan mouse pada kontrol.Terjadi saat user melepaskan penekanan tombol mouse pada kontrol.Terjadi saat kontrol sedang berinteraksi oleh user.Terjadi saat user mengetikan karakter pada kontrol.Terjadi setelah event KeyDown yaitu terjadi saat user mengetikankarakter pada kontrol dengan parameter ASCII. Misalnya KeyAscii untuktombol enter adalah 13, dan lain-lain.Terjadi setelah event KeyPress.Terjadi saat kontrol tidak lagi diinteraksi oleh user.Gambar 6.5 Toolbox Project Form (code)Tabel 6.17 Kegunaan EventTeknologi Informasi dan Komunikasi Kelas X182c.Modul (Module) adalah sekumpulan prosedur umum, deklarasi variable dan tipe data yangdigunakan dalam penulisan kode.d.Proyek (Project) adalah aplikasi yang terdiri dari form, kontrol, kode dan lainnya.6.Mengoperasikan Perintah-Perintah Dasar dalam Membuat Program SederhanaIdentifikasi perbedaan tipe data. Microsoft Visual Basic 6.0 menyediakan beberapa tipe data.Sementara itu terkadang kita harus membuat konversi tipe data yang satu ke tipe data lainnya.Misalnya kita akan menghitung transport bulanan yang dihitung dari hasil perkalian antara jumlahhari (tipe data Byte) dan transport sehari (Tipe data Currency) dengan tipe data yang akan ditampilkanadalah Currency. Untuk itu kita gunakan fungsi tertentu (Ccur).TransportBulanan = Ccur (JumlahHari + TranportHarian)a = CInt(Text1.Text)Fungsi Ccur digunakan untuk mengkonversi tipe data menjadi tipe data Currency. Fungsi Cintdigunakan untuk mengkonversikan tipe data menjadi Integer.Tipe DataJangkauanBooleanByteCurrentcy (nilaiuang)Date (tanggal)DoubleIntegerLong (longinteger)ObjectSingleString (panjangbervariasi)Variant (denganangka)True (benar) atau False (salah)0 s.d. 255-922,337,203,685,477.5808s.d. +922,337,203,685,477.58071 Jan tahun 100 s.d. 31 Des tahun 9999-1.79769313486232 E308s.d. 1.79769313486232 E308 (+)- 32,768 s.d. + 32,768- 2,147,483,648 s.d. 2,147,483,647Tergantung dari object yang digunakan-3.402823 E38 s.d. -1.401298 E -45 (-);1.401298 E -45 s.d. 3.402823 E38 (+)0 hingga kurang lebih 2 milyarNull, Error, dan tipe selain type yang disebutkansebelumnya2 byte1 byte8 bite8 byte8 byte2 byte4 byte4 byte4 byte10 byte+panjangstring16 byteUkuran ByteTabel 6.18 Kegunaan Tipe DataMicrosoft Visual Basic 6.0183FungsiTipe Data Hasil KonversiCbyteCdateCsngCvarLain-lainByteDateSingleVariantSelain tipe data yang telah disediakan Microsoft Visual Basic 6.0, kita dapat pula membuat tipedata pribadi. Misalkan dalam membuat database siswa di kelas kamu yang masing-masing tipe data(record) berstruktur yang terdiri dari tipe data String yang memuat data nomor siswa, nama siswa,tempat tanggal lahir, alamat dan tipe data Date yang memuat data tanggal lahir serta tipe dataCurrency yang memuat data spp bulanan. Untuk tipe data pribadi yang berstruktur tersebut secaraumum ditulis sebagai berikut.Private Type NamaDataPribadi AtauPublic Type NamaDataPribadiData1Data1Data2Data2Data3Data3.... ....End TypeEnd TypeContoh:Private Type DataSiswaNomorSiswa As String * 7NamaSiswa As String * 40TempatLahir As String * 25TanggalLahir As DateSPPBulanan As Currency.....End Type(Catatan * 7 berarti data paling banyak 7 karakter)VariabelVariabel adalah lokasi dalam memori komputer yang digunakan sebagai tempat penyimpanandata. Agar dapat dibedakan dengan variabel lainnya maka variabel haruslah diberi nama sesuaidengan tipe data yang digunakan. Adapun aturan dalam pemberian nama variable sebagai berikut:1.Panjang maksimal 255 karakter yang dapat berupa huruf, angka atau garis bawah (_)Contoh penulisan variable yang benar:SiswaXIMAN1GrogolAlamat_SiswaNaMASiSwATabel 6.19 Fungsi Tipe DataTeknologi Informasi dan Komunikasi Kelas X184Microsoft Visual Basic 6.0 hanya membaca 40 karakter pertama apabila panjang karakter lebihdari 40.2.Tidak boleh ada nama variable yang sama dalam satu ruang lingkup yang sama. MicrosoftVisual Basic 6.0 tidak membedakan huruf kecil atau huruf besar. NAMASISWA sama denganNamaSiswa sama dengan NaMAsISwA.3.Karakter pertama haruslah berupa huruf/alfabet (tidak boleh berupa yang lainnya)Contoh penulisan variable yang benar: Contoh penulisan variabel yang salah:HargaBarang5HargaBarangSPP_Bulanan&SPP_Bulanan4.Tidak ada spasi antara karakter yang satu dengan karakter lainnya. Apabila terpaksa kitagunakan garis bawah (_) sebagai pengganti spasi.Contoh penulisan variable yang benar: Contoh penulisan variabel yang salah:Harga_BarangHarga BarangSPP_BulananSPP Bulanan5.Tidak boleh menggunakan perintah khusus, karakter khusus, fungsi, objek, property ataumetode yang tersedia dalam Microsoft Visual Basic 6.0Contoh penulisan variable yang salah:If ... then ...Pokok + TransportCommand1_ClickAda 3 macam variable yaitu:a.Deklarasi eksplisitDeklarasi eksplisit harus ditulis pada bagian awal procedure (coding). Untuk membuat deklarasieksplisit pertama-tama kamu harus menentukan level atau jangkauan variable (Variable Scope) .Ada 4 level atau jangkauan variable yaitu:1.Level prosedurVariabel yang digunakan pada level ini adalah DimDim NomorSiswa As StringDim Harga As SingleVariabel Dim pada level ini dikenali hanya selama prosedur dijalankan.2.Level statistikVariabel yang digunakan pada level ini adalah Static.Static Nomor As IntegerStatic Jumlah As DoubleNext >