Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Aplikasi Penjualan Tiket Kereta Api dengan VB6 Wed 27 Oct 2010, 09:28 | |
| - Code:
-
Sub bersih() Combo1.Text = "Pilih Kelas" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Option1.Value = False Option2.Value = False Option3.Value = False End Sub
Private Sub Command1_Click() If Combo1.Text = "Pilih Kelas" Then MsgBox "Pilih Kelas", vbCritical, salah Combo1.SetFocus Else
If Combo1.ListIndex = 0 Then If Option1.Value = True Then If Text3.Text = "" Then MsgBox "Isi Jumlah Tiket yang di Beli", vbCritical, salah Text3.SetFocus ElseIf IsNumeric(Text3) = False Then MsgBox "Isi Jumlah Tiket harus Angka", vbCritical, salah Text3.SetFocus Else Text1.Text = "Bandung - Jakarta" Text2.Text = 50000 Text4.Text = Val(Text2) * Val(Text3) Text5.Text = Val(Text4) * 10 / 100 Text6.Text = Val(Text4) - Val(Text5) End If
ElseIf Option2.Value = True Then If Text3.Text = "" Then MsgBox "Isi Jumlah Tiket yang di Beli", vbCritical, salah Text3.SetFocus ElseIf IsNumeric(Text3) = False Then MsgBox "Isi Jumlah Tiket harus Angka", vbCritical, salah Text3.SetFocus Else Text1.Text = "Bandung - Surabaya" Text2.Text = 100000 Text4.Text = Val(Text2) * Val(Text3) Text5.Text = Val(Text4) * 10 / 100 Text6.Text = Val(Text4) - Val(Text5) End If ElseIf Option3.Value = True Then MsgBox "Untuk Jurusan Semarang - Bandung Tiket Tidak tersedia untuk kelas Bisnis", vbInformation, salah Call bersih End If End If If Combo1.ListIndex = 1 Then If Option1.Value = True Then If Text3.Text = "" Then MsgBox "Isi Jumlah Tiket yang di Beli", vbCritical, salah Text3.SetFocus ElseIf IsNumeric(Text3) = False Then MsgBox "Isi Jumlah Tiket harus Angka", vbCritical, salah Text3.SetFocus Else Text1.Text = "Bandung - Jakarta" Text2.Text = 60000 Text4.Text = Val(Text2) * Val(Text3) Text5.Text = Val(Text4) * 5 / 100 Text6.Text = Val(Text4) - Val(Text5) End If
ElseIf Option2.Value = True Then If Text3.Text = "" Then MsgBox "Isi Jumlah Tiket yang di Beli", vbCritical, salah Text3.SetFocus ElseIf IsNumeric(Text3) = False Then MsgBox "Isi Jumlah Tiket harus Angka", vbCritical, salah Text3.SetFocus Else Text1.Text = "Bandung - Surabaya" Text2.Text = 120000 Text4.Text = Val(Text2) * Val(Text3) Text5.Text = Val(Text4) * 5 / 100 Text6.Text = Val(Text4) - Val(Text5) End If ElseIf Option3.Value = True Then If Text3.Text = "" Then MsgBox "Isi Jumlah Tiket yang di Beli", vbCritical, salah Text3.SetFocus ElseIf IsNumeric(Text3) = False Then MsgBox "Isi Jumlah Tiket harus Angka", vbCritical, salah Text3.SetFocus Else Text1.Text = "Semarang - Bandung" Text2.Text = 175000 Text4.Text = Val(Text2) * Val(Text3) Text5.Text = Val(Text4) * 5 / 100 Text6.Text = Val(Text4) - Val(Text5) End If End If End If End If
End Sub
Private Sub Command2_Click() Call bersih End Sub
Private Sub Command3_Click() End End Sub
download Projectnya klik link dibawah ini !!! [You must be registered and logged in to see this link.]or [You must be registered and logged in to see this link.]
Last edited by admin on Sun 12 Jun 2011, 16:45; edited 1 time in total |
|
Change Your Avatar --------------> Ize21
Rank : Level one
Jumlah posting : 1 Point : 1 Reputasi : 0 Join date : 2011-04-26
| Subject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6 Tue 26 Apr 2011, 22:49 | |
| knp gk biosa di donlod.... |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6 Tue 26 Apr 2011, 23:12 | |
| - Ize21 wrote:
- knp gk biosa di donlod....
Bisa di download kok |
|
Change Your Avatar --------------> pangeransalju
Rank : Level two
Jumlah posting : 2 Point : 2 Reputasi : 0 Join date : 2011-06-12
| Subject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6 Sun 12 Jun 2011, 06:30 | |
| requested URL not found kk... bisa di upload ulang gak? |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: LINK Baru Sun 12 Jun 2011, 16:43 | |
| |
|
Change Your Avatar --------------> pangeransalju
Rank : Level two
Jumlah posting : 2 Point : 2 Reputasi : 0 Join date : 2011-06-12
| Subject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6 Sun 12 Jun 2011, 21:12 | |
| waa thanks admin ada cara print tiketnya skalian gak? penasaran sama tiket kereta api yang pake logo background |
|
Change Your Avatar --------------> Sponsored content
Rank :
| Subject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6 | |
| |
|