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) ...

Read More »

1 Comment

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...

Read More »

Add Comment

Unknown Pengertian

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...

Read More »

2 Comments

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...

Read More »

Add Comment

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...

Read More »

Add Comment

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"    ...

Read More »

Add Comment

Unknown Latihan vb 6

PROGRAM PERINTAH SQL BACA VARIABLE AND AUTO SEARCH

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  ...

Read More »

Add Comment

Unknown Latihan vb 6