Tugas 2
Latihan 1 No 3
A.
Karena pada btalamat1_click, belum ada pendeklarasian alamat ‘
Seharusnya > dim alamat as string
B. Karena Pada tombol nama1
pendeklarasian nama sudah di masukan Dim nama As String
Nama = “Nandang” sedangkan pada tombol nama2, nama belum
di deklarasikan sehingga sehingga mengambil dari module
Pada Btalamat 1 dan tombol alamat
2 sudah di deklarasikan di form
1 dengan Conts alamat = “kuningan”
C. Karena pada tombol tambah umur1
menggunakan dim yaitu masukan selalu memulai kembali jika tombol di tekan
sedangkan pada tombol tambah umur2 menggunakan static yaitu masukan yang tetap
dan bertambah jika di tekan karna static dan umur +=1
d D. Analisis form 2
Analisa
saya untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada
baris perintah :
Option Explicit Off
Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.
Option Explicit Off
Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.
Latihan 2
Langkah-Langkah:
1. Membuka Aplikasi
Visual Basic 2010
2. Klik New
Project maka akan mucul tampilan seperti berikut
Pilih
Windows Forms Aplication lalu klik OK pada bagian bawah.
3. Menampilkan
Toolbox yang akan digunakan Untuk memunculkan toolbox, bisa
dimunculkan dari menu bar-view-other windows-tollbox
A. MEMBUAT
DESIGN FORM
1. Bentuk Form
seperti di bawah ini dengan menggunakan komponen toolbox
2. Ubah form di
atas menjadi seperti di bawah ini
3. Untuk mengganti
background, form1 dipilih-properties –
Backgroundimage-local resource-import-ok
dan ganti BackgroundImageLayout dengan Stertch agar
Backgroud menyesuaikan ukuran dari form
A. MEMBUAT
LISTING PROGRAM
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
ComboBox1.Items.Add("SPT")
ComboBox1.Items.Add("SND")
ComboBox1.Items.Add("TST")
ComboBox1.Items.Add("TOP")
ComboBox1.Items.Add("TAS")
End Sub
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
Dim kdbarang, nmbarang As
String
Dim harga As Single
kdbarang
= ComboBox1.Text
Select Case kdbarang
Case "SPT"
nmbarang = "Sepatu"
harga = 200000
PictureBox1.Show()
Case "SND"
nmbarang = "Sandal"
harga = 100000
PictureBox1.Show()
Case "TST"
nmbarang = "T-Shirt"
harga = 150000
PictureBox3.Show()
Case "TOP"
nmbarang = "Topi"
harga = 50000
PictureBox4.Show()
Case "TAS"
nmbarang = "Tas"
harga = 80000
PictureBox5.Show()
End Select
TextBox1.Text
= nmbarang
TextBox2.Text = harga
End Sub
Private Sub
TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox3.TextChanged
TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
TextBox6.Text = Val(TextBox4.Text) -
Val(TextBox5.Text)
End Sub
Private Sub
RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton1.CheckedChanged
TextBox5.Text = Val(TextBox4.Text) * 10 / 100
TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)
End Sub
Private Sub
RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton2.CheckedChanged
TextBox5.Text = 0
TextBox4.Text = Val(TextBox6.Text) - Val(TextBox5.Text)
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
ComboBox1.Text = ""
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
Me.RadioButton1.Checked = False
Me.RadioButton2.Checked = False
ComboBox1.Text
= ""
Me.PictureBox1.Visible = False
Me.PictureBox2.Visible = False
Me.PictureBox3.Visible = False
Me.PictureBox4.Visible = False
Me.PictureBox5.Visible = False
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Me.Close()
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
If TextBox7.Text = ""
Then
MessageBox.Show(TextBox7, "Maaf
Anda Belum Memasukkan Uang Bayar")
ElseIf TextBox7.Text < TextBox6.Text Then
MessageBox.Show(TextBox7, "Maaf
Uang Anda Kurang")
ElseIf TextBox7.Text > TextBox6.Text Then
TextBox8.Text
= TextBox7.Text - TextBox6.Text
End If
End Sub
End Class
