Majoo aplikasi kasir canggih dilengkapi fungsi printing struk order, pembayaran, serta printer dapur/bar. Fungsi cashdrawer sebagai buka tutup penyimpanan kas kasir. Barcode scanner kamera maupun bluetooth untuk membaca otomatis kode sku barang atau label harga. ClearClear Clear. Cetak Struk PDF Mencetak struk yang tersimpan sebagai file PDF 6. Cetak Struk from WEB Mencetak struk dari WEB yang di screenshoot (Input alamat di setting, tekan tombol reload untuk menampilkan) 7. Setup Header/footer Menambahkan awalan dan/atau akhiran pada struk yang ingin dicetak Fitur Pro: 1. DONASI APLIKASI SOFTWARE PROGRAM KASIR GRATIS Donasi untuk free download. software kasir gratis,program kasir gratis,aplikasi kasir gratis.Jika kamu terbantu dengan aplikasi kasir gratis ini saja kami sudah cukup bahagia, dan kalau ingin melakukan donasi sukarela untuk pengembangan aplikasi software ini kedepan serta aplikasi kasir gratis lain nya bisa anda lakukan donasi pada account transfer.

Aplikasi Cetak Struk Gratis Di
Aplikasi Cetak Struk Restoran Gratis
Aplikasi Cetak Struk Belanja Gratis

Pemrograman Visual Basic Net (VB)

Hallo teman – teman kenalin nama saya Gustina, saya kerap dipaggil dengan sebuatan Tina. Kebetulan malam ini Tina gak bisa tidur niih,...  jadi itung2 berbagi ilmu dengan teman – teman. Ini merupakan Blog kedua tina, sebelumnya tina punya blog yang lain sii, yahh...namanya belajar dan kebetulan tina sekarang pengangguran alias gak kerja dan lagi libur kuliah juga, dari pada ga ada kesibukan mending ngeblog (hehehe...jadi curhat niih ceritanya :D ). Okeh...udah cukup kek nya kata sambutan nya niih,maklum tina sbenarnya gak bisa ngarang kata – kata indah seindah para puitis.... :P

Oke..langsung tu de poin aja ya gays (hehe...lagi2 ga bisa bahasa inggris tapi sok keinggris2an biar kekinian gitu :D :P ), Kali ini tina bakalan buat sebuah aplikasi yang bisa dijalankan dan digunakan tujuan nya untuk mencetak struk hasil pembelian SPBU. dimana aplikasi tersebut akan dibuat dengan bahasa pemrograman tentunya, yaitu visual basic net. Tina pake VB yang 2010 karena menurut tina lebih simpel dan ringan untuk laptop atau pc. Tapi kalo Agan2 n sista2 menggunakan versi yg berbeda tak masalah juga, inti nya walu berbeda – beda tujuan pemrogramannya sama kok.. 

Perhatian :

**untuk mengikuti tutorial saya, diharapkan agan2 atau sista2 udah mengerti dulu ya apa itu vb dan setidak nya tau cara nggunain nya, oke...?? ce ki doooot... 

Langsung masuk kelangkah awal ya gays yaitu Form Pertama (karena kita akan menggunakan beberapa form untuk aplikasi ini)...

1. Seperti biasa ya gays pertama – tama Agan2 dan sista2 membuka aplikasi pemrograman vb dulu klik New Project, kemudian pilih Windows Form Aplication...seperti dibawah ini !
2. Dan selanjut nya akan muncul lembaran kerja dibawah ini, dimana pada lembaran kerja tersebut kita meyisip kan toolbox – toolbox yang kita gunakan untuk membuat aplikasi, yaitu 5 buah toobox label, 2 Textbox, 2 botton, 1 timer dan 1 Progressbar....
(Progressbarr digunakan untuk loading).

3. Kemudian double klik form utama, dan ketikan coding sperti dibawah ini
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text = 'admin' And TextBox2.Text = '12345' Then
ProgressBar1.Increment(10)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
ProgressBar1.Value = 0
MsgBox('Your Logged', MsgBoxStyle.Information)
Form2.Show()
End If
Else
Timer1.Start()
ProgressBar1.Increment(10)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
ProgressBar1.Value = 0
MsgBox('Password atau Username SALAH!', MsgBoxStyle.Critical)
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
4. Lakukan hal yang sama untuk form ke-2 seperti langkah ke-2, dengan 8 Label, 1 combobox dan 1 botton, seperti dibawah ini,
5. Lakukan hal yang sama seperti langkah ke-3, dengan mengetik atau copy kodding dibawah ini !!
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
ComboBox1.Items.Add('Stasiun 1')
ComboBox1.Items.Add('Stasiun 2')
ComboBox1.Items.Add('Stasiun 3')
ComboBox1.Items.Add('Stasiun 4')
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form3.Label2.Text = Me.Label6.Text
Form3.TextBox1.Text = Me.ComboBox1.Text
Form3.Show()
End Sub
6. Untuk form ke-3 lakukan hal yang sama sepert langkah ke 2, dan 4, dengan pemberian toolbox 7 label, 1 link label, 3 Combobox, 2 Texbox, dan 1 Botton. Seperti dibawah ini... !!

Aplikasi Cetak Struk Gratis Di

7. Selanjutnya, lakukan langkah yang sama seperti langkah ke-3 dan 5, ketik atau copy codding dibawah ini.. !!
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
End
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
ComboBox1.Items.Add('GOL I')
ComboBox1.Items.Add('GOL II')
ComboBox1.Items.Add('GOL III')
ComboBox1.Items.Add('GOL IV')
ComboBox2.Items.Clear()
ComboBox2.Items.Add('PREMIUM')
ComboBox2.Items.Add('PERTALITE')
ComboBox2.Items.Add('PERTAMAX')
ComboBox2.Items.Add('SOLAR')
ComboBox3.Items.Clear()
ComboBox3.Items.Add('1')
ComboBox3.Items.Add('2')
ComboBox3.Items.Add('3')
ComboBox3.Items.Add('4')
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox2.Text = 'PREMIUM' Then
Me.TextBox2.Text = 'Rp.6000'
ElseIf ComboBox2.Text = 'PERTALITE' Then
Me.TextBox2.Text = 'Rp.6500'
ElseIf ComboBox2.Text = 'PERTAMAX' Then
Me.TextBox2.Text = 'Rp.9000'
ElseIf ComboBox2.Text = 'SOLAR' Then
Me.TextBox2.Text = 'Rp.4000'
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form4.NumericUpDown1.Text = Me.ComboBox3.Text
Form4.NumericUpDown2.Text = Me.ComboBox3.Text
Form4.TextBox2.Text = Me.TextBox2.Text
Form4.TextBox7.Text = Me.TextBox2.Text
Form4.TextBox10.Text = Me.TextBox2.Text
Form4.TextBox13.Text = Me.TextBox2.Text
Form4.Show()
End Sub
8. Form ke 4, lakukan langkah yang sama seperti langkah yang ke 2, 4 dan 6, dengan pemberian toolbox 7 label, 4 TextBox, 2 PictureBox, 1 DateTimePicker, 2 NumericUpDown, 2 CheckBox, dan 2 Botton.
** Ket:
- Pada Textbox No. SPBU yang dilingkari diatas menggunakan settingan propertis, pada menu behavior (Enable = False). Spt dbwah ini

9. Selanjutnya lakukan seperti langkah ke 3, 5 dan 7. Ketik atau copy kodding dibawah ini... !!!
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form4
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _

Aplikasi Cetak Struk Restoran Gratis

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.Label40 = New System.Windows.Forms.Label()
Me.Bu