Konversi Satuan (Multi Satuan) Barang Menggunakan VB6

Sering kali kita mendengar mengenai satuan barang yang bersifat multi satuan biasanya terdapat pada softwere kasir toko pada minimarket, toko-toko penjualan dan lain sebagainya. Biasanya dalam penerapannya seperti ini katakanlah dalam sebuah kardus besar berisi 50 barang dengan kata lain nilai dari satuan barang yang terdapat didalam kardus adalah 1 Kardus 50 Buah, dan kali ini admin akan menerapkan pembacaan multi satuan atau konversi satuan barang pada sebuah barang dengan menggunakan Visual Basic 6.0 (VB6)

LINK DOWNLOAD

Konversi Satuan (Multi Satuan) Barang Menggunakan VB6

Buka Microsoft Visual Basic 6.0 (VB6) - StandartEXE kemudian buatlah sebuah form dan tambahkan beberapa komponen seperti dibawah ini

1. ComboBox

2. TextBox

3. CommonButton

4. Frame

5. Label

Untuk name dari masing-masing komponen diatas terserah agan-agan saja akan tetapi admin menggunakan name yang bersifat standar dan untuk coding visual basic 6.0 (vb6) seperti dibawah ini

Private Sub Command1_Click()
Call KOnv_SatuanBArang
End Sub

Private Sub Form_Load()
Combo1.AddItem "BUAH"
Combo1.AddItem "PCS"
Combo2.AddItem "BUAH"
Combo2.AddItem "PCS"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
   Beep
   KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
   Beep
   KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
   Beep
   KeyAscii = 0
End If
End Sub

Sub KOnv_SatuanBArang()
Dim nSatuanBesar, nSatuanKecil As String
Dim nJumKecil, nJumBesar As Long
Dim i As Long

For i = Text2 To Text3 Step Text2
    If i Mod Text2 = 0 Then
        nSatuanBesar = Combo1
        nJumBesar = Val(i / Text2)
        nJumKecil = Text3 - Val(i / Text2) * Text2
        nSatuanKecil = Combo2
    Else
        nSatuanBesar = Combo1
        nJumBesar = Val(i / Text2)
        nJumKecil = Text3 - Val(i / Text2) * Text2
        nSatuanKecil = Combo2
    End If
Next i
MsgBox "Nilai Multi Satuan : " & nJumBesar & " " & nSatuanBesar & " => " & nJumKecil & " " & nSatuanKecil, vbInformation, "Informasi Konversi Satuan"
End Sub

Bagi yang berminat untuk mendownloadnya admin persilakan untuk mengklik link download source code yang telah tersedia dan semoga bermanfaat