Powered by Blogger.
Home » Semua post berkategori Latihan vb 6
Showing posts with label Latihan vb 6. Show all posts
Showing posts with label Latihan vb 6. Show all posts
Saturday, 7 July 2012

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
Saturday, 30 June 2012

POKOK PEMBAHASAN BELAJAR VB

Unknown Latihan vb 6

PENGERTIAN DATA - ARTI DATA


Data adalah nilai mentah yang tidak memiliki arti jika berdiri sendiri. Data pada VB dianggap sebagai nilai-nilai yang bisa dimanipulasi dalam pembuatan program. 
Contoh :
123.456
Visual Basic 6.0
17-08-1945
True
Unknown Latihan vb 6
Friday, 29 June 2012

CARA MENDEKLARASI VARIABEL DALAM VB


Cara Mendeklarasikan Variabel 



<keyword>  namavar [as type data]


Keyword menentukan ruang lingkup variabel
Public   dikenal di seluruh bagian project (dipesan pada deklarasi module)
Dim  dikenal di tempat variabel tersebut di pesan (dikenal pada deklarasi sub program atau deklarasi general)
Static  nilai variabel tidak akan hilang selama program berjalan (dipesan pada deklarasi sub program)
Contoh dim nama as string
Const namakonstanta as typedata=nilai
Contoh const nama as string=“AKU IWA”
Unknown Latihan vb 6
Thursday, 28 June 2012

PERBEDAAN QUEUE DAN STACK




Perbedaan stack dan queue terdapat pada:



  • Aturan penambahan dan penghapusan elemen. Pada stack, operasi penambahan dan penghapusan elemen dilakukan di satu tempat atau satu ujung. Elemen yang terakhir kali dimasukkan akan berada paling dekat dengan ujung atau dianggap paling atas sehingga pada operasi penghapusan, elemen teratas tersebut akan dihapus paling awal. Pada queue, operasi tersebut dilakukan di tempat yang berbeda. Penambahan elemen selalu dilakukan melalui salah satu ujung, menempati posisi di belakang elemen-elemen yang sudah masuk sebelumnya atau menjadi elemen belakang, sedangkan penghapusan elemen dilakukan di ujung yang berbeda, yaitu pada posisi elemen yang masuk paling awal atau elemen depan dibanding elemen-elemen lain.




  • Stack dengan single linked list, sedangkan queue dengan double linked list. Stack dapat diimplementasikan dengan single linked list. Keunggulannya dibandingkan array adalah penggunaan alokasi memori yang dinamis sehingga menghindari pemborosan memori. Misalnya pada stack dengan array disediakan tempat untuk stack berisi 150 elemen, sementara ketika dipakai oleh user stack hanya diisi 50 elemen, maka telah terjadi pemborosan memori untuk sisa 100 elemen, yang tak terpakai. Dengan penggunaan linked list maka tempat yang disediakan akan sesuai dengan banyaknya elemen yang mengisi stack. Dalam stack dengan linked list tidak ada istilah full, sebab biasanya program tidak menentukan jumlah elemen stack yang mungkin ada (kecuali jika sudah dibatasi oleh pembuatnya). Namun demikian sebenarnya stack ini pun memiliki batas kapasitas, yakni dibatasi oleh jumlah memori yang tersedia. Salah satu kelemahan single linked list adalah pointer (penunjuk) hanya dapat bergerak satu arah saja, maju/mundur, atau kanan/kiri sehingga pencarian data pada single linked list hanya dapat bergerak dalam satu arah saja. Untuk mengatasi kelemahan tersebut, dapat menggunakan metode double linked list. Linked list ini dikenal dengan nama Linked list berpointer Ganda atau Double Linked List.


Unknown Latihan vb 6

IMPLEMENTASI QUEUE DENGAN CIRCULAR ARRAY


Circular Array adalah suatu array yang dibuat seakan-akan merupakan sebuah lingkaran dengan titik awal(head) dan titik akhir (tail) saling bersebelahan jika array tersebut masih kosong. Gambar berikut menunjukkan model penyajian antrian dengan circular array :

head := 1;
tail := Max_Queue;

Posisi head dan tail pada gambar di atas adalah bebas asalkan saling bersebelahan. Operasioperasi yang terdapat pada circular array tidak berbeda jauh dengan operasi pada linear array. Implementasi dengan array melingkar merupakan model yang tepat untuk mengatasi inefisiensi penggunaan ruang array pada model linear. Array dapat dipandang sebagai sebuah lingkaran. Apabila posisi terakhir dari array sudah digunakan dan posisi pertama dari array sudah tidak digunakan lagi, maka elemen queue berikutnya dapat diletakkan mulai posisi pertama lagi. Untuk mengimplementasikan array melingkar dari sebuah array linear, posisiposisi yang mengelilingi lingkaran diberi nomor dari 1 s.d maks., sama dengan indeks dari array linear. Pergeseran atau kenaikan indeks dilakukan dengan operasi aritmetika modulo (pembagian bilangan bulat). Ketika nilai indeks melebihi maks, maka dimulai lagi dari 1. operasi modulo mirip operasi pada sebuah jam, dengan angka 1 s.d 12. bila kita mengggeser empat jam dari jam 10, maka kita akan mencapai jam 2.

Operasi-operasi queue dengan circular array :

1. Create
Procedure Create berguna untuk menciptakan Queue yang baru dan kosong yaitu dengan cara memberikan nilai awal (head) dengan satu(1) dan nilai akhir (tail) dengan jumlah maksimal data yang akan ditampung/array. Berikut penggalan procedure
create.
Procedure clear;
Begin
While not IsEmpty then
DeQueue;
Procedure create;
Begin
Head := 1;
Tail := Max_Queue;
End;

2. IsEmpty
Function IsEmpty berguna untuk mengecek apakah Queue masih kosong atau sudah berisi data. Hal ini dilakukan dengan mengecek apakah tail masih terletak bersebelahan dengan head, dan tail LEBIH BESAR head atau tidak, jika benar maka
kosong. Berikut penggalan function IsEmpty :
Function IsEmpty : Boolean;
Begin
If (Tail mod max_queue) + 1 = head then
IsEmpty := true
Else
IsEmpty := false;
End;

3. IsFull
Function IsFull berguna untuk mengecek apakah Queue sudah penuh atau masih bias menampung data dengan cara mengecek apakah tempat yang masih kosong tinggal satu atau tidak (untuk membedakan dengan IsEmpty dimana semua tempat kosong),
jika ya maka kosong. Berikut penggalan function IsFull:
Function Isfull : Boolean;
Var
X : 1..Max_Queue;
Begin
X := (Tail mod Max_Queue) + 1;
If (x mod Max_Queue) + 1 = head then
IsFull := true
Else
isFull := false;
End;

4. EnQueue
Procedure EnQueue berguna untuk memasukkan 1 elemen ke dalam Queue. (tail dan head mula-mula adalah nol (0) ) Berikut penggalan procedure EnQueue.
Procedure EnQueue(elemen : TypeElemen);
Begin
If not IsFull then
Begin
Tail := (tail mod Max_Queue) + 1;
Queue [Tail] := elemen;
End;
End;

5. DeQueue
Procedure DeQueue berguna untuk mengambil 1 elemen dari queue. Hal ini dilakukan dengan cara memindahkan posisi head satu langkah ke belakang. Berikut penggalan procedure dequeue.
Procedure dequeue;
Begin
If not IsEmpty then
Head := (head mod max_queue) + 1
End;

Unknown Latihan vb 6
Subscribe to: Posts (Atom)