Sabtu, 28 Agustus 2010
Sabtu, 10 Juli 2010
________________________________________
1.1. Konsep Pemrograman Komputer
Sebelum kita mulai Visual Basic 6 pemrograman, mari kita memahami beberapa konsep dasar pemrograman. Menurut Webopedia, program komputer merupakan daftar instruksi yang terorganisir, ketika dijalankan, menyebabkan komputer untuk berperilaku yang telah ditetapkan. Tanpa program, komputer tidak berguna. Oleh karena itu, pemrograman berarti merancang atau membuat satu set instruksi untuk meminta komputer untuk melaksanakan pekerjaan tertentu yang biasanya sangat jauh lebih cepat daripada manusia dapat lakukan.
Banyak orang berpikir bahwa komputer CPU adalah hal yang sangat cerdas, yang pada kenyataannya adalah benda mati yang bodoh dan dapat berbuat apa-apa tanpa asisten manusia. The microchip dari sebuah CPU hanya dapat memahami listrik dua negara yang berbeda, yaitu hidup dan mati, atau 0 dan 1 kode dalam sistem biner. Jadi, CPU hanya memahami suatu kombinasi 0 dan 1 kode, suatu bahasa yang disebut bahasa mesin kita. bahasa mesin sangat sulit untuk belajar dan tidak bagi kita orang awam untuk menguasai dengan mudah. Untungnya, kita memiliki banyak programmer yang cerdas yang menulis interpreter dan compiler yang dapat menerjemahkan program bahasa-seperti manusia seperti BASIC ke dalam bahasa mesin agar komputer dapat melaksanakan instruksi dimasukkan oleh pengguna. Mesin bahasa dikenal sebagai bahasa primitif sementara Interpreters dan compiler seperti Visual Basic disebut bahasa tingkat tinggi. Beberapa bahasa komputer tingkat tinggi di samping Visual Basic adalah Fortran, Cobol, Java, C, C + +, Turbo Pascal, dan sebagainya.
1.2. Apa itu Visual Basic ?
VISUAL BASIC adalah bahasa pemrograman tingkat tinggi yang berkembang dari versi DOS sebelumnya disebut BASIC. DASAR-tujuan berarti Semua Beginners 'Symbolic Instruction Code. Ini adalah bahasa pemrograman yang sangat mudah dipelajari. Kode mirip sekali dengan Bahasa Inggris. perusahaan perangkat lunak yang berbeda dihasilkan berbeda dari versi BASIC, seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA dan sebagainya. Namun, tampaknya hanya orang-orang menggunakan Microsoft Visual Basic hari ini, karena merupakan bahasa pemrograman yang dikembangkan dengan baik dan mendukung sumber daya yang tersedia di mana-mana. Sekarang, ada banyak versi VB ada di pasar, yang paling populer dan masih banyak digunakan oleh banyak programmer VB tidak lain dari Visual Basic 6. Kami juga memiliki VB.net, VB2005 dan VB2008 terbaru, yang merupakan sepenuhnya pemrograman berorientasi objek (OOP) bahasa. Hal ini lebih kuat daripada VB6 tapi tampak lebih rumit untuk menguasai.
VISUAL BASIC adalah Bahasa Pemrograman Visual berbasis Event Driven. Ini adalah perbedaan utama dari BASIC. Dalam BASIC, pemrograman dilakukan dalam lingkungan teks saja dan program ini dijalankan secara berurutan. Dalam VB, pemrograman dilakukan dalam lingkungan grafis. Dalam BASIC, Anda harus menulis kode program untuk setiap objek grafis yang ingin Anda tampilkan pada layar, termasuk posisi dan warnanya. Namun, Dalam VB, Anda hanya perlu menarik dan melepas semua objek grafis mana saja di sebuah form, dan Anda dapat mengubah warna setiap saat dengan menggunakan jendela properti.
Di sisi lain, karena pengguna dapat mengklik pada objek tertentu secara acak, sehingga setiap obyek harus diprogram secara independen untuk dapat menanggapi tindakan-tindakan (kejadian). Oleh karena itu, Program VB terdiri dari subprogram banyak, masing-masing memiliki program kode sendiri, dan masing-masing dapat dijalankan secara independen dan pada saat yang sama masing-masing dapat dihubungkan bersama dalam satu atau lain cara.
1.3. Program Apa Yang Dapat Anda Ciptakan Di VB?
Dengan VB 6, Anda dapat membuat program apapun tergantung pada tujuan Anda. Misalnya, jika Anda seorang dosen perguruan tinggi atau universitas, Anda dapat membuat program-program pendidikan untuk mengajar bisnis, ekonomi, teknik, ilmu komputer, akuntansi, manajemen keuangan, sistem informasi dan lebih untuk membuat pengajaran lebih efektif dan menarik. Jika Anda berada dalam bisnis, Anda juga dapat membuat program-program bisnis seperti sistem manajemen inventori, point-sistem-penjualan, sistem penggajian, program keuangan serta program akuntansi untuk membantu mengelola bisnis Anda dan meningkatkan produktivitas. Bagi anda yang suka permainan dan bekerja sebagai programmer game, Anda dapat membuat program-program juga.
1.4. Visual Basic Integrated Development Envronment
Sebelum Anda dapat program VB 6, anda perlu menginstal Visual Basic 6 di komputer Anda. Jika Anda tidak memiliki salinan perangkat lunak Visual Basic 6 belum, Anda dapat membeli dari Amazon.com.
Pada dasarnya setiap sistem komputer ini harus mampu menjalankan program, baik itu Intel Pentium II, Intel Pentium III, Intel Pentium IV atau AMD bahkan mesin, Visual Basic 6 dapat berjalan tanpa masalah. Ini mungkin tidak berlaku untuk VB2008, mesin tua yang tidak mungkin dapat menjalankan VB2008 karena membutuhkan banyak sumber daya lebih, karena itu saya masih lebih suka VB 6 karena ringan dan mudah program.
Gambar 1.1.
Hal ini masih sangat berguna dan kuat, dan saya senang mengetahui bahwa Microsoft Windows Vista dapat mendukung VB 6.
Pada saat start up, Visual Basic 6.0 akan menampilkan kotak dialog berikut seperti pada gambar 1.1. Anda bisa memilih untuk memulai sebuah proyek baru, membuka proyek yang telah ada atau pilih daftar program baru dibuka. proyek adalah kumpulan file yang membentuk aplikasi anda. Ada berbagai jenis aplikasi yang kita dapat menciptakan, bagaimanapun, kami akan memusatkan perhatian pada penciptaan Standar program EXE (EXE berarti program dieksekusi). Sekarang, klik pada icon EXE Standar untuk masuk ke dalam Visual Basic 6 aktual lingkungan pemrograman.
1.5. Membuat Aplikasi Pertama Anda
Pertama-tama, Anda harus memulai Microsoft Visual Basic 6. Biasanya, bentuk default dengan nama Form1 akan tersedia bagi Anda untuk memulai proyek baru Anda. Sekarang, klik dua kali pada Form1, kode sumber untuk jendela Form1 seperti pada gambar 2,1 akan muncul. Bagian atas jendela kode sumber terdiri dari daftar objek dan peristiwa yang terkait atau prosedur. Dalam gambar 1.2, yang ditampilkan adalah objek Formulir dan prosedur yang terkait adalah beban.
Kode Form
Private Sub Form_Load ( )
Form1.show
Print “Welcome to Visual Basic tutorial”
End Sub
Private Sub Form_Activate ( )
Print 20 + 10
Print 20 - 10
Print 20 * 10
Print 20 / 10
End Sub
Private Sub
A = Tom
B = “likes"
C = “to"
D = “eat"
E = “burger"
Print A + B + C + D + E
End Sub
ATAU
Private Sub
A = Tom
B = “likes"
C = “to"
D = “eat"
E = “burger"
Print A & B & C & D & E
End Sub
1.6. Kontrol Propertis
Sebelum menulis event prosedur untuk kontrol respon terhadap masukan pengguna, Anda harus mengeset properti tertentu untuk kontrol untuk menentukan penampilan dan bagaimana akan bekerja dengan event prosedur. Anda dapat mengatur properti dari kontrol pada jendela properti atau pada saat runtime.
Anda dapat mengubah nama form. Pada jendela properti, item muncul di bagian teratas adalah objek yang sedang dipilih (pada Gambar 3.1, objek yang dipilih adalah Form1). Pada bagian bawah, item yang tercantum di kolom kiri merupakan nama-nama berbagai properti yang berhubungan dengan objek yang dipilih sedangkan item yang tercantum di kolom kanan mewakili negara bagian properti. Properties dapat diatur dengan menyorot item dalam kolom kanan kemudian mengubah mereka dengan mengetik atau memilih pilihan yang tersedia.
Sebagai contoh, untuk mengubah keterangan, hanya sorot Form1 Caption di bawah nama dan mengubahnya menjadi nama lain. Anda juga dapat mencoba untuk mengubah penampilan bentuk dengan menetapkan ke 3D atau flat. Hal-hal lain yang dapat Anda lakukan adalah untuk mengubah warna latar depan dan latar belakang, mengubah jenis font dan ukuran font, mengaktifkan atau menonaktifkan meminimalkan dan memaksimalkan tombol dan lain-lain
Anda juga dapat mengganti properti di runtime untuk memberikan efek khusus seperti perubahan warna, bentuk, efek animasi dan sebagainya. Misalnya kode berikut ini akan mengubah warna merah formulir setiap kali membentuk dimuat. VB menggunakan sistem heksadesimal untuk mewakili warna. Anda dapat memeriksa kode warna dalam jendela sifat yang muncul di bawah ForeColor dan BackColor.
Private Sub Form_Load()
Form1.Show
Form1.BackColor = &H000000FF&
End Sub
1.7. Penanganan beberapa Kontrol Umum
1.7.1. TextBox
TextBox adalah kontrol standar untuk menerima input dari user serta untuk menampilkan output. Ia bisa menangani string (text) dan data numerik tetapi tidak foto atau gambar. String dalam TextBox dapat dikonversi menjadi data numerik dengan menggunakan fungsi Val (text).
1.7.2. Label
Label adalah kontrol yang sangat berguna untuk Visual Basic, karena tidak hanya digunakan untuk memberikan instruksi dan panduan bagi pengguna, juga dapat digunakan untuk menampilkan output. Salah satu sifat yang paling penting adalah Caption. Menggunakan sintaks label.Caption, dapat menampilkan teks dan data numerik. Anda dapat mengubah keterangannya di jendela properti dan juga pada runtime.
1.7.3. Command Buttom
Command Buttom adalah salah satu kontrol yang paling penting karena digunakan untuk menjalankan perintah. Ini menampilkan ilusi bahwa tombol ditekan ketika klik pengguna di atasnya. Peristiwa yang paling umum yang terkait dengan Command Buttom adalah event Klik, dan sintaks untuk prosedur ini
Private Sub Command1_Click ()
Statements
End Sub
1.7.4. Picture Box
Picture Box adalah salah satu kontrol yang digunakan untuk menangani grafis. Anda dapat memuat gambar pada tahap desain dengan mengklik pada item gambar di jendela properti dan pilih gambar dari folder yang dipilih. Anda juga dapat memuat gambar saat runtime dengan menggunakan metode LoadPicture. Sebagai contoh, pernyataan itu akan memuat grape.gif gambar ke dalam kotak gambar.
Picture1.Picture=LoadPicture ("C:\VB program\Images\grape.gif")
1.7.5. Image Box
Image Box adalah kontrol lain yang menangani foto dan gambar. Berfungsi hampir identik ke kotak gambar. Namun, ada satu perbedaan utama, gambar dalam sebuah gambar Box diregang, yang berarti dapat diubah ukurannya. Fitur ini tidak tersedia di Kotak Gambar. Serupa dengan Kotak Gambar, juga dapat menggunakan metode LoadPicture untuk memuat gambar. Sebagai contoh, banyak pernyataan yang grape.gif gambar ke dalam kotak gambar.
Image1.Picture=LoadPicture ("C:\VB program\Images\grape.gif")
1.7.6. List Box
List Box adalah untuk menyajikan daftar item dimana pengguna dapat klik dan pilih item dari daftar. Untuk menambahkan item ke dalam daftar, kita dapat menggunakan metode AddItem. Misalnya, jika Anda ingin menambahkan beberapa item ke daftar kotak 1, Anda dapat memasukkan pernyataan berikut
Private Sub Form_Load ( )
List1.AddItem “Lesson1”
List1.AddItem “Lesson2”
List1.AddItem “Lesson3”
List1.AddItem “Lesson4”
End Sub
Item dalam List Box dapat diidentifikasi oleh properti ListIndex, nilai ListIndex untuk item pertama adalah 0, item kedua memiliki ListIndex 1, dan item kedua memiliki 2 ListIndex dan seterusnya
1.7.7. Combo Box
Combo Box juga untuk menampilkan daftar item dimana pengguna dapat klik dan pilih item dari daftar. Namun, kebutuhan pengguna untuk mengklik panah kecil di sebelah kanan kotak combo untuk melihat benda-benda yang disajikan dalam daftar drop-down. Untuk menambahkan item ke dalam daftar, Anda juga dapat menggunakan metode AddItem. Misalnya, jika Anda ingin menambahkan beberapa item ke kotak Combo 1, Anda dapat memasukkan pernyataan berikut:
Private Sub Form_Load ( )
Combo1.AddItem “Item1”
Combo1.AddItem “Item2”
Combo1.AddItem “Item3”
Combo1.AddItem “Item4”
End Sub
1.7.8. Check Box
Check Box memungkinkan pengguna memilih atau tidak memilih pilihan. Ketika Check Box diperiksa, nilainya di set ke 1 bila dicentang, nilai tersebut ditetapkan ke 0 jika tidak di centang. Anda dapat menyertakan laporan Check1.Value = 1 untuk menandai Check Box dan Check1.Value = 0 untuk menghapus tanda Check Box, serta menggunakannya untuk melakukan tindakan tertentu. Misalnya, program akan mengubah warna latar belakang formulir ke merah saat Check Box dicentang dan akan berubah menjadi biru ketika Check Box dicentang. Anda akan belajar tentang pernyataan kondisional IF ... THEN ..... ELSEIF dalam pelajaran nanti. VbRed dan vbBlue adalah konstanta warna dan BackColor adalah warna latar belakang milik formulir.
Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 0 Then
MsgBox "Apple is selected"
ElseIf Check2.Value = 1 And Check1.Value = 0 Then
MsgBox "Orange is selected"
Else
MsgBox "All are selected"
End If
End Sub
1.7.9. Option Box
Option Box juga memungkinkan pengguna memilih salah satu pilihan. Namun, dua atau lebih Option box harus bekerja sama karena sebagai salah satu opsi box dipilih, box Pilihan lainnya tidak akan dipilih. Bahkan, hanya satu Option Box dapat dipilih pada satu waktu. Ketika kotak pilihan yang dipilih, nilainya adalah set "Benar" dan bila tidak dipilih; nilai diatur ke "Salah". Pada contoh berikut, bentuk kontrol ditempatkan dalam bentuk bersama-sama dengan enam Opsi box. Bila pengguna mengklik kotak pilihan yang berbeda, bentuk yang berbeda akan muncul. Nilai dari bentuk kontrol adalah 0, 1, dan 2,3,4,5 yang akan membuatnya muncul sebagai persegi panjang, persegi, bentuk oval, bulat segi empat dan bulat persegi masing-masing.
Private Sub Option1_Click ( )
Shape1.Shape = 0
End Sub
Private Sub Option2_Click()
Shape1.Shape = 1
End Sub
Private Sub Option3_Click()
Shape1.Shape = 2
End Sub
Private Sub Option4_Click()
Shape1.Shape = 3
End Sub
Private Sub Option5_Click()
Shape1.Shape = 4
End Sub
Private Sub Option6_Click()
Shape1.Shape = 5
End Sub
1.7.10. Drive List Box
Drive ListBox adalah untuk menampilkan daftar drive yang tersedia di komputer Anda. Bila Anda menempatkan kontrol ini ke dalam form dan menjalankan program, Anda akan dapat memilih drive yang berbeda dari komputer Anda seperti ditunjukkan pada Gambar 1.3
Directory List Box
Directory List Box adalah untuk menampilkan daftar direktori atau folder dalam drive yang dipilih. Bila Anda menempatkan kontrol ini ke dalam form dan menjalankan program, Anda akan dapat memilih direktori yang berbeda dari drive yang dipilih di komputer Anda.
File List Box
File List Box adalah untuk menampilkan daftar file dalam direktori atau folder yang dipilih. Bila Anda menempatkan kontrol ini ke dalam form dan menjalankan program, Anda akan dapat ditampilkan daftar file dalam suatu direktori yang dipilih seperti ditunjukkan pada Gambar 1.5
Anda dapat mengkoordinasikan Drive List Box, Direktori Daftar Box dan Box Daftar File untuk mencari file yang Anda inginkan.
Kode Form
Private Sub Command1_Click()
‘To add the values in text box 1 and text box 2
Sum = Val(Text1.Text) + Val(Text2.Text)
‘To display the answer on text3
Text3.text= Sum
End Sub
PRAKTIK 2
________________________________________
Tipe Data
Ada banyak jenis data yang kita temukan dalam kehidupan sehari-hari. Sebagai contoh, kita perlu untuk menangani data seperti nama, alamat, uang, tanggal, harga saham, statistik dan lain-lain. Demikian pula dalam Visual Basic, kita harus menangani semua jenis data, beberapa dapat dihitung secara matematis sedangkan beberapa dalam bentuk teks atau bentuk lainnya. VB membagi data ke dalam jenis yang berbeda sehingga lebih mudah dikelola bila kita perlu menulis kode yang melibatkan data tersebut.
Visual Basic mengklasifikasikan informasi yang disebutkan di atas menjadi dua jenis data yang besar, mereka adalah tipe data numerik dan data non-numerik jenis.
Tipe Numarik
Numeric jenis tipe data yang berupa angka, yang dapat dihitung secara matematis dengan berbagai operator standar, misalnya tambah, minus, mengalikan, membagi dan banyak lagi. Contoh tipe data numerik adalah tinggi, berat, jumlah siswa di kelas, nilai-nilai saham, harga barang, tagihan bulanan, biaya dan lain-lain. Dalam Visual Basic, data numerik dibagi menjadi 7 jenis, tergantung pada rentang nilai mereka dapat menyimpan. Perhitungan yang hanya melibatkan angka bulat atau data yang tidak membutuhkan presisi dapat menggunakan Integer atau Long dalam perhitungan. Program yang membutuhkan perhitungan presisi tinggi perlu menggunakan data Single dan Double, mereka juga disebut angka floating point. Untuk perhitungan mata uang, Anda dapat menggunakan jenis currency. Terakhir, jika lebih presisi diperlukan untuk melakukan perhitungan yang melibatkan banyak titik desimal, kita dapat menggunakan tipe data desimal. Tipe data ini diringkas dalam Tabel 2.1
Numeric Data Types
Type Storage Range of Values
Byte 1 byte 0 to 255
Integer 2 bytes -32,768 to 32,767
Long 4 bytes -2,147,483,648 to 2,147,483,648
Single 4 bytes -3.402823E+38 to -1.401298E-45 for negative values
1.401298E-45 to 3.402823E+38 for positive values.
Double 8 bytes -1.79769313486232e+308 to -4.94065645841247E-324 for negative values
4.94065645841247E-324 to 1.79769313486232e+308 for positive values.
Currency 8 bytes -922,337,203,685,477.5808 to 922,337,203,685,477.5807
Decimal 12 bytes +/- 79,228,162,514,264,337,593,543,950,335 if no decimal is use
+/- 7.9228162514264337593543950335 (28 decimal places).
Tipe Non - Numarik
Nonnumeric jenis tipe data yang tidak dapat dimanipulasi secara matematis dengan menggunakan operator aritmatika standar. Data non-numerik terdiri dari teks atau tipe data string, tipe data Date, tipe data Boolean yang hanya menyimpan dua nilai (true atau false), data jenis dan Varian Obyek tipe data. Mereka yang dirangkum dalam Tabel 2.2
Table 2.2: Nonnumeric Data Types
Data Type Storage Range
String(fixed length) Length of string 1 to 65,400 characters
String(variable length) Length + 10 bytes 0 to 2 billion characters
Date 8 bytes January 1, 100 to December 31, 9999
Boolean 2 bytes True or False
Object 4 bytes Any embedded object
Variant(numeric) 16 bytes Any value as large as Double
Variant(text) Length+22 bytes Same as variable-length string
Suffixes for Literal
Literal adalah nilai-nilai yang Anda tetapkan untuk data. Dalam beberapa kasus, kita perlu menambahkan akhiran di belakang literal sehingga VB dapat menangani perhitungan lebih akurat. Sebagai contoh, kita dapat menggunakan num = 1,3089# untuk tipe data Double. Beberapa akhiran akan ditampilkan pada Tabel 2.3.
Table 2.3
Suffix Data Type
& Long
! Single
# Double
@ Currency
Berikut adalah beberapa contoh:
memberName="Turban, John."
TelNumber="1800-900-888-777"
LastDay=#31-Dec-00#
ExpTime=#12:00 am#
Mengelola Variabel
Variabel seperti sebuah kotak surat di kantor pos. Isi variable dapat berubah setiap saat, seperti kotak surat. Dalam jangka waktu VB, variabel adalah area yang dialokasikan oleh memori komputer untuk menyimpan data. Seperti kotak surat, setiap variabel harus diberi nama. Untuk nama variabel dalam Visual Basic, Anda harus mengikuti seperangkat aturannya.
Nama Variabel
Berikut ini adalah aturan ketika penamaan variabel dalam Visual Basic
Ini harus kurang dari 255 karakter
Tidak ada spasi diperbolehkan
Tidak harus dimulai dengan angka
Periode tidak diizinkan
Valid Name Invalid Name
My_Car My.Car
ThisYear 1NewBoy
Long_Name_Can_beUSE He&HisFather *& is not acceptable
Mendeklarasi Variabel
Dalam Visual Basic, kita perlu menyatakan variabel sebelum menggunakannya dengan menetapkan nama dan tipe data. Mereka biasanya dinyatakan di bagian umum dari jendela kode dengan pernyataan Dim. Formatnya adalah sebagai berikut:
Dim Variable Name As Data Type
Contoh :
Dim password As String
Dim yourName As String
Dim firstnum As Integer
Dim secondnum As Integer
Dim total As Integer
Dim doDate As Date
Anda juga dapat menggabungkan mereka dalam satu baris, memisahkan setiap variabel dengan koma, sebagai berikut:
Dim password As String, yourName As String, firstnum As Integer,.............
Jika tipe data tidak ditentukan, otomatis VB akan mendeklarasikan variabel sebagai Variant.
Untuk deklarasi string, ada dua format mungkin, satu untuk variabel string panjang dan satu lagi untuk string tetap-panjang. Untuk string variabel-panjang, hanya menggunakan format yang sama sebagai contoh di atas 5,1. Namun, untuk string berukuran tetap, Anda harus menggunakan format seperti yang ditunjukkan di bawah ini:
Dim VariableName as String * n, dimana n mendefinisikan jumlah karakter string
Contoh:
Dim yourName as String * 10
yourName hanya dapat menyimpan tidak lebih dari 10 karakter.
Konstata
Konstanta berbeda dari variabel dalam arti bahwa nilai-nilai mereka tidak berubah selama menjalankan program. Forma untuk mendeklarasi konstata adalah
Const Constant Name As Data Type = Value
Contoh
Const Pi As Single=3.142
Const Temp As Single=37
Const Score As Single=100
Menetapkan Nilai ke Variabel
Setelah medeklarasikan dengan DIM kemudian kita akan menetapkan nilai ke variable dengan format sebagai berikut:
Variable=Expression
Variable dapat berupa variable yang telah dideklarasikan atau sebuah properti kontrol. Expression dapat berupa ekpresi matimatika, angka, string, Boolean (true atau false) dan lain-lain, contoh:
firstNumber=100
secondNumber=firstNumber-99
userName="John Lyan"
userpass.Text = password
Label1.Visible = True
Command1.Visible = false
Label4.Caption = textbox1.Text
ThirdNumber = Val(usernum1.Text)
total = firstNumber + secondNumber+ThirdNumber
Operator dalam Visual Basic
Untuk menghitung masukan dari pengguna dan untuk menghasilkan hasil, kita perlu menggunakan operator matematika. Dalam Visual Basic, operator adalah sebagai berikut:
Table 2.5: Arithmetic Operators
Operator Mathematical function Example
^ Exponential 2^4=16
* Multiplication 4*3=12, (5*6))2=60
/ Division 12/4=3
Mod Modulus(return the remainder from an integer division) 15 Mod 4=3 255 mod 10=5
\ Integer Division(discards the decimal places) 19\4=4
+ or & String concatenation "Visual"&"Basic"="Visual Basic"
Kode Keterangan
Dim firstName As String
Dim secondName As String
Dim yourName As String
Private Sub Command1_Click()
firstName = Text1.Text
secondName = Text2.Text
yourName = secondName + " " + firstName
Label1.Caption = yourName
End Sub
Tiga variabel dinyatakan sebagai string. Untuk variabel firstName dan secondName akan menerima data mereka dari masukan pengguna dalam textbox1 dan textbox2, dan variabel yourName akan diberikan data dengan menggabungkan dua variabel pertama. Akhirnya, yourName ditampilkan pada Label1.
Dim number1, number2, number3 as Integer
Dim total, average as variant
Private sub Form_Click
number1=val(Text1.Text)
number2=val(Text2.Text)
number3= val(Text3.Text)
Total=number1+number2+number3
Average=Total/5
Label1.Caption=Total
Label2.Caption=Average
End Sub
Tiga variabel dideklarasikan sebagai integer dan dua variabel dinyatakan sebagai varian. Varian variabel berarti dapat menyimpan semua jenis data. Program ini menghitung total dan rata-rata dari tiga angka yang dimasukkan ke dalam tiga TextBox.
PRAKTIK 3
________________________________________
Operator Kondisi
Untuk mengontrol aliran program VB, kita bisa menggunakan berbagai operator kondisional. Pada dasarnya, mereka menyerupai operator matematika. Program VB membandingkan nilai data dan kemudian memutuskan tindakan apa yang harus diambil, apakah untuk menjalankan suatu program atau menghentikan program dan banyak lagi. Operator ini ditunjukkan pada Tabel 3.1.
Conditional Operators
Operator Meaning
= Equal to
> More than
< Less Than >= More than and equal
<= Less than and equal <> Not Equal to
3.2. Operator Logika
Selain operator kondisional, ada beberapa operator logika yang ditambahkan ke program VB.
Logical Operators
Operator Meaning
And Both sides must be true
or One side or other must be true
Xor One side or other must be true but not both
Not Negates truth
* Anda juga dapat membandingkan string dengan operator di atas. Namun, ada aturan tertentu: huruf besar lebih kecil dari huruf kecil, "A" < "B" < "C" < "D ".......< "Z" dan angka lebih kecil dari huruf. 3.3. Menggunakan perintah If … Than … Else dengan operator Format sebagi berikut: If conditions Then VB expressions Else VB expressions End If * perintah If selalu diakhiri dnegan End If terkadang Else tidak diperlukan Tugas 3.1 Kode Keterangan Private Sub TextPraktek_Change() If Val(TextTeori) >= 60 And Val(TextPraktek) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextTeori_Change()
If Val(TextTeori) >= 60 And Val(TextPraktek) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextTeori_Change()
TextRata = (Val(TextTeori) + (Val(TextPraktek))) / 2
If Val(TextRata) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextPraktek_Change()
TextRata = (Val(TextTeori) + (Val(TextPraktek))) / 2
If Val(TextRata) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextNilai_Change()
If TextNilai = "A" Or TextNilai = "B" Or TextNilai = "C" Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Menggunakan perintah Select Case....End select
Apabila kondisi logika program banyak perintah IF sudah tidak cocok kita dapat menggunakan perintah Select Case … End select. Dengan format sebagai berikut;
Select Case expression
Case value1
Block of one or more VB statements
Case value2
Block of one or more VB Statements
Case value3
.
.
Case Else
Block of one or more VB Statements
End Select
Tugas 3.2
Kode
Dim grade As String
Private Sub CmdCompute_Click( )
grade=txtgrade.Text
Select Case grade
Case "A"
lblResult.Caption="High Distinction"
Case "A-"
lblResult.Caption="Distinction"
Case "B"
lblResult.Caption="Credit"
Case "C"
lblResult.Caption="Pass"
Case Else
lblResult.Caption="Fail"
End Select
End Sub
Tugas 3.3
Kode
Dim mark As Single
Private Sub Compute_Click()
'Examination Marks
mark = mrk.Text
Select Case mark
Case Is >= 85
comment.Caption = "Excellence"
Case Is >= 70
comment.Caption = "Good"
Case Is >= 60
comment.Caption = "Above Average"
Case Is >= 50
comment.Caption = "Average"
Case Else
comment.Caption = "Need to work harder"
End Select
End Sub
Tugas 3.4
Kode Form
Private Sub TextNDA_Change()
Select Case Val(TextNDA)
Case 90 To 100
TextNDH = "A"
TextKet = "SANGAT BAIK"
Case 70 To 89
TextNDH = "B"
TextKet = "BAIK"
Case 60 To 69
TextNDH = "C"
TextKet = "CUKUP"
Case 0 To 59
TextNDH = "D"
TextKet = "KURANG"
End Select
End Sub
PRAKTIK 4
________________________________________
4.1. Perulangan
Visual Basic memungkinkan prosedur harus diulang berkali-kali selama prosesor sampai kondisi atau serangkaian kondisi terpenuhi. Hal ini umumnya disebut looping. Looping adalah fitur yang sangat berguna dari Visual Basic karena membuat repetitif bekerja lebih mudah. Ada dua jenis loop dalam Visual Basic, Do ... Loop dan For ....... Next Loop
4.2. Do … Loop
Formatnya adalah
a) Do While condition
Block of one or more VB statements
Loop
b) Do
Block of one or more VB statements
Loop While condition
c) Do Until condition
Block of one or more VB statements
Loop
d) Do
Block of one or more VB statements
Loop Until condition
4.3. Perulangan For ... Next
Format sebagai berikut:
For counter=startNumber to endNumber (Step increment)
One or more VB statements
Next
4.4. Keluar dari Loop
Kadang kita perlu keluar dari prulangan untuk keluar dari perulangan sebelum waktunya karena kondisi tertentu terpenuhi. Sintaks untuk menggunakannya dikenal sebagai exit. Anda mencoba pada tugas 4.1 untuk penggunaannya.
Tugas 4.1.
Kode Kode
Private Sub Form_Activate()
Dim i As Integer
Do
i = i + 1
Print i
Loop Until i = 10
End Sub
Private Sub Form_Activate()
Dim i As Integer
For i = 1 To 10
Print i
Next i
End Sub
Private Sub Form_Activate()
Dim i As Integer
Do Until i = 10
i = i + 1
Print i
Loop
End Sub
Private Sub Form_Activate()
Dim i As Integer
For i = 1 To 10
Print "No "; i
Next i
End Sub
Private Sub Form_Activate()
Dim i As Integer
For i = 1 To 10
Print i
If i = 5 Then Exit For
Next
Print "Dilompat ke sini."
End Sub
Private Sub Form_Activate()
Do Until i = 10
i = i + 1
Print i
If i = 5 Then Exit Do
Loop
End Sub
Private Sub Form_Activate()
Dim Hitung As Integer
Do While Hitung < 10 Hitung = Hitung + 1 Print Hitung Loop End Sub Private Sub Form_Activate() Dim i As Integer For i = 1 To 7 Print WeekdayName(i) Next End Sub Private Sub Form_Activate() Dim i As Integer For i = 1 To 10 Step 2 Print i Next End Sub Private Sub Form_Activate() Dim i As Integer For i = 10 To 0 Step -2 Print i Next End Sub Private Sub Form_Activate() Dim i As Variant For Each i In Array(2, 3, 5) Print 10 / i Next End Sub Tugas 4.2 Kode Form Private Sub Form_Load() Dim i As Integer For i = 1 To 7 List1.AddItem WeekdayName(i) Next For i = 1 To 12 List2.AddItem MonthName(i) Next End Sub PRAKTIK 5 ________________________________________ 5.1. Fungsi Fungsi mirip dengan prosedur normal, tetapi tujuan utama berfungsi untuk menerima input tertentu dari pengguna dan mendapatkan nilai kembali. Ada dua jenis fungsi, fungsi built-in (atau fungsi internal) dan fungsi yang dibuat oleh pemrogram. Secara umum format fungsi adalah: FunctionName (Arguments) Arguments adalah nilai yang digunakan oleh fungsi. Dalam pelajaran ini, kita akan mempelajari dua fungsi internal sangat dasar tapi berguna, yaitu MsgBox () dan InputBox (). 5.2. MsgBox () MsgBox adalah untuk menghasilkan kotak pesan pop-up dan meminta pengguna untuk mengklik pada tombol perintah sebelum ia dapat terus berlanjut. Formatnya adalah: yourMsg=MsgBox(Prompt, Style Value, Title) Argumen pertama, Prompt, akan menampilkan pesan dalam kotak pesan. Nilai Style akan menentukan jenis tombol perintah muncul di kotak pesan. Argumen Judul akan menampilkan judul dari papan pesan. Table 5.1: Style Values Style Value Named Constant Buttons Displayed 0 vbOkOnly Ok button 1 vbOkCancel Ok and Cancel buttons 2 vbAbortRetryIgnore Abort, Retry and Ignore buttons. 3 vbYesNoCancel Yes, No and Cancel buttons 4 vbYesNo Yes and No buttons 5 vbRetryCancel Retry and Cancel buttons Kita dapat menggunakan konstanta bernama di tempat bilangan bulat untuk argumen kedua untuk membuat program lebih mudah dibaca. Bahkan, VB6 secara otomatis akan menunjukkan daftar nama-nama yang konstan di mana Anda dapat memilih salah satu dari mereka. Contoh: yourMsg = MsgBox ("Klik OK untuk" Lanjutkan, 1, "Startup Menu") dan yourMsg = Msg ("Klik OK untuk" Lanjutkan. vbOkCancel, "Startup Menu") adalah sama. yourMsg adalah variabel yang menyimpan nilai-nilai yang dikembalikan oleh MsgBox () fungsi. Nilai ditentukan oleh jenis tombol diklik oleh pengguna. Itu harus dinyatakan sebagai tipe data Integer dalam prosedur atau pada bagian deklarasi umum. Tabel 5.2 menunjukkan nilai-nilai, yang sesuai bernama konstan dan tombol. Table 5.2 : Return Values and Command Buttons Value Named Constant Button Clicked 1 vbOk Ok button 2 vbCancel Cancel button 3 vbAbort Abort button 4 vbRetry Retry button 5 vbIgnore Ignore button 6 vbYes Yes button 7 vbNo No button Untuk membuat kotak pesan yang terlihat lebih canggih, Anda dapat menambahkan icon di samping pesan. Ada empat jenis ikon yang tersedia di VB seperti ditunjukkan pada Tabel 5.3 seperti pada tugas 5.2. berikut Table 5.3 Value Named Constant Icon 16 vbCritical 32 vbQuestion 48 vbExclamation 64 vbInformation Tugas 5.1. Kode Form Private Sub Test_Click() Dim testmsg As Integer testmsg = MsgBox("Click to test", 1, "Test message") If testmsg = 1 Then Display.Caption = "Testing Successful" Else Display.Caption = "Testing fail" End If End Sub Tugas 5.1 Tambahkan icon pesan Private Sub test2_Click() Dim testMsg2 As Integer testMsg2 = MsgBox("Click to Test", vbYesNoCancel + vbExclamation, "Test Message") If testMsg2 = 6 Then display2.Caption = "Testing successful" ElseIf testMsg2 = 7 Then display2.Caption = "Are you sure?" Else display2.Caption = "Testing fail" End If End Sub 5.3. InputBox () InputBox berfungsi menampilkan kotak pesan dimana pengguna dapat memasukkan nilai atau pesan dalam bentuk teks. Formatnya adalah: myMessage=InputBox(Prompt, Title, default_text, x-position, y-position) myMessage adalah tipe data varian, tetapi biasanya hal ini dideklarasikan sebagai string, yang menerima masukan pesan oleh pengguna. Argumen ini dijelaskan sebagai berikut: * Prompt - Pesan yang ditampilkan biasanya sebagai pertanyaan yang diajukan. * Title - Judul Kotak Masukan. * Default-text - Teks default yang muncul di bidang input dimana pengguna dapat menggunakannya sebagai masukan dimaksudkan-Nya atau ia dapat mengubah pesan, ia ingin kunci masuk * x-y- position - posisi atau koordinat kotak input. Tugas 5.2. Kode Form Private Sub OK_Click() Dim userMsg As String userMsg = InputBox("What is your message?", "Message Entry Form", "Enter your messge here", 500, 700) If userMsg <> "" Then
message.Caption = userMsg
Else
message.Caption = "No Message"
End If
End Sub
PRAKTIK 6
________________________________________
6.1. Fungsi Matematika
Fungsi matematika sangat berguna dan penting dalam pemrograman karena sangat sering kita harus menangani konsep-konsep matematika dalam pemrograman seperti kesempatan dan probabilitas, variabel, logika matematika, perhitungan, koordinat, interval waktu dan lain-lain fungsi matematika umum dalam Visual Basic adalah Rnd, Sqr, Int, Abs, Exp, Log, Sin, Cos, Tan, ATN, Fix dan Round.
Rnd sangat berguna ketika kita berurusan dengan konsep peluang dan probabilitas. Rnd Fungsi mengembalikan nilai acak antara 0 dan 1. Dalam Tugas 6.1. Ketika Anda menjalankan program ini, Anda akan mendapatkan output dari 10 nomor acak antara 0 dan 1. Timer mengacak pernyataan penting di sini karena akan mengacak proses.
Nomor acak dalam bentuk aslinya tidak sangat berguna dalam pemrograman sampai kita mengkonversikannya ke integer. Sebagai contoh, jika kita perlu memperoleh hasil acak acak dari 6 bilangan bulat antara 1 sampai 6, yang membuat program bertingkah laku sebagai virtual mati, kita perlu mengkonversi nomor acak yang menggunakan format Int (Rnd * 6) + 1.
Dalam tugas, Int (Rnd * 6) akan menghasilkan bilangan random antara 0 dan 5 karena fungsi Int memotong bagian desimal dari bilangan acak dan mengembalikan integer. Setelah menambahkan 1, Anda akan mendapatkan nomor acak antara 1 dan 6 setiap kali Anda mengklik tombol perintah. Misalnya, mengatakan nomor acak yang dihasilkan sebesar 0,98, setelah mengalikannya dengan 6, menjadi 5,88, dan menggunakan fungsi integer Int (5,88) akan mengkonversi nomor 5; dan setelah menambahkan 1 Anda akan mendapatkan 6.
Dalam tugas kedua ini, Anda menempatkan tombol perintah dan mengubah judul tersebut menjadi "roll die”. Anda juga harus memasukkan label ke dalam form dan jelas keterangannya pada tahap merancang dan membuat font yang lebih besar dan tebal. Kemudian menetapkan nilai perbatasan menjadi 1 sehingga menampilkan suatu perbatasan, dan setelah itu mengatur alignment ke pusat. Pernyataan Label1.Caption = Num berarti integer dihasilkan akan ditampilkan sebagai judul label.
Tugas 6.1.
Kode Form
Private Sub Form_Activate
Randomize Timer
For x=1 to 10
Print Rnd
Next x
End Sub
Dim num as integer
Private Sub Command1_Click ( )
Randomize Timer
Num=Int(Rnd*6)+1
Label1.Caption=Num
End Sub
6.2. Fungsi Numerik
Fungsi numerik adalah Int, Sqr, Abs, Exp, Fix, Round dan Log.
Int adalah fungsi yang mengubah angka ke dalam integer oleh truncating bagian desimal dan bilangan bulat yang dihasilkan adalah bilangan bulat terbesar yang lebih kecil dari nomor tersebut. Sebagai contoh, Int (2.4) = 2, Int (4.8) = 4, Int (-4,6) = -5, Int (0,032) = 0 dan sebagainya.
Sqr adalah fungsi yang menghitung akar kuadrat dari suatu bilangan. Sebagai contoh, Sqr (4) = 2, Sqr (9) 2 = dan lain-lain
Abs adalah fungsi yang mengembalikan nilai absolut dari suatu bilangan. Jadi Abs (-8) = 8 dan Abs (8) = 8.
Exp angka x adalah nilai dari mantan. Sebagai contoh, Exp (1) = e1 = 2,7182818284590
Fix dan Int adalah sama jika nomor tersebut adalah angka positif karena keduanya memotong bagian desimal dari jumlah dan mengembalikan integer. Namun, saat nomor yang negatif, ia akan mengembalikan integer terkecil yang lebih besar dari nomor tersebut. Sebagai contoh, Fix (-6,34) = -6 sementara Int (-6,34) =- 7.
Round adalah fungsi yang putaran sebuah nomor ke sejumlah tempat desimal. Format adalah Round (n, m) yang berarti bulat n m nomor desimal. Sebagai contoh, Round (7,2567, 2) = 7,26
Log adalah fungsi yang kembali Logaritma alam dari suatu bilangan. Sebagai contoh, Log 10 = 2,302585
Tugas 6.2.
Kode Form
Private Sub Form_Activate ()
n = 1
Print " n", " x", "Int(x)", "Fix(x)", "Round(x, 4)"
Do While n < 11 Randomize Timer x = Round (Rnd * 7, 7) Print n, x, Int(x), Fix(x), Round(x, 4) n = n + 1 Loop End Sub 6.3. Fungsi Format Format output adalah bagian yang sangat penting dari pemrograman sehingga data dapat disajikan secara sistematis dan jelas kepada pengguna. Data dalam pelajaran sebelumnya telah disajikan secara wajar sistematis melalui penggunaan koma dan beberapa fungsi seperti Int, Fix dan Round. Namun, untuk memiliki kontrol yang lebih baik dari format output, kita dapat menggunakan beberapa fungsi dalam Format Visual Basic. Tiga fungsi format yang paling umum di VB adalah Tab, Space, dan Format Fungsi Tab (n); x Item x akan ditampilkan pada posisi yang n spasi dari batas kiri bentuk output. Harus ada titik koma di antara Tab dan item yang Anda berniat untuk menampilkan (VB benar-benar akan melakukannya untuk Anda secara otomatis). Fungsi Space Fungsi Space sangat erat dikaitkan dengan fungsi Tab. Namun, ada perbedaan kecil. Sementara Tab (n) berarti item tersebut dimasukkan ke ruang n dari perbatasan kiri layar, fungsi Ruang menentukan jumlah spasi antara dua item berturut-turut. Misalnya, prosedur Fungsi Format Fungsi Format adalah fungsi yang sangat kuat yang dapat menampilkan nilai numerik dalam berbagai bentuk. Ada dua tipe fungsi Format, salah satunya adalah built-in atau standar format sementara satu sama lain dapat didefinisikan oleh pengguna Style argument Explanation Example General Number Untuk menampilkan nomor tanpa pemisah antara ribuan. Format(8972.234, “General Number”)=8972.234 Fixed Untuk menampilkan nomor tanpa pemisah antara ribuan dan round sampai dua tempat desimal. Format(8972.2, “Fixed”)=8972.23 Standard Untuk menampilkan nomor dengan pemisah atau pemisah antara ribuan dan putaran itu sampai dua tempat desimal Format(6648972.265, “Standard”)= 6,648,972.27 Currency Untuk menampilkan nomor dengan tanda dolar di depan, telah pemisah antara ribuan serta pembulatan itu sampai dua tempat desimal. Format(6648972.265, “Currency”)= $6,648,972.27 Percent Mengubah nomor bentuk persentase dan menampilkan tanda% dan putaran itu sampai dua tempat desimal. Format(0.56324, “Percent”)=56.32 % Tugas 6.3. Kode Form Private Sub Form_Activate Print "I"; Tab(5); "like"; Tab(10); "to"; Tab(15); "learn"; Tab(20); "VB" Print Print Tab(10); "I"; Tab(15); "like"; Tab(20); "to"; Tab(25); "learn"; Tab(20); "VB" Print Print Tab(15); "I"; Tab(20); ; "like"; Tab(25); "to"; Tab(30); "learn"; Tab(35); “VB" End sub Private Sub Form_Activate() Print "Visual"; Space(10); "Basic" End Sub Private Sub Form_Activate() Print Format (8972.234, "General Number") Print Format (8972.2, "Fixed") Print Format (6648972.265, "Standard") Print Format (6648972.265, "Currency") Print Format (0.56324, "Percent") End Sub 6.4. Fungsi Manipulasi String Fungsi Len Fungsi Len adalah mengembalikan nilai panjang integer dari sebuah frase atau kalimat, termasuk spasi kosong. Fungsi Len juga dapat kembali jumlah digit atau lokasi memori dari nomor yang disimpan dalam komputer. Fungsi Right Fungsi Right mengambil bagian dari kanan frase. Right ("Frasa", n) Sebagai contoh, Right ("Visual Basic", 4) = basic Fungsi Left Fungsi Left mengambil bagian dari kiri frase. Left ("Frasa", n) Sebagai contoh, Left (“Visual Basic”, 4) = Visu Fungsi Ltrim Fungsi Ltrim menghilangkan spasi pada bagian kiri frase. Ltrim(“Phrase”) Sebagai contoh, Ltrim (“ Visual Basic”)= Visual Basic Fungsi Rtrim Fungsi Rtrim menghilangkan spasi pada bagian kanan frase. Rtrim(“Phrase”) Sebagai contoh, Rtrim (“ Visual Basic ”)= Visual Basic Fungsi Trim Fungsi Trim menghilangkan spasi pada bagian kiri dan kanan frase. Trim(“Phrase”) Sebagai contoh, Trim (“ Visual Basic ”)= Visual Basic Fungsi Mid Fungsi Mid mengambil sebagian dari frase. Mid ("Frasa", position, n) Sebagai contoh, Mid (“Visual Basic”, 3, 6) = sual B Fungsi Ucase dan Lcase Fungsi Ucase dan Lcase Ucase(“Visual Basic”) =VISUAL BASiC Lcase(“Visual Basic”) =visual basic Fungsi str dan val The Str adalah fungsi yang mengubah angka ke string sementara fungsi Val mengkonversi string ke angka. Dua fungsi penting ketika kita perlu untuk melakukan operasi matematika. Fungsi chr dan asc Mengembalikan fungsi Chr string yang sesuai dengan kode ASCII sedangkan fungsi ASC mengkonversi karakter ASCII atau simbol untuk kode ASCII yang sesuai. ASCII singkatan dari "American Standard Kode untuk Informasi Interchange". Secara keseluruhan ada 255 kode ASCII dan karakter ASCII banyak. Beberapa karakter yang tidak dapat ditampilkan karena dapat mewakili beberapa tindakan seperti menekan sebuah tombol atau mengeluarkan bunyi bip. Chr(65)=A, Chr(122)=z, Chr(37)=% , Asc(“B”)=66, Asc(“&”)=38 Tugas 6.4. Kode Form Private sub Form_Activate ( ) X=sqr (16) Y=1234 Z#=10# Print Len(x), Len(y), and Len (z) End Sub Akan menghasilkan output 1, 4, 8. Alasan mengapa nilai terakhir adalah 8 adalah karena z # adalah nomor presisi ganda dan sehingga dialokasikan ruang lebih banyak memori. 6.5. Membuat Fungsi Sendiri Format umum fungsi adalah Public Function functionName (Arg As dataType,..........) As dataType atau Private Function functionName (Arg As dataType,..........) As dataType Public menunjukkan bahwa fungsi ini berlaku untuk seluruh proyek dan Private menunjukkan bahwa fungsi ini hanya berlaku untuk modul atau prosedur tertentu. Tugas 6.5. Kode Form pengguna dapat menghitung nilai masa depan sejumlah uang yang dia miliki hari ini didasarkan pada tingkat suku bunga dan jumlah tahun dari sekarang, misalkan dia akan menginvestasikan jumlah uang ini di suatu tempat. Perhitungan ini didasarkan pada tingkat bunga majemuk. Public Function FV(PV As Variant, i As Variant, n As Variant) As Variant 'Formula to calculate Future Value(FV) 'PV denotes Present Value FV = PV * (1 + i / 100) ^ n End Function Private Sub BtnCompute_Click() 'This procedure will calculate Future Value Dim FutureVal As Variant Dim PresentVal As Variant Dim interest As Variant Dim period As Variant PresentVal = txtPV.Text interest = txtrate.Text period = txtyears.Text 'calling the funciton FutureVal = FV(PresentVal, interest, period) MsgBox ("The Future Value is " & FutureVal) End Sub Program berikut ini secara otomatis akan menghitung nilai pemeriksaan berdasarkan tanda bahwa seorang siswa yang diperoleh. Kode ditampilkan di sebelah kanan. Public Function grade(mark As Variant) As String Select Case mark Case Is >= 80
grade = "A"
Case Is >= 70
grade = "B"
Case Is >= 60
grade = "C"
Case Is >= 50
grade = "D"
Case Is >= 40
grade = "E"
Case Else
grade = "F"
End Select
End Function
Private Sub compute_Click()
lblgrading.Caption = grade(txtmark)
End Sub
PRAKTIK 7
________________________________________
7.1. Pengenalan Array
Menurut definisi, array adalah daftar variabel dengan tipe data dan nama yang sama. Ketika kita bekerja dengan item tunggal, kita hanya perlu menggunakan satu variabel. Namun, jika kami memiliki daftar item yang sejenis untuk menanganinya, kita perlu mendeklarasikan variabel array daripada menggunakan sebuah variabel untuk setiap item. Sebagai contoh, jika kita harus memasukkan seratus nama, kita mungkin mengalami kesulitan dalam menyatakan 100 nama yang berbeda, ini adalah buang-buang waktu dan upaya. Jadi, bukannya menyatakan seratus variabel yang berbeda, kita perlu menyatakan hanya satu array. Kita membedakan setiap item dalam array dengan menggunakan subscript, nilai indeks dari setiap item, misalnya nama (1), nama (2), nama (3) dst ....... .
7.2. Dimensi Array
Array dapat menjadi satu dimensi atau multi dimensi. Array satu dimensi seperti daftar item atau meja yang terdiri dari satu baris atau satu kolom item barang. Sebuah array dua dimensi akan menjadi tabel item yang membentuk baris dan kolom. Sedangkan format untuk sebuah array satu dimensi ArrayName (x), format untuk array dua dimensi ArrayName (x, y) sedangkan array tiga dimensi ArrayName (x, y, z). Biasanya kita cukup menggunakan satu dimensi dan dua dimensi array, Anda hanya perlu menggunakan array dimensi yang lebih tinggi jika Anda perlu dengan masalah teknik atau bahkan beberapa problems. Mari kita menggambarkan array dengan tabel.
Table 16.1. Array Satu Dimensi
Student Name Name(1) Name(2) Name(3) Name(4) Name(5)
Table 16.2 Array Dua Dimensi
Name(1,1) Name(1,2) Name(1,3) Name(1,4)
Name(2,1) Name(2,2) Name(2,3) Name(2,4)
Name(3,1) Name(3,2) Name(3,3) Name(3,4)
7.3. Deklarasi Array
Format umum untuk menyatakan suatu array satu dimensi adalah sebagai berikut:
Dim arrayName(subs) as dataType
Dimana subs menunjukkan subskrip terakhir dalam array. contoh
Dim CusName(5) as String
CusName(1) CusName(2) CusName(3) CusName(4) CusName(5)
Contoh lain
Dim Count(100 to 500) as Integer
Deklarasi array terdiri dari elemet awal mulai dari 100 dan berkahir dengan 500.
Format umum untuk menyatakan suatu array dua dimensi adalah sebagai berikut:
Dim ArrayName(Sub1,Sub2) as dataType
Contoh
Dim StudentName(10,10)
Akan mendeklarasi tabel 10x10 berawal dari StudentName(1,1) sampai StudentName(10,10).
Tugas 7.1.
Kode
Dim studentName(10) As String
Dim num As Integer
Private Sub BtnaddName()
For num = 1 To 10
studentName(num) = InputBox("Enter the student name", "Enter Name", "", 1500, 4500)
If studentName(num) <> "" Then
Form1.Print studentName(num)
Else
End
End If
Next
End Sub
Program di atas menerima entri data melalui sebuah kotak input dan menampilkan entri dalam bentuk itu sendiri. Seperti yang anda lihat, program ini hanya akan memungkinkan user untuk memasukkan 10 nama setiap kali ia mengklik tombol start.
Dim studentName(10) As String
Dim num As Integer
Private Sub addName( )
For num = 1 To 10
studentName(num) = InputBox("Enter the student name")
List1.AddItem studentName(num)
Next
End Sub
Private Sub BtnStart_Click()
addName
End Sub
Program di atas menerima masukan data melalui sebuah InputBox dan menampilkan ListBox.
PRAKTIK 8
________________________________________
8.1. Membuat Aplikasi Basis Data dengan Data Control
Visual Basic memungkinkan kita untuk mengelola database yang dibuat dengan program database yang berbeda seperti MS Access, dBASE, Paradox dan lain-lain Dalam pelajaran ini, kita tidak menangani dengan cara membuat file database, tetapi kita akan melihat bagaimana kita dapat mengakses file database di VB lingkungan. Pada contoh berikut, kita akan menciptakan sebuah aplikasi database sederhana yang memungkinkan seseorang untuk menelusuri nama-nama pelanggan. Untuk membuat aplikasi ini, masukkan kontrol data ke dalam bentuk baru. Tempat data kontrol di suatu tempat di bagian bawah formulir. Nama kontrol data sebagai data_navigator. Untuk dapat menggunakan kontrol data, kita harus menghubungkannya ke database apapun. Kita bisa membuat database file dengan menggunakan aplikasi database tapi saya sarankan kita menggunakan file-file database yang datang dengan VB6. Mari pilih NWIND.MDB sebagai file database kami.
Untuk menghubungkan kontrol data ke database, klik dua kali properti DatabaseName di jendela properti dan pilih file di atas, yaitu NWIND.MDB. Selanjutnya, klik dua kali pada properti RecordSource untuk memilih tabel pelanggan dari database. Anda juga dapat mengubah keterangan dari kontrol data saya menggunakan "Klik untuk menelusuri Pelanggan". Setelah itu, kita akan menempatkan label dan mengubah keterangannya untuk Nama Pelanggan.
Kemudian, masukkan dua label, label pertama diberikan caption Customer Name dan berukutnya diberikan nama sebagai cus_name dan kosongkan caption label tersebut. Nama pelanggan akan muncul di sini ketika kita klik panah pada kontrol data. Kita perlu mengikat label ini dengan database. Untuk melakukan hal ini, buka label DataSource dan data_navigator pilih yang akan muncul secara otomatis. Satu hal lagi yang perlu kita lakukan adalah untuk mengikat label ke kolom yang benar sehingga data dalam bidang ini akan muncul pada label tersebut. Untuk melakukan hal ini, buka properti DataField dan pilih ContactName. Sekarang, tekan F5 dan menjalankan program. Anda harus dapat menelusuri nama-nama semua pelanggan dengan mengklik panah di kontrol data.
Anda juga dapat melakukannya untuk field atau kolom lain
Data kontrol mendukung beberapa metode yang berguna dalam memanipulasi database, misalnya, untuk memindahkan penunjuk ke lokasi tertentu. Berikut ini adalah beberapa perintah yang dapat Anda gunakan untuk memindahkan pointer di sekitar:
data_navigator.RecordSet.MoveFirst
'Pindah ke record pertama
data_navigator.RecordSet.MoveLast
'Pindah ke record terakhir
data_navigator.RecordSet.MoveNext
'Pindah ke record berikutnya
data_navigator.RecordSet.Previous
'Pindah ke record pertama
Anda juga dapat menambah, menyimpan dan menghapus rekaman menggunakan perintah berikut:
data_navigator.RecordSet.AddNew
' manambahkan record
data_navigator.RecordSet.Update
' mengedit dan menyimpan record
data_navigator.RecordSet.Delete
' Menghapus record
Tugas 8.1.
Kode Form
Private Sub Command2_Click()
dtaBooks.Recordset.MoveFirst
End Sub
Private Sub Command1_Click()
dtaBooks.Recordset.MoveNext
End Sub
Private Sub Command3_Click()
dtaBooks.Recordset.MovePrevious
End Sub
Private Sub Command4_Click()
dtaBooks.Recordset.MoveLast
End Sub
8.2. Membuat Aplikasi Basis Data dengan ADO Control
Kita telah belajar bagaimana untuk membangun aplikasi database VB menggunakan kontrol data. Namun, data kontrol bukan alat yang sangat fleksibel karena hanya bisa bekerja dengan jenis data yang terbatas dan harus bekerja keras di lingkungan Visual Basic. Untuk mengatasi keterbatasan ini, kita dapat menggunakan data kontrol jauh lebih kuat dalam Visual Basic, yang dikenal sebagai ADO Control. ADO adalah singkatan dari ActiveX Data Objek. Seperti ActiveX ADO bekerja di platform yang berbeda (sistem komputer yang berbeda) dan bahasa pemrograman yang berbeda. Selain itu dapat mengakses berbagai macam data seperti data yang ditampilkan dalam browser Internet, email dan bahkan teks grafis selain informasi relasional dan non database relasional biasa.
Untuk dapat menggunakan kontrol ADO data, Anda harus memasukkan ke dalam Tools box. Untuk melakukannya, cukup tekan Ctrl + T untuk membuka kotak dialog Components dan pilih Microsoft ActiveX Data Control 6. Setelah itu, Anda dapat melanjutkan untuk membangun aplikasi berbasis ADO VB database Anda.
Tugas berikut akan menggambarkan bagaimana membangun suatu aplikasi database yang relatif kuat dengan menggunakan kontrol ADO data.
Pertama, ubah nama form menjadi frmBookTitle dan ubah Captionnya menjadi Book Titles- ADO Application.
Kedua, memasukkan kontrol ADO Data dan ubah namanya sebagai adoBooks dan mengubah Caption-nya Book.
Berikutnya, masukkan label yang diperlukan, kotak teks dan tombol perintah. Antarmuka runtime dari program ini ditampilkan dalam diagram di bawah ini, memungkinkan penambahan dan penghapusan serta memperbarui dan browsing data.
Tugas 8.2.
Form
Semua Properties kontrol adalah sebagi berikut:
Form Name frmBookTitle
Form Caption Book Titles -ADOApplication
ADO Name adoBooks
Label1 Name lblApp
Label1 Caption Book Titles
Label 2 Name lblTitle
Label2 Caption Title :
Label3 Name lblYear
Label3 Caption Year Published:
Label4 Name lblISBN
Label4 Caption ISBN:
Labe5 Name lblPubID
Label5 Caption Publisher's ID:
Label6 Name lblSubject
Label6 Caption Subject :
TextBox1 Name txtitle
TextBox1 DataField Title
TextBox1 DataSource adoBooks
TextBox2 Name txtPub
TextBox2 DataField Year Published
TextBox2 DataSource adoBooks
TextBox3 Name TxtISBN
TextBox3 DataField ISBN
TextBox3 DataSource AdoBooks
TextBox4 Name TxtPubID
TextBox4 DataField PubID
TextBox4 DataSource AdoBooks
TextBox5 Name TxtSubject
TextBox5 DataField Subject
TextBox5 DataSource AdoBooks
Command Button1 Name CmdSave
Command Button1 Caption &Save
Command Button2 Name CmdAdd
Command Button2 Caption &Add
Command Button3 Name CmdDelete
Command Button3 Caption &Delete
Command Button4 Name CmdCancel
Command Button4 Caption &Cancel
Command Button5 Name CmdPrev
Command Button5 Caption &< Command Button6 Name CmdNext Command Button6 Caption &>
Command Button7 Name CmdExit
Command Button7 Caption E&xit
Ikuti tahapan ini untuk menghubungkan ADO Control dengan Database
Kita akan menggunakan BIBLIO.mdb sebagai databasenya.
a. Klik Ado Control pada form kemudian pilih propertinya
b. Klik property ConnectionString maka window berikut akan tampil
c. Pilih Use Connection String dan kemudian tekan tombol Build maka akan tampil window berikut
d. Pilih Microsoft Jet 3.51 OLE DB Provider dan kemudian tekan tombol Next
e. Pilih File BIBLIO.mdb
f. Tekan OK untuk selesai
g. Terakhir, klik pada properti RecordSource dan menetapkan Command Type menjadi adCmd Table dan pilih Title pada bagian Table or Store Procedur Name. Sekarang Anda siap untuk menggunakan database file.
h. Selanjutnya anda perlu menuliskan kode. ADO kontrol juga bisa anda buat tidak terlihat
Kode
Untuk tombol Save:
Private Sub cmdSave_Click()
adoBooks.Recordset.Fields("Title") = txtTitle.Text
adoBooks.Recordset.Fields("Year Published") = txtPub.Text
adoBooks.Recordset.Fields("ISBN") = txtISBN.Text
adoBooks.Recordset.Fields("PubID") = txtPubID.Text
adoBooks.Recordset.Fields("Subject") = txtSubject.Text
adoBooks.Recordset.Update
End Sub
Untuk tombol Add:
Private Sub cmdAdd_Click()
adoBooks.Recordset.AddNew
End Sub
Untuk tombol Delete:
Private Sub cmdDelete_Click()
Confirm = MsgBox("Are you sure you want to delete this record?", vbYesNo, "Deletion Confirmation")
If Confirm = vbYes Then
adoBooks.Recordset.Delete
MsgBox "Record Deleted!", , "Message"
Else
MsgBox "Record Not Deleted!", , "Message"
End If
End Sub
Untuk tombol Cancel:
Private Sub cmdCancel_Click()
txtTitle.Text = ""
txtPub.Text = ""
txtPubID.Text = ""
txtISBN.Text = ""
txtSubject.Text = ""
End Sub
Untuk tombol Previous (<) Private Sub cmdPrev_Click() If Not adoBooks.Recordset.BOF Then adoBooks.Recordset.MovePrevious If adoBooks.Recordset.BOF Then adoBooks.Recordset.MoveNext End If End If End Sub Untuk tombol Next(>)
Private Sub cmdNext_Click()
If Not adoBooks.Recordset.EOF Then
adoBooks.Recordset.MoveNext
If adoBooks.Recordset.EOF Then
adoBooks.Recordset.MovePrevious
End If
End If
End Sub
Tugas 8.3.
Anda akan membuat aplikasi database ADO untuk mengelola perpustakaan di rumah Anda. Pertama-tama, buat database di MS Access dengan nama pustaka.mdb. Di database ini, buat tabel dengan nama field berikut;
Judul
Pengarang
Penerbit
Tahun
Kategori
Buatlah program dengan cara seperti pada tugas 8.2.
PRAKTIK 9
________________________________________
9.1. Menggunakan Datagrid Control 6.0
Dalam bab sebelumnya, kita menggunakan textboxes untuk menampilkan data dengan menghubungkan mereka ke database melalui Microsoft ADO Data Control 6.0. Textbox ini tidak hanya pengendalian juga dapat menampilkan data dari database, kontrol lainnya dalam Visual Basic dapat menampilkan data. Salah satu satunya adalah kontrol datagrid. Datagrid kontrol dapat digunakan untuk menampilkan seluruh tabel dari suatu recordset dari database. Hal ini memungkinkan pengguna untuk melihat dan mengedit data.
kontrol Datagrid adalah bukan item default dalam Tools Box, Anda harus menambahkannya dari VB6 komponen. Untuk menambahkan kontrol datagrid, klik pada proyek di menu bar dan pilih komponen mana kotak dialog yang menampilkan semua yang tersedia VB6 komponen. Pilih Microsoft Datagrid 6,0 Control dengan mengklik kotak centang di sebelah item tersebut (gambar 9.1). Sebelum Anda keluar dari kotak dialog, Anda juga perlu memilih Microsoft ADO Data control, sehingga Anda dapat mengakses database. Terakhir, klik tombol OK untuk keluar dari kotak dialog. Sekarang Anda dapat melihat bahwa kontrol Datagrid dan ADO Data kontrol ditambahkan ke Tools Box. Langkah berikutnya adalah untuk menarik kontrol datagrid dan ADO Data kontrol ke dalam form. Seperti gambar 9.2.
Gambar 9.1
Gambar 9.2
Sebelum Anda melanjutkan, Anda perlu membuat sebuah file database menggunakan Microsoft Access. Di sini saya membuat sebuah file untuk menyimpan informasi buku dan saya beri nama tabel book. Setelah Anda telah menciptakan tabel, masukan beberapa data. Tabel ditunjukkan berikut ini:
Gambar 9.3
Sekarang Anda perlu menghubungkan database ke ADO Data Control. Untuk melakukannya, klik kanan pada kontrol data ADO dan pilih ADODC properti, kotak dialog berikut akan muncul. (sama halnya pada praktik sebelumnya).
Gambar 9.4
Klik Next pada tombol Build dan Data Link Properties akan muncul kotak dialog (seperti yang ditunjukkan di bawah ini). Dalam kotak dialog, pilih file database yang telah Anda buat, dalam kasus saya, nama file books.mdb. uji koneksi Tekan untuk melihat apakah koneksi berhasil. Jika sambungan berhasil, klik OK untuk kembali ke halaman kotak dialog properti ADODC. Pada halaman kotak dialog properti ADODC, klik pada tab Recordsource dan pilih 2-adCmdTable bawah komando jenis dan buku pilih sebagai nama tabel, kemudian klik OK.
Gambar 9.5
Gambar 9.6
Akhirnya anda butuh untuk menampilkan data di datagrid control. Untuk mencapai hal ini, buka ke jendela properti dan mengatur properti DataSource dari datagrid untuk Adodc1. Anda juga dapat mengizinkan pengguna untuk menambahkan dan mengedit catatan Anda dengan menyetel properti AllowUpdate untuk Benar. Jika Anda mengeset properti ini ke false, pengguna tidak dapat mengedit catatan. Sekarang menjalankan program dan jendela output ditunjukkan berikut ini:
Gambar 9.7
9.2. Menggunakan SQL Query
Dalam bab sebelumnya, kita telah belajar untuk menggunakan Control Datagrid untuk menampilkan data dari database. Namun, tidak memungkinkan pengguna untuk mencari dan memilih informasi yang mereka ingin lihat. Dalam rangka untuk mencari suatu informasi tertentu, kita perlu menggunakan query SQL. SQL singkatan dari Struktur Query Language. Menggunakan SQL, kita dapat memilih informasi spesifik yang harus ditampilkan berdasarkan kriteria tertentu. SQL yang paling mendasar adalah SELECT, digunakan bersama dengan kata kunci FROM untuk memilih informasi dari satu atau lebih tabel dari database. Sintaksnya adalah:
SELECT fieldname1,fieldname2,.....,fieldnameN FROM TableName
fieldname1, fieldname2 ,...... fieldnameN adalah nama dari kolom di tabel database. Anda dapat memilih jumlah fieldname dalam query. Jika Anda ingin memilih semua informasi, Anda dapat menggunakan sintaks berikut:
SELECT * FROM TableName
Untuk menggambarkan penggunaan query SQL, kita dapat menggunakan tabel pada paktik sebelumnya.
Kemudian buatlah form sebagai berikut:
Tugas 9.1
Gambar 9.8
Kemudian koneksikan dengan ADO data control
Gambar 9.9
Berikutnya adalah membuat kode untuk masing-masing tombolnya
Tombol Display Author:
Private Sub cmdAuthor_Click()
Adodc1.RecordSource = "SELECT Author FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
Tombol Display Book Title:
Private Sub cmdTitle_Click()
Adodc1.RecordSource = "SELECT Title FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
Tombol Display All:
Private Sub cmdAll_Click()
Adodc1.RecordSource = "SELECT * FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
Gambar 9.10
Gambar 9.11
Gambar 9.12
9.3. Menggunakan Kata Kunci SQL Query
Dalam pelajaran ini, Anda akan belajar menggunakan kata kunci lain. Salah satu kata kunci yang penting adalah WHERE. Kata kunci ini memungkinkan pengguna untuk mencari data yang memenuhi kriteria tertentu. Sintaks adalah sebagai berikut:
SELECT fieldname1,fieldname2,.....,fieldnameN FROM TableName WHERE Criteria
Kriteria dapat secara khusus menggunkana operators seperti =, >,<, <=, >=, <> and Like.
Menggunakan books.mdb database yang dibuat dalam bab sebelumnya, kita akan menunjukkan beberapa contoh. Pertama-tama, memulai sebuah proyek baru dan menyisipkan Datagrid Control dan ADO Data Control ke dalam form. Pada halaman kotak dialog properti ADODC, klik pada tab Recordsource lalu pilih 1-adCmdText bawah ketik perintah dan di bawah Command Text (SQL) kunci dalam SELECT * FROM buku.
Berikutnya, masukkan satu textbox dan meletakkannya di atas kontrol datagrid, ini akan menjadi tempat dimana pengguna dapat memasukkan teks query SQL.
Masukkan satu command buttom dan mengubah caption menjadi Query. Interface desain ditunjukkan berikut ini:
Gambar 9.14
Tambahkan kode berikut pada tombol Query
Private Sub Command1_Click()
Adodc1.RecordSource = Text1.Text
Adodc1.Refresh
End Sub
Kemudian lakukan penulisan perintah SQL sesuai gambar :
Gambar 9.15
Gambar 9.16
Gambar 9.17
Gambar 9.18
PRAKTIK 10
________________________________________
10.1. Lebih Lanjud Dengan Database
Dalam pelajaran ini, Anda akan belajar cara membuat aplikasi database yang lebih canggih dengan menggunakan kontrol ADO. Aplikasi Anda akan membuat dikenal sebagai perpustakaan elektronik. Perpustakaan elektronik ini akan dapat menerima pendaftaran pengguna serta penanganan perintah login yang memerlukan password user, dengan demikian meningkatkan aspek keamanan database. Pada dasarnya, aplikasi akan merupakan menu pembuka, menu registrasi, menu Login dan menu database utama. Urutan menu digambarkan sebagai berikut:
10.2. Lebih Lanjud Dengan Database Implementasi
Form Welcome
Pada form ini masukan tiga tombol perintah dan label. Setting setiap propertisnya sebagai berikut:
Form name main_menu
command button 1 Name cmdRegister
command button 1 Caption Register
command button 2 Name cmdLogin
command button 2 Caption Login
command button 3 Name cmdCancel
command button 3 Caption Cancel
Kemudian kode sebagai berikut:
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmdLogin_Click()
main_menu.Hide
Login_form.Show
End Sub
Private Sub cmdRegister_Click()
main_menu.Hide
Register.Show
End Sub
Form Registration
Properti sebagai berikut:
Form name Register
textbox 1 name txtName
textbox 2 name txtpassword
textbox 2 PasswordChar *
command button 1 name cmdConfirm
command button 1 Caption Confirm
command button 2 name cmdClear
command button 2 Caption Clear
command button 3 name cmdCancel
command button 3 Caption Cancel
ADO control name UserInfo
Catatan bahwa PasswordChar dari textbox 2 ditetapkan sebagai * yang berarti pengguna tidak akan dapat melihat karakter yang sebenarnya mereka masuk, mereka hanya akan melihat simbol *
Kemudian kode sebagai berikut:
Private Sub cancel_Click( )
End
End Sub
Private Sub cmdClear_Click( )
txtName.Text = ""
txtpassword.Text = ""
End Sub
Private Sub cmdConfirm_Click()UserInfo.Recordset.Fields("username") = txtName.Text
UserInfo.Recordset.Fields("password") = txtpassword.Text
UserInfo.Recordset.Update
Register.Hide
Login_form.Show
End Sub
Private Sub Form_Load()
UserInfo.Recordset.AddNew
End Sub
Form Login
Properti sebagai berikut:
Textbox 1 name txtName
Textbox 2 name txtpassword
Command button 1 name cmdLogin
Command button 1 Caption Login
Form name Login_form
Kemudian kode sebagai berikut:
Private Sub cmdLogin_Click()
Dim usrname As String
Dim psword As String
Dim usernam As String
Dim pssword As String
Dim Msg As String
Register.UserInfo.Refresh
usrname = txtName.Text
psword = txtpassword.Text
Do Until Register.UserInfo.Recordset.EOF
If Register.UserInfo.Recordset.Fields("username").Value = usrname And
Register.UserInfo.Recordset.Fields("password").Value = psword Then
Login_form.Hide
frmLibrary.Show
Exit Sub
Else
Register.UserInfo.Recordset.MoveNext
End If
Loop
Msg = MsgBox("Invalid password, try again!", vbOKCancel)
If (Msg = 1) Then
Login_form.Show
txtName.Text = ""
txtpassword = ""
Else
End
End If
End Sub
Form Data Buku
Properti sebagai berikut:
Form name frmLibrary
ADO control name adoLibrary
ADO visible False
TextBox 1 name txtTitleA
TextBox 2 name txtAuthor
TextBox 3name txtPublisher
TextBox 4 name txtYear
TextBox 5 name txtCategory
Command button 1 name cmdSave
Command button 1 caption &Save
Command button 2 name cmdNew
Command button 2 caption &New
Command button 3 name cmdDelete
Command button 3 caption &Delete
Command button 4 name cmdCancel
Command button 4 caption &Cancel
Command button 5 name cmdNext
Command button 5 caption N&ext
Command button 6 name cmdPrevious
Command button 6 caption &Previous
Command button 7 name cmdExit
Command button 7 caption E&xit
Kemudian kode sebagai berikut:
Private Sub cmdCancel_Click()
txtTitle.Text = ""
txtAuthor.Text = ""
txtPublisher.Text = ""
txtYear.Text = ""
txtCategory.Text = ""
End Sub
Private Sub cmdDelete_Click()
Confirm = MsgBox("Are you sure you want to delete this record?", vbYesNo, "Deletion
Confirmation")
If Confirm = vbYes Then
adoLibrary.Recordset.Delete
MsgBox "Record Deleted!", , "Message"
Else
MsgBox "Record Not Deleted!", , "Message"
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdNew_Click()
adoLibrary.Recordset.AddNew
End Sub
Private Sub cmdNext_Click()
If Not adoLibrary.Recordset.EOF Then
adoLibrary.Recordset.MoveNext
If adoLibrary.Recordset.EOF Then
adoLibrary.Recordset.MovePrevious
End If
End If
End Sub
Private Sub cmdPrevious_Click()
If Not adoLibrary.Recordset.BOF Then
adoLibrary.Recordset.MovePrevious
If adoLibrary.Recordset.BOF Then
adoLibrary.Recordset.MoveNext
End If
End If
End Sub
Private Sub cmdSave_Click()
adoLibrary.Recordset.Fields("Title").Value = txtTitle.Text
adoLibrary.Recordset.Fields("Author").Value = txtAuthor.Text
adoLibrary.Recordset.Update
End Sub
1.1. Konsep Pemrograman Komputer
Sebelum kita mulai Visual Basic 6 pemrograman, mari kita memahami beberapa konsep dasar pemrograman. Menurut Webopedia, program komputer merupakan daftar instruksi yang terorganisir, ketika dijalankan, menyebabkan komputer untuk berperilaku yang telah ditetapkan. Tanpa program, komputer tidak berguna. Oleh karena itu, pemrograman berarti merancang atau membuat satu set instruksi untuk meminta komputer untuk melaksanakan pekerjaan tertentu yang biasanya sangat jauh lebih cepat daripada manusia dapat lakukan.
Banyak orang berpikir bahwa komputer CPU adalah hal yang sangat cerdas, yang pada kenyataannya adalah benda mati yang bodoh dan dapat berbuat apa-apa tanpa asisten manusia. The microchip dari sebuah CPU hanya dapat memahami listrik dua negara yang berbeda, yaitu hidup dan mati, atau 0 dan 1 kode dalam sistem biner. Jadi, CPU hanya memahami suatu kombinasi 0 dan 1 kode, suatu bahasa yang disebut bahasa mesin kita. bahasa mesin sangat sulit untuk belajar dan tidak bagi kita orang awam untuk menguasai dengan mudah. Untungnya, kita memiliki banyak programmer yang cerdas yang menulis interpreter dan compiler yang dapat menerjemahkan program bahasa-seperti manusia seperti BASIC ke dalam bahasa mesin agar komputer dapat melaksanakan instruksi dimasukkan oleh pengguna. Mesin bahasa dikenal sebagai bahasa primitif sementara Interpreters dan compiler seperti Visual Basic disebut bahasa tingkat tinggi. Beberapa bahasa komputer tingkat tinggi di samping Visual Basic adalah Fortran, Cobol, Java, C, C + +, Turbo Pascal, dan sebagainya.
1.2. Apa itu Visual Basic ?
VISUAL BASIC adalah bahasa pemrograman tingkat tinggi yang berkembang dari versi DOS sebelumnya disebut BASIC. DASAR-tujuan berarti Semua Beginners 'Symbolic Instruction Code. Ini adalah bahasa pemrograman yang sangat mudah dipelajari. Kode mirip sekali dengan Bahasa Inggris. perusahaan perangkat lunak yang berbeda dihasilkan berbeda dari versi BASIC, seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA dan sebagainya. Namun, tampaknya hanya orang-orang menggunakan Microsoft Visual Basic hari ini, karena merupakan bahasa pemrograman yang dikembangkan dengan baik dan mendukung sumber daya yang tersedia di mana-mana. Sekarang, ada banyak versi VB ada di pasar, yang paling populer dan masih banyak digunakan oleh banyak programmer VB tidak lain dari Visual Basic 6. Kami juga memiliki VB.net, VB2005 dan VB2008 terbaru, yang merupakan sepenuhnya pemrograman berorientasi objek (OOP) bahasa. Hal ini lebih kuat daripada VB6 tapi tampak lebih rumit untuk menguasai.
VISUAL BASIC adalah Bahasa Pemrograman Visual berbasis Event Driven. Ini adalah perbedaan utama dari BASIC. Dalam BASIC, pemrograman dilakukan dalam lingkungan teks saja dan program ini dijalankan secara berurutan. Dalam VB, pemrograman dilakukan dalam lingkungan grafis. Dalam BASIC, Anda harus menulis kode program untuk setiap objek grafis yang ingin Anda tampilkan pada layar, termasuk posisi dan warnanya. Namun, Dalam VB, Anda hanya perlu menarik dan melepas semua objek grafis mana saja di sebuah form, dan Anda dapat mengubah warna setiap saat dengan menggunakan jendela properti.
Di sisi lain, karena pengguna dapat mengklik pada objek tertentu secara acak, sehingga setiap obyek harus diprogram secara independen untuk dapat menanggapi tindakan-tindakan (kejadian). Oleh karena itu, Program VB terdiri dari subprogram banyak, masing-masing memiliki program kode sendiri, dan masing-masing dapat dijalankan secara independen dan pada saat yang sama masing-masing dapat dihubungkan bersama dalam satu atau lain cara.
1.3. Program Apa Yang Dapat Anda Ciptakan Di VB?
Dengan VB 6, Anda dapat membuat program apapun tergantung pada tujuan Anda. Misalnya, jika Anda seorang dosen perguruan tinggi atau universitas, Anda dapat membuat program-program pendidikan untuk mengajar bisnis, ekonomi, teknik, ilmu komputer, akuntansi, manajemen keuangan, sistem informasi dan lebih untuk membuat pengajaran lebih efektif dan menarik. Jika Anda berada dalam bisnis, Anda juga dapat membuat program-program bisnis seperti sistem manajemen inventori, point-sistem-penjualan, sistem penggajian, program keuangan serta program akuntansi untuk membantu mengelola bisnis Anda dan meningkatkan produktivitas. Bagi anda yang suka permainan dan bekerja sebagai programmer game, Anda dapat membuat program-program juga.
1.4. Visual Basic Integrated Development Envronment
Sebelum Anda dapat program VB 6, anda perlu menginstal Visual Basic 6 di komputer Anda. Jika Anda tidak memiliki salinan perangkat lunak Visual Basic 6 belum, Anda dapat membeli dari Amazon.com.
Pada dasarnya setiap sistem komputer ini harus mampu menjalankan program, baik itu Intel Pentium II, Intel Pentium III, Intel Pentium IV atau AMD bahkan mesin, Visual Basic 6 dapat berjalan tanpa masalah. Ini mungkin tidak berlaku untuk VB2008, mesin tua yang tidak mungkin dapat menjalankan VB2008 karena membutuhkan banyak sumber daya lebih, karena itu saya masih lebih suka VB 6 karena ringan dan mudah program.
Gambar 1.1.
Hal ini masih sangat berguna dan kuat, dan saya senang mengetahui bahwa Microsoft Windows Vista dapat mendukung VB 6.
Pada saat start up, Visual Basic 6.0 akan menampilkan kotak dialog berikut seperti pada gambar 1.1. Anda bisa memilih untuk memulai sebuah proyek baru, membuka proyek yang telah ada atau pilih daftar program baru dibuka. proyek adalah kumpulan file yang membentuk aplikasi anda. Ada berbagai jenis aplikasi yang kita dapat menciptakan, bagaimanapun, kami akan memusatkan perhatian pada penciptaan Standar program EXE (EXE berarti program dieksekusi). Sekarang, klik pada icon EXE Standar untuk masuk ke dalam Visual Basic 6 aktual lingkungan pemrograman.
1.5. Membuat Aplikasi Pertama Anda
Pertama-tama, Anda harus memulai Microsoft Visual Basic 6. Biasanya, bentuk default dengan nama Form1 akan tersedia bagi Anda untuk memulai proyek baru Anda. Sekarang, klik dua kali pada Form1, kode sumber untuk jendela Form1 seperti pada gambar 2,1 akan muncul. Bagian atas jendela kode sumber terdiri dari daftar objek dan peristiwa yang terkait atau prosedur. Dalam gambar 1.2, yang ditampilkan adalah objek Formulir dan prosedur yang terkait adalah beban.
Kode Form
Private Sub Form_Load ( )
Form1.show
Print “Welcome to Visual Basic tutorial”
End Sub
Private Sub Form_Activate ( )
Print 20 + 10
Print 20 - 10
Print 20 * 10
Print 20 / 10
End Sub
Private Sub
A = Tom
B = “likes"
C = “to"
D = “eat"
E = “burger"
Print A + B + C + D + E
End Sub
ATAU
Private Sub
A = Tom
B = “likes"
C = “to"
D = “eat"
E = “burger"
Print A & B & C & D & E
End Sub
1.6. Kontrol Propertis
Sebelum menulis event prosedur untuk kontrol respon terhadap masukan pengguna, Anda harus mengeset properti tertentu untuk kontrol untuk menentukan penampilan dan bagaimana akan bekerja dengan event prosedur. Anda dapat mengatur properti dari kontrol pada jendela properti atau pada saat runtime.
Anda dapat mengubah nama form. Pada jendela properti, item muncul di bagian teratas adalah objek yang sedang dipilih (pada Gambar 3.1, objek yang dipilih adalah Form1). Pada bagian bawah, item yang tercantum di kolom kiri merupakan nama-nama berbagai properti yang berhubungan dengan objek yang dipilih sedangkan item yang tercantum di kolom kanan mewakili negara bagian properti. Properties dapat diatur dengan menyorot item dalam kolom kanan kemudian mengubah mereka dengan mengetik atau memilih pilihan yang tersedia.
Sebagai contoh, untuk mengubah keterangan, hanya sorot Form1 Caption di bawah nama dan mengubahnya menjadi nama lain. Anda juga dapat mencoba untuk mengubah penampilan bentuk dengan menetapkan ke 3D atau flat. Hal-hal lain yang dapat Anda lakukan adalah untuk mengubah warna latar depan dan latar belakang, mengubah jenis font dan ukuran font, mengaktifkan atau menonaktifkan meminimalkan dan memaksimalkan tombol dan lain-lain
Anda juga dapat mengganti properti di runtime untuk memberikan efek khusus seperti perubahan warna, bentuk, efek animasi dan sebagainya. Misalnya kode berikut ini akan mengubah warna merah formulir setiap kali membentuk dimuat. VB menggunakan sistem heksadesimal untuk mewakili warna. Anda dapat memeriksa kode warna dalam jendela sifat yang muncul di bawah ForeColor dan BackColor.
Private Sub Form_Load()
Form1.Show
Form1.BackColor = &H000000FF&
End Sub
1.7. Penanganan beberapa Kontrol Umum
1.7.1. TextBox
TextBox adalah kontrol standar untuk menerima input dari user serta untuk menampilkan output. Ia bisa menangani string (text) dan data numerik tetapi tidak foto atau gambar. String dalam TextBox dapat dikonversi menjadi data numerik dengan menggunakan fungsi Val (text).
1.7.2. Label
Label adalah kontrol yang sangat berguna untuk Visual Basic, karena tidak hanya digunakan untuk memberikan instruksi dan panduan bagi pengguna, juga dapat digunakan untuk menampilkan output. Salah satu sifat yang paling penting adalah Caption. Menggunakan sintaks label.Caption, dapat menampilkan teks dan data numerik. Anda dapat mengubah keterangannya di jendela properti dan juga pada runtime.
1.7.3. Command Buttom
Command Buttom adalah salah satu kontrol yang paling penting karena digunakan untuk menjalankan perintah. Ini menampilkan ilusi bahwa tombol ditekan ketika klik pengguna di atasnya. Peristiwa yang paling umum yang terkait dengan Command Buttom adalah event Klik, dan sintaks untuk prosedur ini
Private Sub Command1_Click ()
Statements
End Sub
1.7.4. Picture Box
Picture Box adalah salah satu kontrol yang digunakan untuk menangani grafis. Anda dapat memuat gambar pada tahap desain dengan mengklik pada item gambar di jendela properti dan pilih gambar dari folder yang dipilih. Anda juga dapat memuat gambar saat runtime dengan menggunakan metode LoadPicture. Sebagai contoh, pernyataan itu akan memuat grape.gif gambar ke dalam kotak gambar.
Picture1.Picture=LoadPicture ("C:\VB program\Images\grape.gif")
1.7.5. Image Box
Image Box adalah kontrol lain yang menangani foto dan gambar. Berfungsi hampir identik ke kotak gambar. Namun, ada satu perbedaan utama, gambar dalam sebuah gambar Box diregang, yang berarti dapat diubah ukurannya. Fitur ini tidak tersedia di Kotak Gambar. Serupa dengan Kotak Gambar, juga dapat menggunakan metode LoadPicture untuk memuat gambar. Sebagai contoh, banyak pernyataan yang grape.gif gambar ke dalam kotak gambar.
Image1.Picture=LoadPicture ("C:\VB program\Images\grape.gif")
1.7.6. List Box
List Box adalah untuk menyajikan daftar item dimana pengguna dapat klik dan pilih item dari daftar. Untuk menambahkan item ke dalam daftar, kita dapat menggunakan metode AddItem. Misalnya, jika Anda ingin menambahkan beberapa item ke daftar kotak 1, Anda dapat memasukkan pernyataan berikut
Private Sub Form_Load ( )
List1.AddItem “Lesson1”
List1.AddItem “Lesson2”
List1.AddItem “Lesson3”
List1.AddItem “Lesson4”
End Sub
Item dalam List Box dapat diidentifikasi oleh properti ListIndex, nilai ListIndex untuk item pertama adalah 0, item kedua memiliki ListIndex 1, dan item kedua memiliki 2 ListIndex dan seterusnya
1.7.7. Combo Box
Combo Box juga untuk menampilkan daftar item dimana pengguna dapat klik dan pilih item dari daftar. Namun, kebutuhan pengguna untuk mengklik panah kecil di sebelah kanan kotak combo untuk melihat benda-benda yang disajikan dalam daftar drop-down. Untuk menambahkan item ke dalam daftar, Anda juga dapat menggunakan metode AddItem. Misalnya, jika Anda ingin menambahkan beberapa item ke kotak Combo 1, Anda dapat memasukkan pernyataan berikut:
Private Sub Form_Load ( )
Combo1.AddItem “Item1”
Combo1.AddItem “Item2”
Combo1.AddItem “Item3”
Combo1.AddItem “Item4”
End Sub
1.7.8. Check Box
Check Box memungkinkan pengguna memilih atau tidak memilih pilihan. Ketika Check Box diperiksa, nilainya di set ke 1 bila dicentang, nilai tersebut ditetapkan ke 0 jika tidak di centang. Anda dapat menyertakan laporan Check1.Value = 1 untuk menandai Check Box dan Check1.Value = 0 untuk menghapus tanda Check Box, serta menggunakannya untuk melakukan tindakan tertentu. Misalnya, program akan mengubah warna latar belakang formulir ke merah saat Check Box dicentang dan akan berubah menjadi biru ketika Check Box dicentang. Anda akan belajar tentang pernyataan kondisional IF ... THEN ..... ELSEIF dalam pelajaran nanti. VbRed dan vbBlue adalah konstanta warna dan BackColor adalah warna latar belakang milik formulir.
Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 0 Then
MsgBox "Apple is selected"
ElseIf Check2.Value = 1 And Check1.Value = 0 Then
MsgBox "Orange is selected"
Else
MsgBox "All are selected"
End If
End Sub
1.7.9. Option Box
Option Box juga memungkinkan pengguna memilih salah satu pilihan. Namun, dua atau lebih Option box harus bekerja sama karena sebagai salah satu opsi box dipilih, box Pilihan lainnya tidak akan dipilih. Bahkan, hanya satu Option Box dapat dipilih pada satu waktu. Ketika kotak pilihan yang dipilih, nilainya adalah set "Benar" dan bila tidak dipilih; nilai diatur ke "Salah". Pada contoh berikut, bentuk kontrol ditempatkan dalam bentuk bersama-sama dengan enam Opsi box. Bila pengguna mengklik kotak pilihan yang berbeda, bentuk yang berbeda akan muncul. Nilai dari bentuk kontrol adalah 0, 1, dan 2,3,4,5 yang akan membuatnya muncul sebagai persegi panjang, persegi, bentuk oval, bulat segi empat dan bulat persegi masing-masing.
Private Sub Option1_Click ( )
Shape1.Shape = 0
End Sub
Private Sub Option2_Click()
Shape1.Shape = 1
End Sub
Private Sub Option3_Click()
Shape1.Shape = 2
End Sub
Private Sub Option4_Click()
Shape1.Shape = 3
End Sub
Private Sub Option5_Click()
Shape1.Shape = 4
End Sub
Private Sub Option6_Click()
Shape1.Shape = 5
End Sub
1.7.10. Drive List Box
Drive ListBox adalah untuk menampilkan daftar drive yang tersedia di komputer Anda. Bila Anda menempatkan kontrol ini ke dalam form dan menjalankan program, Anda akan dapat memilih drive yang berbeda dari komputer Anda seperti ditunjukkan pada Gambar 1.3
Directory List Box
Directory List Box adalah untuk menampilkan daftar direktori atau folder dalam drive yang dipilih. Bila Anda menempatkan kontrol ini ke dalam form dan menjalankan program, Anda akan dapat memilih direktori yang berbeda dari drive yang dipilih di komputer Anda.
File List Box
File List Box adalah untuk menampilkan daftar file dalam direktori atau folder yang dipilih. Bila Anda menempatkan kontrol ini ke dalam form dan menjalankan program, Anda akan dapat ditampilkan daftar file dalam suatu direktori yang dipilih seperti ditunjukkan pada Gambar 1.5
Anda dapat mengkoordinasikan Drive List Box, Direktori Daftar Box dan Box Daftar File untuk mencari file yang Anda inginkan.
Kode Form
Private Sub Command1_Click()
‘To add the values in text box 1 and text box 2
Sum = Val(Text1.Text) + Val(Text2.Text)
‘To display the answer on text3
Text3.text= Sum
End Sub
PRAKTIK 2
________________________________________
Tipe Data
Ada banyak jenis data yang kita temukan dalam kehidupan sehari-hari. Sebagai contoh, kita perlu untuk menangani data seperti nama, alamat, uang, tanggal, harga saham, statistik dan lain-lain. Demikian pula dalam Visual Basic, kita harus menangani semua jenis data, beberapa dapat dihitung secara matematis sedangkan beberapa dalam bentuk teks atau bentuk lainnya. VB membagi data ke dalam jenis yang berbeda sehingga lebih mudah dikelola bila kita perlu menulis kode yang melibatkan data tersebut.
Visual Basic mengklasifikasikan informasi yang disebutkan di atas menjadi dua jenis data yang besar, mereka adalah tipe data numerik dan data non-numerik jenis.
Tipe Numarik
Numeric jenis tipe data yang berupa angka, yang dapat dihitung secara matematis dengan berbagai operator standar, misalnya tambah, minus, mengalikan, membagi dan banyak lagi. Contoh tipe data numerik adalah tinggi, berat, jumlah siswa di kelas, nilai-nilai saham, harga barang, tagihan bulanan, biaya dan lain-lain. Dalam Visual Basic, data numerik dibagi menjadi 7 jenis, tergantung pada rentang nilai mereka dapat menyimpan. Perhitungan yang hanya melibatkan angka bulat atau data yang tidak membutuhkan presisi dapat menggunakan Integer atau Long dalam perhitungan. Program yang membutuhkan perhitungan presisi tinggi perlu menggunakan data Single dan Double, mereka juga disebut angka floating point. Untuk perhitungan mata uang, Anda dapat menggunakan jenis currency. Terakhir, jika lebih presisi diperlukan untuk melakukan perhitungan yang melibatkan banyak titik desimal, kita dapat menggunakan tipe data desimal. Tipe data ini diringkas dalam Tabel 2.1
Numeric Data Types
Type Storage Range of Values
Byte 1 byte 0 to 255
Integer 2 bytes -32,768 to 32,767
Long 4 bytes -2,147,483,648 to 2,147,483,648
Single 4 bytes -3.402823E+38 to -1.401298E-45 for negative values
1.401298E-45 to 3.402823E+38 for positive values.
Double 8 bytes -1.79769313486232e+308 to -4.94065645841247E-324 for negative values
4.94065645841247E-324 to 1.79769313486232e+308 for positive values.
Currency 8 bytes -922,337,203,685,477.5808 to 922,337,203,685,477.5807
Decimal 12 bytes +/- 79,228,162,514,264,337,593,543,950,335 if no decimal is use
+/- 7.9228162514264337593543950335 (28 decimal places).
Tipe Non - Numarik
Nonnumeric jenis tipe data yang tidak dapat dimanipulasi secara matematis dengan menggunakan operator aritmatika standar. Data non-numerik terdiri dari teks atau tipe data string, tipe data Date, tipe data Boolean yang hanya menyimpan dua nilai (true atau false), data jenis dan Varian Obyek tipe data. Mereka yang dirangkum dalam Tabel 2.2
Table 2.2: Nonnumeric Data Types
Data Type Storage Range
String(fixed length) Length of string 1 to 65,400 characters
String(variable length) Length + 10 bytes 0 to 2 billion characters
Date 8 bytes January 1, 100 to December 31, 9999
Boolean 2 bytes True or False
Object 4 bytes Any embedded object
Variant(numeric) 16 bytes Any value as large as Double
Variant(text) Length+22 bytes Same as variable-length string
Suffixes for Literal
Literal adalah nilai-nilai yang Anda tetapkan untuk data. Dalam beberapa kasus, kita perlu menambahkan akhiran di belakang literal sehingga VB dapat menangani perhitungan lebih akurat. Sebagai contoh, kita dapat menggunakan num = 1,3089# untuk tipe data Double. Beberapa akhiran akan ditampilkan pada Tabel 2.3.
Table 2.3
Suffix Data Type
& Long
! Single
# Double
@ Currency
Berikut adalah beberapa contoh:
memberName="Turban, John."
TelNumber="1800-900-888-777"
LastDay=#31-Dec-00#
ExpTime=#12:00 am#
Mengelola Variabel
Variabel seperti sebuah kotak surat di kantor pos. Isi variable dapat berubah setiap saat, seperti kotak surat. Dalam jangka waktu VB, variabel adalah area yang dialokasikan oleh memori komputer untuk menyimpan data. Seperti kotak surat, setiap variabel harus diberi nama. Untuk nama variabel dalam Visual Basic, Anda harus mengikuti seperangkat aturannya.
Nama Variabel
Berikut ini adalah aturan ketika penamaan variabel dalam Visual Basic
Ini harus kurang dari 255 karakter
Tidak ada spasi diperbolehkan
Tidak harus dimulai dengan angka
Periode tidak diizinkan
Valid Name Invalid Name
My_Car My.Car
ThisYear 1NewBoy
Long_Name_Can_beUSE He&HisFather *& is not acceptable
Mendeklarasi Variabel
Dalam Visual Basic, kita perlu menyatakan variabel sebelum menggunakannya dengan menetapkan nama dan tipe data. Mereka biasanya dinyatakan di bagian umum dari jendela kode dengan pernyataan Dim. Formatnya adalah sebagai berikut:
Dim Variable Name As Data Type
Contoh :
Dim password As String
Dim yourName As String
Dim firstnum As Integer
Dim secondnum As Integer
Dim total As Integer
Dim doDate As Date
Anda juga dapat menggabungkan mereka dalam satu baris, memisahkan setiap variabel dengan koma, sebagai berikut:
Dim password As String, yourName As String, firstnum As Integer,.............
Jika tipe data tidak ditentukan, otomatis VB akan mendeklarasikan variabel sebagai Variant.
Untuk deklarasi string, ada dua format mungkin, satu untuk variabel string panjang dan satu lagi untuk string tetap-panjang. Untuk string variabel-panjang, hanya menggunakan format yang sama sebagai contoh di atas 5,1. Namun, untuk string berukuran tetap, Anda harus menggunakan format seperti yang ditunjukkan di bawah ini:
Dim VariableName as String * n, dimana n mendefinisikan jumlah karakter string
Contoh:
Dim yourName as String * 10
yourName hanya dapat menyimpan tidak lebih dari 10 karakter.
Konstata
Konstanta berbeda dari variabel dalam arti bahwa nilai-nilai mereka tidak berubah selama menjalankan program. Forma untuk mendeklarasi konstata adalah
Const Constant Name As Data Type = Value
Contoh
Const Pi As Single=3.142
Const Temp As Single=37
Const Score As Single=100
Menetapkan Nilai ke Variabel
Setelah medeklarasikan dengan DIM kemudian kita akan menetapkan nilai ke variable dengan format sebagai berikut:
Variable=Expression
Variable dapat berupa variable yang telah dideklarasikan atau sebuah properti kontrol. Expression dapat berupa ekpresi matimatika, angka, string, Boolean (true atau false) dan lain-lain, contoh:
firstNumber=100
secondNumber=firstNumber-99
userName="John Lyan"
userpass.Text = password
Label1.Visible = True
Command1.Visible = false
Label4.Caption = textbox1.Text
ThirdNumber = Val(usernum1.Text)
total = firstNumber + secondNumber+ThirdNumber
Operator dalam Visual Basic
Untuk menghitung masukan dari pengguna dan untuk menghasilkan hasil, kita perlu menggunakan operator matematika. Dalam Visual Basic, operator adalah sebagai berikut:
Table 2.5: Arithmetic Operators
Operator Mathematical function Example
^ Exponential 2^4=16
* Multiplication 4*3=12, (5*6))2=60
/ Division 12/4=3
Mod Modulus(return the remainder from an integer division) 15 Mod 4=3 255 mod 10=5
\ Integer Division(discards the decimal places) 19\4=4
+ or & String concatenation "Visual"&"Basic"="Visual Basic"
Kode Keterangan
Dim firstName As String
Dim secondName As String
Dim yourName As String
Private Sub Command1_Click()
firstName = Text1.Text
secondName = Text2.Text
yourName = secondName + " " + firstName
Label1.Caption = yourName
End Sub
Tiga variabel dinyatakan sebagai string. Untuk variabel firstName dan secondName akan menerima data mereka dari masukan pengguna dalam textbox1 dan textbox2, dan variabel yourName akan diberikan data dengan menggabungkan dua variabel pertama. Akhirnya, yourName ditampilkan pada Label1.
Dim number1, number2, number3 as Integer
Dim total, average as variant
Private sub Form_Click
number1=val(Text1.Text)
number2=val(Text2.Text)
number3= val(Text3.Text)
Total=number1+number2+number3
Average=Total/5
Label1.Caption=Total
Label2.Caption=Average
End Sub
Tiga variabel dideklarasikan sebagai integer dan dua variabel dinyatakan sebagai varian. Varian variabel berarti dapat menyimpan semua jenis data. Program ini menghitung total dan rata-rata dari tiga angka yang dimasukkan ke dalam tiga TextBox.
PRAKTIK 3
________________________________________
Operator Kondisi
Untuk mengontrol aliran program VB, kita bisa menggunakan berbagai operator kondisional. Pada dasarnya, mereka menyerupai operator matematika. Program VB membandingkan nilai data dan kemudian memutuskan tindakan apa yang harus diambil, apakah untuk menjalankan suatu program atau menghentikan program dan banyak lagi. Operator ini ditunjukkan pada Tabel 3.1.
Conditional Operators
Operator Meaning
= Equal to
> More than
< Less Than >= More than and equal
<= Less than and equal <> Not Equal to
3.2. Operator Logika
Selain operator kondisional, ada beberapa operator logika yang ditambahkan ke program VB.
Logical Operators
Operator Meaning
And Both sides must be true
or One side or other must be true
Xor One side or other must be true but not both
Not Negates truth
* Anda juga dapat membandingkan string dengan operator di atas. Namun, ada aturan tertentu: huruf besar lebih kecil dari huruf kecil, "A" < "B" < "C" < "D ".......< "Z" dan angka lebih kecil dari huruf. 3.3. Menggunakan perintah If … Than … Else dengan operator Format sebagi berikut: If conditions Then VB expressions Else VB expressions End If * perintah If selalu diakhiri dnegan End If terkadang Else tidak diperlukan Tugas 3.1 Kode Keterangan Private Sub TextPraktek_Change() If Val(TextTeori) >= 60 And Val(TextPraktek) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextTeori_Change()
If Val(TextTeori) >= 60 And Val(TextPraktek) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextTeori_Change()
TextRata = (Val(TextTeori) + (Val(TextPraktek))) / 2
If Val(TextRata) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextPraktek_Change()
TextRata = (Val(TextTeori) + (Val(TextPraktek))) / 2
If Val(TextRata) >= 60 Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Private Sub TextNilai_Change()
If TextNilai = "A" Or TextNilai = "B" Or TextNilai = "C" Then
TextKeterangan = "LULUS"
Else
TextKeterangan = "GAGAL"
End If
End Sub
Menggunakan perintah Select Case....End select
Apabila kondisi logika program banyak perintah IF sudah tidak cocok kita dapat menggunakan perintah Select Case … End select. Dengan format sebagai berikut;
Select Case expression
Case value1
Block of one or more VB statements
Case value2
Block of one or more VB Statements
Case value3
.
.
Case Else
Block of one or more VB Statements
End Select
Tugas 3.2
Kode
Dim grade As String
Private Sub CmdCompute_Click( )
grade=txtgrade.Text
Select Case grade
Case "A"
lblResult.Caption="High Distinction"
Case "A-"
lblResult.Caption="Distinction"
Case "B"
lblResult.Caption="Credit"
Case "C"
lblResult.Caption="Pass"
Case Else
lblResult.Caption="Fail"
End Select
End Sub
Tugas 3.3
Kode
Dim mark As Single
Private Sub Compute_Click()
'Examination Marks
mark = mrk.Text
Select Case mark
Case Is >= 85
comment.Caption = "Excellence"
Case Is >= 70
comment.Caption = "Good"
Case Is >= 60
comment.Caption = "Above Average"
Case Is >= 50
comment.Caption = "Average"
Case Else
comment.Caption = "Need to work harder"
End Select
End Sub
Tugas 3.4
Kode Form
Private Sub TextNDA_Change()
Select Case Val(TextNDA)
Case 90 To 100
TextNDH = "A"
TextKet = "SANGAT BAIK"
Case 70 To 89
TextNDH = "B"
TextKet = "BAIK"
Case 60 To 69
TextNDH = "C"
TextKet = "CUKUP"
Case 0 To 59
TextNDH = "D"
TextKet = "KURANG"
End Select
End Sub
PRAKTIK 4
________________________________________
4.1. Perulangan
Visual Basic memungkinkan prosedur harus diulang berkali-kali selama prosesor sampai kondisi atau serangkaian kondisi terpenuhi. Hal ini umumnya disebut looping. Looping adalah fitur yang sangat berguna dari Visual Basic karena membuat repetitif bekerja lebih mudah. Ada dua jenis loop dalam Visual Basic, Do ... Loop dan For ....... Next Loop
4.2. Do … Loop
Formatnya adalah
a) Do While condition
Block of one or more VB statements
Loop
b) Do
Block of one or more VB statements
Loop While condition
c) Do Until condition
Block of one or more VB statements
Loop
d) Do
Block of one or more VB statements
Loop Until condition
4.3. Perulangan For ... Next
Format sebagai berikut:
For counter=startNumber to endNumber (Step increment)
One or more VB statements
Next
4.4. Keluar dari Loop
Kadang kita perlu keluar dari prulangan untuk keluar dari perulangan sebelum waktunya karena kondisi tertentu terpenuhi. Sintaks untuk menggunakannya dikenal sebagai exit. Anda mencoba pada tugas 4.1 untuk penggunaannya.
Tugas 4.1.
Kode Kode
Private Sub Form_Activate()
Dim i As Integer
Do
i = i + 1
Print i
Loop Until i = 10
End Sub
Private Sub Form_Activate()
Dim i As Integer
For i = 1 To 10
Print i
Next i
End Sub
Private Sub Form_Activate()
Dim i As Integer
Do Until i = 10
i = i + 1
Print i
Loop
End Sub
Private Sub Form_Activate()
Dim i As Integer
For i = 1 To 10
Print "No "; i
Next i
End Sub
Private Sub Form_Activate()
Dim i As Integer
For i = 1 To 10
Print i
If i = 5 Then Exit For
Next
Print "Dilompat ke sini."
End Sub
Private Sub Form_Activate()
Do Until i = 10
i = i + 1
Print i
If i = 5 Then Exit Do
Loop
End Sub
Private Sub Form_Activate()
Dim Hitung As Integer
Do While Hitung < 10 Hitung = Hitung + 1 Print Hitung Loop End Sub Private Sub Form_Activate() Dim i As Integer For i = 1 To 7 Print WeekdayName(i) Next End Sub Private Sub Form_Activate() Dim i As Integer For i = 1 To 10 Step 2 Print i Next End Sub Private Sub Form_Activate() Dim i As Integer For i = 10 To 0 Step -2 Print i Next End Sub Private Sub Form_Activate() Dim i As Variant For Each i In Array(2, 3, 5) Print 10 / i Next End Sub Tugas 4.2 Kode Form Private Sub Form_Load() Dim i As Integer For i = 1 To 7 List1.AddItem WeekdayName(i) Next For i = 1 To 12 List2.AddItem MonthName(i) Next End Sub PRAKTIK 5 ________________________________________ 5.1. Fungsi Fungsi mirip dengan prosedur normal, tetapi tujuan utama berfungsi untuk menerima input tertentu dari pengguna dan mendapatkan nilai kembali. Ada dua jenis fungsi, fungsi built-in (atau fungsi internal) dan fungsi yang dibuat oleh pemrogram. Secara umum format fungsi adalah: FunctionName (Arguments) Arguments adalah nilai yang digunakan oleh fungsi. Dalam pelajaran ini, kita akan mempelajari dua fungsi internal sangat dasar tapi berguna, yaitu MsgBox () dan InputBox (). 5.2. MsgBox () MsgBox adalah untuk menghasilkan kotak pesan pop-up dan meminta pengguna untuk mengklik pada tombol perintah sebelum ia dapat terus berlanjut. Formatnya adalah: yourMsg=MsgBox(Prompt, Style Value, Title) Argumen pertama, Prompt, akan menampilkan pesan dalam kotak pesan. Nilai Style akan menentukan jenis tombol perintah muncul di kotak pesan. Argumen Judul akan menampilkan judul dari papan pesan. Table 5.1: Style Values Style Value Named Constant Buttons Displayed 0 vbOkOnly Ok button 1 vbOkCancel Ok and Cancel buttons 2 vbAbortRetryIgnore Abort, Retry and Ignore buttons. 3 vbYesNoCancel Yes, No and Cancel buttons 4 vbYesNo Yes and No buttons 5 vbRetryCancel Retry and Cancel buttons Kita dapat menggunakan konstanta bernama di tempat bilangan bulat untuk argumen kedua untuk membuat program lebih mudah dibaca. Bahkan, VB6 secara otomatis akan menunjukkan daftar nama-nama yang konstan di mana Anda dapat memilih salah satu dari mereka. Contoh: yourMsg = MsgBox ("Klik OK untuk" Lanjutkan, 1, "Startup Menu") dan yourMsg = Msg ("Klik OK untuk" Lanjutkan. vbOkCancel, "Startup Menu") adalah sama. yourMsg adalah variabel yang menyimpan nilai-nilai yang dikembalikan oleh MsgBox () fungsi. Nilai ditentukan oleh jenis tombol diklik oleh pengguna. Itu harus dinyatakan sebagai tipe data Integer dalam prosedur atau pada bagian deklarasi umum. Tabel 5.2 menunjukkan nilai-nilai, yang sesuai bernama konstan dan tombol. Table 5.2 : Return Values and Command Buttons Value Named Constant Button Clicked 1 vbOk Ok button 2 vbCancel Cancel button 3 vbAbort Abort button 4 vbRetry Retry button 5 vbIgnore Ignore button 6 vbYes Yes button 7 vbNo No button Untuk membuat kotak pesan yang terlihat lebih canggih, Anda dapat menambahkan icon di samping pesan. Ada empat jenis ikon yang tersedia di VB seperti ditunjukkan pada Tabel 5.3 seperti pada tugas 5.2. berikut Table 5.3 Value Named Constant Icon 16 vbCritical 32 vbQuestion 48 vbExclamation 64 vbInformation Tugas 5.1. Kode Form Private Sub Test_Click() Dim testmsg As Integer testmsg = MsgBox("Click to test", 1, "Test message") If testmsg = 1 Then Display.Caption = "Testing Successful" Else Display.Caption = "Testing fail" End If End Sub Tugas 5.1 Tambahkan icon pesan Private Sub test2_Click() Dim testMsg2 As Integer testMsg2 = MsgBox("Click to Test", vbYesNoCancel + vbExclamation, "Test Message") If testMsg2 = 6 Then display2.Caption = "Testing successful" ElseIf testMsg2 = 7 Then display2.Caption = "Are you sure?" Else display2.Caption = "Testing fail" End If End Sub 5.3. InputBox () InputBox berfungsi menampilkan kotak pesan dimana pengguna dapat memasukkan nilai atau pesan dalam bentuk teks. Formatnya adalah: myMessage=InputBox(Prompt, Title, default_text, x-position, y-position) myMessage adalah tipe data varian, tetapi biasanya hal ini dideklarasikan sebagai string, yang menerima masukan pesan oleh pengguna. Argumen ini dijelaskan sebagai berikut: * Prompt - Pesan yang ditampilkan biasanya sebagai pertanyaan yang diajukan. * Title - Judul Kotak Masukan. * Default-text - Teks default yang muncul di bidang input dimana pengguna dapat menggunakannya sebagai masukan dimaksudkan-Nya atau ia dapat mengubah pesan, ia ingin kunci masuk * x-y- position - posisi atau koordinat kotak input. Tugas 5.2. Kode Form Private Sub OK_Click() Dim userMsg As String userMsg = InputBox("What is your message?", "Message Entry Form", "Enter your messge here", 500, 700) If userMsg <> "" Then
message.Caption = userMsg
Else
message.Caption = "No Message"
End If
End Sub
PRAKTIK 6
________________________________________
6.1. Fungsi Matematika
Fungsi matematika sangat berguna dan penting dalam pemrograman karena sangat sering kita harus menangani konsep-konsep matematika dalam pemrograman seperti kesempatan dan probabilitas, variabel, logika matematika, perhitungan, koordinat, interval waktu dan lain-lain fungsi matematika umum dalam Visual Basic adalah Rnd, Sqr, Int, Abs, Exp, Log, Sin, Cos, Tan, ATN, Fix dan Round.
Rnd sangat berguna ketika kita berurusan dengan konsep peluang dan probabilitas. Rnd Fungsi mengembalikan nilai acak antara 0 dan 1. Dalam Tugas 6.1. Ketika Anda menjalankan program ini, Anda akan mendapatkan output dari 10 nomor acak antara 0 dan 1. Timer mengacak pernyataan penting di sini karena akan mengacak proses.
Nomor acak dalam bentuk aslinya tidak sangat berguna dalam pemrograman sampai kita mengkonversikannya ke integer. Sebagai contoh, jika kita perlu memperoleh hasil acak acak dari 6 bilangan bulat antara 1 sampai 6, yang membuat program bertingkah laku sebagai virtual mati, kita perlu mengkonversi nomor acak yang menggunakan format Int (Rnd * 6) + 1.
Dalam tugas, Int (Rnd * 6) akan menghasilkan bilangan random antara 0 dan 5 karena fungsi Int memotong bagian desimal dari bilangan acak dan mengembalikan integer. Setelah menambahkan 1, Anda akan mendapatkan nomor acak antara 1 dan 6 setiap kali Anda mengklik tombol perintah. Misalnya, mengatakan nomor acak yang dihasilkan sebesar 0,98, setelah mengalikannya dengan 6, menjadi 5,88, dan menggunakan fungsi integer Int (5,88) akan mengkonversi nomor 5; dan setelah menambahkan 1 Anda akan mendapatkan 6.
Dalam tugas kedua ini, Anda menempatkan tombol perintah dan mengubah judul tersebut menjadi "roll die”. Anda juga harus memasukkan label ke dalam form dan jelas keterangannya pada tahap merancang dan membuat font yang lebih besar dan tebal. Kemudian menetapkan nilai perbatasan menjadi 1 sehingga menampilkan suatu perbatasan, dan setelah itu mengatur alignment ke pusat. Pernyataan Label1.Caption = Num berarti integer dihasilkan akan ditampilkan sebagai judul label.
Tugas 6.1.
Kode Form
Private Sub Form_Activate
Randomize Timer
For x=1 to 10
Print Rnd
Next x
End Sub
Dim num as integer
Private Sub Command1_Click ( )
Randomize Timer
Num=Int(Rnd*6)+1
Label1.Caption=Num
End Sub
6.2. Fungsi Numerik
Fungsi numerik adalah Int, Sqr, Abs, Exp, Fix, Round dan Log.
Int adalah fungsi yang mengubah angka ke dalam integer oleh truncating bagian desimal dan bilangan bulat yang dihasilkan adalah bilangan bulat terbesar yang lebih kecil dari nomor tersebut. Sebagai contoh, Int (2.4) = 2, Int (4.8) = 4, Int (-4,6) = -5, Int (0,032) = 0 dan sebagainya.
Sqr adalah fungsi yang menghitung akar kuadrat dari suatu bilangan. Sebagai contoh, Sqr (4) = 2, Sqr (9) 2 = dan lain-lain
Abs adalah fungsi yang mengembalikan nilai absolut dari suatu bilangan. Jadi Abs (-8) = 8 dan Abs (8) = 8.
Exp angka x adalah nilai dari mantan. Sebagai contoh, Exp (1) = e1 = 2,7182818284590
Fix dan Int adalah sama jika nomor tersebut adalah angka positif karena keduanya memotong bagian desimal dari jumlah dan mengembalikan integer. Namun, saat nomor yang negatif, ia akan mengembalikan integer terkecil yang lebih besar dari nomor tersebut. Sebagai contoh, Fix (-6,34) = -6 sementara Int (-6,34) =- 7.
Round adalah fungsi yang putaran sebuah nomor ke sejumlah tempat desimal. Format adalah Round (n, m) yang berarti bulat n m nomor desimal. Sebagai contoh, Round (7,2567, 2) = 7,26
Log adalah fungsi yang kembali Logaritma alam dari suatu bilangan. Sebagai contoh, Log 10 = 2,302585
Tugas 6.2.
Kode Form
Private Sub Form_Activate ()
n = 1
Print " n", " x", "Int(x)", "Fix(x)", "Round(x, 4)"
Do While n < 11 Randomize Timer x = Round (Rnd * 7, 7) Print n, x, Int(x), Fix(x), Round(x, 4) n = n + 1 Loop End Sub 6.3. Fungsi Format Format output adalah bagian yang sangat penting dari pemrograman sehingga data dapat disajikan secara sistematis dan jelas kepada pengguna. Data dalam pelajaran sebelumnya telah disajikan secara wajar sistematis melalui penggunaan koma dan beberapa fungsi seperti Int, Fix dan Round. Namun, untuk memiliki kontrol yang lebih baik dari format output, kita dapat menggunakan beberapa fungsi dalam Format Visual Basic. Tiga fungsi format yang paling umum di VB adalah Tab, Space, dan Format Fungsi Tab (n); x Item x akan ditampilkan pada posisi yang n spasi dari batas kiri bentuk output. Harus ada titik koma di antara Tab dan item yang Anda berniat untuk menampilkan (VB benar-benar akan melakukannya untuk Anda secara otomatis). Fungsi Space Fungsi Space sangat erat dikaitkan dengan fungsi Tab. Namun, ada perbedaan kecil. Sementara Tab (n) berarti item tersebut dimasukkan ke ruang n dari perbatasan kiri layar, fungsi Ruang menentukan jumlah spasi antara dua item berturut-turut. Misalnya, prosedur Fungsi Format Fungsi Format adalah fungsi yang sangat kuat yang dapat menampilkan nilai numerik dalam berbagai bentuk. Ada dua tipe fungsi Format, salah satunya adalah built-in atau standar format sementara satu sama lain dapat didefinisikan oleh pengguna Style argument Explanation Example General Number Untuk menampilkan nomor tanpa pemisah antara ribuan. Format(8972.234, “General Number”)=8972.234 Fixed Untuk menampilkan nomor tanpa pemisah antara ribuan dan round sampai dua tempat desimal. Format(8972.2, “Fixed”)=8972.23 Standard Untuk menampilkan nomor dengan pemisah atau pemisah antara ribuan dan putaran itu sampai dua tempat desimal Format(6648972.265, “Standard”)= 6,648,972.27 Currency Untuk menampilkan nomor dengan tanda dolar di depan, telah pemisah antara ribuan serta pembulatan itu sampai dua tempat desimal. Format(6648972.265, “Currency”)= $6,648,972.27 Percent Mengubah nomor bentuk persentase dan menampilkan tanda% dan putaran itu sampai dua tempat desimal. Format(0.56324, “Percent”)=56.32 % Tugas 6.3. Kode Form Private Sub Form_Activate Print "I"; Tab(5); "like"; Tab(10); "to"; Tab(15); "learn"; Tab(20); "VB" Print Print Tab(10); "I"; Tab(15); "like"; Tab(20); "to"; Tab(25); "learn"; Tab(20); "VB" Print Print Tab(15); "I"; Tab(20); ; "like"; Tab(25); "to"; Tab(30); "learn"; Tab(35); “VB" End sub Private Sub Form_Activate() Print "Visual"; Space(10); "Basic" End Sub Private Sub Form_Activate() Print Format (8972.234, "General Number") Print Format (8972.2, "Fixed") Print Format (6648972.265, "Standard") Print Format (6648972.265, "Currency") Print Format (0.56324, "Percent") End Sub 6.4. Fungsi Manipulasi String Fungsi Len Fungsi Len adalah mengembalikan nilai panjang integer dari sebuah frase atau kalimat, termasuk spasi kosong. Fungsi Len juga dapat kembali jumlah digit atau lokasi memori dari nomor yang disimpan dalam komputer. Fungsi Right Fungsi Right mengambil bagian dari kanan frase. Right ("Frasa", n) Sebagai contoh, Right ("Visual Basic", 4) = basic Fungsi Left Fungsi Left mengambil bagian dari kiri frase. Left ("Frasa", n) Sebagai contoh, Left (“Visual Basic”, 4) = Visu Fungsi Ltrim Fungsi Ltrim menghilangkan spasi pada bagian kiri frase. Ltrim(“Phrase”) Sebagai contoh, Ltrim (“ Visual Basic”)= Visual Basic Fungsi Rtrim Fungsi Rtrim menghilangkan spasi pada bagian kanan frase. Rtrim(“Phrase”) Sebagai contoh, Rtrim (“ Visual Basic ”)= Visual Basic Fungsi Trim Fungsi Trim menghilangkan spasi pada bagian kiri dan kanan frase. Trim(“Phrase”) Sebagai contoh, Trim (“ Visual Basic ”)= Visual Basic Fungsi Mid Fungsi Mid mengambil sebagian dari frase. Mid ("Frasa", position, n) Sebagai contoh, Mid (“Visual Basic”, 3, 6) = sual B Fungsi Ucase dan Lcase Fungsi Ucase dan Lcase Ucase(“Visual Basic”) =VISUAL BASiC Lcase(“Visual Basic”) =visual basic Fungsi str dan val The Str adalah fungsi yang mengubah angka ke string sementara fungsi Val mengkonversi string ke angka. Dua fungsi penting ketika kita perlu untuk melakukan operasi matematika. Fungsi chr dan asc Mengembalikan fungsi Chr string yang sesuai dengan kode ASCII sedangkan fungsi ASC mengkonversi karakter ASCII atau simbol untuk kode ASCII yang sesuai. ASCII singkatan dari "American Standard Kode untuk Informasi Interchange". Secara keseluruhan ada 255 kode ASCII dan karakter ASCII banyak. Beberapa karakter yang tidak dapat ditampilkan karena dapat mewakili beberapa tindakan seperti menekan sebuah tombol atau mengeluarkan bunyi bip. Chr(65)=A, Chr(122)=z, Chr(37)=% , Asc(“B”)=66, Asc(“&”)=38 Tugas 6.4. Kode Form Private sub Form_Activate ( ) X=sqr (16) Y=1234 Z#=10# Print Len(x), Len(y), and Len (z) End Sub Akan menghasilkan output 1, 4, 8. Alasan mengapa nilai terakhir adalah 8 adalah karena z # adalah nomor presisi ganda dan sehingga dialokasikan ruang lebih banyak memori. 6.5. Membuat Fungsi Sendiri Format umum fungsi adalah Public Function functionName (Arg As dataType,..........) As dataType atau Private Function functionName (Arg As dataType,..........) As dataType Public menunjukkan bahwa fungsi ini berlaku untuk seluruh proyek dan Private menunjukkan bahwa fungsi ini hanya berlaku untuk modul atau prosedur tertentu. Tugas 6.5. Kode Form pengguna dapat menghitung nilai masa depan sejumlah uang yang dia miliki hari ini didasarkan pada tingkat suku bunga dan jumlah tahun dari sekarang, misalkan dia akan menginvestasikan jumlah uang ini di suatu tempat. Perhitungan ini didasarkan pada tingkat bunga majemuk. Public Function FV(PV As Variant, i As Variant, n As Variant) As Variant 'Formula to calculate Future Value(FV) 'PV denotes Present Value FV = PV * (1 + i / 100) ^ n End Function Private Sub BtnCompute_Click() 'This procedure will calculate Future Value Dim FutureVal As Variant Dim PresentVal As Variant Dim interest As Variant Dim period As Variant PresentVal = txtPV.Text interest = txtrate.Text period = txtyears.Text 'calling the funciton FutureVal = FV(PresentVal, interest, period) MsgBox ("The Future Value is " & FutureVal) End Sub Program berikut ini secara otomatis akan menghitung nilai pemeriksaan berdasarkan tanda bahwa seorang siswa yang diperoleh. Kode ditampilkan di sebelah kanan. Public Function grade(mark As Variant) As String Select Case mark Case Is >= 80
grade = "A"
Case Is >= 70
grade = "B"
Case Is >= 60
grade = "C"
Case Is >= 50
grade = "D"
Case Is >= 40
grade = "E"
Case Else
grade = "F"
End Select
End Function
Private Sub compute_Click()
lblgrading.Caption = grade(txtmark)
End Sub
PRAKTIK 7
________________________________________
7.1. Pengenalan Array
Menurut definisi, array adalah daftar variabel dengan tipe data dan nama yang sama. Ketika kita bekerja dengan item tunggal, kita hanya perlu menggunakan satu variabel. Namun, jika kami memiliki daftar item yang sejenis untuk menanganinya, kita perlu mendeklarasikan variabel array daripada menggunakan sebuah variabel untuk setiap item. Sebagai contoh, jika kita harus memasukkan seratus nama, kita mungkin mengalami kesulitan dalam menyatakan 100 nama yang berbeda, ini adalah buang-buang waktu dan upaya. Jadi, bukannya menyatakan seratus variabel yang berbeda, kita perlu menyatakan hanya satu array. Kita membedakan setiap item dalam array dengan menggunakan subscript, nilai indeks dari setiap item, misalnya nama (1), nama (2), nama (3) dst ....... .
7.2. Dimensi Array
Array dapat menjadi satu dimensi atau multi dimensi. Array satu dimensi seperti daftar item atau meja yang terdiri dari satu baris atau satu kolom item barang. Sebuah array dua dimensi akan menjadi tabel item yang membentuk baris dan kolom. Sedangkan format untuk sebuah array satu dimensi ArrayName (x), format untuk array dua dimensi ArrayName (x, y) sedangkan array tiga dimensi ArrayName (x, y, z). Biasanya kita cukup menggunakan satu dimensi dan dua dimensi array, Anda hanya perlu menggunakan array dimensi yang lebih tinggi jika Anda perlu dengan masalah teknik atau bahkan beberapa problems. Mari kita menggambarkan array dengan tabel.
Table 16.1. Array Satu Dimensi
Student Name Name(1) Name(2) Name(3) Name(4) Name(5)
Table 16.2 Array Dua Dimensi
Name(1,1) Name(1,2) Name(1,3) Name(1,4)
Name(2,1) Name(2,2) Name(2,3) Name(2,4)
Name(3,1) Name(3,2) Name(3,3) Name(3,4)
7.3. Deklarasi Array
Format umum untuk menyatakan suatu array satu dimensi adalah sebagai berikut:
Dim arrayName(subs) as dataType
Dimana subs menunjukkan subskrip terakhir dalam array. contoh
Dim CusName(5) as String
CusName(1) CusName(2) CusName(3) CusName(4) CusName(5)
Contoh lain
Dim Count(100 to 500) as Integer
Deklarasi array terdiri dari elemet awal mulai dari 100 dan berkahir dengan 500.
Format umum untuk menyatakan suatu array dua dimensi adalah sebagai berikut:
Dim ArrayName(Sub1,Sub2) as dataType
Contoh
Dim StudentName(10,10)
Akan mendeklarasi tabel 10x10 berawal dari StudentName(1,1) sampai StudentName(10,10).
Tugas 7.1.
Kode
Dim studentName(10) As String
Dim num As Integer
Private Sub BtnaddName()
For num = 1 To 10
studentName(num) = InputBox("Enter the student name", "Enter Name", "", 1500, 4500)
If studentName(num) <> "" Then
Form1.Print studentName(num)
Else
End
End If
Next
End Sub
Program di atas menerima entri data melalui sebuah kotak input dan menampilkan entri dalam bentuk itu sendiri. Seperti yang anda lihat, program ini hanya akan memungkinkan user untuk memasukkan 10 nama setiap kali ia mengklik tombol start.
Dim studentName(10) As String
Dim num As Integer
Private Sub addName( )
For num = 1 To 10
studentName(num) = InputBox("Enter the student name")
List1.AddItem studentName(num)
Next
End Sub
Private Sub BtnStart_Click()
addName
End Sub
Program di atas menerima masukan data melalui sebuah InputBox dan menampilkan ListBox.
PRAKTIK 8
________________________________________
8.1. Membuat Aplikasi Basis Data dengan Data Control
Visual Basic memungkinkan kita untuk mengelola database yang dibuat dengan program database yang berbeda seperti MS Access, dBASE, Paradox dan lain-lain Dalam pelajaran ini, kita tidak menangani dengan cara membuat file database, tetapi kita akan melihat bagaimana kita dapat mengakses file database di VB lingkungan. Pada contoh berikut, kita akan menciptakan sebuah aplikasi database sederhana yang memungkinkan seseorang untuk menelusuri nama-nama pelanggan. Untuk membuat aplikasi ini, masukkan kontrol data ke dalam bentuk baru. Tempat data kontrol di suatu tempat di bagian bawah formulir. Nama kontrol data sebagai data_navigator. Untuk dapat menggunakan kontrol data, kita harus menghubungkannya ke database apapun. Kita bisa membuat database file dengan menggunakan aplikasi database tapi saya sarankan kita menggunakan file-file database yang datang dengan VB6. Mari pilih NWIND.MDB sebagai file database kami.
Untuk menghubungkan kontrol data ke database, klik dua kali properti DatabaseName di jendela properti dan pilih file di atas, yaitu NWIND.MDB. Selanjutnya, klik dua kali pada properti RecordSource untuk memilih tabel pelanggan dari database. Anda juga dapat mengubah keterangan dari kontrol data saya menggunakan "Klik untuk menelusuri Pelanggan". Setelah itu, kita akan menempatkan label dan mengubah keterangannya untuk Nama Pelanggan.
Kemudian, masukkan dua label, label pertama diberikan caption Customer Name dan berukutnya diberikan nama sebagai cus_name dan kosongkan caption label tersebut. Nama pelanggan akan muncul di sini ketika kita klik panah pada kontrol data. Kita perlu mengikat label ini dengan database. Untuk melakukan hal ini, buka label DataSource dan data_navigator pilih yang akan muncul secara otomatis. Satu hal lagi yang perlu kita lakukan adalah untuk mengikat label ke kolom yang benar sehingga data dalam bidang ini akan muncul pada label tersebut. Untuk melakukan hal ini, buka properti DataField dan pilih ContactName. Sekarang, tekan F5 dan menjalankan program. Anda harus dapat menelusuri nama-nama semua pelanggan dengan mengklik panah di kontrol data.
Anda juga dapat melakukannya untuk field atau kolom lain
Data kontrol mendukung beberapa metode yang berguna dalam memanipulasi database, misalnya, untuk memindahkan penunjuk ke lokasi tertentu. Berikut ini adalah beberapa perintah yang dapat Anda gunakan untuk memindahkan pointer di sekitar:
data_navigator.RecordSet.MoveFirst
'Pindah ke record pertama
data_navigator.RecordSet.MoveLast
'Pindah ke record terakhir
data_navigator.RecordSet.MoveNext
'Pindah ke record berikutnya
data_navigator.RecordSet.Previous
'Pindah ke record pertama
Anda juga dapat menambah, menyimpan dan menghapus rekaman menggunakan perintah berikut:
data_navigator.RecordSet.AddNew
' manambahkan record
data_navigator.RecordSet.Update
' mengedit dan menyimpan record
data_navigator.RecordSet.Delete
' Menghapus record
Tugas 8.1.
Kode Form
Private Sub Command2_Click()
dtaBooks.Recordset.MoveFirst
End Sub
Private Sub Command1_Click()
dtaBooks.Recordset.MoveNext
End Sub
Private Sub Command3_Click()
dtaBooks.Recordset.MovePrevious
End Sub
Private Sub Command4_Click()
dtaBooks.Recordset.MoveLast
End Sub
8.2. Membuat Aplikasi Basis Data dengan ADO Control
Kita telah belajar bagaimana untuk membangun aplikasi database VB menggunakan kontrol data. Namun, data kontrol bukan alat yang sangat fleksibel karena hanya bisa bekerja dengan jenis data yang terbatas dan harus bekerja keras di lingkungan Visual Basic. Untuk mengatasi keterbatasan ini, kita dapat menggunakan data kontrol jauh lebih kuat dalam Visual Basic, yang dikenal sebagai ADO Control. ADO adalah singkatan dari ActiveX Data Objek. Seperti ActiveX ADO bekerja di platform yang berbeda (sistem komputer yang berbeda) dan bahasa pemrograman yang berbeda. Selain itu dapat mengakses berbagai macam data seperti data yang ditampilkan dalam browser Internet, email dan bahkan teks grafis selain informasi relasional dan non database relasional biasa.
Untuk dapat menggunakan kontrol ADO data, Anda harus memasukkan ke dalam Tools box. Untuk melakukannya, cukup tekan Ctrl + T untuk membuka kotak dialog Components dan pilih Microsoft ActiveX Data Control 6. Setelah itu, Anda dapat melanjutkan untuk membangun aplikasi berbasis ADO VB database Anda.
Tugas berikut akan menggambarkan bagaimana membangun suatu aplikasi database yang relatif kuat dengan menggunakan kontrol ADO data.
Pertama, ubah nama form menjadi frmBookTitle dan ubah Captionnya menjadi Book Titles- ADO Application.
Kedua, memasukkan kontrol ADO Data dan ubah namanya sebagai adoBooks dan mengubah Caption-nya Book.
Berikutnya, masukkan label yang diperlukan, kotak teks dan tombol perintah. Antarmuka runtime dari program ini ditampilkan dalam diagram di bawah ini, memungkinkan penambahan dan penghapusan serta memperbarui dan browsing data.
Tugas 8.2.
Form
Semua Properties kontrol adalah sebagi berikut:
Form Name frmBookTitle
Form Caption Book Titles -ADOApplication
ADO Name adoBooks
Label1 Name lblApp
Label1 Caption Book Titles
Label 2 Name lblTitle
Label2 Caption Title :
Label3 Name lblYear
Label3 Caption Year Published:
Label4 Name lblISBN
Label4 Caption ISBN:
Labe5 Name lblPubID
Label5 Caption Publisher's ID:
Label6 Name lblSubject
Label6 Caption Subject :
TextBox1 Name txtitle
TextBox1 DataField Title
TextBox1 DataSource adoBooks
TextBox2 Name txtPub
TextBox2 DataField Year Published
TextBox2 DataSource adoBooks
TextBox3 Name TxtISBN
TextBox3 DataField ISBN
TextBox3 DataSource AdoBooks
TextBox4 Name TxtPubID
TextBox4 DataField PubID
TextBox4 DataSource AdoBooks
TextBox5 Name TxtSubject
TextBox5 DataField Subject
TextBox5 DataSource AdoBooks
Command Button1 Name CmdSave
Command Button1 Caption &Save
Command Button2 Name CmdAdd
Command Button2 Caption &Add
Command Button3 Name CmdDelete
Command Button3 Caption &Delete
Command Button4 Name CmdCancel
Command Button4 Caption &Cancel
Command Button5 Name CmdPrev
Command Button5 Caption &< Command Button6 Name CmdNext Command Button6 Caption &>
Command Button7 Name CmdExit
Command Button7 Caption E&xit
Ikuti tahapan ini untuk menghubungkan ADO Control dengan Database
Kita akan menggunakan BIBLIO.mdb sebagai databasenya.
a. Klik Ado Control pada form kemudian pilih propertinya
b. Klik property ConnectionString maka window berikut akan tampil
c. Pilih Use Connection String dan kemudian tekan tombol Build maka akan tampil window berikut
d. Pilih Microsoft Jet 3.51 OLE DB Provider dan kemudian tekan tombol Next
e. Pilih File BIBLIO.mdb
f. Tekan OK untuk selesai
g. Terakhir, klik pada properti RecordSource dan menetapkan Command Type menjadi adCmd Table dan pilih Title pada bagian Table or Store Procedur Name. Sekarang Anda siap untuk menggunakan database file.
h. Selanjutnya anda perlu menuliskan kode. ADO kontrol juga bisa anda buat tidak terlihat
Kode
Untuk tombol Save:
Private Sub cmdSave_Click()
adoBooks.Recordset.Fields("Title") = txtTitle.Text
adoBooks.Recordset.Fields("Year Published") = txtPub.Text
adoBooks.Recordset.Fields("ISBN") = txtISBN.Text
adoBooks.Recordset.Fields("PubID") = txtPubID.Text
adoBooks.Recordset.Fields("Subject") = txtSubject.Text
adoBooks.Recordset.Update
End Sub
Untuk tombol Add:
Private Sub cmdAdd_Click()
adoBooks.Recordset.AddNew
End Sub
Untuk tombol Delete:
Private Sub cmdDelete_Click()
Confirm = MsgBox("Are you sure you want to delete this record?", vbYesNo, "Deletion Confirmation")
If Confirm = vbYes Then
adoBooks.Recordset.Delete
MsgBox "Record Deleted!", , "Message"
Else
MsgBox "Record Not Deleted!", , "Message"
End If
End Sub
Untuk tombol Cancel:
Private Sub cmdCancel_Click()
txtTitle.Text = ""
txtPub.Text = ""
txtPubID.Text = ""
txtISBN.Text = ""
txtSubject.Text = ""
End Sub
Untuk tombol Previous (<) Private Sub cmdPrev_Click() If Not adoBooks.Recordset.BOF Then adoBooks.Recordset.MovePrevious If adoBooks.Recordset.BOF Then adoBooks.Recordset.MoveNext End If End If End Sub Untuk tombol Next(>)
Private Sub cmdNext_Click()
If Not adoBooks.Recordset.EOF Then
adoBooks.Recordset.MoveNext
If adoBooks.Recordset.EOF Then
adoBooks.Recordset.MovePrevious
End If
End If
End Sub
Tugas 8.3.
Anda akan membuat aplikasi database ADO untuk mengelola perpustakaan di rumah Anda. Pertama-tama, buat database di MS Access dengan nama pustaka.mdb. Di database ini, buat tabel dengan nama field berikut;
Judul
Pengarang
Penerbit
Tahun
Kategori
Buatlah program dengan cara seperti pada tugas 8.2.
PRAKTIK 9
________________________________________
9.1. Menggunakan Datagrid Control 6.0
Dalam bab sebelumnya, kita menggunakan textboxes untuk menampilkan data dengan menghubungkan mereka ke database melalui Microsoft ADO Data Control 6.0. Textbox ini tidak hanya pengendalian juga dapat menampilkan data dari database, kontrol lainnya dalam Visual Basic dapat menampilkan data. Salah satu satunya adalah kontrol datagrid. Datagrid kontrol dapat digunakan untuk menampilkan seluruh tabel dari suatu recordset dari database. Hal ini memungkinkan pengguna untuk melihat dan mengedit data.
kontrol Datagrid adalah bukan item default dalam Tools Box, Anda harus menambahkannya dari VB6 komponen. Untuk menambahkan kontrol datagrid, klik pada proyek di menu bar dan pilih komponen mana kotak dialog yang menampilkan semua yang tersedia VB6 komponen. Pilih Microsoft Datagrid 6,0 Control dengan mengklik kotak centang di sebelah item tersebut (gambar 9.1). Sebelum Anda keluar dari kotak dialog, Anda juga perlu memilih Microsoft ADO Data control, sehingga Anda dapat mengakses database. Terakhir, klik tombol OK untuk keluar dari kotak dialog. Sekarang Anda dapat melihat bahwa kontrol Datagrid dan ADO Data kontrol ditambahkan ke Tools Box. Langkah berikutnya adalah untuk menarik kontrol datagrid dan ADO Data kontrol ke dalam form. Seperti gambar 9.2.
Gambar 9.1
Gambar 9.2
Sebelum Anda melanjutkan, Anda perlu membuat sebuah file database menggunakan Microsoft Access. Di sini saya membuat sebuah file untuk menyimpan informasi buku dan saya beri nama tabel book. Setelah Anda telah menciptakan tabel, masukan beberapa data. Tabel ditunjukkan berikut ini:
Gambar 9.3
Sekarang Anda perlu menghubungkan database ke ADO Data Control. Untuk melakukannya, klik kanan pada kontrol data ADO dan pilih ADODC properti, kotak dialog berikut akan muncul. (sama halnya pada praktik sebelumnya).
Gambar 9.4
Klik Next pada tombol Build dan Data Link Properties akan muncul kotak dialog (seperti yang ditunjukkan di bawah ini). Dalam kotak dialog, pilih file database yang telah Anda buat, dalam kasus saya, nama file books.mdb. uji koneksi Tekan untuk melihat apakah koneksi berhasil. Jika sambungan berhasil, klik OK untuk kembali ke halaman kotak dialog properti ADODC. Pada halaman kotak dialog properti ADODC, klik pada tab Recordsource dan pilih 2-adCmdTable bawah komando jenis dan buku pilih sebagai nama tabel, kemudian klik OK.
Gambar 9.5
Gambar 9.6
Akhirnya anda butuh untuk menampilkan data di datagrid control. Untuk mencapai hal ini, buka ke jendela properti dan mengatur properti DataSource dari datagrid untuk Adodc1. Anda juga dapat mengizinkan pengguna untuk menambahkan dan mengedit catatan Anda dengan menyetel properti AllowUpdate untuk Benar. Jika Anda mengeset properti ini ke false, pengguna tidak dapat mengedit catatan. Sekarang menjalankan program dan jendela output ditunjukkan berikut ini:
Gambar 9.7
9.2. Menggunakan SQL Query
Dalam bab sebelumnya, kita telah belajar untuk menggunakan Control Datagrid untuk menampilkan data dari database. Namun, tidak memungkinkan pengguna untuk mencari dan memilih informasi yang mereka ingin lihat. Dalam rangka untuk mencari suatu informasi tertentu, kita perlu menggunakan query SQL. SQL singkatan dari Struktur Query Language. Menggunakan SQL, kita dapat memilih informasi spesifik yang harus ditampilkan berdasarkan kriteria tertentu. SQL yang paling mendasar adalah SELECT, digunakan bersama dengan kata kunci FROM untuk memilih informasi dari satu atau lebih tabel dari database. Sintaksnya adalah:
SELECT fieldname1,fieldname2,.....,fieldnameN FROM TableName
fieldname1, fieldname2 ,...... fieldnameN adalah nama dari kolom di tabel database. Anda dapat memilih jumlah fieldname dalam query. Jika Anda ingin memilih semua informasi, Anda dapat menggunakan sintaks berikut:
SELECT * FROM TableName
Untuk menggambarkan penggunaan query SQL, kita dapat menggunakan tabel pada paktik sebelumnya.
Kemudian buatlah form sebagai berikut:
Tugas 9.1
Gambar 9.8
Kemudian koneksikan dengan ADO data control
Gambar 9.9
Berikutnya adalah membuat kode untuk masing-masing tombolnya
Tombol Display Author:
Private Sub cmdAuthor_Click()
Adodc1.RecordSource = "SELECT Author FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
Tombol Display Book Title:
Private Sub cmdTitle_Click()
Adodc1.RecordSource = "SELECT Title FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
Tombol Display All:
Private Sub cmdAll_Click()
Adodc1.RecordSource = "SELECT * FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
Gambar 9.10
Gambar 9.11
Gambar 9.12
9.3. Menggunakan Kata Kunci SQL Query
Dalam pelajaran ini, Anda akan belajar menggunakan kata kunci lain. Salah satu kata kunci yang penting adalah WHERE. Kata kunci ini memungkinkan pengguna untuk mencari data yang memenuhi kriteria tertentu. Sintaks adalah sebagai berikut:
SELECT fieldname1,fieldname2,.....,fieldnameN FROM TableName WHERE Criteria
Kriteria dapat secara khusus menggunkana operators seperti =, >,<, <=, >=, <> and Like.
Menggunakan books.mdb database yang dibuat dalam bab sebelumnya, kita akan menunjukkan beberapa contoh. Pertama-tama, memulai sebuah proyek baru dan menyisipkan Datagrid Control dan ADO Data Control ke dalam form. Pada halaman kotak dialog properti ADODC, klik pada tab Recordsource lalu pilih 1-adCmdText bawah ketik perintah dan di bawah Command Text (SQL) kunci dalam SELECT * FROM buku.
Berikutnya, masukkan satu textbox dan meletakkannya di atas kontrol datagrid, ini akan menjadi tempat dimana pengguna dapat memasukkan teks query SQL.
Masukkan satu command buttom dan mengubah caption menjadi Query. Interface desain ditunjukkan berikut ini:
Gambar 9.14
Tambahkan kode berikut pada tombol Query
Private Sub Command1_Click()
Adodc1.RecordSource = Text1.Text
Adodc1.Refresh
End Sub
Kemudian lakukan penulisan perintah SQL sesuai gambar :
Gambar 9.15
Gambar 9.16
Gambar 9.17
Gambar 9.18
PRAKTIK 10
________________________________________
10.1. Lebih Lanjud Dengan Database
Dalam pelajaran ini, Anda akan belajar cara membuat aplikasi database yang lebih canggih dengan menggunakan kontrol ADO. Aplikasi Anda akan membuat dikenal sebagai perpustakaan elektronik. Perpustakaan elektronik ini akan dapat menerima pendaftaran pengguna serta penanganan perintah login yang memerlukan password user, dengan demikian meningkatkan aspek keamanan database. Pada dasarnya, aplikasi akan merupakan menu pembuka, menu registrasi, menu Login dan menu database utama. Urutan menu digambarkan sebagai berikut:
10.2. Lebih Lanjud Dengan Database Implementasi
Form Welcome
Pada form ini masukan tiga tombol perintah dan label. Setting setiap propertisnya sebagai berikut:
Form name main_menu
command button 1 Name cmdRegister
command button 1 Caption Register
command button 2 Name cmdLogin
command button 2 Caption Login
command button 3 Name cmdCancel
command button 3 Caption Cancel
Kemudian kode sebagai berikut:
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmdLogin_Click()
main_menu.Hide
Login_form.Show
End Sub
Private Sub cmdRegister_Click()
main_menu.Hide
Register.Show
End Sub
Form Registration
Properti sebagai berikut:
Form name Register
textbox 1 name txtName
textbox 2 name txtpassword
textbox 2 PasswordChar *
command button 1 name cmdConfirm
command button 1 Caption Confirm
command button 2 name cmdClear
command button 2 Caption Clear
command button 3 name cmdCancel
command button 3 Caption Cancel
ADO control name UserInfo
Catatan bahwa PasswordChar dari textbox 2 ditetapkan sebagai * yang berarti pengguna tidak akan dapat melihat karakter yang sebenarnya mereka masuk, mereka hanya akan melihat simbol *
Kemudian kode sebagai berikut:
Private Sub cancel_Click( )
End
End Sub
Private Sub cmdClear_Click( )
txtName.Text = ""
txtpassword.Text = ""
End Sub
Private Sub cmdConfirm_Click()UserInfo.Recordset.Fields("username") = txtName.Text
UserInfo.Recordset.Fields("password") = txtpassword.Text
UserInfo.Recordset.Update
Register.Hide
Login_form.Show
End Sub
Private Sub Form_Load()
UserInfo.Recordset.AddNew
End Sub
Form Login
Properti sebagai berikut:
Textbox 1 name txtName
Textbox 2 name txtpassword
Command button 1 name cmdLogin
Command button 1 Caption Login
Form name Login_form
Kemudian kode sebagai berikut:
Private Sub cmdLogin_Click()
Dim usrname As String
Dim psword As String
Dim usernam As String
Dim pssword As String
Dim Msg As String
Register.UserInfo.Refresh
usrname = txtName.Text
psword = txtpassword.Text
Do Until Register.UserInfo.Recordset.EOF
If Register.UserInfo.Recordset.Fields("username").Value = usrname And
Register.UserInfo.Recordset.Fields("password").Value = psword Then
Login_form.Hide
frmLibrary.Show
Exit Sub
Else
Register.UserInfo.Recordset.MoveNext
End If
Loop
Msg = MsgBox("Invalid password, try again!", vbOKCancel)
If (Msg = 1) Then
Login_form.Show
txtName.Text = ""
txtpassword = ""
Else
End
End If
End Sub
Form Data Buku
Properti sebagai berikut:
Form name frmLibrary
ADO control name adoLibrary
ADO visible False
TextBox 1 name txtTitleA
TextBox 2 name txtAuthor
TextBox 3name txtPublisher
TextBox 4 name txtYear
TextBox 5 name txtCategory
Command button 1 name cmdSave
Command button 1 caption &Save
Command button 2 name cmdNew
Command button 2 caption &New
Command button 3 name cmdDelete
Command button 3 caption &Delete
Command button 4 name cmdCancel
Command button 4 caption &Cancel
Command button 5 name cmdNext
Command button 5 caption N&ext
Command button 6 name cmdPrevious
Command button 6 caption &Previous
Command button 7 name cmdExit
Command button 7 caption E&xit
Kemudian kode sebagai berikut:
Private Sub cmdCancel_Click()
txtTitle.Text = ""
txtAuthor.Text = ""
txtPublisher.Text = ""
txtYear.Text = ""
txtCategory.Text = ""
End Sub
Private Sub cmdDelete_Click()
Confirm = MsgBox("Are you sure you want to delete this record?", vbYesNo, "Deletion
Confirmation")
If Confirm = vbYes Then
adoLibrary.Recordset.Delete
MsgBox "Record Deleted!", , "Message"
Else
MsgBox "Record Not Deleted!", , "Message"
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdNew_Click()
adoLibrary.Recordset.AddNew
End Sub
Private Sub cmdNext_Click()
If Not adoLibrary.Recordset.EOF Then
adoLibrary.Recordset.MoveNext
If adoLibrary.Recordset.EOF Then
adoLibrary.Recordset.MovePrevious
End If
End If
End Sub
Private Sub cmdPrevious_Click()
If Not adoLibrary.Recordset.BOF Then
adoLibrary.Recordset.MovePrevious
If adoLibrary.Recordset.BOF Then
adoLibrary.Recordset.MoveNext
End If
End If
End Sub
Private Sub cmdSave_Click()
adoLibrary.Recordset.Fields("Title").Value = txtTitle.Text
adoLibrary.Recordset.Fields("Author").Value = txtAuthor.Text
adoLibrary.Recordset.Update
End Sub
Sabtu, 27 Maret 2010
Selasa, 15 Desember 2009
Database
Data base adalah suatu koleksi data computer yang terintegrasi, diorganisasikan dan disimpan dengan cara yang memudahkan pengambilan kembali. DASD (medium file master yang baik) harus digunakan. Tujuan utama dari konsep database adalah meminimumkan pengulangan data dan mencapai independensi. Pengulangan data (data redundancy ) adalah duplikasi data artinya data yang sama disimpan dalan beberapa file. Independensi data adalah kemampuan untuk membuat perubahan dalan struktur data tanpa membuat perubahan pada program yang memproses data. Independensi data dicapai dengan menempatkan spesifikasi data dalam label dan kamus yang terpidah secara fisik dari program. Program mengacu pada tabel untuk mengakses data. Perubahan pada struktur data hanya dilakukan sekali, yaitu dalam tabel.
Ketika perusahaan mengadopsi konsep database, hirarki data menjadi:
· database
· file
· catatan
· elamen data
File-file tersendiri dapat tetap ada, mewakili komponen -komponen utama dari database namun organisasi fisik dari data tidak menghambat pemakai. Tersedia berbagai cara untuk mengintegrasikan isi dari file-file yang memiliki hubungan logis.
Bentuk Data Base
- Hierarchical DataBase
Biasa digunakan untuk jaringan komunikasi data yang berupa hierarchi/tree. Dasar hierarchi Data base berusaha untuk menggambar realita dalam sebuah organisasi kebentuk data komputer. - Network DataBase
Network DB dibuat karena jaringan komunikasi memiliki topology Mesh, shg membutuhkan bentuk ini. Network Data Base memiliki struktur file yang sama, sehingga file yang satu dapat mengetahui / mendapatkan informasi file yang lain dengan benar. - Relational DataBase
Bentuk DB yang paking Fleksibel dan terbuka. Biasanya digunakan pada local saja.
Struktur Data Base
Integrasi logis file dapat dicapai secara eksplisit atau secara implicit.
- Hubungan eksplisit
inverted index dan link field menetapkan hubungan eksplisit antara data yang terintefrasi secara logis dalam file yang sama. Suatu pendekatan untuk menetapkan hubungan eksplisit antara catatan dari beberapa file adalah dengan menyusun catatan-catatan tersebut dalam suatu hirarki. Ini disebut struktur hirarkis. Dalam struktur seperti ini, setiap catatan pada satu tingkat dapat dihubungkan ke berbagai catatan yang setingkat lebih rendah. Catatan yang memiliki anak disebut parent dan anak catatan itu sisebut children. - Hubungan implicit
Pada awal 1970-an Edgar f. Codd dan C.J. Date, keduanya dari IBM tetapi bekerja secara terpisah, mengembangkan statu pendekatan untuk menetapkan hubungan antar catatan yang tidak harus dinyatakan secara eksplisit. Link field khusus tidakperlu disertakan dalam catatan. Pendekatan Codd dan Date dinamai struktur relasional, dan menggunakan hubungan implicit, yaitu hubungan yang dapat dinyatakan secara tidak langsung dari catatan data yang telah ada. Keuntungan utama dari struktur relasional bagi CBIS adalah fleksibelitas yang ditawarkanya dalam rancangan dan penggunaan database. Pemakai dan spesialis informasi dibebeskan dari keharusan mengidentifigasi semua informasi yang diperlukan
sebelum menciptakan database.
Tipe-tipe Data Base
a. Operational DataBase
DB menyimpan data detail yang dibutuhkan untuk mendukung operasi dari entire organization.
b. Analytical DataBase
Menyimpan data dan information extrated dari operational yang diseleksi dan external DB. Meliputi data dan informasi yang banyak dibutuhkan oleh manajer organisasi dan end user.
c. Data WareHouse
Merupakan pusat data sentral yang ditampilkan dan diintegrasikan sehingga dapat digunakan oleh manajer dan user professional untuk macam-macam analisis bisnis, penelitian pasar dan decision support.
d. Distributed DataBase
e. End User DataBase
Data Base terdiri dari variasi data yang dikembangkan oleh end user pada workstation.
f. HyperMedia DataBase
g. External DataBase
Komponen Data Base :
- File data base : memiliki elemen-elemen data yang disimpan dalam salah satu format organisasi file data base.
- DBMS : suatu kelompok program software yang mengelola DB, mengontrol akses terhadap DB, menjaga pengamanan DB dan melakukan tugas-tugas lain.
- Sistem Antar-Muka Bahasa Induk (A Host Language Interfice system)
Bagian dari DBMS yang berkomunikasi dengan program aplikasi, menafsirkan intruksi dan bahasa tingkat tinggi aplikasi. - Program Aplikasi
- Sebuah sistem Antar muka Bahasa Alami ( A Natural Language Interface system)
Suatu bahasa pertanyaan (query language) yang memungkinkan pemakai untuk mendapatkan keterangan tentang apa saja yang tersedua pada system komputer. - Kamus Data (data dictionary)
Pusat penyimpanan infomasi data-data dari DB yang memuat skema DB, yang mana nama dari setiap item dalam DB serta deskripsi dan definisi atribut-atributnya yang merujuk pada data standar. - Terminal Pengaksesan dan pemutakhiran yang online
Letaknya dapat berdekatan / berjauhan. - Sistem keluaran / pembuat Reportase ( The output system or report Generator)
Terdiri dari laporan biasa ,dokumen dan laporan khusus.
Kriteria DataBase
- Struktur filenya memudahkan untuk mengcutkan suatu record dengan record lainnya.
- Penggabungan file secara menyilang dimungkinkan, sehingga record yang sebelumnya bebas karena biasa digabung dan diproses bersama secara otomatis.
- File program/datanya bersifat bebas, sehingga memudahkan untuk pemutakhiran dan perawatan DB.
- Memilih rumusan bersama (common definition) dalam kaitannya dengan definisi data, format record dan berbagai jenis deskripsi lainnya.
- Memiliki DBMS untuk mengelola data.
- Kamus Data
- Memiliki memori akses langsung yang besar untuk memuat data DBMS.
- Memiliki program dan piranti komunikasi yang canggih, yang memungkinkan pengguna untuk mengakses data secara serempak.
- Memiliki teknik-teknik penyalinan (back up), penghidupan kembali (restart) dan perolehan kembali (recovery) yang canggih yang dapat merekrontuksi kembali file-file DB jika ada data yang rusak/hilang.
- Adanya Query Language.
Manajerial DataBase Meliputi :
- System Intelegent
Untuk perencanaan strategis, baik dalam substansi jumlahnya maupun sifatnya bagi kegiatan manajemen puncak. - Masalah-masalah management khusus
- Model Manajemen
- Tugas Kunci system informasi
Perangkat lunak data base
Perangkat lunak yang menetapkan dan memelihara integrasi logis antar file, baik eksplisit maupun implicit disebut system manajemen database( datavase management system ) DBMS. IDS dari General Electric adalaj contoh pertamanya dan kemudian diikuti oleh sejumlah usaha serupa dari pemasok perangkat keras dan perangkat lunak lain. Contoh DBMS yang menggunakan struktur hirarkis adalah IMS (Infirmation Management System) dari IBM dan System 2000 dari Intel.
Menciptakan database
Proses menciptakan database mencakup tiga langkah utama, yaitu;
· Menentukan kebutuhan data, meliputi pendekatan berorientasi proses, pendekatan model perusahaan.
· Menjelaskan data, dengan cara system kamus data, data description language.
· Memasukan data
Pengelola database
Seorang spesialis informasi yang bertanggung jawab atas database disebut pengelola database atau DBA. Tugas DBA terbagi dalam empat bidang utama;
- Perencanaan database, mencakup sama dengan para manajer untuk mendefinisikan skema perusahaan dengan para pemakai untuk mendefinisikan subskema mereka. Selain itu juga perperan penting dalam memilih DBMS.
- Penerapan database, terdiri dari menciptakan data base yang sesuai dengan DBMS yang dipilih, serta menetapkan dan menegakkan kebijakan dan prosedur penggunaaan database.
- Operasi database, mencakup menawarkan program pendidikan kepada pemakai datavase dan menyediakan bantuan saat diperlukan.
- Keamanan database, meliputi pemantauan kegiatan database dengan menggunakan statistic yang disediakan DBMS. Selain itu juga memastikan bahwa data base tetap aman.
DBMS (Data Base Management System)
DBMS: Suatu cara dalam bentuk system yang berguna dalam menyimpan data penggunaan cara yang tepat dapat mempercepat penyimpanan data ,pemrosesan data dan pengambilan data.
Empat hal penting dalam DBMS
a. Query language
b. Security consideration
c. Biaya tidak langsung pemrosesan
d. Kecocokan dengan tipa aplikasi
Elemen-elemen utama dari DBMS ;
· Data description language processor
· Performance statistics processor
· Modul backup/recovery
· Manajer database
Keuntungan DBMS
· Mengurangi pengulangan data
· Mencapai independesi data
· Mengintegrasikan data beberapa file
· Mengambil data dan informasi secara cepat
· Meningkatkan keamanan
· Meningkatkan presentasi kesiapan data (data availability) yang berarti tersedia pada waktu dibutuhkan.
· Mempercepat penyimpanan dan pengambilan data.
· Mempercepat dan mempermudah pemrosesan data
· Mengurangi penyimpanan data yang rangkap
· Mempermudah pemrograman karena lebih fleksibel.
Kerugian DBMS
· Kurangnya ahli Data Base
· Biaya pemrosesan data sangat tinggi
· Kebutuhan software dan Hardware yang bertambah
· Penggabungan dan pengamanan data
Mangikat pemakai untuk
· Memperoleh perangkat lunak yang mahal
· Memperoleh konfigurasi perangkat keras yang besar
· Mempekerjakan dan mempertahankan staf DBA
Jumat, 11 Desember 2009
Langganan:
Postingan (Atom)