Setelah
anda masuk di lembaran kerja from visual basic
Desainlah
seperti gambar di bawah ini.atau pun dengan desain anda:
Keterangan:
From di atas terdiri dari label,textbox,combobox dan button
Di mana
v
Name pada kontak
properties pada textbox dan combobox
Diganti berdasarkan label
Contoh:klik
colom pada textbox dan lihat pada gambar di bawah ini
Ø Dan seterusnya…….
Ø Teks pada properties button1 diganti
menjadi=hapus
Ø Teks pada button2 = proses
Ø Teks pada button3= keluar
Setelah Selesai Mengubah Name Pada Textbox,Combobox
Dan Teks Pada Button..Selanjutnya Kita Akan Memasukkan Printah
Ataupun Codingnya Dengan Langkah-Langkah Sbb :
1.
klik double pada from dan msukkan perintah di bawah ini:
Public Class Nilai
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110389")
npm.Items.Add("12110390")
npm.Items.Add("12110391")
npm.Items.Add("12110339")
npm.Items.Add("12110393")
npm.Items.Add("12110394")
npm.Items.Add("12110395")
kodedosen.Items.Add("HA001")
kodedosen.Items.Add("PI002")
kodedosen.Items.Add("SI003")
kodedosen.Items.Add("IN004")
kodematakuliah.Items.Add("VB001")
kodematakuliah.Items.Add("PC001")
kodematakuliah.Items.Add("MS002")
kodematakuliah.Items.Add("PE003")
kodematakuliah.Items.Add("MA004")
Dim x As Integer
For x =
1 To 100 Step
+3
nilaihadir.Items.Add(x)
nilaimid.Items.Add(x)
Next x
x = 100
Do While x >= 1
ntugas.Items.Add(x)
nuas.Items.Add(x)
x = x - 3
Loop
For x =
100 To 1 Step
-3
nuts.Items.Add(x)
Next x
End Sub
2. klik double
pada combobox NPM dan isikan
perintah di bawah
ini:
Private Sub npm_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
npm.SelectedIndexChanged
Select Case npm.Text
Case
"12110389"
nama.Text = "awal"
jurusan.Text = "Teknik informatika"
jenjang.Text = "S1"
Case
"12110390"
nama.Text = "IYEM"
jurusan.Text = "Sisterm Informasi"
jenjang.Text = "D1"
Case
"12110391"
nama.Text = "LINDA"
jurusan.Text = "Manajemen Informatika"
jenjang.Text = "D3"
Case
"12110339"
nama.Text = "MANDA IRWANSYAH"
jurusan.Text = "Teknik I formatika"
jenjang.Text = "S1"
Case
"12110393"
jurusan.Text = "Teknik I formatika"
jenjang.Text = "S1"
nama.Text = "WANI"
Case
Else
nama.Text = "Belum terdaftar"
jurusan.Text = "Belum terdaftar"
jenjang.Text = "Belum terdaftar"
End Select
End Sub
3.
klik
double pada combobox dosen dan
isi kan perintah di bawah ini:
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kodedosen.SelectedIndexChanged
If
kodedosen.Text = "HA001" Then
namadosen.Text = "Harmadi Tambah s,Kom"
ElseIf
kodedosen.Text = "PI002" Then
namadosen.Text = "Pilipus Tarigan ST"
ElseIf
kodedosen.Text = "SI003" Then
namadosen.Text = "Sinar Sinurat s,Kom"
Else
namadosen.Text = "Indra Ginting"
End If
End Sub
4.klik double
pada combobox kodematakuliah isikan
perintah di bawah ini:
Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kodematakuliah.SelectedIndexChanged
If
kodematakuliah.Text = "VB001" Then
matakuliah.Text = "Visual basis.net"
ElseIf
kodematakuliah.Text = "PC001" Then
matakuliah.Text = "Program pascal"
ElseIf
kodematakuliah.Text = "MS002" Then
matakuliah.Text = "Manajemen Informatika"
ElseIf
kodematakuliah.Text = "PE003" Then
matakuliah.Text = "Pemrograman c++"
Else
matakuliah.Text = "Manajemen"
End If
End Sub
5.klik double
pada button proses
dan isikan perintah di
bawah ini:
Private Sub proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles proses.Click
nakhir.Text = 0.4 * nilaimid.Text + 0.6
* nuas.Text + 0.1 * nilaihadir.Text + 0.15 * ntugas.Text
If
nakhir.Text >= 80 Then
huruf.Text = "A"
ElseIf
nakhir.Text >= 70 Then
huruf.Text = "B"
ElseIf
nakhir.Text >= 60 Then
huruf.Text = "C"
ElseIf
nakhir.Text >= 50 Then
huruf.Text = "D"
Else
huruf.Text = "E"
End If
If
nakhir.Text >= 50 Then
keterangan.Text = "LULUS"
MsgBox("SELAMAT
ANDA LULUS")
Else
keterangan.Text = "GAGAL"
MsgBox("TETAP
SEMANGAT")
End If
nakhir.Enabled = False
nuts.Enabled = False
ntugas.Enabled = False
nilaihadir.Enabled = False
nilaimid.Enabled = False
keterangan.Enabled = False
huruf.Enabled = False
nuas.Enabled = False
End Sub
6.klik doubel
pada button HAPUS dan
masukan masukan perintah di bawah ini:
Private Sub hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus.Click
nakhir.Text = ""
nuts.Text = ""
nuas.Text = ""
ntugas.Text = ""
jurusan.Text = ""
kodematakuliah.Text = ""
namadosen.Text = ""
nama.Text = ""
keterangan.Text = ""
huruf.Text = ""
nilaihadir.Text = ""
jenjang.Text = ""
matakuliah.Text = ""
kodedosen.Text = ""
nilaimid.Text = ""
npm.Text = ""
nilaihadir.Enabled = True
nakhir.Enabled = True
nuts.Enabled = True
ntugas.Enabled = True
nuas.Enabled = True
nilaimid.Enabled = True
huruf.Enabled = True
keterangan.Enabled = True
End Sub
7.dan yang
terakhir klik doubel
pada button keluar dan
masukan perintah nya:
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
End Class
