Rabu, 05 Oktober 2011 - 0 komentar

Belajar Program Visual Basic Menggunakan FOR dan Do While

untuk membuat program seperti berikut:


dapat menggunakan FOR ataupun Do While

Langkah Pertama :
Kita membuat sebuah Project Di Form Seperti ini:
Jika Menggunakan For Program yg di masukan adalah :
Dim i as integer

private sub command1_click()
n=val(text1)
For i=1 to n
if i mod 2 = 0 then
list1.add item 1
else
list1.add item -1

private sub command2_click()
Dim a as integer
a=2
n=val (text2)
for i=1 to n
If i mod 2 = 0 then
list2.add item -a
else
list2. Add Item a
End If
a = a+2
Next I
End Sub

private sub command3_click()
Dim A As Integer
a = 1
n = Val (Text3)
For i = 1 To n
List3.Add item a
If a = 1 then
a=3
Else
a = a+3
End If
Next I
End Sub

private sub command4_click()
a = 2
n = val (Text4)
For i = 1 to n
List4.Add Item a
a = a*a
Next i
End Sub

private sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Jika Menggunakan Do While maka Programnya adalah:


Dim i, n As Integer

Private Sub Command1_Click()
n = Val(Text1)
i = 1
Do While i <= n
    If i Mod 2 = 0 Then
        List1.AddItem 1
    Else
        List1.AddItem -1
    End If
i = i + 1
Loop
End Sub

Private Sub Command2_Click()
Dim a As Integer
a = 2
n = Val(Text2)
i = 1
Do While i <= n
If i Mod 2 = 0 Then
        List2.AddItem -a
    Else
        List2.AddItem a
End If
a = a + 2
i = i + 1
Loop
End Sub

Private Sub Command3_Click()
Dim a As Integer
a = 1
n = Val(Text3)
i = 1
Do While i <= n

List3.AddItem a
If a = 1 Then
a = 3
Else
a = a + 3
End If
i = i + 1
Loop
End Sub

Private Sub Command4_Click()
a = 2
n = Val(Text4)
i = 1
Do While i <= n
List4.AddItem a
a = a * a
i = i + 1
Loop
End Sub

private sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

kemudian masukan jumlah kelipatan yang ingin di tampilkan pada list
maka tampilan'a akan sama seperti ini...

Selamat Mencoba.....
Selasa, 27 September 2011 - 0 komentar
program membuat kalkulator menggunakan Visual Basic 6.0
 
 buatlah tampilan seperti di bawah ini pada form...


kemudian masukan program(coding) berikut ini:
Dim stt, stt2 As String

Private Sub Command1_Click()
If stt = "T" Then
Text1.Text = 1
Else
If stt2 = "T" Then
Text2.Text = 1
End If
End If

End Sub

Private Sub Command16_Click()
Unload Me
End Sub

Private Sub Command2_Click()
If stt = "T" Then
Text1.Text = 2
Else
If stt2 = "T" Then
Text2.Text = 2
End If
End If

End Sub
Private Sub Command3_Click()
If stt = "T" Then
Text1.Text = 3
Else
If stt2 = "T" Then
Text2.Text = 3
End If
End If

End Sub
Private Sub Command4_Click()
If stt = "T" Then
Text1.Text = 4
Else
If stt2 = "T" Then
Text2.Text = 4
End If
End If

End Sub
Private Sub Command5_Click()
If stt = "T" Then
Text1.Text = 5
Else
If stt2 = "T" Then
Text2.Text = 5
End If
End If

End Sub
Private Sub Command6_Click()
If stt = "T" Then
Text1.Text = 6
Else
If stt2 = "T" Then
Text2.Text = 6
End If
End If

End Sub

Private Sub Command7_Click()
If stt = "T" Then
Text1.Text = 7
Else
If stt2 = "T" Then
Text2.Text = 7
End If
End If

End Sub
Private Sub Command8_Click()
If stt = "T" Then
Text1.Text = 8
Else
If stt2 = "T" Then
Text2.Text = 8
End If
End If

End Sub
Private Sub Command9_Click()
If stt = "T" Then
Text1.Text = 9
Else
If stt2 = "T" Then
Text2.Text = 9
End If
End If

End Sub
Private Sub Command10_Click()
If stt = "T" Then
Text1.Text = 0
Else
If stt2 = "T" Then
Text2.Text = 0
End If
End If

End Sub
Private Sub Command11_Click()
Label1.Caption = "+"
End Sub
Private Sub Command12_Click()
Label1.Caption = "-"
End Sub
Private Sub Command13_Click()
Label1.Caption = "x"
End Sub
Private Sub Command14_Click()
Label1.Caption = "/"
End Sub

Private Sub Text1_Click()
stt = "T"
stt2 = "F"
End Sub

Private Sub Text2_Click()
stt = "F"
stt2 = "T"
End Sub

Private Sub Command15_Click()
If Label1.Caption = "+" Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
If Label1.Caption = "-" Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Else
If Label1.Caption = "x" Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Else
If Label1.Caption = "/" Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End If
End If
End If
End If
End Sub

kemudian klik start
 maka akan muncul tampilan seperti ini:
mudah bukan???
Selamat Mencoba....





Minggu, 18 September 2011 - 0 komentar

pengertian event


Event
Event untuk Mouse
Banyak event yang dapat di bangkitkan dengan event, di antaranya:
·         Click
Terjadi jika anda menekan dan melepas tombol kiri mouse dengan cepat saat pointer mouse berada di atas object.
·         DblClick
Terjadi apabila anda menekan dan menahan tombol kiri mouse dua klik dengan cepat tanpa memindahkan posisipointer mouse. Jika selang waktu klik kedua melebihi limit klik ganda pada system computer anda (yaitu pada setting control panel windows), maka aplikasi akan menanggapinya sebagai event click
·         DragDrop
Terjadi apabila anda menekan dan menahan tombol kiri mouse lalu menyeret objek dari satu tempat ke tempat lain, baru kemudian lepaskan tombol kiri mouse.
·         DragOver
·         terjadi apabila anda menekan dan menahan tombol kiri mouse lalu menyeret objek dari satu tempat ke tempat lain. Event ini biasanya di gunakan untuk mengubah gambar pointer mouse saat anda menyret objek tadi. Ada sebuah variable bernama State yang di gunakan untukmengubah nilai ketika mouse di seret melampaui target sebenarnya.
·         Mouse down
Terjadi apabila anda hanya menekan dan menahan tombol mouse
·         Mouse up
Terjadi apabila anda melepas tombol mouse.

·         MouseMove
Terjadi jika anda hanya memindahkan mouse tanpa menekan tombolnya. Event ini dapat melembatkan system karena setiap perubahan akan selalu di komunikasikan dengan aplikasi.

Event Untuk Keyboard
Fungsi utama dari event keyboard ini adalah mengisi input pada aplikasi. Antara lain:
·         KeyPress
Terjadi jika sebuah tombol keyboard di tekan. Sebagai parameter dari Keypress, adalah kode ASCII untuk menyatakan jenis keyboard yang di tekan. Karena huruf kecil dan huruf besar berbeda kodenya, maka agar sebuah tombol bekerja baik, penulisan event prosedur ini harus di lakukan secara terpisah untuk keduanya.
·         KeyDown
Terjadi apabila anda menekan dan menahan sebuah tombol keyboard.
·         KeyUp
Terjadi apabila anda melepaskan sebuah tombol keyboard.

Event Untuk Perubahan
Event ini berguna untuk menghasilkan suatu tindakan (aksi) ketika sesuatu di mulai atau sesuatu berubah. Event event ini di antaranya:
·         Activate
Terjadi jika sebuah form menjadi window yang aktif . jika anda mmbuat aplikasi yang memiliki banyak window, maka ketika sebuah window dipilih oleh pemakai program, event ini akan terjadi dan prosedur yang terasosiasi  dengannya akan langsung di eksekusi.
·         Deactivate
Terjadi saat anda berpindah dari satu form ke form yang lain
·         GotFokus
Terjadi saat sebuah objek menjadi satu satunya focus. Biasanya dilakukan dengan mengklik objek atau menekan tombol keyboard tab. Sebuah form dapat membuat suatu focus jika form tersebut menjadi jendela yang aktif dan belum ada control lain yang menjadi focus.
·         LostFocus
Terjadi apabila sebuah objek kehilangan focus, dan biasanya karena ada objek lain yang memjadi focus.
·         Load
Terjadi ketika sebuah form di buka atau di panggil. Jika form yang di buka adalah form startup, maka anda akan mendapatkan rutin yang akan di jalankan setiap aplikasi di mulai.
·         Unload
Terjadi jika sebuah form di tutup
·         Initialize
Terjadi ketika semua referensi untuk form atau kelas di hapus dari memori computer. Untuk form, event ini terjadi setelah unload
·         Paint
Terjadi saat sebuah form perlu di gambar ulang. Biasanya digunakan untuk menghitung dan mengubah ukuran objek.
·         Change
Terjadi apabila isi dari sebuah control di rubah.
·         Resize
Terjadi setiap kali form di rubah ukurannya. Biasanya di gunakan untuk memastikan bahwa semua yang berhubungan dengan aplikasi juga telah di tutup . selain itu juga untuk memastikan bahwa semua data telah di simpan sebelum ditutup
·         QueryUnload
Terjadi apabila aplikasi di tutup. Biasanya digunakan untuk memastikan bahwa semua yang berhubungan dengan aplikasi juga telah di tutup. Selain itu juga untuk memastikan bahwa semua data telah di simpan sebelum di tutup.

Event untuk berhubungan
·         LinkOpen
Terjadi saat sebuah aplikasi menginisial suatu dynamic data exchange (DDE) dengan form.
·         LinkClose
Terjadi di akhir pemanggilan DDE.
·         LinkExecute
Terjadi saat suatu aplikasi mengirim perintah ke aplikasi Visual Basic dengan DDE.
·         LinkError
Terjadi saat terjadi kesalahan sebelum pemanggilan DDE
·         LinkiNotify
Terjadi saat aplikasi sumber mengubah data yang yang di hubungan dengan Visual Basic anda.

Event-Event Lain
Event ini Merupakan event yang tidak termasuk pada event sebelumnya. Antara Lain:
·         Timer
Terjadi saat event lain dijalankan sebelum event ini di jalankan. Event ini hanya berhubungan dengan control timer
·         Scroll
Terjadi saat event lain dijalankan sebelum event ini di jalankan. Event ini hanya berhubungan dengan control scroll bar.
·         pathChange
·         terjadi saat path standart untuk mencari sebuah nama file di ubah. Event ini hanya ada pada control FileListBox
·         PatternChange
Terjadi apabila kode pencarian daftar file di ubah misalnya di ubah menjadi DOC. Event ini hanya ada pada kontrol
·         Validate
Event ini digunakan untuk memastikan bahwa data telah ditangani dengan baik.
- 0 komentar

pengertian komponen/objek pada visual basic

Objek:
Merupakan bagian dari perlengkapan suatu aplikasi yang mempunyai spesifikasi property sendiri. Sebagai contoh form (lembaran yang anda gunakan untuk memdesain tampilan) adalah sebuah objek. Demikian juga dengan control (salah satu tombol yang ada pada toolbox). Untuk mengakses sebuah objek, di gunakan property, metode dan event tersendiri. Property sebuah objek menjadi perintah atau fungsi yang di asosiasikan dengan nya. Sedangkan event merupakan tindakan yang terjadi saat menjalankan aplikasi untuk di berikan kepada control objek. Objek tidak terbatas pada form dan control saja, tetapi anda bisa mengambil dari aplikasilain, misalkan gambar dari Microsoft paint atau Microsoft word.
Macam-macam objek :
Project
Project adalah sekumpulan modul . jadi project (proyek) adalah aplikasi itu sendiri. Di dalamnya terdapat form beserta codenya. Project ini di simpan dalam file berakhiran.vbp. file ini akan menyimpan seluruh komponen program. Termasuk pilihan proyek. Pada jendela proyek terdapat tiga icon View Coda, Icon View Objectdan Icon Toggle Folder, Icon View Code dipakai untuk menampilkan jendela editor kode program. icon view object di pakai untuk menampilakan bentuk formulir(Form) dan icon Toggle Folder Berguna untuk menampilkan folder
Form
Form adalah object yang dipakai sebagai tempat bekerja program aplikasi. Jadi bisa di katakana di form inilah kita melakukan aktifitas perancangan program. Biasanya pada saat mendesak form terdapat garis titik-titik yang di sebut grid sangat berguna untuk membantu pengaturan tata letak objek yang di masukan dalam form, karena gerakan penunjuk mouse akan sesuai (tepat)pasa titik-titik grid
Tool box
adalah kotak alat yang berisi icon-icon untuk memasukan object tertentu kedalam jendela form. Kita dapat memodifikasi toolbox, misalnya dengan menambah komponen icon dengan mengklik kanan pada toolbox lalu  memilih component atau add tab. Icon icon pada toolbox sering kali di sebut sebagai kontrol setiap kontrol memiliki properti, seperti warna, tulisan
 yang di letakan pada control dan properti lainnya. Control control di letakkan pada toolbox untuk dipilih dan di gambarkan pada form.
Keterangan:
 Label                        : untuk menampilkan tulisan pada form. Pemakai tidak dapat mengubah tulisan tersebut secara langsung.
List box                    : menampilkan beberapa item, dan dari control ini item item tersebut dapat di pilih. Scroll bar dapat di gunakan untuk menggulung pilihan yang tidak dapat di tampilkan seluruhnya.
Combo box             : merupakan kombinasi antara textbox dan listbox. Sehingga pemilihan item dapat dilakukan dari listbox atau dengan mengetik langsung pada textbox
Command button: menjalankan suatu tindakan jika pemakai telah melakukan pilihan dengan menekan control in
Frame                   : mengelompokan control-kontrol secara visual tergambar atau
Property:
Adalah bagian yang membangun sebuah objek. ini sangat menentukan objek yang sedang di buat. Anda bisa menyamakan sebuah pbjek dengan seorang manusia, sedangkan propertinya, dapat anda samakan dengan namanya, tingginya, beratnya, jenis kelamin dan sebagainya.
Property yang sering di gunakan pada setiap objek:
Name         
Property ini sangat penting karena setiap objek di control oleh rutin yang anda tulis. Untuk itu setiap ojek harus memiliki nama yang bereda sesuai dengan aturan yang ada dalam Visual Basic.
Caption
Nilai property ini berupa teks yang akan ditampilkan sebagai judul objek saat digunakan sebagai user interface. Property ini tdak dapt diubah secara langsung saat program berjalan.
Text
Hamper sama dengan property caption tadi, hanya saja tidak digunakan sebagai judul, hanya untuk menampilkan atau menuliskan pesan. Saat aplikasi berjalan property ini bisa di edit langsung oleh pemakai.
Font
Property ini menemtukan jenis huruf yang akan digunakan oleh objek yang bersangkutan untuk menampilkan text.
Back colour
Property ini dapat anda gunakan unutk mengtur warna latar belakang dari objek yang anda pilih.
Fore colour
Property ini dapat anda gunakan untuk mengatur warna teks dan grafik dari objek yang anda pilih.
Enabled
Property ini dapat anda gunakan untuk mengatur agar control suatu saat dapat di akses. Sebagai contoh, pada sebuah form andamempunyai daftar dengan isi kosng, maka tombol clear akan tidak bisa diakses.
Visible
Property ini di gunakan jika suatu saat nada ingin menyembunyikan atau menampilkan sebuah control.
Height
Property ini dapat anda gunakan untuk mengatur ukuran objek yang bersangkutan dari atas ke bawah.
Width
Property ini dapat anda gunakan untuk mengatur ukuran objek yang bersangkutan dari kiri ke kanan.
Top
Property ini dapat anda gunakan untuk mengtur jarak objek dengan bagian atas objek yang di tempatinya. Misalnya jika sebuah command button anda tempatkan dalam sebuah form, maka property ini akan mengatur jarak bagian atas command button dengan bagian atas form. Jika property ini anda terapkan pada form, maka property ini akan mengatur jarak posisi atas form dengan bagian atas layar.
Left                                                                   
Property ini dapat anda gunakan untuk mengatur jarak objek dengan bagian kiri objek yang di tempatinya.
Tab index
Property ini dapat anda gunakan untuk mengatur urutan pemfokusan sebuah objek jika tombol tab anda tekan.
DragMode
Property ini memungkinkan pemrogram untuk mengatur tingkah laku control selama operasi drag and drop. Jika setting pada automatic maka control akan di operasikan secara normal.
Mouse pointer
Property ini memungkinkan pemrogram untuk membuat pointer mouse berubah saat melewati objek.
Auto redraw
Property ini dapat anda gunakan untuk memerintahkan windows agar membetulkan kembali tampilan windows jika sebuah window lain yang berada di atasnya dipindahkan. Beberapa tipe objek secara otomatis akan melakukan perintah untuk membetulkan tampilan window, tetapi gambar yang di buat dengan metode grafik membutuhkan property ini di set ke true.
Kode Program
Kode program  adalah serangkaian tulisan perintah yang akan dilaksanakan jika suatu objek di jalankan kode program ini akan mengontrol dan menentukan jalannya suatu objek.
Event
Event adalah peristiwa atau kejadian yang di terima oleh suatu objek, misalnya klik, seret, tunjuk, dan lain-lain. Event yang di terima objek akan memicu MS VB menjalankan kode program yang ada di dalamnya.
metoda(method)
metoda adalah suatu set perintah seperti halnya fungsi dan prosedur . tetapi sudah tersedia di dalam suatu objek. Seperti halnya property (yang juga terdapat pada suatu objek) suatu metoda dapat di panggil dengan menyebut nama objek diikuti tanda titik dan nama metodanya. Metoda biasanya akan mengerjakan suatu tugas khusus pada suatu objek tertentu. Sedangkan property biasanya member definisi atau setting pada objek.
Module
Module bisa di sejajarkan dengan form, tetapi tidak mengandung objek dan bentuk standar, modul dapat berisi beberapa kode program atau prosedur yang dapat di gunakan dalam program aplikasi. Untuk membuat modul sendiri kita dapat memasukan ke dalam program aplikasi dengan menggunakan menu project lalu add module.


Tipe objek:                    
             Command button  : kontol dalam form, seperti command button, frame objek.
Form                     : setiap form dalam project visual basic adalan pemisah atau pembatas objek.
Data base              : objek data base, dan berisi objek lain, seperti field dan indeks.
Chart                     : char dalam Microsoft excel adalah sebuah objek.