Program sederhana pembelian paket futsal VB 6.0

Kali ini kita akan membuat suatu program sederhana dengan VB 6.0, yaitu program untuk pembelian paket futsal.

Oke langsung saja.

1. Pasti sudah tahu kan langkah pertama harus ngapain? ya buka program VB 6.0.

2. Pilih Standart Exe lalu Ok.

3. Jika sudah, buat dan rangkai tools-tools seperti pada gambar dibawah ini.

Sichikedua

4. Selanjutnya ubah nama-nama pada tools-tools tersebut seperti gambar dibawah ini.

Sichikedua

5. Sekarang saatnya mulai pengodingan, klik 2x pada “Pilihan Paket”. Berhubung saya menggunakan inputbox maka penulisan kodingnya seperti ini:

Private Sub Command1_Click()
paket = InputBox(“Paket berapa yang anda inginkan?”, “Mohon diisi”, 0)
MsgBox (“Anda Telah Menggunakan Paket “) + paket, vbInformation, “Modol Futsal”
MsgBox (“Silahkan Liat Daftar Paket”), vbInformation, “Modol Futsal”
If paket = 1 Then
Text1.Text = “1”
Text2.Text = “3 Jam”
Text3.Text = “Rp.130000”
Text4.Text = “Air Mineral”
ElseIf paket = 2 Then
Text1.Text = “2”
Text2.Text = “4 Jam”
Text3.Text = “Rp.160000”
Text4.Text = “Air Mineral+Indomie”
ElseIf paket = 3 Then
Text1.Text = “3”
Text2.Text = “5 Jam”
Text3.Text = “Rp.200000”
Text4.Text = “Air Mineral+Pizza Hut”
Else
MsgBox (“Paket Tidak Tersedia”), vbInformation, “Warning”
End If
End Sub

6. Kemudian klik 2x pada pilihan “Batal”, lalu ketik :

Private Sub Command2_Click()
Unload me
End Sub

7. Klik 2x pada pilihan “OK”, lalu ketik :

Private Sub Command3_Click()
MsgBox (“Terima Kasih Telah Membeli Paket”), vbInformation, “Modol Futsal”
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
End Sub

8. Dan terakhir klik 2x pada pilihan “Keluar”, lalu ketik :

Private Sub Command4_Click()
pesan = MsgBox(“Anda yakin keluar?”, vbYesNo + vbQuestion, “Pemberitahuan”)
If pesan = vbYes Then
Unload Me
Else
Form1.Show
End If
End Sub

Jika sudah semua mengikuti langkah-langkah diatas, langsung saja run program tsb.

Sichikedua

Sebagai contoh memasukkan paket 2 pada pilihan input box, maka hasilnya akan keluar seperti dibawah ini

Sichikedua

Yap mudah bukan? Selamat mencoba🙂

*Sesuatu yang luar biasa pasti dimulai dari yang sederhana*

About alfianeffendi

Someone who want to try be successful!! Lihat semua pos milik alfianeffendi

One response to “Program sederhana pembelian paket futsal VB 6.0

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: