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 | |
| |
|
