Tips and Triks Visual Basic 6.0

Kumpulan Source Code tuk Validasi Program dengan menggunakan Visual Basic 6.o, Jika anda tertatik dengan Tips dan Trik Visual Basic ini Silahkan Baca di...

--> Hanya Angka yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

--> Hanya Huruf

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
And KeyAscii <= Asc("z") & Chr(13) _
Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If

End Sub

--> membersihkan Seluruh Control TextBox dan Combo Box

Sub Clear()
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
If TypeOf Control Is ComboBox Then
Control.Text = ""
End If
Next Control
End Sub

NB: jika ada tombol yang lain tinggal di tambah kondisi IFnya aja, dan tuk menonaktifkan seluruh tombol tinggal ganti "Control.Text=Enabled" aja

--> Get Auto Number

Private Sub Auto()
Dim Urutan As String * 10
Dim Tgl As String
Dim Hitung
Set TMasuk = New ADODB.Recordset
TMasuk.Open "Select * from Masuk", Persediaan, adOpenDynamic, adLockPessimistic
'TMasuk.MoveFirst
Tgl = Format(Now, "yy/mm/dd")
With TMasuk
If .RecordCount = 0 Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
.MoveLast
If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
Hitung = (![No Masuk]) + 1
Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right("0000" & Hitung, 4)
End If
End If
txtNomor = Urutan
End With
End Sub

--> Mengambil record ke dalam COmboBox

Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = "Select * from Pelanggan Order By kodePlg"
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub

-- Laporan dengan Crystall Report

Sub CetakLap()
With CrtLaporan
.Reset
.DataFiles(0) = App.Path & "\Penduduk.mdb"
.ReportFileName = App.Path & "\Lap Lahir.rpt"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.Action = 1
End With
end sub

--> udah dulu ya, entar di tambahin

D

A. PENGULANGAN dalam VISUAL BASIC

1.Pengulangan FOR…NEXT

Format Penulisan :

For variable = nilai awal To nilai akhir
Penyataan atau statement
Next variable

Contoh 1:
kode program :
Private Sub HITUNG_Click()
List1.Clear
For A = Val(Text1) To Val(Text2)
List1.AddItem A
Next
End Sub

Contoh 2 :
Kode program :
Private Sub HITUNG_Click()
List1.Clear
For B = Val(Text1) To Val(Text2)
List1.AddItem "SAYA SEDANG BELAJAR VB"
Next
List1.AddItem "NAMA SAYA ANDI"
End Sub

Contoh 3 :
kode program :
Private Sub HITUNG_Click()
List1.Clear
For C = Val(Text1) To Val(Text2)
List1.AddItem "INI NILAI KE" & C
Next C
List1.AddItem "HORE SAYA BISA BERHITUNG"
End Sub

pemrograman pascal

perulangan dengan statement For

1. Memberikan penjelasan mengenai struktur perulangan dengan statement For, termasuk didalamnya :
1.1. Pengertian dan contoh perulangan statement For Positif.
1.2. Pengertian dan contoh perulangan statement For Negatif.
1.3. Pengertian dan contoh perulangan tersarang (Nested Loop).

Bentuk – bentuk Perulangan

Dalam hampir setiap program yang kompleks mutlak memerlukan suatu perulangan dan percabangan. Tujuan perulangan disini adalah untuk mengulang statement atau blok statement berulang kali sesuai sejumlah yang ditentukan pemakai. Dalam materi ini akan memberikan gambaran konsep dasar dari pengertian diatas.

1.Perulangan For.
Perulangan dengan statemen For digunakan untuk mengulang statemen atau suatu blok statemen berulang kali. Perulangan dengan statemen For dapat berupa perunlangan positif dan perulangan negatif.

a.Perulangan For positif

contoh :
perulangan positif untuk satu statement :

program perulangan_positif;
Uses WinCrt;
Var
i : Integer;
Begin
For i := 1 To 5 Do Writeln ('I Love Dinda’);
END.
Maka bila program diatas dicompile
hasilnya :
I Love Dinda
I Love Dinda
I Love Dinda
I Love Dinda

I Love Dinda

"Penjelasan : Berati statemen I Love Dinda akan diulang sebanyak 5 kali yaitu dengan menghitung nilai i dari i ke 1 sampai nilai i terakhir yaitu i ke 5".

Contoh :

Dengan menggunakan blok statement:
cara penulisannya dengan pada awal blok diawali dengan Begin dan pada akhir blok diakhiri dengan End;

program pengulangan_positif;
Uses WinCrt;
Var
i : Integer;
Begin
For i:= 1 To 10 Do
Begin
Writeln ('I Love Dinda'); { blok statement }
End;
End.

Hasil yang akan didapat akan sama dengan contoh yang pertama, tapi yang harus diingat disini untuk penggunaan blok pada perulangan For biasanya mempunyai banyak statement [lebih dari 1 state-ment].

b.Perulangan For negatif

Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke kecil. Statement yang digunakan adalah For-DownTo-Do
contoh :

program perulangan_negatif;
Uses Crt;
Var
i : Integer;
Begin
For i := 10 DownTo 1 Do Write (i:3);
End.
Hasil :
10 9 8 7 6 5 4 3 2 1

c. Perulangan For tersarang

Perulangan For tersarang adalah perulangan For yang berada pada perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya.
Contoh :

program perulangan_for_tersarang;

uses wincrt;
Var
a,b : Integer;
Begin
For a := 1 To 3 Do
Begin
For b := 1 To 2 Do Write (a :4,b:2);
Writeln;
End;
End.
Hasil :
1 1 1 2
2 1 2 2
3 1 3 2

VISUAL BASIC

Halo mau belajar Visual Basic ya... Disini saya mencoba untuk memberikan dasar-dasar dari Visual Basic. Mungkin tidak terlalu baik dalam penyusunannya, namun yang terpenting adalah pengetahuan tentang komponen dalam Visual Basic anda ketahui. Untuk lebih memperdalam VB anda silahkan berlatih dirumah.Disini lebih dapat disebut sebagai referensi untuk anda, walaupun tidak menutup kemungkinan akan saya buatkan tip/trik dari pemrograman ini.

Yang telah selesai saya buatkan adalah sebagai berikut:

1. Day One. Berisikan konvensi yang ada dalam Visual Basic, variabel dan cara pembuatan fungsi
2. Day Two. Berisikan Operator yang ada dalam Visual Basic dan control flow
3. Day Three. Berisikan Object Oriented Programming
4. Day Four. Semua tentang menu
5. Day Five. Objek: Form, Label, Text, CommandButton
6. Day Six.