Nah bagi Teman-teman ni yang pengen belajar bahasa pemograman,semoga postingan saya ini dapat bermanfaat bagi teman-teman ku semua.,.
Nah unttuk belajar bahasa pemogramanya barng tentu kita menggunakan VISUAL STUDIO.,.!!!
Nah untuk memulainya ikutilah langkah-langkah sebagai berikut.,.
1.Nah yang pertama-tama kita harus membuat formya dulu seperti gambar di bawah ini.,!!
7 buah textbox dan 3 buttom.
jangan lupa, berikan name pada kotak dialog properties untuk setiap masing masing combobox dan textbox. dan properties text untuk msing masing buttom.
penasaran kan sama Listing programnya??????
Public Class Form1
Private Sub Npm_SelecteedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
Npm.SelectedIndexChanged
Select Case Npm.Text
Case
"11120544"
Nama.Text = "Ahmad Hafizi"
Case
"12110740"
Nama.Text = "Edwin Raymon Damanik"
Case
"10120546"
Nama.Text = "Parningotan Rambe"
End Select
Dim i As String
i =
Microsoft.VisualBasic.Left(Npm.Text, 2)
If i = "11" Then
Jurusan.Text = "Sistem Informasi"
Jenjang.Text = "SI"
ElseIf
i = "12" Then
Jurusan.Text = "sistem informasi"
Jenjang.Text = "S1"
ElseIf
i = "10" Then
Jurusan.Text = "Komputer Akuntansi"
Jenjang.Text = "D1"
End If
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Npm.Items.Add("11120544")
Npm.Items.Add("12110740")
Npm.Items.Add("10120546")
KoDo.Items.Add("k1234567")
KoDo.Items.Add("R4567890")
KoDo.Items.Add("S0987654")
Dim i As Integer
For i =
40 To 100
NiKe.Items.Add(i)
NUas.Items.Add(i)
NT.Items.Add(i)
NUts.Items.Add(i)
Next i
End Sub
Private Sub KoDo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
KoDo.SelectedIndexChanged
Select Case KoDo.Text
Case
("k1234567")
NaDo.Text = ("Mesran,SKom")
Case
("R4567890")
NaDo.Text = ("Sinar Sinurat")
Case
("S0987654")
NaDo.Text = ("harve hutabarat")
Case
Else
Nama.Text = "_"
End Select
Dim i As String
i =
Microsoft.VisualBasic.Right(KoDo.Text, 3)
If i = "567" Then
KoMa.Text = "001"
Matakuliah.Text = "Pemograman"
ElseIf
i = "890" Then
KoMa.Text = "002"
Matakuliah.Text = "Sistem informasi"
ElseIf
i = "654" Then
KoMa.Text = "003"
Matakuliah.Text = "Struktur Data"
End If
End Sub
Private Sub Btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub Btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnhapus.Click
Npm.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KoDo.Text = ""
NaDo.Text = ""
KoMa.Text = ""
Matakuliah.Text = ""
NiKe.Text = ""
NT.Text = ""
NUas.Text = ""
NUts.Text = ""
Ket.Text = ""
NH.Text = ""
NA.Text = ""
End Sub
Private Sub Btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnproses.Click
NA.Text = 0.01 * NiKe.Text + 0.15 *
NT.Text + 0.3 * NUts.Text + 0.45 * NUas.Text
If
NA.Text < 50 Then
Ket.Text = "GagaL"
NH.Text = "E"
ElseIf
NA.Text < 60 Then
Ket.Text = "Gagal"
NH.Text = "D"
ElseIf
NA.Text < 70 Then
Ket.Text = "Lulus"
NH.Text = "B"
ElseIf
NA.Text > 70 Then
Ket.Text = "Lulus"
NH.Text = "B+"
ElseIf
NA.Text > 90 Then
Ket.Text = "Lulus"
NH.Text = "A"
End If
End Sub
End Class
Nah setelah selesai Codingnya di kettikkan lalau Press F5 (klik DEBUG) untuk menjalankan programnya
nahh dan hasilnya adalah.,!!!
Nah sekian dari saya,somoga bermanfaat bagi anda.,.
