Powered by Blogger.
Home » Arsip untuk bulan July 2012
Sunday, 15 July 2012

Fungsi LBOUND dan UBOUND


Fungsi LBOUND dan UBOUND |

LBOUND digunakan untuk mengetahui indeks pertama sebuah array sedangkan 
UBOUND digunakan untuk mengetahui indeks terakhir sebuah array. 
Contoh : 
Dim awal, akhir as integer 
Dim A(3 to 9) as integer 
Awal = Lbound(A) 
Akhir = Ubound(A) 

Unknown Pengertian

Mendeklarasikan Array


Mendeklarasikan Array |

Satu Dimensi
Dim namaVariabel (range awal to range akhir) As typeVariabel 
Contoh : Dim Bil(1 to 10) as integer
Atau
Dim namaVariabel (range) As typeVariabel 
Contoh : Dim Bil(10) as integer
Dua Dimensi
Dim namaVariabel (range awal to range akhir, range awal to range akhir) As typeVariabel 
Contoh : Dim matrikA(1 to 3,1 to 3) as integer
Atau
Dim namaVariabel (range,range) As typeVariabel 
Contoh : Dim matrikA(3,3) as integer
Unknown Pengertian
Saturday, 7 July 2012

APA ITU ODBC DAN KOMPONENNYA


Sumber data yang dapat diakses menggunakan ODBC

ODBC dapat mengakses sumber data baik lokal maupun jarak jauh (remote) dengan menggunakan driver ODBC. Driver ODBC 16 bit atau 32 bit keduanya dapat digunakan untuk mengakses sumber data.

Apabila database yang digunakan adalah Microsoft Jet Database (*.MDB), maka akan lebih efisien jika menggunakan DAO daripada menggunakan driver Microsoft Access ODBC

ODBC (Open database Connectivity)

Adalah protokol standard yang dapat menghubungkan segala jenis database eksternal server atau file eksternal server. Driver ODBC yang digunakan oleh Mesin database Microsoft Jket dapat mengakses Microsoft SQL Server dan beberapa database eksternal lainnya.

Komponen-komponen ODBC :

ODBC API (function call, error code, SQL)
ODBC Driver Manager (Dynamic Link Library/ODBC32.DLL) yaitu yang mengatur driver database ODBC
ODBC Database Driver, adalah satu atau lebih DLL yang memproses pemanggilan fungsi untuk DBMS
ODBC Cursor Library (ODBCCR32.DLL) terletak diantara ODBC driver dengan ODBC Driver manager yang mengatur pembaca data
ODBC Administrator, adalah digunakan untuk mengkonfigurasi DMBS sehingga dapat digunakan untuk sumber data aplikasi.

Unknown Pengertian

PROGRAM TIMER EVENT EXAMPLE - CONTOH


Timer Event Example |

This example demonstrates a digital clock. To try this example, paste the code into the Declarations section of a form that contains a Label control and a Timer control, and then press F5.

Private Sub Form_Load ()
   Timer1.Interval = 1000   ' Set Timer interval.
End Sub

Private Sub Timer1_Timer ()
   Label1.Caption = Time   ' Update time display.
End Sub

This example moves a PictureBox control across a form. To try this example, paste the code into the Declarations section of a form that contains a Timer control and a PictureBox control, and then press F5. For a better visual effect you can assign a bitmap to the PictureBox using the Picture property.

Dim DeltaX, DeltaY As Integer   ' Declare variables.
Private Sub Timer1_Timer ()
   Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY
   If Picture1.Left < ScaleLeft Then DeltaX = 100
   If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then
      DeltaX = -100
   End If
   If Picture1.Top < ScaleTop Then DeltaY = 100
   If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then
      DeltaY = -100
   End If
End Sub

Private Sub Form_Load ()
   Timer1.Interval = 1000   ' Set Interval.
   DeltaX = 100   ' Initialize variables.
   DeltaY = 100
End Sub





Okay ulasan yang lain sedang menunggu coba anda lihat  program perintah sql serta auto search  dan 
program mengembalikan variable
Program Mencari Karakter

Unknown Latihan vb 6

CONTOH PROGRAM MENCARI KARAKTER


Program Mencari Karakter |

InStr Function Example
This example uses the InStr function to return the position of the first occurrence of one string within another.
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' String to search in.
SearchChar = "P"   ' Search for "P".

' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(4, SearchString, SearchChar, 1)   

' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' Comparison is binary by default (last argument is omitted).
MyPos = Instr(SearchString, SearchChar)   ' Returns 9.

MyPos = Instr(1, SearchString, "W")   ' Returns 0.




Okay ulasan yang lain sedang menunggu coba anda lihat  program perintah sql serta auto search  dan 
program mengembalikan variable
Program Timer Event Example
Unknown Latihan vb 6

KONEKSI CRYSTAL REPORT DAN CONTROL DATA

Untuk mengkoneksikan dengan Crystal report dan mengontrol data dari program VB |


Pada Reference dipilih Microsoft Active Data Object Recordset.

Dim Report As New CrystalReport1
Dim Ado As New ADOR.Recordset

Private Sub CmdCetak_Click()
If Ado.State = adStateOpen Then
    Ado.Close
End If
    Ado.Open "select * from sampel where No_sampel='" + TxtNoSampel.Text + "'", "sampel database"
    Report.Database.SetDataSource Ado
    Form5.CRViewer1.ReportSource = Report
    Form5.CRViewer1.ViewReport
    Form5.Show
    Set Report = Nothing
End Sub


Unknown Latihan vb 6

PROGRAM PERINTAH SQL BACA VARIABLE AND AUTO SEARCH




Untuk membuat perintah SQL dapat membaca variable :

Misall nama variabelnya “Panjang”
Print "select * from inspeksi where right" + "(No_Sampel," + Panjang + ")" + "='" + Trim(Jenis + "/" & Bln & "/" & Thn) & "'"



Auto search program:

Private Sub TxtEditSampel_Change()
xx = Len(Trim(TxtEditSampel.Text))
If xx = 0 Then
    xx = 1
    AdoInspeksi.RecordSource = "select * from inspeksi"
    AdoInspeksi.Refresh
Else
    bb = Mid$(TxtEditSampel.Text, 1, xx)
    AdoInspeksi.RecordSource = "select * from inspeksi where mid$(trim(no_sampel),1," & xx & ")='" + Trim(bb) + "'"
    AdoInspeksi.Refresh
End If
End Sub



Unknown Latihan vb 6

PROGRAM UNTUK MENGEMBALIKAN FUNGSI VARIABLE




Dim v As TextBox
Private Sub Command1_Click()
v.Locked = True
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
Set v = Text1
v.Locked = True
Form1.Caption = v.Locked
End Sub


Unknown Latihan vb 6
Wednesday, 4 July 2012

MENGETAHUI TENTANG LISTBOX PADA VB6


ListBox
Adalah Control yang digunakan untuk menampilkan pilihan yang jumlahnya relatif banyak

Properties ListBox
Columns => Menentukan Jumlah Kolom
List => Digunakan untuk mengisi data saat design
MultiSelect => Memungkinkan pemakai memilih lebih dari satu pilihan
Sorted => Mengurutkan Pilihan
Style
Standard
Checkbox
Listcount => Mengetahui jumlah pilihan
Listindex => Mengetahui nomo urut pilihan yang sedang dipilih
List(index) => Mengetahui nilai pilihan yang ke index
Selected(index) => Mengetahui apakah pilihan yang ke index sedang dipilih atau tidak

Method Listbox
Clear => Mengosongkan pilihan
Additem => Menambahkan pilihan
Removeitem(index) => Menghapus Pilihan yang ke index


Unknown Latihan vb 6

BENTUK IF DI DALAM IF WITH VB6


Unknown Latihan vb 6

CONTOH BENTUK IF PADA VB 6

IF BENTUK 1


CONTOH BENTUK IF PADA VB 6





IF BENTUK 2


Dim gol as string*1
Dim gaji,tun,bonus as double
Gol=“A”
If gol=“A” then
   gaji=100
   tun=50
   bonus=25
Elseif gol=“B” then
   gaji=200
   tun=100
   bonus=50
Else
   gaji=200
   tun=100
   bonus=50
Endif
Print  Gaji,tun,bonus
Unknown Latihan vb 6

OPTION EXPLICIT


Agar ada pemberitahuan kesalahan apabila sebuah variabel belum dipesan maka berikan perintah option explicit di setiap awal modul / form atau atur atur dari menu

Unknown Latihan vb 6
Tuesday, 3 July 2012

DEKLARASI IMPLISIT DAN EXPLISIT


Deklarasi Implisit : variabel langsung dipakai untuk menyimpan data tanpa dipesan terlebih dahulu
contoh nama=“AKU IWA”
Deklarasi Explisit : variabel dipesan terlebih dahulu sebelum digunakan
Contoh dim nama as string    (proses pemesanan)
Nama=“AKU IWA” (proses pemakaian)
Unknown Latihan vb 6

Struktur keputusan select …case



select case var
            case nilai1
                      pernyataan1
            case nilai1,nilai2
                      pernyataan2
            case nilai3 to nilai4
                      pernyataan3
            case else
                     pernyataan lain
End select


=================================

,     berarti atau
To  berarti sampai dengan


select case gol
            case “A”
                      gaji=100
            case  “B”,”b”
                      gaji=200
            case  “C” to “F”, “c” to “f” 
                      gaji=300
            case else
                     gaji=0
End select

Unknown Latihan vb 6
Monday, 2 July 2012

OPERATOR PADA VB 6

OPERATOR PADA VB 6



Contoh :
Print 5\2 è2
Print 5 mod 2 è1



Unknown Latihan vb 6

ATURAN PEMBUATAN NAMA VARIABEL DAN KONSTANTA

Aturan pembuatan nama variablE & konstanta


Unknown Latihan vb 6
Sunday, 1 July 2012

PENGERTIAN VARIABEL DAN KONSTANTA


APA ITU VARIABLE DAN KONSTANTA

Variabel  dan konstanta adalah tempat untuk menyimpan nilai-nilai atau data-data secara sementara pada aplikasi VB. 

Nilai variabel dapat berubah ubah selama program berjalan

Nilai konstanta  Tetap selama program berjalan
Unknown Latihan vb 6

TIPE-TYPE DATA DALAM PROGRAM VB

TIPE-TYPE DATA DALAM PROGRAM VB

Unknown Latihan vb 6
Subscribe to: Posts (Atom)