5 koleksi Error yang sering muncul di VB 6

5 KOLEKSI ERROR



1. Data yang diinputkan melebihi size dalam table pada database



2. Error ‘91’ : biasanya kesalahan terletak pada datasource datagrid tidak sesuai



3. Ada object yang disebut dalam kode program, tetapi dalam form tidak ada




4. Type data antara yang diinputkan dalam form dan field dalam table tidak sesuai




5. Database/tabel masih kosong, tetapi diberikan perintah movefirst

Read more »

Mengenal Logika Perulangan dalam VB 6

Visual Basic memperbolehkan prosedur untuk pengulangan suatu proses sampai kondisi tertentu terpenuhi. Pengulangan ini secara umum disebut sebagai looping. Ada 2 macam perulangan dalam visual basic :

1. Do...Loop
2. For.......Next loop

1 Do Loop

Syntax :

a) Do While kondisi
Blok perintah
Loop

b) Do
Blok perintah
Loop While kondisi

c) Do Until kondisi
blok perintah
Loop

d) Do
Blok perintah
Loop Until kondisi

2 Keluar dari Loop
Untuk keluar / mengakhiri perulangan, dapat digunakan perintah Exit Do. Penggunaan seperti pada contoh 2.

3 For....Next Loop
Syntax:

For counter = startNumber to endNumber
Blok perintah
Next

Contoh penggunaan pada 3a,3b dan 3 c.

Untuk keluar dari For….Next Loop, perintah Exit For dapat diletakkan dalam loop. Lihat contoh 3 d.

 

Contoh 1

Do while counter <=1000 num.Text=counter counter =counter+1 Loop

NB : (yang ditampilkan adalah angka 1000, padahal sebenarnya system sedang melakukan counter 1 sampai 1000, namun tidak terlihat. Logika yang dipakai = melakukan perintah apabila counter kurand dari 1000, dicetak di num.text dengan yang ditampilan bilangan counternya.)

Do
num.Text=counter
counter=counter+1
Loop until counter>1000

NB : (Sama dengan yang diatas, hanya saja logikanya pada perlakuan sedikit berbeda, yaitu melakukan penjumlahan dan perulangan hingga kondisi memenuhi lebih dari 1000.)

Contoh 2

Dim sum, n As Integer
Private Sub Form_Activate()
List1.AddItem "n" & vbTab & "sum"
Do
n = n + 1
Sum = Sum + n
List1.AddItem n & vbTab & Sum
If n = 100 Then
Exit Do
End If
Loop
End Sub

NB : ( sum dan n dipesan dahulu sebagai integer. Anda harus menyertakan listbox pada Form untuk mencoba ini.)

Contoh 3 a

For counter=1 to 10
display.Text=counter
Next

Contoh 3 b

For counter=1 to 1000 step 10
counter=counter+1
Next

NB : (perulangan yang berkelipatan 10, tapi karena ada penjumlahan counter dibawahnya maka menjadi kelipatan 11.)

Contoh 3 c
For counter=1000 to 5 step -5
counter=counter-10
Next

NB : (Ini perulangan alur mundur dari 1000 sampai 5, namun perulangan alur mundur ini diambil -5. Dan dibawah ada pengurangan nilai counter sebesar 10, jadi apabila dicetak akan menghasilkan bilangan yang selalu berkurang sebesar -15.)

Contoh 3 d

For n = 1 To 10
If n > 6 Then
Exit For
Else
Print n
End If
Next n

NB : ( Logikanya = ada perluangan n dari 1 sampai 10, namun ada validasi logika yang membatasi apabila n lebih besar dari 6 maka perulangan berhenti, dan apabila tidak memnuhi kondisi tersebut / lebih kecil dari 6 maka cetak n pada form, sampai kondisi awal / true terpenuhi.)


Contoh

Dim grade As String

Private Sub cmddowhile1_Click()
cmbdowhile.Clear
i = 10
Do While i > 0
cmbdowhile.AddItem "ANGKA " & i
i = i - 2
Loop
cmbdowhile.ListIndex = 0

End Sub

Private Sub cmddowhile2_Click()
cmbdowhile.Clear
i = 9
Do While i > 0
cmbdowhile.AddItem "ANGKA " & i
i = i - 2
Loop
cmbdowhile.ListIndex = 0

End Sub

Private Sub compute_Click()
grade = txtgrade.Text
Select Case grade
Case "A"
result.Caption = "High Distinction"
Case "A-"
result.Caption = "Distinction"
Case "B"
result.Caption = "Credit"
Case "C"
result.Caption = "Pass"
Case Else
result.Caption = "Fail"
End Select

End Sub

Private Sub dountil1_Click()
txtdountil1.Text = ""
i = 2
Do Until i > 10
txtdountil1.SelText = i & " "
i = i + 2
Loop

End Sub

Private Sub dountil2_Click()
txtdountil2.Text = ""
i = 1
Do Until i > 10
txtdountil2.SelText = i & " "
i = i + 2
Loop

End Sub

Private Sub fornext1_Click()
List1.Clear
For i = 2 To 10 Step 2
List1.AddItem "ANGKA " & i
Next i

End Sub

Private Sub fornext2_Click()
List1.Clear
For i = 1 To 10 Step 2
List1.AddItem "ANGKA " & i
Next i

End Sub

Read more »

Cara Buat Loading (Progress Bar) di VB 6

Untuk sekedar membuat proses loading di VB6 sebenarnya sangat mudah. Asalkan kita tahu logikanya saja. Seperti kita membuat sebuah algoritma dengan sistem counter dengan dasar "n=n+1". Hanya saja kita perlu menambahkan fungsi logika IF untuk validasi lanjutnya.

Untuk menampilkan / manambahkan ProgressBar di VB, cukup klik kanan di sidebar - general pilih component. Nanti akan muncul pop-up (jendela component), cari Microsoft Windows Common Control 6.0 (SP6) cukup centang dan "Apply".

Silahakn buat 2 Form, 1 untuk Form utama dan satu lagi untuk Form Loadingnya. Dan untuk Form loading Anda cukup menambahkan ProgressBar dan Timer. berikut ini contoh Form loading nya:





Klik gambar Timer, lalu di tabel properties isikan interval = 100.









Kemudian klik 2kali di gambar Timer, untuk memulai codingnya. Pertama buat perhitungan counter'nya dengan perintah:
ProrgessBar1.value = Progressbar1.value + 10
Angka 10 dapat Anda ganti untuk memperlambat / menambah kecepatan. Asumsinya gini, Interval yang kita isikan tadi berjumlah 100, maka dapat dikata angka 10 akan dicounter sampai 100. Seandainya Anda memberikan angka 2 maka akan agak lamban, apabila angka semakin besar maka semakin cepat. Tapi perhatikan, bila Anda memberikan angka dengan asumsi bahwa 100 tidak dapat dibagi angka tersebut, maka akan terjadi error. Misal Anda memasukan angka 7, berarti counter 7 tidak dapat sampai pada bilangan utuh 100.

Coding selanjutnya atau yang terakhir adalah Logika IF Then. Jadi jika Progressbar1.value sudah sampai pada Progressbar1.Max maka kondisi true akan dijankan, seperti menonaktifkan Timer, Mengembalikan Progressbar1 pada posisi = 0, dan menampilkan Form Utama serta menutup Form loading. berikut gambar loading lengkapnya:











Sekian.

Read more »

Memahami Event Keypress dan Validasi Pesan di VB 6

•  EVENT KEYPRESS()

Mungkin kita pernah bertanya-tanya bagaimana cara memberi batasan dalam pengetikan. Misalnya dalam kolom ID, kita ingin yang dapat diketikan hanya numeric saja. Perintah tersebut dapat diatur menggunakan event keypress. Perintah ini akan dijalankan pada saat suatu tombol keyboard ditekan. Dalam sintaks coding’nya menggunakan variable keyascii, dimana nilai dari keyascii tersebut akan menunjukkan tombol yang ditekan. Untuk mengetahui nilai masing-masing tombol, dapat dilakukan dengan menekan tombol F2 sehingga akan muncul tampilan Object Browser :

• Pesan Validasi

Untuk Pesan validasi / perintah untuk memunculkan suatu pesan sangatlah mudah. Pada intinya kita perlu memanggil kotak pesan itu dengan diawali coding ‘Msgbox’ baru setelah itu di ikuti dengan tulisan pesan yang akan kita lampirkan di dalam kotak, selanjutnya kita bisa lihat contoh coding yang saya akan jelaskan dibawah ini.

 > Pertama kita perlu menyiapkan Form untuk latihan. buatlah Form yang sederhana saja untuk sekedar mengetahui logika ataupun perintah coding'nya. Berikut gambar layout Form'nya:
















Pada Kolom Text Kode, beri nama -> txtkode; dan untuk kolom Text Nama Barang, beri nama -> txtnm; dan terakhir untuk Tombol EXIT, berinama pada Caption -> cmdexit.

Klik 2 kali pada Kolom text Kode. Setelah masuk di form coding, buat perintah keypress, untuk lebih jelas lihat gambar.

Karena di Kolom Text kita ingin membuat batasan penulisan hanya berupa numerik disertai perintah enter yang langsung pindah ke kolom nama, berikut simak baik-baik coding'nya :

If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 13 And KeyAscii <> 8 Then
KeyAscii = 0
ElseIf KeyAscii = 13 Then
txtnm.SetFocus
End If

Mengapa saya menggunakan validasi IF, karena disini kita perlu logika untuk sebuah kondisi yang terpenuhi, ataupun kondisi lain yang terpenuhi.
(KeyAscii < 48 Or KeyAscii > 57) -> Coding ini untuk pemetakan diluar angka, yaitu huruf saja. Saya mendapatkan keykode konstan 48 sampai 57 (atau 0 smp 9) dari VBKEY, yang bisa dilihat di Object Browser / F2.
(KeyAscii <> 13 And KeyAscii <> 8)  -> Kalau Keyascii=13, untuk Enter; sedangkan Keyascii=8, untuk Backspace.
Sebenarnya semua perintah diatas baru kondisi yang menyatakan saat tombol keyboard ditekan. Tapi tanpa perintah kondisi pertama yang terpenuhi diatas, pembatasnya tersebut tidak akan berfungsi. Maka itu kita butuh Keyascii = 0, yang dianggap sebagai pernyataan keyascii adalah (0) atau salah. Jadi logikanya untuk lebih kecil dari keykode konstan 48 dan lebih besar 57, dan bukan keykode konstan 13 serta bukan 8, maka tidak di ijinkan atau dianggap tidak valid / salah.

ElseIf KeyAscii = 13 Then
txtnm.SetFocus

Untuk logika kondisi ke 2 ini, menyatakan apabila di enter maka krusor akan otomatis turun ke 'txtnm' / kolom Text Nama Barang.

> Sedangkan untuk Nama barang saya ingin memberikan validasi, bahwa yang di ketik hanya boleh huruf serta huruf besar saja. Berikut coding'nya:

If Not (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
Else
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If

KeyAscii = Asc(UCase(Chr(KeyAscii))) -> Digunakan untuk perintah penggunaan huruf besar / capital.

Terakhir adalah perintah validasi pesan dengan Msgbox. Ok, pada perintah validasi pesan ini, saya ingin apabila ditekan button EXIT, maka yang keluar adalah pesan box, yang berkata "Apakah Anda yakin mau keluar?", kemudian bila di klik Ok, maka program akan berakhir.
Simak terlebih dahulu coding'nya :
> terlebih dahulu klik 2 kali pada tombol EXIT, baru masukan sintaks code berikut.

MsgBox "Apakah Anda yakin mau keluar?", vbInformation, "Informasi"
End

 MsgBox "Apakah Anda yakin mau keluar?" --> Disini tempat Anda mengetik pesan apa yang akan Anda lampirkan pada kotak pesan.
vbInformation --> Untuk tombol / button yang akan Anda sajikan pada kotak pesan, ini secara otomatis keluar saat Anda menuliskan koma.
"Informasi" --> kalau ini untuk memberikan Title pada Kotak Pesan, semau dapat dirubah sesuai kebutuhan dan selera Anda.

Semoga Anda dapat mengerti, maaf bila banyak hal yang membingungkan, karena saya hanya berbagi.

Read more »

Menampilkan Data Yang Sudah di Input Dengan VB 6

Tutorial ini saya buat untuk mengerti dasar logika yang di pakai dalam pemrograman VB 6 ini, dalam input data yang mana data-data tersebut akan ditampilkan. Namun dalam tutorial ini kita masih belum menggunakan database, jadi sekedar belajar logika dasarnya terlebih dahulu.

Untuk pertama-tama buat dulu form’nya seperti ini :

• Untuk mengisi data pada ComboBox, pada “Properties” -> “List” , klik tanda panah kearah bawah / breakdown, kemudian ketikan, missal : SMA, lalu Enter. Untuk pengisian selanjutnya, caranya sama cukup di breakdown, lalu isi data kedua.

• Begitu juga cara diatas, sama caranya untuk pengisian ListBox.

Berikut dibawah ini adalah coding nya.

Private Sub cmdbatal_Click()
' Untuk menyembunyikan frame 2
Frame2.Visible = False
‘ Untuk mengosongkan data pada form
txtnama = ""
txtalamat = ""
txttempatlahir = ""
txttgllahir = ""
Cmbasalsekolah = ""
Chkrenang = Unchecked
Chkmenyanyi = Uncheked
Chksepakbola = Unchecked
Chkbeladiri = Unchecked
Optlakilaki = False
optperempuan = False
Optmi = False
Optka = False
Lstsumberinformasi.Text = ""
Label11 = ""
Label12 = ""
Label13 = ""
Label14 = ""
Label15 = ""
Label16 = ""
Label17 = ""
Label18 = ""
Label19 = ""

txtnama.SetFocus

End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub


Private Sub cmdsimpan_Click()
On Error Resume next
‘ Untuk validasi agar semua data terisi

If txtnama = "" Or txtalamat = "" Or txttempatlahir = "" Or txttgllahir = "" Then
MsgBox " Maaf masih ada data yang kosong", vbInformation, "PErhatian"
txtnama.SetFocus
Else
' Untuk Menampilkan Frame 2 yang di hidden
Frame2.Visible = True
Label11.Caption = "Nama Anda = " & txtnama.Text
Label19.Caption = "Informasi dari =" & Lstsumberinformasi
If Optlakilaki.Value = True Then
Label17.Caption = "Jenis Kelamin : Pria"
End If
If optperempuan.Value = True Then
Label17.Caption = "JEnis Kelamin : Perempuan"
End If
Label12.Caption = "Alamat :" & txtalamat.Text
Label13.Caption = "TmpLahir :" & txttempatlahir.Text
Label14.Caption = "tgllahir :" & txttgllahir.Text
Label15.Caption = "Asal Sklh :" & Cmbasalsekolah.Text

If Chkrenang.Value = vbChecked Then
hobi1 = "renang"
ElseIf Chkrenang.Value = vbUnchecked Then
hobi1 = ""
End If
If Chkmenyanyi.Value = vbChecked Then
hobi2 = "Menyanyi"
ElseIf Chkmenyanyi.Value = vbUnchecked Then
hobi2 = ""
End If
If Chksepakbola.Value = vbChecked Then
hobi3 = "sepakbola"
ElseIf Chksepakbola.Value = vbUnchecked Then
hobi3 = ""
End If
If Chkbeladiri.Value = vbChecked Then
hobi4 = "beladiri"
ElseIf Chkbeladiri.Value = vbUnchecked Then
hobi4 = ""
End If
Label16.Caption = hobi1 & " " & hobi2 & " " & hobi3 & " " & hobi4

If Optmi.Value = True Then
Label18.Caption = "Jurusan : MI"
End If
If Optka.Value = True Then
Label18.Caption = "Jurusan : KA"
End If
End If
End Sub

Private Sub Form_Activate()
Frame2.Visible = False
End Sub

Selamat Mencoba.

Read more »