minta web link tutorial VB dunk yg bhs indonesia.....
yg untuk pemula bangetttt
Printable View
minta web link tutorial VB dunk yg bhs indonesia.....
yg untuk pemula bangetttt
Sama gw juga mau dong belajar VB, kalau bisa tambahin sub forum VB :D
yang ini contoh-contoh source code :
1. VBCode
2. PLanet Source Code
klo ada yg bener2 butuh bantuan, bisa PM gw. Nanti gw bantu...!
DCS God, bisa bantu kasih contoh penggabungan listbox dari flash dengan VB ngga ??
thanks :)
tulunk bantuin buat game bantumi dunk pake VB ^^
Komponen formnya (terutama Listbox) menggunakan komponen dari Macromedia Flash MX 2004 / 8.
Maksudnya ya interfacenya menggunakan flash (listbox, textbox, dsb), tapi coding programnya menggunakan bahasa pemrograman VB 6 (Mengintegrasikan Flash dan VB).
Gini step-by-step cara gabungin listbox flash ke vb :
1. Masukkan komponen listbox ke dalam flash (mis layer 1 frame 1), namakan lstFlash.
2. Untuk action script dari layer 1 frame 1 tambahkan script stop();
3. Buat layer baru (mis. layer 2), kemudian insert key frame pada frame 2 di layer yang baru (layer 2).
4. Masukkan script berikut :
5. Pada layer 1, jangan lupa menambahkan frame (insert frame) di frame 2.Code:if (x == "1"){
_root.lstFlash.addItem(element);
}
if (x == "2"){
_root.lstFlash.removeItemAt(_root.lstFlash.getSelectedIndex());
}
gotoAndStop(1);
6. Setelah itu publish file dalam bentuk swf.
7. Buka VB, langsung pilih project --> components, lalu cari check box "Shockwave Flash". Cek check box itu jika masih kosong.
8. Akan muncul komponen baru di toolbar. Tambahkan komponen itu ke dalam form VB, namakan swfFlash. Tambahkan juga sebuah textbox, namakan txtIn, dua buah command button, namakan cmdAdd dan cmdDelete.
9. Masukkan kode berikut ke dalam VB :
That's all..........Code:Private Sub cmdDelete_Click()
swfFlash.SetVariable "x", "2"
swfFlash.TPlay "_root"
End Sub
Private Sub cmdAdd_Click()
If txtIn <> "" Then
swfFlash.SetVariable "x", "1"
swfFlash.SetVariable "element", txtIn
swfFlash.TPlay "_root"
End If
End Sub
Private Sub Form_Load()
swfFlash.LoadMovie 0, App.Path & "\Test.swf"
End Sub
Selamat mencoba.
Kalo masih belum bisa, ato ada yg ga ngerti bisa langsung tanya ke gw.
Btw, kodingan itu udah gw coba dan jalan. Jadi, harusnya kalo ikutin langkah2 yg gw kasih dengan bener, programnya pasti jalan. ::laugh::
@DCS GOd :
Thanks ya.....:)
gw coba dulu ^_^
yang ada AI nya yaaaaaaaaaaaaa