[Tutor] Membuat Selector dengan VB6

Kebetulan baru belajar tadi siang dan masih fresh di pikiran ane,.....
sekedar berbagi aja sih, tpi tetep kgk nolak dan tinggalin jejak
karena berbagi itu indah, maka simak lah ajaran ane dibawah (tenang, kgk sesat kok)

langkah - langkah yg mesti dilakukan sebelum memulai pekerjan ini:

• Berdo'a agar diberi kemudahan dan kepahaman menyimak trid ini

• Jangan terlalu serius baca trid ini sampe kgk makan

cukup basa - basinya, silakan simak ya sobat Balarupa sekalian

• Buka aplikasi VB6 (itu lho Microsoft Visual Basic 6)

• Open yg Standart Exe aja (liat gambar dibawah agar lebih jelas)
  

  Spoiler:

• Resize lapak kerja sesuai ukuran yg sobat inginkan

• Masukkan Command Button sesuai kebutuhan sobat (klo di contoh ini, saya butuh 8 command button)
  

  command button:

• Rename Command Button sesuai nama yg sobat kehendaki (caranya klik command button satu kali aja dan di lapak sebelah kanan cari tulisan caption, ganti nama disitu)

• Setelah itu, silakan masukkan code di setiap command button yg sobat buat seperti (kurang lebih) dibawah ini:
  

  Code:

  intinya
  Select / Switch button :
  FileCopy "tempat file yg ingin diswitch", "tujuan file yg mw di ganti dengan switcher"
  Play Button :
  shell "tempat file yg mw dibuka", vbNormalFocus
  Exit Button :
  cuma tulis "end" (tanpa petik)

Ayoooo udah mw selesai, semangat

• Tes Selector / Switcher yg sobat buat dengan cara menekan tombol F5 pada keyboard dan akan muncul preview.na

• Langkah terakhir hanya tinggal saving file aja,......

unjuk hasil

Niih hasil buatan saya:

Udah, selesai,.........
Kalo ada yg kurang tolong di maklumi ya
Semoga sobat Balarupa lain bisa berkarya lebih baik dengan menggunakan switcher ini, terimakasih kunjungannya,......
Jangan lupa tinggalin jejak

mantep tutornya
sesuai janji ane di fb ya
cek +1

Nice Gan,,,
klo pake C# bisa?

Valencio44 wrote:mantep tutornya
sesuai janji ane di fb ya
cek +1

Makasih co,......

albantani.qiem wrote:Nice Gan,,,
klo pake C# bisa?

mungkin bisa, tpi caranya berbeda,...... ane baru coba pakek VB6

Klo bleh Saran [You must be registered and logged in to see this image.]
Gmbar nya Kurang Jelas, klo Bleh Coba Kasih Ke Sini Tulisan Yg di dlem nya, Biar lebih Ngerti

FajarNauval wrote:Klo bleh Saran [You must be registered and logged in to see this image.]
Gmbar nya Kurang Jelas, klo Bleh Coba Kasih Ke Sini Tulisan Yg di dlem nya, Biar lebih Ngerti

nih, kurang lebih tulisannya kyk gini
Private Sub Command1_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Real Madrid/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command2_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Barcelona/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command3_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Valencia/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command4_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Malaga/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command5_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Atletico Madrid/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command6_Click()
Shell "C:/Games/PES 2012/pes2012.exe", vbNormalFocus
End Sub

Private Sub Command7_Click()
End
End Sub

hehehe kgk jelas ya??

H.Azhari_26 wrote:

FajarNauval wrote:Klo bleh Saran [You must be registered and logged in to see this image.]
Gmbar nya Kurang Jelas, klo Bleh Coba Kasih Ke Sini Tulisan Yg di dlem nya, Biar lebih Ngerti

nih, kurang lebih tulisannya kyk gini
Private Sub Command1_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Real Madrid/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command2_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Barcelona/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command3_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Valencia/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command4_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Malaga/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command5_Click()
FileCopy "D:/Header PES 2012/pes logo/Project/Atletico Madrid/unnamed_55.bin", "C:/Games/PES 2012/kitserver/pesedit/img/dt06.img/unnamed_55.bin"
End Sub

Private Sub Command6_Click()
Shell "C:/Games/PES 2012/pes2012.exe", vbNormalFocus
End Sub

Private Sub Command7_Click()
End
End Sub

hehehe kgk jelas ya??

Keren, Mau Coba Dlu ah....
Cendol Menyusul

FajarNauval wrote:
Keren, Mau Coba Dlu ah....
Cendol Menyusul

OK dah,.....

sebenarnya tutor vb 6 sudah ada dan lengkap kalo mo baca dari page 1

[You must be registered and logged in to see this link.]

fernando hady wrote:sebenarnya tutor vb 6 sudah ada dan lengkap kalo mo baca dari page 1

[You must be registered and logged in to see this link.]

dari awal ane emang tau kalo ini repost,...... hehehe

H.Azhari_26 wrote:

fernando hady wrote:sebenarnya tutor vb 6 sudah ada dan lengkap kalo mo baca dari page 1

[You must be registered and logged in to see this link.]

dari awal ane emang tau kalo ini repost,...... hehehe

Tujuan sama, cra lain kan gpp...

=-=-=-=-=--=-=-=-

BTW, Nice share Sing... Semoga bisa terus membantu balarupa yg kesulitan

Ahmad JaeLani Assha wrote:

H.Azhari_26 wrote:
dari awal ane emang tau kalo ini repost,...... hehehe

Tujuan sama, cra lain kan gpp...

=-=-=-=-=--=-=-=-

BTW, Nice share Sing... Semoga bisa terus membantu balarupa yg kesulitan

ok, makasih

nice tutor kang ..

Persepar wrote:nice tutor kang ..

makasih,......

Nice

kevinfatli wrote:Nice

makasih kang,....
==
btw utang ane lunasin ntar malem aja ya

ane coba dulu ya kang

ini bisa buat ke directory PES yg beda gk kang?

===========================================
contoh : punya ane di C:\Program Files\KONAMI\Pro Evolution Soccer 2012
punya temen ane di D:\PES 2012
trus ane mau ngirim selector ketemen ane bisa gk?

kayaknya dulu pernah share direntalan deh kang red ....
Buat yang mau belajar VB6 ttg ngasih preview yang berhubungan dengan list , silahkan donload ini :
preview for laucher

[You must be registered and logged in to see this image.]

Ardhy Child wrote:kayaknya dulu pernah share direntalan deh kang red ....
Buat yang mau belajar VB6 ttg ngasih preview yang berhubungan dengan list , silahkan donload ini :
preview for laucher

[You must be registered and logged in to see this image.]

sorry ane lupa yg mana

Yang akang quote ding

Ardhy Child wrote:Yang akang quote ding

quote ding ane gk mudeng,, btw ane dh mudeng setelah liat contoh dari ente. thx

Auto fill listbox and Adding data listbox
[You must be registered and logged in to see this image.]

- INGAT!
buat file txt baru dan simpan dengan nama Index_Name.txt di bagian folder project nya

Code:


untuk di bagian (general) :

Private Sub SaveLoadListbox(plstLB As ListBox, _
pstrFileName As String, _
pstrSaveOrLoad As String)
Dim strListItems As String
Dim lcS As String
Dim i As Long
Dim lcF As String
Select Case pstrSaveOrLoad
  Case "load"
  plstLB.Clear
    Open pstrFileName For Input As #1
    While Not EOF(1)
      Line Input #1, strListItems
      plstLB.AddItem strListItems
    Wend
    Close #1
End Select
End Sub

Code:


untuk di bagian form :
Private Sub Form_Load()
Call SaveLoadListbox(List1, App.Path + "\Index_Name.txt", "load")
End Sub


Code:


untuk bagian command button :
Private Sub Command1_Click()
List1.AddItem Text1.Text
Open App.Path + "\Data\Index_Name.txt" For Output As #1
For i = 0 To List1.ListCount - 1
    Print #1, List1.List(i)
Next
Close
End Sub


Ardhy Child wrote:Auto fill listbox and Adding data listbox
[You must be registered and logged in to see this image.]

- INGAT!
buat file txt baru dan simpan dengan nama Index_Name.txt di bagian folder project nya

Code:


untuk di bagian (general) :

Private Sub SaveLoadListbox(plstLB As ListBox, _
pstrFileName As String, _
pstrSaveOrLoad As String)
Dim strListItems As String
Dim lcS As String
Dim i As Long
Dim lcF As String
Select Case pstrSaveOrLoad
  Case "load"
  plstLB.Clear
    Open pstrFileName For Input As #1
    While Not EOF(1)
      Line Input #1, strListItems
      plstLB.AddItem strListItems
    Wend
    Close #1
End Select
End Sub

Code:


untuk di bagian form :
Private Sub Form_Load()
Call SaveLoadListbox(List1, App.Path + "\Index_Name.txt", "load")
End Sub


Code:


untuk bagian command button :
Private Sub Command1_Click()
List1.AddItem Text1.Text
Open App.Path + "\Data\Index_Name.txt" For Output As #1
For i = 0 To List1.ListCount - 1
    Print #1, List1.List(i)
Next
Close
End Sub


nice... bisa otomatis gitu ya...
izin angkat ke post pertama kang...

saran bisa dimerger ama [You must be registered and logged in to see this link.]

biar ringkas?