Praktikum Pemrograman 3 ( VB.NET)
BAB 1 1. Memulai VB.Net 2. 3. 4. 5.
File, New Project Pilih “Visual Basic” pada panel Project Type Pilih “Windows Application” pada Templete Berikan Nama Project “Latihan1” pada Kotak Name, Klik Tombol OK
Muncul Lingkungan Kerja sbb:
Toolbar Properties
Form
Error List
Solution Explorer Data Sources
1
Praktikum Pemrograman 3 ( VB.NET)
Latihan 1 1. Masukan komponen Label, Button kemudian atur posisinya 2. Tentukan Properties masing-masing komponen teresebut :
3. Properties Komponen Form1 Label1 Button1
Properties Name Text Text
Nilai Latihan 1 Tulisan Proses
4. Double klik pada Button1, kemdian ketik script berikut ini Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = "STT" End Sub
5. Jalankan Program dengan menekan tombol “F5” atau melalui Menu [ Debug, Start Debugging ] 6. Simpan project ini pada Direktori / Folder “Nim Anda” Pada saat anda membuat project ini, maka akan muncul beberapa file pada direktori yang kita tentukan, diantaranya adalah :
Sebagai hasil Compile / Build, maka akan terbentuk file “exe” yang terdapat pada folder bin\Release\.. 2
Praktikum Pemrograman 3 ( VB.NET)
Latihan 2 1. Ulangi langkah-langkah pada latihan1 kemudian desain form sbb :
Komponen Form1 Label1 Label2 Label3 Label4 Label5 Label6 Textbox1 Textbox2 Button1 Button2 Button3
Text Text Text Text Text Text Text
Properties
Nilai Latihan 2 User Password Nama Pemakai Kata Sandi Kosongkan Kosongkan
Password Char Text Text Text
* Proses Reset Keluar
2. Double Klik pada Button Proses, Masukan script sbb : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label5.Text = TextBox1.Text Label6.Text = TextBox2.Text End Sub
3. Double Klik pada Button Reset , Masukan script sbb : Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = Nothing TextBox1.Text = Nothing Label5.Text = Nothing Label6.Text = Nothing End Sub
3
Praktikum Pemrograman 3 ( VB.NET)
4. Double Klik pada Button Keluar, Masukan script sbb : Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub
Jalankan Program, kemudian simpan project ini dengan nama Latihan2
Latihan 3 1. Buat project baru, kemudian desain form dengan mamasukan komponen : label, TextBox, GroupBox, ComboBox, CheckBox, ListBox, Button
2. Double Klik Button Proses Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (TextBox1.Text = Nothing) Or (TextBox2.Text = Nothing) Then MsgBox("Nim atau Nama masih kosong", MsgBoxStyle.Critical, "Perhatosan") Else ListBox1.Items.Clear() ListBox1.Items.Add(TextBox1.Text) ListBox1.Items.Add(TextBox2.Text) ListBox1.Items.Add(ComboBox1.Text) ListBox1.Items.Add("===================== ") If CheckBox1.Checked Then ListBox1.Items.Add(CheckBox1.Text) End If If CheckBox2.Checked Then ListBox1.Items.Add(CheckBox2.Text) End If If CheckBox3.Checked Then ListBox1.Items.Add(CheckBox3.Text) End If If CheckBox4.Checked Then
4
Praktikum Pemrograman 3 ( VB.NET) ListBox1.Items.Add(CheckBox4.Text) End If If CheckBox5.Checked Then ListBox1.Items.Add(CheckBox5.Text) End If If CheckBox6.Checked Then ListBox1.Items.Add(CheckBox6.Text) End If If CheckBox7.Checked Then ListBox1.Items.Add(CheckBox7.Text) End If If CheckBox8.Checked Then ListBox1.Items.Add(CheckBox8.Text) End If If CheckBox9.Checked Then ListBox1.Items.Add(CheckBox9.Text) End If End If
3. Double Klik Button Reset Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = Nothing TextBox2.Text = Nothing CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False CheckBox4.Checked = False CheckBox5.Checked = False CheckBox6.Checked = False CheckBox7.Checked = False CheckBox8.Checked = False CheckBox9.Checked = False ListBox1.Items.Clear() End Sub
Latihan 4 1. Masukan komponen : MonthCalender, DateTimePicker, Button, HScrollBar, TrackBar, Label
5
Praktikum Pemrograman 3 ( VB.NET)
2. Double Klik Button Proses Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click Label1.Text = MonthCalendar1.MinDate Label2.Text = MonthCalendar1.MaxDate Label3.Text = MonthCalendar1.TodayDate Label4.Text = MonthCalendar1.SelectionRange.Start Label5.Text = DateTimePicker1.Text Label6.Text = DateTimePicker1.Value End Sub
3. HScrollBar1_Scroll Private Sub HScrollBar1_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll Label7.Text = HScrollBar1.Value End Sub
4. TrackBar1_Scroll Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll Label8.Text = TrackBar1.Value End Sub
Latihan 5 1. Masukan komponen : ColorDialog, Button, TextBox
2.
Double Klik Button Pilih Warna Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MyDialog As New ColorDialog() MyDialog.AllowFullOpen = False MyDialog.ShowHelp = True MyDialog.Color = TextBox1.ForeColor If (MyDialog.ShowDialog() = DialogResult.OK) Then TextBox1.ForeColor = MyDialog.Color End If End Sub
6
Praktikum Pemrograman 3 ( VB.NET)
Latihan 6 1. Masukan komponen : Tooltips, MaskedTextBox
2. MaskedTextBox1_KeyDown Private Sub MaskedTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MaskedTextBox1.KeyDown Me.ToolTip1.Hide(Me.MaskedTextBox1) End Sub 3. MaskedTextBox1_MaskInputRejected Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected If (Me.MaskedTextBox1.MaskFull) Then ToolTip1.ToolTipTitle = "Input data Sudah Full" ToolTip1.Show("Silahkan Hapus sebagian data.", Me.MaskedTextBox1, Me.MaskedTextBox1.Location.X, Me.MaskedTextBox1.Location.Y, 5000) ElseIf (e.Position = Me.MaskedTextBox1.Mask.Length) Then ToolTip1.ToolTipTitle = "Input data terlalu Lebar" ToolTip1.Show("Anda tidak dapat Menambahkan Tambahan Karakter.", Me.MaskedTextBox1, Me.MaskedTextBox1.Location.X, Me.MaskedTextBox1.Location.Y, 5000) Else ToolTip1.ToolTipTitle = "Input Salah" ToolTip1.Show("Masukan data Angka antara 0 s/d 9.", Me.MaskedTextBox1, Me.MaskedTextBox1.Location.X, Me.MaskedTextBox1.Location.Y, 5000) End If End Sub
4. Form1_Load Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.ToolTip1.IsBalloon = True Me.MaskedTextBox1.Mask = "00/00/0000" End Sub
7
Praktikum Pemrograman 3 ( VB.NET)
Latihan 7 1. Masukan komponen : TreeView
2. Form1_Load Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TreeView1.BeginUpdate() TreeView1.Nodes.Add("Menu") TreeView1.Nodes(0).Nodes.Add("Sub Menu 1") TreeView1.Nodes(0).Nodes.Add("Sub Menu 2") TreeView1.Nodes(0).Nodes(1).Nodes.Add("Sub Menu 2.1 ") TreeView1.Nodes(0).Nodes(1).Nodes.Add("Sub Menu 2.2 ") TreeView1.Nodes(0).Nodes(1).Nodes.Add("Sub Menu 2.3 ") TreeView1.Nodes(0).Nodes.Add("Sub Menu 3") TreeView1.Nodes(0).Nodes.Add("Sub Menu 4") TreeView1.Nodes(0).Nodes(1).Nodes.Add("Sub Menu 4.1 ") TreeView1.Nodes(0).Nodes(1).Nodes(0).Nodes.Add("Sub Menu 4.1.1 ") TreeView1.EndUpdate() End Sub
8