17-08-2021

Aplikasi Cetak Struk Gratis

Aplikasi cetak struk pln pascabayar secara offline dan Online (Khsusus Token PLN, PLN Pasca Bayar, BPJS, dan Telkom) aplikasi ini hanya bisa Download Aplikasi Cetak Struk PLN Prabayar Aplikasi Cetak Struk PLN PRABAYAR ( token listrik ) ini Tergolong Sederhana dan aplikasi ini gimana cara edit harga untuk ctak nota mkios dan cetakstruk PLN.

  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.
  2. May 05, 2021 Informasi Aplikasi Cetak Struk Toko Gratis. Untuk membuat Aplikasi Cetak Struk Toko Gratis sebenarnya tidak perlu menggunakan langkah yang ribet, karena kami sudah menyediakan langkah paling baru dan paling mudah sesuai dengan update artikel aplikasi cetak struk toko gratis terbaru, yakni bulan June di tahun 2021 ini.
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... !!

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()
Aplikasi Cetak Struk GratisMe.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)
Aplikasi cetak struk gratis androidMe.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
'

Aplikasi Cetak Struk Gratis Android

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

Aplikasi Cetak Struk Kasir Gratis

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

Aplikasi Cetak Struk Pln Gratis

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

Aplikasi Cetak Struk Gratis Download

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

Aplikasi Cetak Struk Gratis Untuk

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.