Aplikasi Cetak Struk Gratis

Pemrograman Visual Basic Net (VB)

Aplikasi Cetak Struk Gratis Android
Aplikasi Cetak Struk Gratis Download
Aplikasi Cetak Struk Restoran Gratis
Cetak Struk Pln Prabayar
Cetak Struk Ppob

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

Hasil Pencarian untuk: aplikasi-cetak-struk-gratis. Tidak ditemukan. Mohon maaf, tapi tidak ada hasil yang ditemukan untuk arsip yang diminta. Mungkin pencarian akan membantu anda menemukan posting terkait. Liputan6.com, Jakarta - Perum Bulog tegas menjamin pasokan beras yang dikuasai dalam jumlah aman selama PPKM Darurat yang akan dimulai pada hari ini. Bulog juga memastikan mampu menghadapi kebutuhan lonjakan beras yang tak terduga sekaligus meminta seluruh jajaran Bulog mewaspadai lonjakan tersebut. Bayar Iuran BPJS Kesehatan Online sekarang lebih mudah, cepat & ringan dengan aneka promo di Tokopedia! Cek & lunasi tagihan BPJS Kesehatan kamu bulan Juli 2021. Klik juga untuk mempelajari manfaat, kelas, jumlah iuran, cara daftar, & cara bayar BPJS online. Bisa bayar via Transfer, Alfamart, Indomaret, dll. Paket aplikasi kasir dan toko online dengan harga terjangkau. Semua paket iSeller memiliki fitur yang sama. Cukup pilih paket yang sesuai dengan ukuran bisnis Anda.

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... !!

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()> _
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.Button8 = New System.Windows.Forms.Button()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TextBox3
'
Me.TextBox3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TextBox3.Enabled = False
Me.TextBox3.Font = New System.Drawing.Font('Microsoft Sans Serif', 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox3.Location = New System.Drawing.Point(466, 2)
Me.TextBox3.Name = 'TextBox3'
Me.TextBox3.Size = New System.Drawing.Size(188, 26)
Me.TextBox3.TabIndex = 58
Me.TextBox3.Text = '445988200'
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(471, 51)
Me.Label8.Name = 'Label8'
Me.Label8.Size = New System.Drawing.Size(48, 20)
Me.Label8.TabIndex = 57
Me.Label8.Text = '/LITER'
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(359, 51)
Me.Label7.Name = 'Label7'
Me.Label7.Size = New System.Drawing.Size(55, 20)
Me.Label7.TabIndex = 56
Me.Label7.Text = 'HARGA'
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(451, 106)
Me.CheckBox2.Name = 'CheckBox2'
Me.CheckBox2.Size = New System.Drawing.Size(57, 17)
Me.CheckBox2.TabIndex = 55
Me.CheckBox2.Text = 'LITER'
Me.CheckBox2.UseVisualStyleBackColor = True
'
'PictureBox2
'
Me.PictureBox2.Location = New System.Drawing.Point(191, 152)
Me.PictureBox2.Name = 'PictureBox2'
Me.PictureBox2.Size = New System.Drawing.Size(72, 84)
Me.PictureBox2.TabIndex = 53
Me.PictureBox2.TabStop = False
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(451, 82)
Me.CheckBox1.Name = 'CheckBox1'
Me.CheckBox1.Size = New System.Drawing.Size(67, 17)
Me.CheckBox1.TabIndex = 54
Me.CheckBox1.Text = 'RUPIAH'
Me.CheckBox1.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(3, 150)
Me.PictureBox1.Name = 'PictureBox1'
Me.PictureBox1.Size = New System.Drawing.Size(181, 58)
Me.PictureBox1.TabIndex = 52
Me.PictureBox1.TabStop = False
'
'Button7
'
Me.Button7.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.Location = New System.Drawing.Point(503, 172)
Me.Button7.Name = 'Button7'
Me.Button7.Size = New System.Drawing.Size(103, 40)
Me.Button7.TabIndex = 50
Me.Button7.Text = 'DELETE'
Me.Button7.UseVisualStyleBackColor = True
'
'Label40
'
Me.Label40.AutoSize = True
Me.Label40.Font = New System.Drawing.Font('Times New Roman', 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label40.Location = New System.Drawing.Point(262, 233)
Me.Label40.Name = 'Label40'
Me.Label40.Size = New System.Drawing.Size(128, 14)
Me.Label40.TabIndex = 47
Me.Label40.Text = 'PERTAMINA INDONESIA'
'
'Button8
'
Me.Button8.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button8.Location = New System.Drawing.Point(394, 172)
Me.Button8.Name = 'Button8'
Me.Button8.Size = New System.Drawing.Size(103, 40)
Me.Button8.TabIndex = 49
Me.Button8.Text = 'PRINT'
Me.Button8.UseVisualStyleBackColor = True
'
'TextBox4
'
Me.TextBox4.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox4.Location = New System.Drawing.Point(503, 136)
Me.TextBox4.Name = 'TextBox4'
Me.TextBox4.Size = New System.Drawing.Size(151, 26)
Me.TextBox4.TabIndex = 51
'
'NumericUpDown2
'
Me.NumericUpDown2.Location = New System.Drawing.Point(141, 124)
Me.NumericUpDown2.Name = 'NumericUpDown2'
Me.NumericUpDown2.Size = New System.Drawing.Size(43, 20)
Me.NumericUpDown2.TabIndex = 44
'
'TextBox2
'
Me.TextBox2.Enabled = False
Me.TextBox2.Font = New System.Drawing.Font('Microsoft Sans Serif', 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox2.Location = New System.Drawing.Point(533, 42)
Me.TextBox2.Name = 'TextBox2'
Me.TextBox2.Size = New System.Drawing.Size(121, 29)
Me.TextBox2.TabIndex = 45
'
'NumericUpDown1
'
Me.NumericUpDown1.Enabled = False
Me.NumericUpDown1.Location = New System.Drawing.Point(141, 93)
Me.NumericUpDown1.Name = 'NumericUpDown1'
Me.NumericUpDown1.Size = New System.Drawing.Size(43, 20)
Me.NumericUpDown1.TabIndex = 43
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(359, 82)
Me.Label6.Name = 'Label6'
Me.Label6.Size = New System.Drawing.Size(86, 20)
Me.Label6.TabIndex = 48
Me.Label6.Text = 'BELI DALAM'
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font('Modern No. 20', 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(42, 124)
Me.Label4.Name = 'Label4'
Me.Label4.Size = New System.Drawing.Size(80, 15)
Me.Label4.TabIndex = 42
Me.Label4.Text = 'NO SELANG'
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(410, 51)
Me.Label5.Name = 'Label5'
Me.Label5.Size = New System.Drawing.Size(38, 20)
Me.Label5.TabIndex = 46
Me.Label5.Text = 'BBM'
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font('Modern No. 20', 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(50, 94)
Me.Label3.Name = 'Label3'
Me.Label3.Size = New System.Drawing.Size(72, 15)
Me.Label3.TabIndex = 41
Me.Label3.Text = 'NO POMPA'
'
'DateTimePicker1
'
Me.DateTimePicker1.Location = New System.Drawing.Point(141, 58)
Me.DateTimePicker1.Name = 'DateTimePicker1'
Me.DateTimePicker1.Size = New System.Drawing.Size(134, 20)
Me.DateTimePicker1.TabIndex = 40
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font('Modern No. 20', 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(6, 61)
Me.Label2.Name = 'Label2'
Me.Label2.Size = New System.Drawing.Size(116, 15)
Me.Label2.TabIndex = 39
Me.Label2.Text = 'TANGGAL STRUK'
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TextBox1.Enabled = False
Me.TextBox1.Font = New System.Drawing.Font('Microsoft Sans Serif', 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(141, 2)
Me.TextBox1.Name = 'TextBox1'
Me.TextBox1.Size = New System.Drawing.Size(188, 31)
Me.TextBox1.TabIndex = 38
Me.TextBox1.Text = '44.561.19'
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font('Modern No. 20', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 9)
Me.Label1.Name = 'Label1'
Me.Label1.Size = New System.Drawing.Size(74, 18)
Me.Label1.TabIndex = 37
Me.Label1.Text = 'NO SPBU'
'
'Form4
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(661, 251)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Label40)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.NumericUpDown2)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.NumericUpDown1)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = 'Form4'
Me.Text = 'INPUT'
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Label40 As System.Windows.Forms.Label
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents NumericUpDown2 As System.Windows.Forms.NumericUpDown
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
10.Selanjutnya, save seluruh form desain dan codding, atau dengan menekan CTRL + S. Dan run lah project anda dengan mengklik tanda segi tiga hijau pada menu toolbar anda atau dengan menekan F5 pada tombol keyboard anda...dan tarraaaaa......!!
jika project aplikasi Pencetak Struc SPBU anda berhasil dijalankan...maka akan tampil seperti dibahawah ini... !!
Silahkan masukkan Username dan Password yang anda ketik kan di form coding yang pertama, klik Login, dan akan muncuk form selanjut nya yaitu form kedua, masukkan data yang diminta...
Sekarang aplikasi kita udah siap niih...dan kalo agan2 dan sista2 pengen liat program yang saya rancang silahkan klik DISINI
Trimakasih sudah membaca blog tina, jika ada kata – kata yang kurang berkenan dihati agan2 dan sista2 mohon dimaafkan ya...dan jagan lupa buat klik subscribe, like, share ato coment2 ya guys...
saran yang membangun dari agan2 n sista2 sngat saya harapkan lhoo...sampai jumpa di tutorial berikut nya :)
wassalammu'alaikum wr, wb.Pemrograman Visual Basic Net (VB)

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)...

Partial Class Form4
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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.Button8 = New System.Windows.Forms.Button()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TextBox3
'
Me.TextBox3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TextBox3.Enabled = False
Me.TextBox3.Font = New System.Drawing.Font('Microsoft Sans Serif', 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox3.Location = New System.Drawing.Point(466, 2)
Me.TextBox3.Name = 'TextBox3'
Me.TextBox3.Size = New System.Drawing.Size(188, 26)
Me.TextBox3.TabIndex = 58
Me.TextBox3.Text = '445988200'
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(471, 51)
Me.Label8.Name = 'Label8'
Me.Label8.Size = New System.Drawing.Size(48, 20)
Me.Label8.TabIndex = 57
Me.Label8.Text = '/LITER'
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(359, 51)
Me.Label7.Name = 'Label7'
Me.Label7.Size = New System.Drawing.Size(55, 20)
Me.Label7.TabIndex = 56
Me.Label7.Text = 'HARGA'
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(451, 106)
Me.CheckBox2.Name = 'CheckBox2'
Me.CheckBox2.Size = New System.Drawing.Size(57, 17)
Me.CheckBox2.TabIndex = 55
Me.CheckBox2.Text = 'LITER'
Me.CheckBox2.UseVisualStyleBackColor = True
'
'PictureBox2
'
Me.PictureBox2.Location = New System.Drawing.Point(191, 152)
Me.PictureBox2.Name = 'PictureBox2'
Me.PictureBox2.Size = New System.Drawing.Size(72, 84)
Me.PictureBox2.TabIndex = 53
Me.PictureBox2.TabStop = False
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(451, 82)
Me.CheckBox1.Name = 'CheckBox1'
Me.CheckBox1.Size = New System.Drawing.Size(67, 17)
Me.CheckBox1.TabIndex = 54
Me.CheckBox1.Text = 'RUPIAH'
Me.CheckBox1.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(3, 150)
Me.PictureBox1.Name = 'PictureBox1'
Me.PictureBox1.Size = New System.Drawing.Size(181, 58)
Me.PictureBox1.TabIndex = 52
Me.PictureBox1.TabStop = False
'
'Button7
'
Me.Button7.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.Location = New System.Drawing.Point(503, 172)
Me.Button7.Name = 'Button7'
Me.Button7.Size = New System.Drawing.Size(103, 40)
Me.Button7.TabIndex = 50
Me.Button7.Text = 'DELETE'
Me.Button7.UseVisualStyleBackColor = True
'
'Label40
'
Me.Label40.AutoSize = True
Me.Label40.Font = New System.Drawing.Font('Times New Roman', 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label40.Location = New System.Drawing.Point(262, 233)
Me.Label40.Name = 'Label40'
Me.Label40.Size = New System.Drawing.Size(128, 14)
Me.Label40.TabIndex = 47
Me.Label40.Text = 'PERTAMINA INDONESIA'
'
'Button8
'
Me.Button8.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button8.Location = New System.Drawing.Point(394, 172)
Me.Button8.Name = 'Button8'
Me.Button8.Size = New System.Drawing.Size(103, 40)
Me.Button8.TabIndex = 49
Me.Button8.Text = 'PRINT'
Me.Button8.UseVisualStyleBackColor = True
'
'TextBox4
'
Me.TextBox4.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox4.Location = New System.Drawing.Point(503, 136)
Me.TextBox4.Name = 'TextBox4'
Me.TextBox4.Size = New System.Drawing.Size(151, 26)
Me.TextBox4.TabIndex = 51
'
'NumericUpDown2
'
Me.NumericUpDown2.Location = New System.Drawing.Point(141, 124)
Me.NumericUpDown2.Name = 'NumericUpDown2'
Me.NumericUpDown2.Size = New System.Drawing.Size(43, 20)
Me.NumericUpDown2.TabIndex = 44
'
'TextBox2
'
Me.TextBox2.Enabled = False
Me.TextBox2.Font = New System.Drawing.Font('Microsoft Sans Serif', 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox2.Location = New System.Drawing.Point(533, 42)
Me.TextBox2.Name = 'TextBox2'
Me.TextBox2.Size = New System.Drawing.Size(121, 29)
Me.TextBox2.TabIndex = 45
'
'NumericUpDown1
'
Me.NumericUpDown1.Enabled = False
Me.NumericUpDown1.Location = New System.Drawing.Point(141, 93)
Me.NumericUpDown1.Name = 'NumericUpDown1'
Me.NumericUpDown1.Size = New System.Drawing.Size(43, 20)
Me.NumericUpDown1.TabIndex = 43
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(359, 82)
Me.Label6.Name = 'Label6'
Me.Label6.Size = New System.Drawing.Size(86, 20)
Me.Label6.TabIndex = 48
Me.Label6.Text = 'BELI DALAM'
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font('Modern No. 20', 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(42, 124)
Me.Label4.Name = 'Label4'
Me.Label4.Size = New System.Drawing.Size(80, 15)
Me.Label4.TabIndex = 42
Me.Label4.Text = 'NO SELANG'
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font('Arial Narrow', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(410, 51)
Me.Label5.Name = 'Label5'
Me.Label5.Size = New System.Drawing.Size(38, 20)
Me.Label5.TabIndex = 46
Me.Label5.Text = 'BBM'
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font('Modern No. 20', 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(50, 94)
Me.Label3.Name = 'Label3'
Me.Label3.Size = New System.Drawing.Size(72, 15)

Aplikasi Cetak Struk Gratis Android

Me.Label3.TabIndex = 41
Me.Label3.Text = 'NO POMPA'
'
'DateTimePicker1
'
Me.DateTimePicker1.Location = New System.Drawing.Point(141, 58)
Me.DateTimePicker1.Name = 'DateTimePicker1'
Me.DateTimePicker1.Size = New System.Drawing.Size(134, 20)
Me.DateTimePicker1.TabIndex = 40
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font('Modern No. 20', 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(6, 61)
Me.Label2.Name = 'Label2'
Me.Label2.Size = New System.Drawing.Size(116, 15)
Me.Label2.TabIndex = 39
Me.Label2.Text = 'TANGGAL STRUK'
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TextBox1.Enabled = False
Me.TextBox1.Font = New System.Drawing.Font('Microsoft Sans Serif', 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(141, 2)
Me.TextBox1.Name = 'TextBox1'
Me.TextBox1.Size = New System.Drawing.Size(188, 31)
Me.TextBox1.TabIndex = 38
Me.TextBox1.Text = '44.561.19'
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font('Modern No. 20', 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 9)
Me.Label1.Name = 'Label1'
Me.Label1.Size = New System.Drawing.Size(74, 18)
Me.Label1.TabIndex = 37
Me.Label1.Text = 'NO SPBU'
'
'Form4
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(661, 251)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Label40)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.NumericUpDown2)

Aplikasi Cetak Struk Gratis Download

Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.NumericUpDown1)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = 'Form4'

Aplikasi Cetak Struk Restoran Gratis

Me.Text = 'INPUT'
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

Cetak Struk Pln Prabayar

Me.PerformLayout()
End Sub
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Label40 As System.Windows.Forms.Label
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents NumericUpDown2 As System.Windows.Forms.NumericUpDown

Cetak Struk Ppob

Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
10.Selanjutnya, save seluruh form desain dan codding, atau dengan menekan CTRL + S. Dan run lah project anda dengan mengklik tanda segi tiga hijau pada menu toolbar anda atau dengan menekan F5 pada tombol keyboard anda...dan tarraaaaa......!!
jika project aplikasi Pencetak Struc SPBU anda berhasil dijalankan...maka akan tampil seperti dibahawah ini... !!
Silahkan masukkan Username dan Password yang anda ketik kan di form coding yang pertama, klik Login, dan akan muncuk form selanjut nya yaitu form kedua, masukkan data yang diminta...
Sekarang aplikasi kita udah siap niih...dan kalo agan2 dan sista2 pengen liat program yang saya rancang silahkan klik DISINI
Trimakasih sudah membaca blog tina, jika ada kata – kata yang kurang berkenan dihati agan2 dan sista2 mohon dimaafkan ya...dan jagan lupa buat klik subscribe, like, share ato coment2 ya guys...
saran yang membangun dari agan2 n sista2 sngat saya harapkan lhoo...sampai jumpa di tutorial berikut nya :)
wassalammu'alaikum wr, wb.