Scribd
Upload
53 views

Desain User Interface: Listing Programnya: Public Class Private Sub Byval As Byval As Handles

The document describes the code for 4 forms in a Visual Basic .NET user interface design project. Form1 contains code for menu options to open the other forms for viewing student data, course data, and developer biographies. It also contains code to close the form. Forms 2 and 3 contain code to display student and course data in textboxes and comboboxes. Form 4 does not display any data but contains code to close the form.

Uploaded by

Tora Benders
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
53 views

Desain User Interface: Listing Programnya: Public Class Private Sub Byval As Byval As Handles

The document describes the code for 4 forms in a Visual Basic .NET user interface design project. Form1 contains code for menu options to open the other forms for viewing student data, course data, and developer biographies. It also contains code to close the form. Forms 2 and 3 contain code to display student and course data in textboxes and comboboxes. Form 4 does not display any data but contains code to close the form.

Uploaded by

Tora Benders
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 6

DESAIN USER INTERFACE

Form 1

Listing Programnya :

Public Class Form1

Private Sub DATAMAHASISWAToolStripMenuItem_Click(ByVal sender As


System.Object, ByVal e As System.EventArgs) Handles
DATAMAHASISWAToolStripMenuItem.Click
form2.show()
End Sub

Private Sub DATAMATAKULIAHToolStripMenuItem_Click(ByVal sender As


System.Object, ByVal e As System.EventArgs) Handles
DATAMATAKULIAHToolStripMenuItem.Click
form3.show()
End Sub
Private Sub BiodataPembuatToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles BiodataPembuatToolStripMenuItem.Click
form4.show()
End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles KeluarToolStripMenuItem.Click

Me.Close()
End Sub

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


Handles Button1.Click
Me.Close()
End Sub

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


Handles MyBase.Load

End Sub
End Class
Form 2

Listing Programnya :

Public Class Form2

Dim Indeks As Integer

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


Handles MyBase.Load
TextBox1.Text = Indeks
ComboBox1.Items.Add("MIF A3")
ComboBox1.Items.Add("MIF B3")
ComboBox1.Items.Add("MIF C3")
ComboBox1.Items.Add("MIF D3")
ComboBox1.Items.Add("MIF G3")
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

Form 3

Listing Programnya :

Public Class Form3

Dim indeks As Integer

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


Handles MyBase.Load
TextBox1.Text = indeks
ComboBox1.Items.Add("VB.NET")
ComboBox1.Items.Add("INTERAKSI MANUSIA DAN KOMPUTER")
ComboBox1.Items.Add("ARSITEKTUR KOMPUTER")
ComboBox1.Items.Add("KALKULUS")
ComboBox1.Items.Add("BAHASA INGGRIS")
ComboBox1.Items.Add("AUTOMATA")
ComboBox1.Items.Add("ALGORITMA DAN PEMROGRAMAN")
End Sub

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


Handles Button1.Click
Me.Close()

End Sub
End Class

Form 4

Listing Programnya :

Public Class Form4


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

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


Handles MyBase.Load

End Sub
End Class

You might also like