TUGAS BPC PERTEMUAN KE-7

Ini dia nih tugas Budidarma Programming Club (BPC) pertemuan ke-7.
Gak terlalu payah, asal ada kemauan aja.
:p
1. Desain Form

2. Listing programnya:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TipeKamar.Items.Add("EKONOMI")
        TipeKamar.Items.Add("VIP")
    End Sub

MEMBUAT SEGITIGA ANGKA DENGAN LOOPING

Misi ya gan, mau iseng2 posting tugas dulu neh..
Skalian nambahin postingan gitu. Mudahan bermanfaat.
Langsung aja neh gan.

1. Desainlah Formnya seperti gambar dibawah ini dan atur juga propertinya.

Ketikkan aja nih listinya gan yah:
Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(Nilai.Text)
        Hasil.Clear()

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Tugas Belajar Bahasa Pemograman

1.Desainlah Form dan atur propertinya seperti gambar di bawah ini:

2. Kemudian ketiklah listing program seperti dibawah ini :

Public Class Form_Nilai

    Private Sub Form_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeDosen.Items.Add("113421")
        KodeDosen.Items.Add("222342")
        KodeMataKuliah.Items.Add("0051")
        KodeMataKuliah.Items.Add("0072")
        NPM.Items.Add("12110728")
        NPM.Items.Add("12119008")
        NPM.Items.Add("12118879")
        Dim i As Integer
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiTugas.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiUTS.Items.Add(i)
        Next i
        For i = 1 To 100
            NilaiUAS.Items.Add(i)
        Next i
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        MataKuliah.Text = " "
        Nama.Text = " "
        NamaDosen.Text = ""
        NilaiKehadiran.Text = " "
        NilaiTugas.Text = " "
        NilaiUTS.Text = " "
        NilaiAkhir.Text = " "
        NilaiUAS.Text = " "
        Jenjang.Text = ""
        NPM.Text = ""
        KodeMataKuliah.Text = ""
        KodeDosen.Text = ""
        Keterangan.Text = ""
        NilaiHuruf.Text = ""
        Jurusan.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Dim z As String
        z = KodeDosen.Text
        If z = "113421" Then
            NamaDosen.Text = "Tonni Limbong S.Kom,M.Kom"
        ElseIf z = "222342" Then
            NamaDosen.Text = "Sinar Sinurat, ST, M.Kom"
        End If
    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
        Dim p As String
        p = KodeMataKuliah.Text
        If p = "0051" Then
            MataKuliah.Text = "Pemograman Visual Basic"
        ElseIf p = "0072" Then
            MataKuliah.Text = "Matematika Diskrit"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim a As String
        a = NPM.Text
        If NPM.Text = "12110728" Then
            Nama.Text = "Bister Purba"
        ElseIf NPM.Text = "12119008" Then
            Nama.Text = "Anto"
        ElseIf NPM.Text = "12118879" Then
            Nama.Text = "Ani"
        End If
    End Sub
End Class

3. Setelah itu, jalankan program Visual Basic.Net dengan menekan F5 atau (Shortcut Run) dan akan muncul hasilnya seperti pada gambar di bawah ini :

Sekian Dan Terimakasih.