Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Contoh Program Pembayaran Dengan VB

· · 0 comments
Assalamu'alaikum, wr.wb

Membuat Form Aplikasi Pembayaran Pada Visual Basic - Selamat datang kembali rekan-rekan di blog mungil ini. Semoga kami jumpai dalam keadaan sehat dan dalam lindunganNya. Nah kayaknya muqaddimahnya sudah cukup nih, sekarang kita masuk ke pembahasannya. :)

Dengan bahasa pemograman visual basic banyak bentuk program yang dapat kita buat diantara program pembayaran, baik itu pembayaran SPP, program pembayaran pada penjualan barang. Nah disini kita akan belajar bagaimana cara membuat aplikasi pembayaran dengan studi kasus penjualan pada Warung nongkrong Nak Edwar yang beralamat di Benai Kabupaten Kuantan Singingi Riau. Eh..mohon maaf ya jika ada kesamaan nama tokoh, ini hanya cerita fiktif belaka, hehe.

Sebenarnya konsep logika dalam program pembayaran itu sangat sederhana sekali yaitu jumlah uang yang kita bayarkan dikurangi dengan jumlah pembelian, maka selisihnya kembaliannya. Simple kan ? Perhatian coding berikut :

Private Sub ok_Click(Index As Integer)
Text4.Text = Val(Text3) - (Text2)
End Sub

Perintah diatas dapat diartikan ketikan command ok di klik maka text4.text sebagai penampung nilai kembalian dihasilkan dari pengurangan text3 sebagai jumlah bayar dikurangi dengan text2 sebagai total harga yang akan dibayarkan.  Untuk lebih memudahkan silahkan desain programnya seperti dibawah ini :

contoh program pembayaran pada VB

Masukan koding dibawah ini :

Private Sub Check1_Click()
If Check1.Value = 1 And Check2 = 1 Then
        Text1.Text = 6000
   ElseIf Check1 = 1 And Check2 = 0 Then
        Text1.Text = 3500
  ElseIf Check1 = 0 And Check2 = 1 Then
      Text1.Text = 2500
  Else
       Text1.Text = 0
   End If
   Text2.Text = Val(textharga) + Val(Text1)
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 And Check2 = 1 Then
        Text1.Text = 6000
   ElseIf Check1 = 1 And Check2 = 0 Then
        Text1.Text = 3500
  ElseIf Check1 = 0 And Check2 = 1 Then
      Text1.Text = 2500
  Else
       Text1.Text = 0
   End If
   Text2.Text = Val(textharga) + Val(Text1)
End Sub

Private Sub Combo1_Click()
    Select Case Combo1.Text
    Case "Nasi Goreng": textharga.Text = 10000
    Text2.Text = 10000
    Case "Mie Rebus": textharga.Text = 6000
    Text2.Text = 6000
    Case "Mie Goreng": textharga.Text = 5000
    Text2.Text = 5000
    End Select
End Sub

Private Sub exit_Click(Index As Integer)
End
End Sub

Private Sub Form_Load()
    Combo1.AddItem "Nasi Goreng"
    Combo1.AddItem "Mie Rebus"
    Combo1.AddItem "Mie Goreng"
End Sub

Private Sub ok_Click(Index As Integer)
Text4.Text = Val(Text3) - (Text2)
End Sub


Setelah dijalankan maka akan tampil seperti gambar dibawah ini :

membuat aplikasi penjualan barang dengan visual basic

Sebenarya dengan membuat program diatas selain metode pembayaran juga dapat kita pelajari yaitu combobox dan checkbox. Moga bermanfaat. Nah begitulah.

Baca juga --> Membuat program pencarian data pada Visual Basic

0 comments:

Post a Comment

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan