Selasa, 05 Juni 2012

LATIHAN MEMBUAT COMBOBOX VB

KONTROL COMBOBOX

Hy Sobat?? Pasti pernah dengar kata ComboBox kan??
Nahhh... Sekarang kita Lathan melakukan Kontrol ComboBox yah!!
eeesssstttttt... tunggu dulu!!
Kita harus tau dolo apa itu ComboBox...

ComboBox

komponen yang digunakan untuk membuat sebuah daftar pilihan, dimana ada satu pilihan yang dapat dipilih. Kemudian Sobat dapat mengklik drop dwon untuk mencari dan memilih salah satu yang terdapat di dalam daftar.

Contoh
Rancang lah Kontrol ComboBox yang berisikan Nama Siswa, Materi Ujian dan Biaya Ujian. Materi Ujian menggunakan Kontrol ComboBox!!

Langkah Pertama Sobat Merancang desain Form.
  •  Sobat desain form seperti pada Gambar 1.1 yang terdiri dari: Label, TextBox, ComboBox, dan Commandbutton.
  • Control
    Nama
    Caption/Text
    Label1
    Label1
    Nama Siswa
    Label2
    Label2
    Materi Ujian
    Label3
    Label3
    Biaya Ujian
    Text1
    Nama
    Dikosongkan
    Text2
    Biaya
    Dikosongkan
    Combo1
    Com_Materi
    Dikosongkan
    command1
    Keluar
    Keluar
Gambar 1.1

  • Sobat mengubah properti dari Kontrol CombBox dan isi dengan ketentuan :
    1.  Gunakan properti  List dari Kontrol ComboBox untuk memasukkan data input pilihan: Visual Basic, Dreamweaver, dan Flash. Setiap mengisi sebuah data input pilihan, gunakan tombo Ctrl +  Enter untuk memisahakan penulisan daftar pilihan.
    2.  Kosongkan baris Properti Text.
  • Setelah itu Sobat klik dua kali pada ComboBox dan isikan Kode program berikut:
Private Sub Cbo_materi_Click()
If Cbo_Materi.ListIndex = 0 Then
biaya.Text = 40000
ElseIf Cbo_Materi.ListIndex = 1 Then
biaya.Text = 35000
ElseIf Cbo_Materi.ListIndex = 2 Then
biaya.Text = 25000
ElseIf Cbo_Materi.ListIndex = 3 Then
biaya.Text = 43000
ElseIf Cbo_Materi.ListIndex = 4 Then
biaya.Text = 38000
ElseIf Cbo_Materi.ListIndex = 5 Then
biaya.Text = 42000
End If
End Sub

  • Dan terakhir klik dua kali CommandButton dan isikan Kode program berikut:
Privat Sub Out_click()
end
End Sub

Setelah Sobat memasukkan Kode, Sobat klik Run ( Jalankan Program) !!
Dan Hasilnya Seperti Gambar 1.2 ini ! !


Nah.. kalau Sobat ingin mengembangkannya lebih baik lagi, pastinya lebih hebat! !
Jangan Ragu untuk Mencoba yah Sobat ! ! Mc.Daniel





Diposting oleh di Tidak ada komentar:

Senin, 04 Juni 2012

Program Zodiak Menggunakan VB 6.0

Syalommmm...

Hay Sobat. Terimah kasih Sudah Berkunjung ke Blog saya lagi... Sobat, kali ini kita tak belajar memakai Program Turbo Pascal, tetapi kali ini kita akan mendalami Visual Basic 6.0 (VB).
dalam VB ini Saya ingin membuat Program Zodiak. Caranya sih gampang, yang penting Sobat Harus terus berlatih dan mencoba..
Mari kita coba Programnya!!!


Langkah Langkah:


* Sobat Buka Visual Basic
Sehingga sobat berada pada :
Setelah itu Sobat Click Open dan sobat berada pada Lembaran kerjannya


Sekarang Sobat mulai Mengerjakan/ Mendesign Program Outputnya Seperti ini :

  • "ZODIAK 2012, NAMA ANDA, TAHUN LAHIR, BULAN LAHIR, TANGGAL,ZODIAK ANDA,DAN KETERANGAN ZODIAK" MENGGUNAKAN LABEL
  • PEMPROSES NAMA, ZODIAK ANDA, KETERANGAN ZODIAK MENGGUNAKAN TEXTBOX
  • TAHUN,BULAN,TANGGAL MENGGUNAKAN COMBO BOX
  • RAMAL MENGGUNAKAN COMMAND BOTTON
  • HASIL DARI RAMALAN MENGGUNAKAN LABEL.

Sobat dapat memahaminya kan?? :)
Sekarang kita mulai memasuki Pemogramannya atau Input datanya:

Dim a As Integer
Dim b As Integer
Dim f As Integer
Dim kabisat As Boolean
Private Sub Combo2_CLICK()
If Me.Combo2.Text = "Februari" Then
   If kabisat = True Then
      a = 29
   Else
      a = 28
   End If
ElseIf Me.Combo2.Text = "Januari" Or Me.Combo2.Text = "Maret" Or Me.Combo2.Text = "April" Or Me.Combo2.Text = "Mei" Or Me.Combo2.Text = "Juli" Or Me.Combo2.Text = "Agustus" Or Me.Combo2.Text = "Oktober" Or Me.Combo2.Text = "Desember" Then
    a = 31
Else
    a = 30

End If

Me.Combo1.Clear
For b = 1 To a
    Me.Combo1.AddItem (b)
Next b
End Sub

Private Sub Combo3_CLICK()
Me.Combo2.Clear
Me.Combo2.AddItem ("Januari")
Me.Combo2.AddItem ("Februari")
Me.Combo2.AddItem ("Maret")
Me.Combo2.AddItem ("April")
Me.Combo2.AddItem ("Mei")
Me.Combo2.AddItem ("Juni")
Me.Combo2.AddItem ("Juli")
Me.Combo2.AddItem ("Agustus")
Me.Combo2.AddItem ("September")
Me.Combo2.AddItem ("Oktober")
Me.Combo2.AddItem ("November")
Me.Combo2.AddItem ("Desember")
e = Me.Combo3.Text
f = e Mod 4
If f = 0 Then
   kabisat = True
Else
   kabisat = False

End If
End Sub


Private Sub Command1_Click()
If NAMA.Text = "" Then
MsgBox "Anda Belum Memasukkan Nama Anda"
End If

Dim c As String
If (Me.Combo2.Text = "Desember" And Me.Combo1.Text >= 22) Or (Me.Combo2.Text = "Januari" And Me.Combo1.Text <= 20) Then
     c = "CAPRICORN"
     Me.Text3.Text = "22 Desember - 20 Januari"
     Me.Label8.Caption = "Karakter: gengsi tinggi, rajin, pendiam, materialis, teguh pendirian, ambisius, suka memerintah, dan mampu mengorganisir teman-temannya."
     
ElseIf (Me.Combo2.Text = "Januari" And Me.Combo1.Text >= 21) Or (Me.Combo2.Text = "Februari" And Me.Combo1.Text <= 19) Then
     c = "AQUARIUS"
     Me.Text3.Text = "21 Januari - 19 Februari"
     Me.Label8.Caption = "Karakter: jenius, tenang, penuh ide, obyektif (tidak memihak), cepat mengerti"
     
ElseIf (Me.Combo2.Text = "Februari" And Me.Combo1.Text >= 20) Or (Me.Combo2.Text = "Maret" And Me.Combo1.Text <= 20) Then
     c = "PISCES"
     Me.Text3.Text = "20 Februari - 20 Maret"
     Me.Label8.Caption = "Karakter: penuh cinta, praktis, memiliki sisi manusiawi yang besar, suka mengkhayal"
     
ElseIf (Me.Combo2.Text = "Maret" And Me.Combo1.Text >= 21) Or (Me.Combo2.Text = "April" And Me.Combo1.Text <= 19) Then
     c = "ARIES"
     Me.Text3.Text = "21 Maret-19 April"
     Me.Label8.Caption = " Karakter: energik, cepat emosi, agresif, impulsif, berjiwa pemimpin, tidak sabaran, egois "
     
ElseIf (Me.Combo2.Text = "April" And Me.Combo1.Text >= 20) Or (Me.Combo2.Text = "Mei" And Me.Combo1.Text <= 20) Then
     c = "TAURUS"
     Me.Text3.Text = "21 April-20 Mei"
     Me.Label8.Caption = " Karakter : materialistis, keras kepala, pasif, praktis dan setia, ramah & sabar, memiliki jiwa toleransi"
   
ElseIf (Me.Combo2.Text = "Mei" And Me.Combo1.Text >= 21) Or (Me.Combo2.Text = "Juni" And Me.Combo1.Text <= 21) Then
     c = "GEMINI"
     Me.Text3.Text = "21 Mei-21 Juni"
     Me.Label8.Caption = "Karakter: pandai berbicara, lincah, mudah berubah-ubah, tidak stabil, mudah gugup, sangat peka"

ElseIf (Me.Combo2.Text = "Juni" And Me.Combo1.Text >= 22) Or (Me.Combo2.Text = "Juli" And Me.Combo1.Text <= 22) Then
     c = "CANCER"
     Me.Text3.Text = "22 Juni-22 Juli"
     Me.Label8.Caption = "Karakter: setia, penuh perhatian, sulit memaafkan, memiliki daya ingat yang kuat, suasana hati tidak menentu, sentimentil,"
    
ElseIf (Me.Combo2.Text = "Juli" And Me.Combo1.Text >= 23) Or (Me.Combo2.Text = "Agustus" And Me.Combo1.Text <= 23) Then
     c = "LEO"
     Me.Text3.Text = "23 Juli-23 Agustus"
     Me.Label8.Caption = "Karakter: suasana hati sering berubah, setia, penuh perhatian, sentimentil, sulit memaafkan, memiliki daya ingat yang kuat"
     
ElseIf (Me.Combo2.Text = "Agustus" And Me.Combo1.Text >= 24) Or (Me.Combo2.Text = "September" And Me.Combo1.Text <= 22) Then
     c = "VIRGO"
     Me.Text3.Text = "24 Agustus-22 September"
     Me.Label8.Caption = "Karakter:, analistis, praktis kritis, rajin, berkepala dingin dan logis, sederhana"
   
ElseIf (Me.Combo2.Text = "September" And Me.Combo1.Text >= 23) Or (Me.Combo2.Text = "Oktober" And Me.Combo1.Text <= 23) Then
     c = "LIBRA"
     Me.Text3.Text = "23 September-23 Oktober"
     Me.Label8.Caption = "Karakter: memiliki naluri yang kuat, bimbang, penuh keraguan, adil pandai bermuka dua, mempesona"

ElseIf Me.Combo2.Text = "Oktober" And Me.Combo1.Text >= 24 Or Me.Combo2.Text = "November" And Me.Combo1.Text <= 22 Then
     c = "SCORPIO"
     Me.Text3.Text = "24 Oktober-22 November"
     Me.Label8.Caption = "Karakter: gigih, panjang akal, pendendam, tekun , pendiam."

ElseIf Me.Combo2.Text = "November" And Me.Combo1.Text >= 23 Or Me.Combo2.Text = "Desember" And Me.Combo1.Text <= 21 Then
     c = "SAGITARIUS"
     Me.Text3.Text = "23 November-21 Desember"
     Me.Label8.Caption = "Karakter: pandai berdiplomasi, berpandangan luas pandai, berjiwa petualang, mandiri, suka kebebasan."

End If
Text1 = c
End Sub

Private Sub Form_Load()
Dim d As Integer
Me.Combo3.Clear
For d = 1975 To 2012
    Me.Combo3.AddItem (d)
Next d

Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Image1.Visible = True Then
    Image1.Visible = False
ElseIf Image1.Visible = False Then
    Image1.Visible = True
End If
End Sub

Bagaimanakah Sobat?? apakah Anda Sudah berhasil??
Gampang kan Caranya...
Rajin Berlatih Yah!!




Diposting oleh di 2 komentar:
Label:
Langganan: Komentar (Atom)