Latihan_34A_46110022
Deskripsi
Form Latihan_34A 46110022
Dalam form ini terdapat 3 buah
object yaitu MenuStrip, StatusStrip dan DataGriedView.
Object MenuStrip
Terdapat 1 buah object MenuStrip yaitu barang.
Object StatusStrip
Terdapat 2 buah object StatusStrip yaitu daftar barang dan input barang.
Object DataGriedView
Terdapat sebuah objek DataGriedView yang berfungsi
untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.
Script
Unique
1. Untuk mmenampilkan form latihan 34B :
If Latihan_34B_46110022.Visible = False Then
Latihan_34B_46110022.MdiParent = Me
Latihan_34B_46110022.Show()
Else
Latihan_34B_46110022.Activate()
End If
If Latihan_34B_46110022.Visible = False Then
Latihan_34B_46110022.MdiParent = Me
Latihan_34B_46110022.Show()
Else
Latihan_34B_46110022.Activate()
End If
Even
Click
Langkah-Langkah
Membuat Form Latihan 34A_46110022
1. Buat form baru seperti
langkah berikut :
2. Input nama form pada kolom
yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form seperti
gambar berikut :
4. Input script di bawah ini :
Public Class Latihan_34A_46110022
Private Sub daftar46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftar46110022.Click
If Latihan_34B_46110022.Visible = False Then
Latihan_34B_46110022.MdiParent = Me
Latihan_34B_46110022.Show()
Else
Latihan_34B_46110022.Activate()
End If
End Sub
Private Sub input46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110022.Click
If Latihan_34C_46110022.Visible = False Then
Latihan_34C_46110022.Show()
Else
Latihan_34C_46110022.Activate()
End If
End Sub
Private Sub db46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db46110022.Click
If Latihan_34B_46110022.Visible = False Then
Latihan_34B_46110022.Show()
Else
Latihan_34B_46110022.Activate()
End If
End Sub
Private Sub ib46110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ib46110022.Click
If Latihan_34C_46110022.Visible = False Then
Latihan_34C_46110022.Show()
Else
Latihan_34C_46110022.Activate()
End If
End Sub
Private Sub brg46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brg46110022.Click
End Sub
End Class
Private Sub daftar46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftar46110022.Click
If Latihan_34B_46110022.Visible = False Then
Latihan_34B_46110022.MdiParent = Me
Latihan_34B_46110022.Show()
Else
Latihan_34B_46110022.Activate()
End If
End Sub
Private Sub input46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110022.Click
If Latihan_34C_46110022.Visible = False Then
Latihan_34C_46110022.Show()
Else
Latihan_34C_46110022.Activate()
End If
End Sub
Private Sub db46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db46110022.Click
If Latihan_34B_46110022.Visible = False Then
Latihan_34B_46110022.Show()
Else
Latihan_34B_46110022.Activate()
End If
End Sub
Private Sub ib46110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ib46110022.Click
If Latihan_34C_46110022.Visible = False Then
Latihan_34C_46110022.Show()
Else
Latihan_34C_46110022.Activate()
End If
End Sub
Private Sub brg46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brg46110022.Click
End Sub
End Class
5.
Jalankan program dengan cara
mengklik start debugging seperti berikut :
6. Setelah menekan start debug, maka akan
tampil hasil dari latihan 34A seperti berikut :
7. Klik "barang" dan kemudian pilih "daftar barang" atau "input barang" maka akan muncul form latihan 34B atau 34C.
8. Selamat mencoba, semoga berhasil :)
Postingan
