Program Nilai Akhir

Membuat Alur Logitmara

Berikut Alur Logaritma yang berupa flowchart :



Membuat Rancangan Model Form (Sket)


Memulai Ke Visual Studio

  • Berikut desain form di Visual Studio :


  • Dan dibawah ini Coding untuk form :
Public Class Form1

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

        Dim nilai, a, b, c, d As Integer

        a = Val(TextBox3.Text)
        b = Val(TextBox4.Text)
        c = Val(TextBox5.Text)
        d = Val(TextBox6.Text)
        nilai = (a * 0.1) + (b * 0.15) + (c * 0.35) + (d * 0.4)
        If (nilai > 85) And (nilai <= 100) Then
            MsgBox("Data anda telah tersimpan", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
            Label8.Visible = True
            Label11.Visible = True
            Label12.Visible = True
            Label14.Visible = True
            Label15.Visible = True
            Label16.Visible = True
            Label19.Visible = True
            TextBox7.Visible = True
            TextBox9.Visible = True
            TextBox8.Visible = True
            TextBox11.Visible = True
            TextBox12.Visible = True
            TextBox10.Visible = True
            TextBox13.Visible = True
            TextBox13.Text = "A"
            TextBox10.Text = "Lulus"
        ElseIf (nilai > 70) And (nilai <= 85) Then
            MsgBox("Data anda telah tersimpan", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
            Label8.Visible = True
            Label11.Visible = True
            Label12.Visible = True
            Label14.Visible = True
            Label15.Visible = True
            Label16.Visible = True
            Label19.Visible = True
            TextBox7.Visible = True
            TextBox9.Visible = True
            TextBox8.Visible = True
            TextBox11.Visible = True
            TextBox12.Visible = True
            TextBox10.Visible = True
            TextBox13.Visible = True
            TextBox13.Text = "B"
            TextBox10.Text = "Lulus"
        ElseIf (nilai > 55) And (nilai <= 70) Then
            MsgBox("Data anda telah tersimpan", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
            Label8.Visible = True
            Label11.Visible = True
            Label12.Visible = True
            Label14.Visible = True
            Label15.Visible = True
            Label16.Visible = True
            Label19.Visible = True
            TextBox7.Visible = True
            TextBox9.Visible = True
            TextBox8.Visible = True
            TextBox11.Visible = True
            TextBox12.Visible = True
            TextBox13.Visible = True
            TextBox10.Visible = True
            TextBox13.Text = "C"
            TextBox10.Text = "Lulus"
        ElseIf (nilai > 40) And (nilai <= 55) Then
            MsgBox("Mohon maaf nilai anda belum mencapai kriteria lulus", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        ElseIf (nilai > 0) And (nilai <= 40) Then
            MsgBox("Mohon maaf nilai anda belum mencapai kriteria lulus", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        End If
        TextBox7.Text = TextBox1.Text
        TextBox9.Text = ComboBox1.Text
        TextBox8.Text = TextBox2.Text
        TextBox11.Text = ComboBox3.Text
        TextBox12.Text = Str(nilai)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        Label8.Visible = False
        Label11.Visible = False
        Label12.Visible = False
        Label14.Visible = False
        Label15.Visible = False
        Label16.Visible = False
        Label19.Visible = False
        TextBox7.Visible = False
        TextBox9.Visible = False
        TextBox8.Visible = False
        TextBox11.Visible = False
        TextBox12.Visible = False
        TextBox13.Visible = False
        TextBox10.Visible = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

Komentar

Posting Komentar

Postingan populer dari blog ini

Program Pinjam Buku Perpustakaan

Gambar
Pada post kali ini saya akan membuat Tutorial Input Peminjaman Buku di Perpustakaan. Pada kesempatan kali ini saya mencoba untuk membuat program “Pinjam Buku Perpustakaan” menggunakan konsep percabangan dan perulangan. Dimana kita harus menginput Nama, NIM, Nama Buku, Jenis Buku, Rak, Bulan dan Tanggal Pinjam. Perulangan saya gunakan untuk menampilkan tanggal pinjam dan percabangan saya gunakan pada saat ada data yang akan diinput belum terisi dan untuk mencari tanggal pengembalian buku. (nb : untuk tanggal saya buat sampai 31). Berikut desain tampilan program yang akan saya buat : Dan dibawah ini merupakan desain sistemnya : Desain program pada Visual Studio : Tool – tool yang digunakan : ·          8 Label. ·          3 Text Box. ·          4 Combo Box. ·          2 Group Box. ·   ...
Baca selengkapnya

Program Cek Zodiak

Gambar
Pada post kali ini saya akan membuat program yang berisi Percabangan, Procedure dan variabel Array. Program yang saya buat adalah Program Cek Zodiak beserta Sifat dan Keterangan lainnya, dimana zodiak didapat dari tanggal lahir yg diinput. Berikut flowchart, desain interface, source code dan cara menggunakan programnya. Desain Interface (Sket) (Desain Input) (Desain Output) Flowchart  (Flowchart Zodiak) (Flowchart Zodiak) Disini fungsi flowchart zodiak adalah untuk menetukan zodiak melalui tanggal dan bulan yang telah diinput. (Flowchart Sifat) (Flowchart Sifat) Sedangkan funhsi flowchart sifat adalah untuk menampilkan sifat dan keterangan lainnya beserta simbol dari zodiak yang sudah terpilih pada flowchart zodiak. (Flowchart Utama) Kemudian flowchart utama disini berfungsi untuk menginput nama, tanggal lahir, dan golongan darah lalu outputnya berupa nama, tanggal lahir, hari lahir, umur, golongan darah, zodiak, sifat dan keterang...
Baca selengkapnya