Pemograman Visual Basic

TUGAS PEMOGRAMAN VISUAL BASIC

Belajar Pemrograman Visual basic.

1. Buka Microsoft Visual Studio 2008

2. Klik => Create: Project
3. Ubah Project name dengan Nama anda

4. Maka setelah itu akan muncul sebuah Form1 pada Project kita

5. Kemudian Desain Form tersebut dengan Label, TextBox, ComboBox, dan Button yang     dapat kita pilih pada properties Toolbox, yang ada di sebelah kiri Form anda

Gambar Tampilan VB

Ketentuan :

1. Jika kita pilih NPM, maka Nama, Jenjang beserta Jurusan, akan muncul secara otomatis, dan tanpa di undang

2. Jika kita pilih Kode Dosen, maka Nama Dosen secara otomatis muncul

3. Jika kita pilih Kode Matakuliah, nama Mata Kuliah secara otomatis muncul

4 Nlai Tugas, Nilai UTS, Nilai Kehadiran, dan Nilai UAS harus kita pilih dahulu, kemudian

5. Jika Proses di click, maka Nilai Akhir, Nilai Huruf, dan Keterangan akan muncul bersamaan.

NB : untuk "Label", anda cukup menggantikan "Text" saja, 

        untuk "Combobox" dan "Text box" hanya cukup mengganti "Name" saja

        untuk "Button" baru di ganti "Text" dan "Name"

6. Listing program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("12110486")

        npm.Items.Add("12110905")

        npm.Items.Add("12110987")

        npm.Items.Add("12110977")

        kodedosen.Items.Add("0987")

        kodedosen.Items.Add("0098")

        kodedosen.Items.Add("0023")

        kodedosen.Items.Add("0781")

        kodematakuliah.Items.Add("221AKTI")

        kodematakuliah.Items.Add("876KSI")

        kodematakuliah.Items.Add("1178KMI")

        kodematakuliah.Items.Add("1341BRU")

        Dim i As Integer

        For i = 1 To 100

            nilaikehadiran.Items.Add(i)

            nilaitugas.Items.Add(i)

            nilaiuts.Items.Add(i)

            nilaiuas.Items.Add(i)

        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110486"

                nama.Text = "Azmy Lauranita"

                jenjang.Text = "SI"

                jurusan.Text = "Teknik Informatika"

            Case "12110905"

                nama.Text = "Niken"

                jenjang.Text = "SI"

                jurusan.Text = "Sistem Informasi"

            Case "12110987"

                nama.Text = "laura"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Umum"

            Case "12110977"

                nama.Text = "Arjuna"

                jenjang.Text = "DI"

                jurusan.Text = "Komputerisasi Akutansi"

        End Select

    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        Select Case kodedosen.Text

            Case "0987"

                namadosen.Text = "Mesran, M.Kom"

            Case "0098"

                namadosen.Text = "Alex Riki Sinaga, M.Kom"

            Case "0023"

                namadosen.Text = "Megaria Purba, M.Kom"

            Case "0781"

                namadosen.Text = "Guidio L Ginting, S.Kom"

        End Select

    End Sub

    Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged

        Select Case kodematakuliah.Text

            Case "221AKTI"

                matakuliah.Text = "Pemograman Visual 1 "

            Case "876KSI"

                matakuliah.Text = "Struktur Data"

            Case "1178KMI"

                matakuliah.Text = "Kalkulus"

            Case "1341BRU"

                matakuliah.Text = "Komunikasi Data"

        End Select

    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

        Select Case nilaiakhir.Text

            Case Is >= 100

                nilaihuruf.Text = "A"

                keterangan.Text = "LULUS"

            Case 70 To 79

                nilaihuruf.Text = "B"

                keterangan.Text = "LULUS"

            Case 60 To 69

                nilaihuruf.Text = "C"

                keterangan.Text = "LULUS"

            Case 50 To 59

                nilaihuruf.Text = "D"

                keterangan.Text = "GAGAL"

            Case Is <= 49

                nilaihuruf.Text = "E"

                keterangan.Text = "GAGAL"

        End Select

    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 = ""

        kodedosen.Text = ""

        namadosen.Text = ""

        kodematakuliah.Text = ""

        matakuliah.Text = ""

        nilaikehadiran.Text = ""

        nilaitugas.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        nilaihuruf.Text = ""

        nilaiakhir.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

7. setelah selesai, tekan F5 atau Start Debugging untuk menjalankan programnya

Hasilnya :

Keterangan:

• Nama, Jenjang, dan Jurusan akan muncul saat anda memilih NPM
• Nama Dosen akan muncul saat anda memilih Kode Dosen
• Mata kuliah akan muncul saat anda memilih Kode Mata Kuliah
• Nilai Kehadiran, Nilai Tugas, Nilai UTS, dan Nilai UAS ada pilih nilai angka terserah anda.
• kemudian klik proses maka Nilai Akhir, Nilai Huruf, dan Keterangan akan muncul.

Listview Form Nilai Mahasiswa

Public Class Form1

    Sub buattabel()

        lv.Columns.Add("npm", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 180, HorizontalAlignment.Left)

        lv.Columns.Add("jenjang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("jurusan", 180, HorizontalAlignment.Left)

        lv.Columns.Add("kodedosen", 80, HorizontalAlignment.Center)

        lv.Columns.Add("namadosen", 180, HorizontalAlignment.Left)

        lv.Columns.Add("kodematakuliah", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nilaikehadiran", 180, HorizontalAlignment.Left)

        lv.Columns.Add("nilaitugas", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nilaiuts", 180, HorizontalAlignment.Left)

        lv.Columns.Add("nilaiuas", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nilaiakhir", 180, HorizontalAlignment.Left)

        lv.Columns.Add("nilaihuruf", 80, HorizontalAlignment.Center)

        lv.Columns.Add("keterangan", 180, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.Text = jenjang.Text

        lst.Text = jurusan.Text

        lst.Text = kodedosen.Text

        lst.Text = namadosen.Text

        lst.Text = kodematakuliah.Text

        lst.Text = nilaikehadiran.Text

        lst.Text = nilaitugas.Text

        lst.Text = nilaiuts.Text

        lst.Text = nilaiuas.Text

        lst.Text = nilaiakhir.Text

        lst.Text = nilaihuruf.Text

        lst.Text = keterangan.Text

        lst.SubItems.Add(nama.Text)

        lv.Items.Add(lst)

   

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        npm.Items.Add("12110486")

        npm.Items.Add("12110905")

        npm.Items.Add("12110987")

        npm.Items.Add("12110977")

        kodedosen.Items.Add("0987")

        kodedosen.Items.Add("0098")

        kodedosen.Items.Add("0023")

        kodedosen.Items.Add("0781")

        kodematakuliah.Items.Add("0043")

        kodematakuliah.Items.Add("7896")

        kodematakuliah.Items.Add("9078")

        kodematakuliah.Items.Add("8964")

        Dim i As Integer

        For i = 1 To 100

            nilaikehadiran.Items.Add(i)

            nilaitugas.Items.Add(i)

            nilaiuts.Items.Add(i)

            nilaiuas.Items.Add(i)

        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select npm.Text

            Case "12110486"

                nama.Text = "Azmy Lauranita"

                jenjang.Text = "SI"

                jurusan.Text = "Teknik Informatika"

            Case "12110905"

                nama.Text = "Niken"

                jenjang.Text = "SI"

                jurusan.Text = "Sistem Informasi"

            Case "12110987"

                nama.Text = "laura"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Umum"

            Case "12110977"

                nama.Text = "Arjuna"

                jenjang.Text = "DI"

                jurusan.Text = "Komputerisasi Akutansi"

        End Select

    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        Select Case kodedosen.Text

            Case "0987"

                namadosen.Text = "Mesran, M.Kom"

            Case "0098"

                namadosen.Text = "Alex Riki Sinaga, M.Kom"

            Case "0023"

                namadosen.Text = "Megaria Purba, M.Kom"

            Case "0781"

                namadosen.Text = "Guidio L Ginting, S.Kom"

        End Select

    End Sub

    Private Sub kodematakuliah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Select Case kodematakuliah.Text

            Case "221AKTI"

                kodematakuliah.Text = "Pemograman Visual 1 "

            Case "876KSI"

                kodematakuliah.Text = "Struktur Data"

            Case "1178KMI"

                kodematakuliah.Text = "Kalkulus"

            Case "1341BRU"

                kodematakuliah.Text = "Komunikasi Data"

        End Select

    End Sub

    Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click

        isitabel()

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kodedosen.Text = ""

        namadosen.Text = ""

        kodematakuliah.Text = ""

        kodematakuliah.Text = ""

        nilaikehadiran.Text = ""

        nilaitugas.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        nilaihuruf.Text = ""

        nilaiakhir.Text = ""

        keterangan.Text = ""

    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

        Select Case nilaiakhir.Text

            Case Is >= 100

                nilaihuruf.Text = "A"

                keterangan.Text = "LULUS"

            Case 70 To 79

                nilaihuruf.Text = "B"

                keterangan.Text = "LULUS"

            Case 60 To 69

                nilaihuruf.Text = "C"

                keterangan.Text = "LULUS"

            Case 50 To 59

                nilaihuruf.Text = "D"

                keterangan.Text = "GAGAL"

            Case Is <= 49

                nilaihuruf.Text = "E"

                keterangan.Text = "GAGAL"

        End Select

    End Sub

End Class

Ini adalah hasil listView :

Fungsi - fungsi string pada VB.NET

                                                         

Ada beberapa fungsi – fungsi string untuk memanipulasi string di dalam VB.NET, berikut beberapa fungsi string yang saya ketahui :

• LCase(x) , digunakan untuk mengubah semua huruf dalam string x menjadi kecil semua. Contoh:

s = LCase(“Anak Nakal”) , maka nilai s adalah “anak nakal

• UCase(x) , digunakan untuk mengubah semua huruf dalam string x menjadi besar semua. Contoh:

s = LCase(“Belajar String”) , maka nilai s adalah “BELAJAR STRING”

• Left(x,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari kiri sebanyak n. Contoh:

VB 6.0, s = Left(“Belajar String “, 3)

VB .NET, s = Strings.Left(“Belajar String “, 3), maka nilai s adalah “Bel”

• Right(x,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari kanan sebanyak n. Contoh:

VB 6.0, s = Right(“Belajar String “, 3)

VB .NET, s = Strings.Right(“Belajar String “, 3), maka nilai s adalah “ing”

• Mid(x,m,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari karakter ke m sebanyak n. Contoh:

s = Mid(“Belajar String “, 2, 2) , maka nilai s adalah “el”

• LTrim(x) , digunakan untuk menghapus karakter spasi di bagian kiri dari string x.Contoh:

s = LTrim(“    Belajar String     “) , maka nilai s adalah ” Belajar String    ”

• RTrim(x) , digunakan untuk menghapus karakter spasi di bagian kanan dari string x. Contoh:

s = RTrim(“    Belajar String     “) , maka nilai s adalah “     Belajar String “

• Trim(x) , digunakan untuk menghapus karakter spasi di bagian kiri dan kanan dari string x. Contoh:

s = Trim(“    Belajar String     “) , maka nilai s adalah ” Belajar String “

• Len(x) , digunakan untuk menghitung jumlah karakter dari string x. Contoh:

s = Len(“Belajar String”) , maka nilai s adalah 14 (spasi termasuk karakter).

• String(n,x) , digunakan untuk membuat karakter x sebanyak n. Contoh:

VB 6.0,  s = String(10, “A”)

VB .NET, s = New String(“A”, 10),maka nilai s adalah “AAAAAAAAAA”

• Space(n) , digunakan untuk membuat karakter spasi sebanyak n. Contoh:

s = Space(10) , maka nilai s adalah “          “

• Asc(x) , digunakan untuk mengetahui nilai ASCII dari karakter x. Contoh:

s = Asc(“A”) , maka nilai s adalah 65

• Chr(x) , digunakan untuk mengetahui karakter dari nilai ASCII x. Contoh:

s = Chr(65) , maka nilai s adalah “A”

• InStr(x,n) , digunakan untuk mengetahui posisi karakter n didalam string x. Contoh:

 s = InStr(“Belajar String “, “l”) , maka nilai s adalah 3

• StrComp(x,y,n) , digunakan untuk membandingkan string x dan string y berdasarkan n. Jika n bernilai 0 maka akan dibandingkan secara case-sensitive, sedangkan jika n bernilai 1 maka akan dibandingkan secara biasa. Contoh:

s = StrComp(“Aku”, “aku”, 0) , maka nilai s adalah -1

s = StrComp(“Aku”, “aku”, 1) , maka nilai s adalah 0

Khusus untuk fungsi ini, jika menghasilkan nilai 0 maka dianggap sebagai True, dan jika menghasilkan nilai selain 0 maka dianggap False.

• StrConv(x,n) , digunakan untuk mengubah huruf dalam string x berdasarkan nilai n. Contoh:

s = StrConv(“Aku Bisa”, 1) , maka nilai s adalah “AKU BISA”

s = StrConv(“Aku Bisa”, 2) , maka nilai s adalah “aku bisa”

s = StrConv(“aku bisa”, 3) , maka nilai s adalah “Aku Bisa”

• StrReverse(x) , digunakan untuk membalikkan posisi huruf dalam string x. Contoh:

s = StrReverse(“Aku Bisa”) , maka nilai s adalah “asiB ukA”

• Replace(x,m,n) , digunakan untuk menggantikan karakter m dalam string x dengan karakter n. Contoh:

s = Replace(“Kamu Juga Bisa”, “a”, “o”) , maka nilai s adalah “Komu Jugo Biso”

• Split(x,n)(i) , digunakan untuk memecah string x berdasarkan karakter n dengan penomoran i. Contoh:

s = Split(“Kuda,Kerbau,Sapi,Kambing,Macan”, “,”)(0) , maka nilai s adalah “Kuda”

s = Split(“Kuda,Kerbau,Sapi,Kambing,Macan”, “,”)(1) , maka nilai s adalah “Kerbau”

s = Split(“Kuda,Kerbau,Sapi,Kambing,Macan”, “,”)(4) , maka nilai s adalah “Macan”

• Join(x,n) , digunakan untuk menggabungkan rangkain string x yang dihubungkan dengan string n. Contoh:

VB6, s = Join(Array(“Hani”, “Indah”, “Budi”, “Herman”), ” & “)

VB.NET, s = Join(New Object() {“Hani”, “Indah”, “Budi”, “Herman”}, ” & “), maka nilai s adalah “Hani & Indah & Budi & Herman”

Fungsi-fungsi diatas juga dapat djadikan fungsi lain diantaranya adalah :

• Mengecek keberadaan string dalam string. Misalnya Anda ingin memeriksa ada tidaknya string “a” dalam string “anda berhasil”, maka kodenya adalah :

If CBool(InStr(“anda berhasil”, “a”)) Then

‘jika ada

Else

‘jika tidak ada

End If

• Menghitung karakter tertentu dalam string. Misalnya Anda ingin menghitung karakter “a” dalam string “anda berhasil”, maka kodenya adalah :

t = “anda berhasil”

s = Len(t) – Len(Replace(t, “a”, “”))

maka nilai s adalah 3

•  Menghitung jumlah kata dalam string. Misalnya Anda ingin menghitung jumlah kata dalam string “anda berhasil”, maka kodenya adalah :

s = UBound(Split(“anda berhasil”, ” “)) + 1

maka nilai s adalah 2

• Menghilangkan karakter tertentu dalam string. Misalnya Anda ingin menghilangkan karakter “a” dalam string “anda berhasil”, maka kodenya adalah :

s = Replace(“anda berhasil”, “a”, “”)

maka nilai s adalah “nd berhsil”

•  Mengisi variabel array dinamis dengan string. Contoh kodenya sebagai berikut :

Dim Binatang() As String

Binatang = Split(“Kuda,Kerbau,Sapi,Kambing,Macan”, “,”)

maka variabel Binatang memiliki 5 index (0-4) dengan rincian:

nilai Binatang(0) = “Kuda”

nilai Binatang(1) = “Kerbau”

nilai Binatang(2) = “Sapi”

nilai Binatang(3) = “Kambing”

nilai Binatang(4) = “Macan”

CATATAN : Dalam beberapa fungsi string, terdapat optional property ‘CompareMethod’. Bila properti ini bernilai Binary, maka fungsi tersebuat melakukan metode case-sensitive terhadap string. Sedangkan bila bernilai Text, maka fungsi tersebuat tidak melakukan metode case-sensitive.

Sumber : http://indonesiaduniaprogramming.com/2013/07/fungsi-fungsi-string-pada-vbnet.html