Pemrograman Visual Basic Net (VB)

1. Aplikasi Cetak Struk Restoran Gratis
2. Aplikasi Cetak Struk Gratis Di
3. Software Cetak Struk Gratis
4. Aplikasi Cetak Struk Gratis Untuk

Aplikasi Struk SPBU Gratis Full Source Code - Berkembangnya zaman tentu berkambangnya juga ilmu pengetahuan, hal ini juga berlaku untuk sebuah aplikasi BBM di Pom Bensin sekitar wilayah anda yang mana jika teman - teman sedang mengisi minyak (bahan bakar kendaraan) lalu melupakan sesuatu yakni Struk / Nota BBM di SPBU, jangan khawatir anda sudah bisa membuat nota sendiri menggunakan aplikasi. 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. Aplikasi cetak struk pln pascabayar,software cetak struk pln,aplikasi cetak struk pln online,software cetak struk ppob gratis,software aplikasi.AbuazmaShare Download aplikasi untuk mencetak struk PLN Dan Telkom PPOB Download aplikasi cetak nota sms v.4 6 disini Ada 2 menu “Cetek struk” dan “Pilih printer” Mula mula anda harus pilih jenis printer.H2htokenplnmurahadalah Server pengisian. Melalui aplikasi windows tersebut, penjual tidak perlu ribet merekap pembelian dari banyak pelanggan. Terdapat banyak aplikasi kasir untuk toko online yang bisa Anda manfaatkan. Di dalamnya terdapat banyak fitur, mulai dari pencatatan pembelian dan penjualan, persediaan barang, pengelolaan biaya, hingga cetak struk kasir otomatis untuk pelanggan. Software Aplikasi Cetak Struk Nota SPBU Pertamini/a (SPBUP Versi PL). Star (7) Tambah ke Wishlist. Los 7 habitos de los adolescentes altamente efectivos pdf descargar gratis, los 7 habitos de los adolescentes altamente. Software struk spbu free 103bfdcm.

Perhatian :
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
'

Aplikasi Cetak Struk Restoran Gratis

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

Aplikasi Cetak Struk Gratis Di

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

Software Cetak Struk Gratis

Aplikasi Cetak Struk Gratis Untuk

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.