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 :
Masukan koding dibawah ini :
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 :
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
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 :
Masukan koding dibawah ini :
Private Sub Check1_Click()
If Check1.Value = 1 And Check2 = 1 ThenText1.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 :
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