Selasa, 27 November 2012
JURNAL PRATIKUM MODUL 2
Klik link di bawah sini ..
http://www.4shared.com/rar/gzgfgREe/Jurnal_Modul_2_Kelompok_20.html?
DESKRIPSI MODUL 2
DESKRIPSI MODUL 2
Di
modul 2 ini kita memperlajangri fungsi
aritmatika dalam Visual Basic 2010. Tujuan kita mempelajari modul 2 ini adalah
agar mengerti perintah control dasar pada visual basic 2012, mengenal fungsi
aritmatika dalam Visual Basic 2010, dapat memahami penulisan fungsi aritmatika
dalam Visual Basic 2010, dan dapat mengaplikasikan fungsi artmatika.
Dalam
perintah funsi kontrol Visual Basic 2010, operator aritmatika lah yang paling digunakan.
Operator aritmatika merupakan operator yang biasanya digunakan untuk menghitung
secara matematis.
Operator
yang sering digunakan, antara lain:
·
+ = berfungsi untuk penjumlah perhitungan bentuk
angka bulat ataupun pecahan
·
-
= berfungsi untuk pengurangan perhitungan bentuk angka bulat maupun pecahan
·
*
= berfungsi untuk perkalian perhitungan bentuk angka bulat maupun pecahan
·
/
= berfungsi untuk pembagian perhitungan bentuk angka bulat maupun pecahan
·
MOD = berfungsi untuk menghitung nilai sisa hasil
bagi suatu bilangan
Kamis, 15 November 2012
ANALISA FORM PENDAFTARAN SIM
ANALISA FORM PENDAFTARAN SIM
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
End Sub
End Class
Komponen Properties Keterangan
Form1
|
Name
text
|
Form1
Form1
|
Label1
|
Name
text
|
Label1
SELAMAT DAYANG DIPELAYANGAN PENDAFTARAN SIM ONLINE
|
Label2
|
Name
text
|
Label2
Persiapan Mendaftar SIM Secara Online
|
ListBox1
|
Name
|
listBox
|
Label4
|
Name
Text
|
Label4
Prosedur Pendaftaran SIM Online
|
listBox2
|
Name
|
listBox2
|
Button1
|
Name
Text
|
Button1
daftar
|
Keterangan: Dalam listing ini kami menggunakan button1 yang berfungsi untuk memunculkan form 2 dan menyembunyikan form 1.
Public Class Form2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
ComboBox6.SelectedItem = Nothing
ComboBox2.SelectedItem = Nothing
ComboBox3.SelectedItem = Nothing
ComboBox4.SelectedItem = Nothing
ComboBox5.SelectedItem = Nothing
ComboBox1.SelectedItem = Nothing
ComboBox7.SelectedItem = Nothing
ComboBox8.SelectedItem = Nothing
End Sub
End Class
Form2
|
Name
Text
|
Form2
Form2
|
Label1
|
Name
Text
|
Label1
FORMULIR PENDAFTARAN SIM
|
Label2
|
Name
text
|
Label2
1
|
Label3
|
Name
Text
|
Label3
A. JENIS PERMOHONAN
|
Label4
|
Name
Text
|
Label4
B. SIM YANG PERNAH DIMILIKI
|
Label5
|
Name
text
|
Label5
1. GOLONGAN SIM
|
Label6
|
Name
Text
|
Label6
2. NOMOR SIM
|
Label7
|
Name
Text
|
Label7
3. GOLONGAN SIM YANG DIMINTA
|
Label8
|
Name
text
|
Label8
4. TANDA BUKTI PEMBAYARAN
|
Label9
|
Name
Text
|
Label9
NAMA
|
Label10
|
Name
text
|
Label10
5. JENIS KELAMIN
|
Label11
|
Name
Text
|
Label11
6. KEWARGANEGARAAN
|
Label12
|
Name
text
|
Label12
7. TINGGI BADAN
|
Label13
|
Name
Text
|
Label13
8. TEMPAT LAHIR
|
Label14
|
Name
text
|
Label14
9. TANGGAL LAHIR
|
Label15
|
Name
Text
|
Label15
10. PEKERJAAN
|
Label32
|
Name
text
|
Label32
11. STATUS
|
Label31
|
Name
Text
|
Label31
12a. Nama Ayah
|
Label23
|
Name
text
|
Label23
b. Nama Ibu
|
Label24
|
Name
Text
|
Label24
13. NOMOR KTP
|
Label28
|
Name
text
|
Label28
1. KODE BANK
|
Label29
|
Name
Text
|
Label29
2. NOMOR RESI
|
Label30
|
Name
text
|
Label30
3. TGL RESI
|
Label16
|
Name
Text
|
Label16
cm
|
comboBox1
|
Name
text
|
comboBox1
|
comboBox2
|
Name
Text
|
comboBox2
|
textBox1
|
Name
text
|
textBox1
|
comboBox3
|
Name
Text
|
textBox3
|
textBox2
|
Name
text
|
textBox2
|
textBox4
|
Name
Text
|
textBox4
|
textBox3
|
Name
text
|
textBox3
|
textBox5
|
Name
Text
|
textBox5
|
comboBox4
|
Name
text
|
comboBox4
|
comboBox5
|
Name
Text
|
comboBox5
|
textBox6
|
Name
text
|
textBox6
|
textBox7
|
Name
Text
|
textBox7
|
comboBox6
|
Name
text
|
comboBox6
|
comboBox7
|
Name
Text
|
comboBox7
|
comboBox8
|
Name
text
|
comboBox8
|
comboBox9
|
Name
text
|
comboBox9
|
textBox10
|
Name
Text
|
textBox10
|
textBox9
|
Name
text
|
textBox9
|
textBox11
|
Name
Text
|
textBox11
|
Button1
|
Name
text
|
Button1
|
Keterangan: Dalam form ini kami banyak memasukan textbox dan comboBox agar memadukan dan memudahkan pengguna layanan untuk mendaftar. Button1 berfungsi untuk memunculkan form3 dan menyembunyikan form2
Public Class Form3
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
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
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.SelectedItem = Nothing
ComboBox3.SelectedItem = Nothing
ComboBox4.SelectedItem = Nothing
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Form3
|
Name
Text
|
Form3
Form3
|
Label25
|
Name
text
|
Label25
|
Label26
|
Name
Text
|
Label26
|
Label16
|
Name
text
|
Label16
|
Label17
|
Name
Text
|
Label17
|
Label18
|
Name
text
|
Label18
|
Label19
|
Name
Text
|
Label19
|
Label1
|
Name
text
|
Label1
|
Label2
|
Name
text
|
Label2
|
Label3
|
Name
Text
|
Label3
|
Button2
|
Name
text
|
Button2
|
Button1
|
Name
Text
|
Button1
|
Keterangan: form ini merupakan lanjutan dari form2, form ini menggunakan “lanjutkan” untuk melanjutkan pada form4 dan menyembunyikan form ini. Selain itu form ini juga menggunakan kata “clear entry” yang berfungsi untuk menghapus semua data yang sudah di ketik oleh pendaftar.
Public Class Form4
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Form4_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
Form1.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Form4
|
Name
text
|
Form4
Form4
|
Label2
|
Name
Text
|
Label2
SELAMAT PENDAFTARAN ANDA BERHASIL
|
Label3
|
Name
text
|
Label3
Terima Kasih Telah Menggunakan Layanan Kami
|
Button1
|
Name
Text
|
Button1
Kembali ke Laman awal
|
Keterangan: form4 ini atau form terakhir dari kami menggunakan button1 ‘kembali ke laman awal’ yang berfungsi untuk mengembalikan laman pada awal mula pendaftaran dan menyembunyikan laman terakhir ini/ form 4
Langganan:
Postingan (Atom)