contoh penggunaan bahasa c untuk pembuatan aplikasiDeskripsi lengkap
by:indra widiatmojoFull description
.
Full description
Descrição completa
Deskripsi lengkap
Full description
Full description
Full description
Kumpulan Address Aplikasi Vb Sistem Pakar
goodDeskripsi lengkap
Membuat Program Aplikasi “CerdasCermat” Dengan VB 6
Oleh :
Indra Widiatmojo
2010
Sekilas tentang Visual Basic 6 (VB 6)
Visual Basic adalah salah satu bahasa pemrograman yang berorientasi object (Object Oriented Programming / OOP) yang sangat mudah digunakan dan dipelaja dipelajari. ri. “ Basic” menunjuk menunjukan an bahasa bahasa pemrogram pemrograman an BASIC (Biginner (Biginner All Purpose Symbolic Intruction Code). Visual Basic diproduksi dan dikembangkan
oleh suatu perusahaan yang bernama Microsoft Corporation (miliknya bang Bill Gattes) yang juga memproduksi sistem operasi yang terkenal bernama Windows
jadi tingkat kompetibelitasnya dengan sistem operasi Windows bagus. Sama dengan halnya pemrograman Java, Visual Basic juga mempunyai fasilitas Graphic User Interface (GUI) dimana kita bisa mendesain tampilan program yang kita inginkan. inginkan. Perbedaan Perbedaan antara pemrogram pemrograman an Java dan pemrogram pemrograman an Visual Visual Basic (VB yang akrap kita sebut) adalah, kalau di pemrograman Java sifat bahasa pemrogram pemrogramanny annyaa terstruktu terstruktur. r. Pengertia Pengertian n dari pemrogram pemrograman an terstruktu terstrukturr adalah adalah dimana setiap pernyataan dieksekusi setelah pernyataan sebelumnya sesuai dengan urutannya. Kalau di VB sifat bahasa pemrogramannya adalah event driven ialah ialah eksekusi eksekusi program ditentukan ditentukan dari event yang disebabkan disebabkan aksi dari user terhadap objek, pesan dari sistem, aplikasi lain, atau event dari aplikasi itu sendiri. Disini penulisan akan berbagi pengalaman sedikit tentang pemrograman Visual Basic 6 (VB 6). Disini penulis akan memberi resep cara membuat “aplikasi cerdascermat” dengan sederhana dengan menggunakan VB 6.
By : Indra Widiatmojo
2
Bagianbagian dari VB 6
Sebelum Sebelum kita memulai memulai membuat membuat program program aplikasi aplikasi tersebut, tersebut, alangkah alangkah baiknya kita mengetahui dahulu fiturfitur yang ada di VB 6. Bagian tampilan utama VB 6
Bidang Kerja Standar Exe Visual Basic
Bagian toolbar VB 6 Start
Stop
Toolbar VB 6
Keterangan : Start : Untuk menjalankan program Stop : Untuk menghetikan jalannya program
By : Indra Widiatmojo
3
Bagian toolbox VB 6
Toolbox VB 6
Keterangan : Sekumpulan dari objek user interface dan kontrol untuk program aplikasi Bagian project eksplorer View Object
View Code
Project eksplorer VB 6
Keterangan : Tempat daftar daftar form dan modul modul proyek aplikasi aplikasi View Code : Untuk menampilkan jendela kode (Code Window)
By : Indra Widiatmojo
4
Object
Prucedure
Jendela kode (Code Window)
View Object : Untuk menampilkan jendela object
Jendela object (View object)
By : Indra Widiatmojo
5
Bagian dari properties window
Properties Window VB 6
Keterangan : Tempat setting propertis dari objek yang dipilih, misalnya warna, caption dan lainlain dari objek yang bersangkutan
Bagian layout window
Layout Window VB 6
Keterangan : Tempat mengatur posisi relatif form terhadap layar monitor
Tabel komponen program yang diperlukan: Gamba ambarr Kompo ompone nen n
Nama Nama Komp Kompon onen en Timer1
Prop Proper erti ties es yang yang diuba iubah h Interval = 225
Rich RichTe Tex xtBox tBox1 1
Borde orderS rSty tyle le = 0rtfN rtfNoB oBoe oerd rder er Font = Time new Roman Size = 14
Label1
BackStyle = 0Transparent Caption = 0 Font = MS Sans Serif Size = 10
Label2
Caption = (Kosong) BorderStyle = 1Fixet Single Font = Time New Roman Size = 14
Label3
Caption = (Kosong) BorderStyle = 1Fixet Single Font = Time New Roman Size = 14
Label4
Caption = (Kosong) BorderStyle = 1Fixet Single Font = Time New Roman Size = 14
Label5
Caption = (Kosong) BorderStyle = 1Fixet Single Font = MS Sans Serif Size = 8 Font Style = Bold
Label6
BackStyle = 0Transparent Caption = Soal Nomor : Font = MS Sans Serif Size = 10
By : Indra Widiatmojo
8
Gamba ambarr Kompo ompone nen n
Nama ama Kompo ompone nen n Label7
Pro Propert pertie iess yang ang diub diuba ah Caption = (Kosong)
BorderStyle = 1Fixet Single Font = MS Sans Serif Size = 10 Label8
Alignment = 2Center BackStyle = 0Transparent Caption = 0 Font = Time New Roman Font Style = Bold Size = 28 ForeColor = Putih
Label9
Alignment = 2Center BackStyle = 0Transparent Caption = POIN Font = Time New Roman Font Style = Bold Size = 12
Shape1
BackStyle = Opaque BorderColor = Coklat
Shape2
BackStyle = Opaque BorderColor = Coklat
Shape3
BackStyle = Opaque BorderColor = Coklat
Frame1
BackColor = Coklat Caption = Pilihan Jawaban
Frame2
BackColor = Coklat Caption = Konfirmasi Jawaban
Frame3
BackColor = Coklat Caption = Jawaban
By : Indra Widiatmojo
9
Gambar bar Kompone ponen n
Nama Komp Kompo onen Comm Comman andB dBut utto ton1 n1 Comm Comman andB dBut utto ton2 n2 Comm Comman andB dBut utto ton3 n3 Comm Comman andB dBut utto ton4 n4 Comm Comman andB dBut utto ton5 n5 Comm Comman andB dBut utto ton6 n6 Comm Comman andB dBut utto ton7 n7
Properties yang diub iubah Capti aption on = Rese Resett Capti aption on = Star Startt Capti aption on = A Capti aption on = B Capti aption on = C Capti aption on = OK Capti aption on = Exit Exit
Pengkodingan Program
Agar program aplikasi bisa berjalan sesuai dengan yang kita inginkan perlu adanya perintahperintah. Nah perintahperintah itulah yang sering disebut pengkodingan atau juga disebut penulisan skript program. Untuk membuat membuat aplikasi aplikasi “cerdasc “cerdascerma ermat” t” kita memerluka memerlukan n beberapa beberapa procedure dan variabel yang nantinya akan di panggil ke event. Dengan mengklik icon
pada project eksplorer, kita bisa menuliskan koding atau skript yang kita
mau.
Tip & Trik : Tanda Tanda
berart berartii skript skript atau atau koding koding pada pada baris baris terse tersebut but cara cara penuli penulisan sannya nya
digabung dengan baris diatasnya. General :
Klik object yang terdapat pada view code dan pilih general.
By : Indra Widiatmojo
10
Tulis variabel seperti dibawah ini! Dim kata As String Dim n As Double Dim i As Double
Procedure :
Supaya mudah pengecekan, skript procedure ini ditulis dibawahnya general Sub tambah() Dim nomor As Integer Dim hasil As Integer nomor = Label1.Caption hasil = nomor + 1 Label1.Caption Label1.Caption = hasil End Sub Sub poin() Dim nilai As Integer nilai = Label8.Caption nilai = nilai + 1 Label8.Caption Label8.Caption = nilai End sub
By : Indra Widiatmojo
11
Form load :
Tambah skript program dibagian form load dengan cara klik object yang terdapat pada view code dan pilih form
Tulis skript seperti dibawah ini! Private Sub Form_Load() Shape1.BackColor = vbWhite Shape2.BackColor = vbWhite Shape3.BackColor = vbWhite Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False End Sub
By : Indra Widiatmojo
12
CommandButton1 :
Tambahka Tambahkan n skript skript program program dibagian dibagian Command1 dengan cara klik object yang klik 2x pada bagian bagian kompone komponen n terdapat pada view code dan pilih Command1 atau klik CommandButton1
Command2.Enabled Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False RichTextBox1.Text = "" End Sub
By : Indra Widiatmojo
13
CommandButton2 :
Tambahka Tambahkan n skript skript program program dibagian dibagian Command2 dengan cara klik object yang klik 2x pada bagian bagian kompone komponen n terdapat pada view code dan pilih Command2 atau klik CommandButton2
Tulis skript seperti dibawah ini! Private Sub Command2_Click() Dim nomor As Integer Dim hasil As Integer nomor = Label1.Caption hasil = nomor + 1 Label1.Caption Label1.Caption = hasil Shape1.BackColor = vbWhite Shape2.BackColor = vbWhite Shape3.BackColor = vbWhite Command3.Enabled Command3.Enabled = True Command4.Enabled Command4.Enabled = True Command5.Enabled Command5.Enabled = True Label5.Caption Label5.Caption = "" Command2.Enabled = False Frame3.Caption Frame3.Caption = "Jawaban No :" & Label1.Caption Label1.Caption End Sub
By : Indra Widiatmojo
14
CommandButton3 :
Tambahkan skript program dibagian Command3 dengan cara klik object yang terdapat pada view code dan pilih Command3 atau klik 2x pada bagian komponen CommandButton3
Tulis skript seperti dibawah ini! Private Sub Command3_Click() Shape1.BackColor = vbRed Shape2.BackColor = vbWhite Shape3.BackColor = vbWhite Label7.Caption Label7.Caption = Label2.Caption Label2.Caption Label5.Caption Label5.Caption = "" Frame3.Caption Frame3.Caption = "Jawaban No :" & Label1.Caption Label1.Caption End Sub
By : Indra Widiatmojo
15
CommandButton4 :
Tambahka Tambahkan n skript skript program program dibagian dibagian Command4 dengan cara Klik object yang klik 2x pada bagian bagian kompone komponen n terdapat pada view code dan pilih Command4 atau klik CommandButton4
Tulis skript seperti dibawah ini! Private Sub Command4_Click() Shape1.BackColor = vbWhite Shape2.BackColor = vbRed Shape3.BackColor = vbWhite Label7.Caption Label7.Caption = Label3.Caption Label3.Caption Label5.Caption Label5.Caption = "" Frame3.Caption Frame3.Caption = "Jawaban No :" & Label1.Caption Label1.Caption End Sub
By : Indra Widiatmojo
16
CommandButton5 :
Tambahka Tambahkan n skript skript program program dibagian dibagian Command5 dengan cara Klik object yang klik 2x pada bagian bagian kompone komponen n terdapat pada view code dan pilih Command5 atau klik CommandButton5
Tulis skript seperti dibawah ini! Private Sub Command5_Click() Shape1.BackColor = vbWhite Shape2.BackColor = vbWhite Shape3.BackColor = vbRed Label7.Caption Label7.Caption = Label4.Caption Label4.Caption Label5.Caption Label5.Caption = "" Frame3.Caption Frame3.Caption = "Jawaban No :" & Label1.Caption Label1.Caption End Sub
By : Indra Widiatmojo
17
CommandButton6 :
Tambahka Tambahkan n skript skript program program dibagian dibagian Command6 dengan cara Klik object yang klik 2x pada bagian bagian kompone komponen n terdapat pada view code dan pilih Command6 atau klik CommandButton6
Tulis skript seperti dibawah ini! Private Sub Command6_Click() Dim pesan As String pesan = Chr(13) & "*************** SOAL HABIS **************" & Chr(13) & Chr(13) & "" If RichTextBox1.Text RichTextBox1.Text = "" Then MsgBox "Klik Start untuk memulai", vbInformation, "Info" ElseIf Shape1.BackColor Shape1.BackColor = vbWhite And Shape2.BackColor Shape2.BackColor = vbWhite And Shape3.BackColor Shape3.BackColor = vbWhite Then MsgBox "jawaban belum dipilih", vbInformation, vbInformation, "Info" ElseIf Label1.Caption = 1 Then If Shape1.BackColor Shape1.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If
By : Indra Widiatmojo
18
ElseIf Label1.Caption = 2 Then If Shape2.BackColor Shape2.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 3 Then If Shape3.BackColor Shape3.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 4 Then If Shape2.BackColor Shape2.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 5 Then If Shape3.BackColor Shape3.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 6 Then
By : Indra Widiatmojo
19
If Shape1.BackColor Shape1.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 7 Then If Shape3.BackColor Shape3.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 8 Then If Shape2.BackColor Shape2.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 9 Then If Shape1.BackColor Shape1.BackColor = vbRed Then Label5.Caption = "Betul..." Label5.ForeColor Label5.ForeColor = vbGreen Call tambah Call poin Else Label5.Caption = "Salah!!!" Label5.ForeColor Label5.ForeColor = vbRed Call tambah End If ElseIf Label1.Caption = 10 Then If Shape3.BackColor Shape3.BackColor = vbRed Then Label5.Caption = "Betul..."
Tambahka Tambahkan n skript skript program program dibagian dibagian Command7 dengan cara Klik object yang klik 2x pada bagian bagian kompone komponen n terdapat pada view code dan pilih Command7 atau klik CommandButton7
Tulis skript seperti dibawah ini! Private Sub Command7_Click() Unload Me End Sub
By : Indra Widiatmojo
22
Label1 :
Tambahkan skript program dibagian Label1 dengan cara klik object yang terdapat bagian komponen Label1 dan pada pada view code dan pilih Label1 atau klik 2x pada bagian bagian procedure yang mulanya Click ubah menjadi Change
Tulis skript seperti dibawah ini! Private Sub Label1_Change() Label1_Change() If Label1.Caption = 1 Then RichTextBox1.Text RichTextBox1.Text = "Pemilik perusahaan APLE yang produknya terkenal " RichTextBox1.Text RichTextBox1.Text = RichTextBox1.Text RichTextBox1.Text & "dengan merek MAC adalah?" Label2.Caption = " " & "Steve Jobs" Label3.Caption = " " & "Bill Gattes" Label4.Caption = " " & "Trovald Linus" ElseIf Label1.Caption = 2 Then RichTextBox1.Text RichTextBox1.Text = "Siapakah pengusaha ayam goreng Kentucky Fried Chiken " RichTextBox1.Text RichTextBox1.Text = RichTextBox1.Text RichTextBox1.Text & "yang meraih kesuksesannya pada tahun 1955?" Label2.Caption = " " & "Asa Candler" Label3.Caption = " " & "Colonel Sanders" Label4.Caption = " " & "Renee Mouborgne" ElseIf Label1.Caption = 3 Then RichTextBox1.Text RichTextBox1.Text = "Untuk menyembunyikan perbedaan perbedaan database " RichTextBox1.Text RichTextBox1.Text = RichTextBox1.Text RichTextBox1.Text & "dan memberikan method sederhana untuk " RichTextBox1.Text RichTextBox1.Text = RichTextBox1.Text RichTextBox1.Text & "melakukan queri pada berbagai macam database dengan " RichTextBox1.Text RichTextBox1.Text = RichTextBox1.Text RichTextBox1.Text & "perubahan kode seminimal mungkin " RichTextBox1.Text RichTextBox1.Text = RichTextBox1.Text RichTextBox1.Text & "adalah fungsi dari?" Label2.Caption = " " & "ADODC"
By : Indra Widiatmojo
23
Label3.Caption = " " & "ODBC" Label4.Caption = " " & "ADODB" ElseIf Label1.Caption = 4 Then RichTextBox1.Text = "Bahasa mesin di dunia IT di sebut juga dengan bahasa ?" Label2.Caption = " " & "Tingkat tinggi" Label3.Caption = " " & "Assembly" Label4.Caption = " " & "Mekanik" ElseIf Label1.Caption = 5 Then RichTextBox1.Text RichTextBox1.Text = "Type soket apakah yang bisa digunakan untuk prosesor " RichTextBox1.Text RichTextBox1.Text = RichTextBox1.Text & "Intel Core I7 ?" Label2.Caption = " " & "Type Slot" Label3.Caption = " " & "LGA 775" Label4.Caption = " " & "LGA 1366" ElseIf Label1.Caption = 6 Then RichTextBox1.Text = "Gunung yang berada di selat sunda adalah gunung?" Label2.Caption = " " & "Gunung Anak Krakatau" Label3.Caption = " " & "Gunung Galunggung" Label4.Caption = " " & "Gunung Krakatau" ElseIf Label1.Caption = 7 Then RichTextBox1.Text RichTextBox1.Text = "Gerakan yang ada di dalam tenggorokan kita disaat kita " RichTextBox1.Text = RichTextBox1.Text & "menelan suatu makanan disebut gerakan?" Label2.Caption = " " & "Mekanisme pencernaan" Label3.Caption = " " & "Gravitasi dalam tubuh" Label4.Caption = " " & "Peristaltik" ElseIf Label1.Caption = 8 Then RichTextBox1.Text RichTextBox1.Text = "Ada berapa benua dibumi ini?" Label2.Caption = " " & "6 Benua" Label3.Caption = " " & "5 Benua" Label4.Caption = " " & "4 Benua" ElseIf Label1.Caption = 9 Then RichTextBox1.Text RichTextBox1.Text = "Kerajaan pertama yang ada di indonesia adalah?" Label2.Caption = " " & "Kutai" Label3.Caption = " " & "Taruma negara" Label4.Caption = " " & "Mataram Kuno" ElseIf Label1.Caption = 10 Then RichTextBox1.Text RichTextBox1.Text = "manusia purba pertama di Indonesia adalah?" Label2.Caption = " " & "Homosapien" Label3.Caption = " " & "Megantropus erectus" Label4.Caption = " " & "Pitekantropus erectus" Else Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False End If End Sub
By : Indra Widiatmojo
24
Timer1 :
Tambahkan skript program dibagian Timer1 dengan cara klik object yang terdapat pada view code dan pilih Timer1 atau klik 2x pada bagian komponen Timer1
Tulis skript seperti dibawah ini! Private Sub Timer1_Timer() On Error Resume Next kalimat = "Cerdas Cermat BY : INDRA WIDIATMOJO" i = Len(kalimat) kata = kata & Mid(kalimat, n, 1) Form1.Caption = kata If n = i Then kata = "" n = 1 Else n = n + 1 End If End Sub
By : Indra Widiatmojo
25
Testing Program
Setelah semua koding program atau skript program ditulis secara lengkap dan benar, lalu anda jalankan dengan cara mengklik icon
yang terdapat pada
toolbar atau juga bisa menekan “F5” pada keyboard. Dan hasilnya akan seperti pada gambar dibwah ini.
Tampilan program aplikasi “cerdascermat”
By : Indra Widiatmojo
26
Untuk mengetest program yang kita buat, kita cukup klik “start” pada program tersebut selanjutnya anda baca soal yang tampil pada program tersebut lalu anda pilih jawaban A, B, atau C. Untuk mengecek apakah jawaban anda tadi benar atau tidak klik “OK”
Hasil test program
Penutup
Demikian resep bagaimana membangun aplikasi “Cerdascermat” sederhana dalam bahasa pemrograman Visual Basic 6 dan sedikit tentang pemrograman Visual Basic itu sendiri. Semoga anda dapat memahami. SELAMAT MENCOBA
