Tinta Blueprint adalah satu-satunyaTinta Isi Ulang dengan jaminan servis dan sparepart gratis mengikuti garansi tinta produsen printer. Produk perusahaan go publik dengan 27 service station tersebar di seluruh indonesia siap melayani anda. Catatan: Gambar di atas diambil ketika top up OVO lewat BCA masih gratis sehingga tidak terlihat ada biaya admin, namun untuk sekarang ini sudah berbeda karena ada biaya adm 1.000 per transaksi. Seperti terlihat pada langkah di atas, untuk menambah saldo aplikasi OVO di ATM BCA caranya cukup transfer dari BCA ke OVO melalui rekening virtual.

Pemrograman Visual Basic Net (VB)
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
'
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

Cetak Struk Pln

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

Aplikasi Cetak Struk Spbu Gratis

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.