Namespace pada VB.NET
Namespace
.NET Framework base class library berisi class dasar yang
menyediakan banyak layanan dan objek yang dibutuhkan aplikasi. Class library
diorganisasikan dalam namespace. Namespace adalah pengelompokan secara
logik dari sekumpulan class. Namespace diorganisasikan secara hirarki.
Akar/root dari .NET Framework adalah namespace System.
Contoh
namespace:
System
System.Data
System.Data.SQLClient
System.Math
Menggunakan Namespace: keyword Imports
Untuk menggunakan base class library,
anda harus menuliskan nama tipe dengan lengkap termasuk namespacenya. Sebagai
contoh:
System.Windows.Forms.Form
Untuk
menyingkatnya, dapat digunakan Imports yang
diletakkan paling atas pada kode window. Contoh:
Imports System.Windows.Forms
Jika terdapat dua tipe yang sama dalam lebih dari satu namespace yang
diimport, harus dituliskan nama panjangnya untuk menghindari konflik.
A.
Langkah-langkah Praktikum
Buatlah form dengan
desain antarmuka berikut:
Komponen :
3 Label , 2TextBox, 12 radio button dan 3 group box
Tambahkan kode dalam
class form1 untuk operator /, *, =, dan < >
Private Sub
RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
Label3.Text = CType(TextBox1.Text,
Single) / CType(TextBox2.Text, Single)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label3.Text = CType(TextBox1.Text,
Single) * CType(TextBox2.Text, Single)
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles RadioButton5.CheckedChanged
If CType(TextBox1.Text,
Single) = CType(TextBox2.Text,
Single) Then
Label3.Text = "Benar"
Else
Label3.Text = "Salah"
End If
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles RadioButton6.CheckedChanged
If CType(TextBox1.Text,
Single) <> CType(TextBox2.Text,
Single) Then
Label3.Text = "Benar"
Else
Label3.Text = "Salah"
End If
End Sub
Private Sub RadioButton11_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles RadioButton11.CheckedChanged
Label3.Text = system.math.min(textbox1.text,textbox2.text)
End Sub
