Contoh Procedure Dan Function Dengan Vb 6.0

untuk membuat nya seperti gambar disamping bisa sobat download Disini setelah sobat download jangan lupa extact
dulu file zip nya dn jalankan programnya
atau bisa sobat baca tutorial seperti dibawah ini:

1. Buatlah sebuah aplikasi baru (File | New Project | Standard EXE)
2. Pilih Main Menu | Project | Add Module
3. Masukan 1 TextBox, 1 Label, dan 2 CommandButton
4. Gantilah properties masing-masing komponen seperti tertera dibawah ini :
Object Properties Value :

Form1 Caption Assignment Department Teams
Label1 Caption Sales
Text1 Text
MultiLine True
ScrollBars 2 - Vertical
Command1 Caption Tambah Nama
Command2 Caption Keluar

5. atur form sesuai dengan tampilan gambar :
6. Masukan code pada Module1
Public Sub addName(Team$, ReturnString$)
prompt$ = "Enter a " & Team$ & " Employe."
Nm$ = InputBox(prompt, "Input box")
WrapCharacter$ = Chr(13) + Chr(1)
ReturnString$ = Nm$ & WrapCharacter$
End Sub
7. Masukan code untuk CommandButton Tambah Nama
addName "sales", SalesPositions$
Text1.Text = Text1.Text & SalesPositions$

8. Masukan code untuk CommandButton Keluar
Unload Me
9. Tekan F5 untuk menjalankan program (Running)

Selamat mencoba semoga bermanfaat

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya