Assalamu’alaikum Wr. Wb
Di zaman sekarang jualbeli semakin pesat dimana-mana bahkan dari zaman dahulu, karena ini kebutuhan semua masyarakat untuk mensejahterakan dirinya baik penjual maupun pembeli . yang namanya menjual pasti ingin mencari keuntungan , oleh karena itu pedagang selalu mengkalkulasi berapa keuntungannya . Tetapi kebanyakan orang menghitung keuntungan dagangannya khususnya pedagang kecil hanya menggunakan kalkulator yang rumus perhitungannya menurut caranya. Dari faktor inilah saya membuat software ( aplikasi ) komputer yang berguna untuk menghitung keuntungan dari barang yang mau di jual oleh seorang pedagang secara otomatis dengan hanya menginput harga barang yang di beli (modal) yang bernama Software Kalkulasi Penjualan .
Dengan menggunakan software ini pedagang / penjual tidak usah repot-repot menggunakan kalkulator karena hanya membuat pusing. Software ini sangat cocok digunakan pedagang menengah kebawah . Ayo download software ini !!!! gak usah piker-pikir.
Oh iya ya, karena software ini freeopensource , akan saya kasih mentahan softwarenya jadi nanti sahabat bisa mengembangkannya lagi.
Oh iya ya , Mari sahabat saya kasih tau cara membuatnya :
1. 1. Karna software ini di buat ( development ) dengan VB 6, maka so pasti sahabat harus install dulu VB 6 nye di pc sahabat , kalau dah punya ya Alhamdulillah.
2. 2. Trus kalau dah dibuka , tinggal sahabat buat form – nya seperti kaya gambar di atas .
3. 3. Lalu masukkan coding di bawah ini:
---------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Text4.Text = Text1.Text * Combo1.Text / 100
Text3.Text = Val(Text1.Text) + Val(Text4.Text)
Text6.Text = (Text1.Text / Text2.Text) * Combo1.Text / 100
Text5.Text = Val(Text1.Text / Text2.Text) + Text6.Text
Label9.Caption = Text4.Text
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = "0"
Label9.Caption = ""
End Sub
Private Sub Form_Load()
For i = 1 To 100
Combo1.AddItem i
Next i
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.Text = "" Or Text2.Text = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
---------------------------------------------------------------------------------------------------------
hjh
1. 4. Trus Compile ke exe deh , caranya pilih “File” lalu pilih “Make Project1.exe”
Demikian sahabat semoga bermanfaat , kalau banyak kekurangan pada artikel dan software ini , pastilah banyak, karena saya juga masih newbie (baru) . kalau mau Tanya sms atau call ja ke no 085718942158, terima kasih.
Wassalamu’alaikum Wr. Wb
Download Kalkulasi Penjualan