Jurnal Modul 2 Kelompok 25

KONSEP PROGRAM KASIR

            Pada praktikum modul 2, kami mendapatkan tugas untuk membuat sebuah program. Salah satunya adalah membuat program perhitungan kasir sebuah toko.

            Dalam tugas ini, kami membuat program kasir toko peralatan olahraga yang kami beri nama “WORLD’s TORCH” atau obor dunia.

            Kami mengemas tugas ini dengan colourful, berserta gambar barang yang dibeli oleh konsumen. Dalam hal ini, kami bertujuan agar barang yang dibeli konsumen tidak tertukar dengan barang yang lain, dan hal ini memudahkan untuk petugas dalam mengemasi barang pembeli. Sehingga kerugian akibat ketidak telitian dapat dihindari.

            Membuat program kasir ini bertujuan agar kita dapat mengaplikasikan fungsi aritmatika dalam visual basic 2010 yang menunjang kuliah teknik industri.

            Berikut akan kami jelaskan tutorial cara membuat program kasir world’s torch sport station ini menggunakan visual basic 2010 .

1.      Miliki program aplikasi visual basic 2010

Referensi download : http://visual-basic-2010.en.softonic.com/

2.      Masuklah ke program aplikasi vb 2010 dan klik New Project

 3.  Klik Windows Forms Application

      Teori Tutorial.

-Untuk menggunakan komponen Label, Textbox, Combobox, Listbox, Picturebox, etc, gunakan

Toolbox atau Klik View -> Other Windows -> toolbox atau Ctrl + Alt + X

-Untuk mengedit design background,accessibility, behavior,appereance, behavior, dll (termasuk read only, background, font) gunakan Properties atau Klik View -> Other Windows -> properties atau  F4

Untuk menampilkan Form-form yang kita miliki, lihat di solution explorer atau Klik View -> Other Windows -> solution explorer atau Ctrl + Alt + L

4.      Buatlah Form pertama  seperti tampilan yang dibawah ini :

      5.      Buatlah Form kedua seperti tampilan yang dibawah ini :

NB : TEXTBOX* = TEXTBOX READ ONLY

6.        Tambahkan fitur Data Viw Grid untuk memudahkan kasir mengoreksi detail pembelian konsumen, sehingga kesalahan dapat teratasi.

LISTING FORM KEDUA

Dibawah ini akan kami jelaskan tentang listing Form kedua. Namun, untuk lebih lengkapnya, listing dapat di download disini : 

DOWNLOAD LISTING FORM KEDUA

         Setelah anda mengikuti tutorial Program kasir diatas, anda akan mempunyai program aplikasi yang sama dengan kami. Cocokkanlah program kasir anda dan milik kami. Anda bisa mendownload Program aplikasi kami yang telah jadi.

DOWNLOAD APLIKASI

-SELAMAT MENCOBA DAN MARI SALING BERBAGI ILMU-

Referensi lainnya :

1.      http://agungpw7.blogspot.com/2012_07_01_archive.html

2.      http://g-nato.blogspot.com/2012/10/cara-membuat-g-nato-store-aplikasi.html 

Tutorial dan Analisis kelompok 25

-->

Tutorial Membuat Program Form Pendaftaran *

* : warna hijau yang ada pada listing, merupakan analisis yang kami buat.

            Dalam membuat Form Pendaftaran ini, kami membuat form pendaftaran Formulir Kartu Bebas Parkir Warga Negara Indonesia. Program aplikasi ini terdiri dari 6 form. Berikut kami akan menjelaskan tutorial tiap-tiap form yang sudah kami buat.

1.      Halaman pertama : Form 4

Pada form 4 ini ada terdapat tulisan “SELAMAT DATANG WARGA NEGARA INDONESIA”, ini dibuat dengan menggunakan opening, kemudian kata-kata dibawah yaitu “kartu bebas parkir Sebuah layanan Baru Pemerintah Indonesia demi ketertiban pengguna kendaraan” dengan menggunnakan “LABEL”, kemudian kata di “BUTTON” merupakan selanjutnya yang berarti kalau button tersebut di klik menandakan kita untuk ke form berikutnya.

-->

Jika kita sudah meng-klik “SELANJUTNYA” maka akan keluar Message box

Message box 

-->

Komponen toolbox pada form ini :

komponen	properties	Keterangan
Form4	name	Form4
	text	Form4
label1	name	label1
	text	Selamat Datang Warga Negara Indonesia
label3	name	label3
	text	kartu bebas parkir. Sebuah layanan baru pemerintah dalam menye…
Button1	name	Button1
	text	Next
msg box1	name	msg box
	text	isilah dengan pasti. Karena anda tidak bisa mengubah …………………
komponen	properties	Keterangan

Kemudian masukkan listingnya :

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form7.Show()

        Me.Hide() jika button 1 di klik, makan form ini akan tersembunyi dan digantikan oleh form 7 yang telah di tunjuk untuk menggantikan form tersembunyi.

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load jika button di klik, maka akan muncul message box. Message ini berfungsi untuk mengingatkan kembali pada para pendaftar.

    End Sub

End Class

2.      Halaman kedua : Form 7

Pada form 7, awalnya merupakan judul form yang dibuat dengan menggunakan LABEL. Label di form 7 dibuat sampai kata  “motor”, “mobil instansi” dan “mobil pribadi”. Jika pada jumlah uang yang ditentukan itu kita menggunakan “radio button”, dan itu harus dipilih salah satunya. Kalimat yang berwarna biru sebelum kalimat merah juga menggunakan tabel. Sedangkan kalimat yang dicetak merah itu menggunakan “Checkbox”. Kemudian pada button yang  bertuliskan “kembali” berarti menunjukkan apabila kita mau kembali lagi ke form sebelumnya.

-->

Komponen toolbox pada form ini :

komponen	properties	Keterangan
Form7	name	Form7
	text	Form7
label2	name	label1
	text	Syarat dan ketentuan registrasi perpanjangan KTP online……………
label1	name	label1
	text	Mengisi formulir registrasi secara lengkap via online
label4	name	label4
	text	Datang ke Kantor Kepolisian terdekat untuk melajutkan proses pembuatan Kartu*
label5	name	label5
	text	*Pendaftar diharap membawa :
label6	name	label6
	text	KTP dan SIM yang masih berlaku
		-Foto 3 x 4
		-Uang pendaftaran
label3	name	label3
	text	Motor
label8	name	label8
	text	Mobil Instansi
label7	name	label7
	text	Mobil Pribadi
RadioButton1	name	RadioButton1
	text	Rp. 750.000,-
RadioButton2	name	RadioButton2
	text	Rp. 1.000.000,-
RadioButton3	name	RadioButton3
	text	Rp. 1.500.000,-
Label9	name	Label9
	text	Kartu Bebas Parkir Warga Negara Indonesia, berlaku
		-untuk satu SIM dan satu jenis kendaraan saja
		-berlaku di seluruh jalanan dan instansi pemerintah Indonesia
		-masa aktif kartu adalah 1 tahun
radiobutton4	name	radiobutton4
	text	ya, saya setuju dan telah mempersiapkan persyaratan yang telah dittentukan..
Button2	name	Button2
	text	KEMBALI

Kemudian masuk listingnya :

Public Class Form7

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub tool radio button ini berfungsin untuk memilih salah satu pilihan dari pilihan pendaftar.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Form2.Show()

        Me.Hide()

    End Sub button ini, jika di klik, maka akan lanjut ke form setelahnya, sedangkan form asli, akan tersembunyi.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form4.Show()

        Me.Hide()

    End Sub button ini, jika di klik, maka akan kembali ke form sebelumnya, sedangkan form asli, akan tersembunyi.

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        Form2.Show()

        Me.Hide()

    End Sub jika button ini dalam keadaan checked, maka form akan otomasis berlanjut ke form selanjutnya, dan form asli (form7) menjadi tersembunyi.

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MsgBox("Isilah dengan pasti. Karena Anda tidak bisa mengubah isian setelah beralih pada halaman selanjutnya")

    End Sub message box ini, bertujuan untuk memberi informasi penting kepada pendaftar.

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Class

3.      Halaman ketiga : Form 2

Pada form 2, judulnya juga menggunakan “LABEL”, begitu juga dengan tulisan-tulisan merah yang ada pada form 2 ini, semuanya menggunakan “LABEL”, kotak-kotak yang ada dibawah nama itu dibuat dengan menggunakan “textbox”. Dalam mengisi tanggal, bulan, , tahun, kabupaten/kota, golongan darah, agama, status perkawinan, kita menggunakan “Combobox”, dengan tipe “DROP DOWN STYLE”. Sedangkan pada pilihan  pada jenis kelamin kita menggunakan “radiobutton” . pada label provinsi,berhubungan dengan kabupaten/kota, pengisian provinsi otomatis terisi sesuai dengan kabupaten/ kota yang dipilih. Pengisisan nomor hape, kami menggunakan “KEYPRESS”pada listingnya, agar text box hanya bisa di isi dengan angka saja.Button yang  bertuliskan “kembali” berarti menunjukkan apabila kita mau kembali lagi ke form sebelumnya. Button Reset digunakan untuk merefresh applikasi, agar formulir terkosongi lagi, kami menggunakan ”BUTTONRESET” pada listingnya. Button selanjutnya berfungsi untuk melanjutkan ke form selanjutnya. Setelah mengklik button “selanjutnya”ini, maka akan muncul messege box, jika kita belum mengisi yang bertanda “*”. Cara untuk mengatur tampilan ini adalah mengedit listingnya, yang kami jelaskan di bawah.

-->Message Box ; 

 

 

-->

Komponen toolbox pada form ini :

komponen	Properties	Keterangan
Form2	Name	Form22
	Text	Form2
label1	Name	label1
	Text	Formulir Pendaftaran Kartu Bebas Parkir Warga Negara Indonesia
Label2	Name	Label 2
	Text	Nama
label3	Name	label3
	Text	Nama awal
label4	Name	label4
	Text	nama tengah
label5	Name	label5
	Text	nama akhir
label6	Name	label 6
	Text	Tempat tanggal lahir
text box1	Name	text box1
	Text
text box2	Name	text box2
	Text
text box3	Name	text box3
	Text
label7	Name	label7
	Text	Jenis kelamin
Combo Box1	Name	combo box1
Combo Box2	Name	combo box2
combo Box3	Name	combo Box3
label8	Name	label8
	Text	Alamat
Radio button1	Name	Radio button1
	Text	Perempuan
radio button2	Name	radio button2
	Text	laki-laki
text box4	Name	text box4
	Text
label9	Name	label9
	Text	Jalan
label10	Name	label10
	Text	RT/RW
Label11	Name	Label11
	Text	Kelurahan
text box5	Name	text box5
	Text
text box6	Name	text box6
	Text
label12	Name	label12
	Text	Kecamatan
label13	Name
	Text	kota/kabupaten
text box7	Dropdown	text box7
	Text
text box8	Dropdownlist	text box8
	Text
label14	Name	label14
	Text	kode pos
label15	Name	label15
	Text	Provinsi
text box9	Name	text box9
	Text
Label19	Name	Label19
	Text	Provinsi
label16	Name	label16
	Text	nomor telepon/handphone
Label23	Name	Label23
	Text	Identitas pendaftaran
text box11	Name	text box11
	Text
text box12	Name	text box12
	Text
label18	Name	label18
	Text	e-mail
text box13	Name	text box13
	Text
label19	Name	label19
	Text	Agama
combo box4	Dropdownlist	combo box4
	Text
label20	Name	label20
	Text	Pekerjaan
label21	Dropdownlist	label21
	Text	status perkawinan
label22	Dropdownlist	label22
	Text	golongan darah
combo box5	Name	combo box5
Combobox1	Name	Combobox1
radio button4	Name	radio button4
	Text	belum menikah
text box14	Name	text box14
	Text
button1	Name	Button1
	Text	Selanjutnya
button2	Name	button2
	Text	Kembali
button3	Name	Button3
	Text	Reset

Masuk listingnya adalah :

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = ("") Or TextBox4.Text = ("") Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or TextBox5.Text = ("") Or ComboBox6.Text = "" Or ComboBox1.Text = ("") Or TextBox12.Text = "" Or Label8.Text = ("") Then

            MsgBox("maáf, anda belum melengkapi data")

        Else

            Form1.Show()

            Me.Hide()

            Form1.Label4.Text = TextBox1.Text

            Form1.Label5.Text = TextBox4.Text

            Form1.Label7.Text = ComboBox3.Text

            Form1.Label10.Text = ComboBox4.Text

            Form1.Label11.Text = ComboBox5.Text

            Form1.Label16.Text = TextBox5.Text

            Form1.Label14.Text = ComboBox6.Text

            Form1.Label15.Text = TextBox12.Text

            Form1.Label12.Text = ComboBox1.Text

        End If

    End Sub pada listing ini di jelaskan, bahwa, label bertanda * harus diisi, jika tidak maka tidak akan melanjutkan ke proses selanjutnya,

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Form7.Show()

        Me.Hide()

    End Sub button ini, jika di klik, maka akan kembali ke form sebelumnya, sedangkan form asli, akan tersembunyi.

    Private Sub Form2_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

    Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub  pada button ini, pilihan hanya bisa di lakukan memilih satu.

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form7.Show()

        Me.Hide()

    End Sub button ini, jika di klik, maka akan lanjut ke form setelahnya, sedangkan form asli, akan tersembunyi.

    Private Sub TextBox12_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox12.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub ini adalah perintah, agar pada textbox yang terpilih, hanya bisa di isi menggunakan angka atu bilangan saja, bukan text atau karakter.

    Private Sub Label19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label19.Click

    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged

    End Sub combo box ini di gunakan untuk mengisi isian namun telah tersediah beberapa pilihan..

    Private Sub ComboBox8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox6.SelectedIndexChanged

        If ComboBox6.Text = "DKI Jakarta" Then Label18.Text = "Jakarta"

        If ComboBox6.Text = "Bandung" Then Label18.Text = "Jawa Barat"

        If ComboBox6.Text = "Semarang" Then Label18.Text = "Jawa Tengah"

        If ComboBox6.Text = "Surabaya" Then Label18.Text = "Jawa Timur"

        If ComboBox6.Text = "Medan" Then Label18.Text = "Sumatera Utara"

        If ComboBox6.Text = "Padang" Then Label18.Text = "Sumatera Barat"

        If ComboBox6.Text = "Samarinda" Then Label18.Text = "Kalimantan Timur"

        If ComboBox6.Text = "Banjar Masin" Then Label18.Text = "Kalimantan Selatan"

        If ComboBox6.Text = "Makasar" Then Label18.Text = "Sulawesi Selatan"

        If ComboBox6.Text = "Jayapura" Then Label18.Text = "Irian Jaya"

        If ComboBox6.Text = " " Then Label18.Text = ""

    End Sub ini adalah pilihan yang tersedia untuk mengisi kabupaten/kota pada aplikasi ini.

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub

    Private Sub G_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        ComboBox3.Text = ("")

    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

        TextBox12.Text = ""

        TextBox14.Text = ""

        ComboBox1.Text = " "

        ComboBox2.Text = " "

        ComboBox3.Text = " "

        ComboBox4.Text = " "

        ComboBox5.Text = " "

        ComboBox6.Text = " "

        ComboBox7.Text = " "

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        Label18.Text = "PROVINSI"

    End Sub ini adalah perintah, agar provinsi terisi dengan baik sesuai dengan kota/kabupatenn yang pilihannya telah tersedia.

    Private Sub Label18_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label18.Click

    End Sub

    Private Sub TextBox9_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox9.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub listing ini untuk mengatur agar isian pada textbox ini hanya dapat diisi oleh nomor.

End Class

4.      Halaman keempat : Form 1

Form ini berhubungan dengan form sebelumnya. Jadi, form ini adalah hasil pengisisan pada form sebelumnya.. caranya adalah dengan menggunakan listing seperti pada “label1.text = form2 textbox1.text, sehingga akan muncullah data yang kita isi dari form 2 tadi. Button selanjutnya berfungsi untuk melanjutkan ke form selanjutnya. Button yang  bertuliskan “kembali” berarti menunjukkan apabila kita mau kembali lagi ke form sebelumnya

-->

Komponen toolbox pada form ini :

Komponen	Properties	Keterangan
label1	name	label1
	text	Tabel Konfirmasi Data
label2	name	label2
	text	Nama
label3	name	label3
	text	Nama Awal
label4	name	label4
	text
label6	name	label6
	text
label5	name	label5
	text
label7	name	label7
	text
label10	name	label10
	text
label11	name	label11
	text
label8	name	label8
	text	Alamat
label9	name	label9
	text	Jalam
label16	name	label16
	text
label13	name	label13
	text	Kabupaten/kota
label14	name	label14
	text
labe17	name	labe17
	text	Handphone
label15	name	label15
	text
label19	name	label19
	text	Agama
label12	name	label12
	text
Button1	name	Button1
	text	Selanjutnya
Button2	name	Button2
	text	Kembali

Masukkan listingnya adalah :

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form3.Show()

        Me.Hide()

    End Sub button ini, jika di klik, maka akan lanjut ke form setelahnya, sedangkan form asli, akan tersembunyi.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Hide()

        Form2.Show()

        Label4.Text = ""

        Label5.Text = ""

        Label7.Text = ""

        Label10.Text = ""

        Label11.Text = ""

        Label16.Text = ""

        Label14.Text = ""

        Label15.Text = ""

        Label12.Text = ""

    End Sub listing diatas adalah perintah, agar text yang keluar adalah merupakan hasil dari form sebelumnya. Menurut label dan text seperti diatas. Jika belum lengkap, maka bisa kembali dengan menklik button “kembali”, maka akan kembali ke form sebelumnya, sedangkan form asli, akan tersembunyi.

End Class

5.      Halaman kelima : Form 3

 Form 3 merupakan formulir lanjutan yang harus diisi oleh pendaftar berisi no. ktp dan no. sim yang harus diisi dengan nomor. Pada tanggal pendaftaran kami menggunakan toolbox combobox dan dropdown style adalah dropdown list. Jenis kendaraan menggunaka radio button. Sedangkan pada judulnya kita menggunakan label. Button selanjutnya berfungsi untuk melanjutkan ke form selanjutnya. Button yang  bertuliskan “kembali” berarti menunjukkan apabila kita mau kembali lagi ke form sebelumnya

-->

Komponen toolbox pada form ini :

Komponen	properties	Keterangan
Form3	name	Form3
	text	Form3
label1	name	label1
	text	Formulir Pendaftaran Kartu Bebas Parkir Warga Negara Indonesia
label2	name	label2
	text	Data Persyaratan Pendaftar
label3	name	label3
	text	nomor KTP
textbox1	name	textbox1
	text
label4	name	label4
	text	jenis kendaraan
Radiobutton1	name	Radiobutton1
	text	Mobil
radiobutton2	name	radiobutton2
	text	Motor
Radiobutton3	name	Radiobutton3
	text	lain-lain (truk, dll)
label5	name	label5
	text	nomor SIM
textbox2	name	textbox2
	text
label7	name	tanggal pendaftaran
	text
combobox1	name	combobox1
	text
combobox2	name	combobox2
	text
combobox3	name	combobox3
	text
button1	name	button1
	text	Next
button2	name	button2
	text	Back

Masuk listingnya adalah :

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = ("") Or TextBox2.Text = ("") Then

            MsgBox("maáf, anda harus melengkapi data")

        Else

            Form8.Show()

            Me.Hide()

        End If

    End Sub pada beberapa tabel yang tersedia harus diisi., jika tidak, amka akan muncul messagebox yang memerintahkan untuk melengkapi terlebih dahulu. Jika tidak dilengkapi, maka pendaftar tidak bisa lanjut ke selanjutnya.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form2.Show()

        Me.Hide()

    End Sub button ini, jika di klik, maka akan lanjut ke form selanjutnya, sedangkan form asli, akan tersembunyi.

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

    Private Sub TextBox2_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub listing memrintahkan agar data yang di input berupa angka atau digit.

End Class

6.      Halaman keenam : Form 8

Semua kalimat yang terdapat pada Form 8, menggunakan label sedangkan pada kata “home”dan “selesai” kita menggunakan button. Jika kita meng klik home maka kita akan kembali kepada halaman awal, dan jika meng klik selesai maka itu berarti kita sudah selesai mengisi program dan berhasil mendapatkan kartu bebas parkir.

-->

Komponen toolbox pada form ini :

komponen	properties	Keterangan
Form8	name	form8
	text	form8
label1	name	label1
	text	Selamat
Label2	name	Label2
	text	ANDA TELAH TERDAFTAR SEBAGAI PEMILIK
Label3	name	Label3
	text	KARTU BEBAS PARKIR
Label4	name	Label4
	text	Segera melakukan proses pendaftaran lanjutan di Kantor Kepolisian terdekat
		dengan membawa persyaratan yang telah di tentukan
msgbox2	name	msgbox2
	text

Masukkan listingnya  :

Public Class Form8

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form4.Show()

        Me.Hide()

        MsgBox("TERIMA KASIH ANDA TELAH AKTIF ATAS PROGRAM BARU PEMERINTAH")

        Form4.Close()

    End Sub listing ini memerintahkan, jika mengklik keluar, maka akan keluar message box yang bertuliskan warna merah diatas.

    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form4.Show()

        Me.Hide()

    End Sub jika button home di klik, maka akan kembali ke form 4 (halaman pertama/home), sedangkan form asli, akan tersembunyi.

End Class

      

            Dengan menggunakan listing-listing dan tutorial diatas kami bisa menampilkan formulir pendaftaran kartu bebas parkir.

     Tutorial Membuat Program 2 Dimensi

Dalam membuat program 2 dimensi ini kami juga menggunakan Visual Basic sebagai alat bantunya. misalnya kita menginginkan persegi dengan warna merah, maka kita tinggal memilih pilihan “persegi”pada combobox1 dan memilih warna “merah” pada combobox2. Setelah itu, akan muncullah persegi dengan warna merah. Pada program 2 dimensi ini, kami hanya menggunakan 1 form agar lebih terlihat sederhana.

-->

Komponen toolbox pada form ini :

Komponen	Properties	Keterangan
Combo Box1	Nama	ComboBox1
Combo Box2	Nama	ComboBox2
Button1	Nama	Button1
	Text	Tampilkan
Button2	Nama	Button2
	Text	Reset
Button3	Nama	Button3
	Text	Keluar

           

    Analisis Program 2 Dimensi

Berikut merupkan listing dari program 2 dimensi :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If ComboBox1.Text = "" Or ComboBox1.Text = " " Or ComboBox2.Text = "" Or ComboBox2.Text = " " Then MsgBox("pilih bentuk dan warna terlebih dahulu")

        If ComboBox1.Text = "Persegi" Then RectangleShape1.Visible = True Else RectangleShape1.Visible = False

        If ComboBox2.Text = "merah" Then RectangleShape1.BackColor = Color.Red

        If ComboBox2.Text = "kuning" Then RectangleShape1.BackColor = Color.Yellow Else

        If ComboBox2.Text = "hijau" Then RectangleShape1.BackColor = Color.Green Else

        If ComboBox2.Text = "biru" Then RectangleShape1.BackColor = Color.Blue

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "merah" Then OvalShape1.Visible = True Else OvalShape1.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "kuning" Then OvalShape2.Visible = True Else OvalShape2.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "hijau" Then OvalShape3.Visible = True Else OvalShape3.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "biru" Then OvalShape4.Visible = True Else OvalShape4.Visible = False

        If ComboBox1.Text = "Persegi Panjang" And ComboBox2.Text = "merah" Then RectangleShape2.Visible = True Else RectangleShape2.Visible = False

        If ComboBox1.Text = "Persegi Panjang" And ComboBox2.Text = "kuning" Then RectangleShape3.Visible = True Else RectangleShape3.Visible = False

        If ComboBox1.Text = "Persegi Panjang" And ComboBox2.Text = "hijau" Then RectangleShape4.Visible = True Else RectangleShape4.Visible = False

        If ComboBox1.Text = "Persegi Panjang" And ComboBox2.Text = "biru" Then RectangleShape5.Visible = True Else RectangleShape5.Visible = False

    End Sub

Maksud dari listing diatas adalah pada progam ini,terdapat combobox yang berisi beberapa bentuk 2 dimensi beserta beberapa warna. jika salah satu bentuk dan warna di pilih, maka hasil akan keluar di  form bagian samping. contohnya : misal pengguna memilih bentuk" persegi "dan warna "merah" maka, hasilnya yang muncul adalah "persegi merah". 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim testMsg As String

        testMsg = MsgBox("Anda Yakin?", vbYesNo + vbQuestion, "Perhatian!")

        If testMsg = vbYes Then Me.Close() Else

        If testMsg = vbNo Then

            Return

        End If

Maksud dari listing diatas adalah agar pengguna memilih dua keadaan, antara, keluar atau melanjutkan program. 

    End Sub

Berikut merupakan contoh apabila kita memberikan perintah bangun datar “persegi” dengan warna merah :

-->

Dengan mengatur dan membuat listing dan form diatas kami bisa menciptakan sebuah program 2 dimensi yang sederhana.