Forum Informatika
Silahkan Login

Kami sarankan anda register atau daftar terlebih dahulu agar anda dapat mendownload atau membuka category forum secara keseluruhan....
karena ada beberapa forum yang tertutup untuk tamu dan dengan Login Anda bisa menggunakan fasilitas Chatting yang kami miliki.

Selamat Bergabung

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeFAQPasang Iklanfacebook InformatikaRegisterLog inNew Tab Newscomputer

Share | 
 

 Aplikasi Penjualan Tiket Kereta Api dengan VB6

View previous topic View next topic Go down 
AuthorMessage


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: 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 !!!

Klik Here Download

or

Klik Here Download (mediafire)


Last edited by admin on Sun 12 Jun 2011, 16:45; edited 1 time in total
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


Ize21

Level one
Rank : Level one


Jumlah posting : 1
Point : 1
Reputasi : 0
Join date : 2011-04-26

PostSubject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6   Tue 26 Apr 2011, 22:49

knp gk biosa di donlod....
Back to top Go down


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: 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
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


pangeransalju

Level two
Rank : Level two


Jumlah posting : 2
Point : 2
Reputasi : 0
Join date : 2011-06-12

PostSubject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6   Sun 12 Jun 2011, 06:30

requested URL not found kk...
bisa di upload ulang gak?
Sad
Back to top Go down


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: LINK Baru   Sun 12 Jun 2011, 16:43

SIlahkan download di sini

Download
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


pangeransalju

Level two
Rank : Level two


Jumlah posting : 2
Point : 2
Reputasi : 0
Join date : 2011-06-12

PostSubject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6   Sun 12 Jun 2011, 21:12

waa thanks admin Smile
ada cara print tiketnya skalian gak?
penasaran sama tiket kereta api yang pake logo background rendeer
Back to top Go down


Change Your Avatar -------------->


Sponsored content

Rank :



PostSubject: Re: Aplikasi Penjualan Tiket Kereta Api dengan VB6   Today at 12:49

Back to top Go down
 

Aplikasi Penjualan Tiket Kereta Api dengan VB6

View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forum Informatika ::  :: VB6-
Jump to:  

Forum create on Forumotion | © phpBB | Free forum support | Contact | Report an abuse | Free forum