Siti nUruL kHalisah blog: Desember 2013

Public Class Form1
    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = np.Text
        lst.SubItems.Add(kb.Text)
        lst.SubItems.Add(nb.Text)
        lst.SubItems.Add(merek.Text)
        lst.SubItems.Add(jb.Text)
        lst.SubItems.Add(harga.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()
        kb.Items.Add("TS001")
        kb.Items.Add("TS002")
        kb.Items.Add("VG001")
        kb.Items.Add("VG002")

    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kb.Text, 2)
        y = Microsoft.VisualBasic.Right(kb.Text, 3)
        Select Case X
            Case "TS" : merek.Text = "Toshiba"
            Case "VG" : merek.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : nb.Text = "Flashdisk 4GB"
            Case "002" : nb.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            harga.Text = 80000

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        np.Text = ""
        kb.Text = ""
        nb.Text = ""
        merek.Text = ""
        jb.Text = ""
        harga.Text = ""
    End Sub

    Private Sub hapusall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusall.Click
        lv.Items.Clear()
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

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

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        np.Text = ""
        kb.Text = ""
        nb.Text = ""
        merek.Text = ""
        jb.Text = ""
        harga.Text = ""


    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub jb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jb.KeyPress
        If Asc(e.KeyChar) = 13 Then
            th.Text = harga.Text * jb.Text
            simpan.Focus()
        End If
    End Sub

    Private Sub jb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jb.TextChanged

    End Sub
End Class

Disini saya akan menampilkan bagaimana cara mendesain FORM untuk NILAI MAHASISWA seperti dibawah ini..

Langkah 1

Ambil komponen-komppnen berikut dari TOOLBOX, seperti :
- label
- textbox
- combobox
- botton

Langkah 2

Kemudian desain lah Form sesuai dengan kebutuhan anda. Setelah selesai mendesain ...
ubah nama dari ;
- textbox
- combobox

- botton

menjadi nama sesuai pada label
contoh :
pada kotak label "NAMA"
pada kotak textbox ubah menjadi "nama" di (name) yg terdapat pada properties

Langkah 3

o Double klik pada Form 1

o Kemudian ketiklah algoritma seperti dibawah ini..

Public Class Form1

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

npm.Items.Add("12110111")

npm.Items.Add("12110112")

npm.Items.Add("12110113")

npm.Items.Add("12110114")

npm.Items.Add("12110115")

kdosen.Items.Add("D-01")

kdosen.Items.Add("D-02")

kdosen.Items.Add("D-03")

kdosen.Items.Add("D-04")

kdosen.Items.Add("D-05")

kodeMT.Items.Add("MT-001")

kodeMT.Items.Add("MT-002")

kodeMT.Items.Add("MT-003")

kodeMT.Items.Add("MT-004")

kodeMT.Items.Add("MT-005")

Dim i As Integer

For i = 1 To 100

Nkehadiran.Items.Add(i)

Next i

i = 1

Do While i <= 100

Ntugas.Items.Add(i)

i = i + 1

Loop

i = 100

Do Until i = 0

Nuts.Items.Add(i)

i = i - 1

Loop

i = 100

While i >= 1

Nuas.Items.Add(i)

i = i - 1

End While

End Sub

Langkah 4

o Kemudian kembali pada Form1.vb [Desain]

o Double klik pada Combobox NPM

o Ketikkan Algoritma seperti dibawah ini..

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

Select Case npm.Text

Case "12110111"

nama.Text = "ARI IRAWAN"

Case "12110112"

nama.Text = "SITI NURUL KHALISAH"

Case "12110113"

nama.Text = "IKKE WIWIK NURJANNAH"

Case "12110114"

nama.Text = "NOVI ANDRIANI"

Case "12110115"

nama.Text = "IRMA SUSANTI"

Case Else

nama.Text = "-"

End Select

Dim x As String

x = Microsoft.VisualBasic.Right(npm.Text, 3)

Select Case x

Case "111"

jenjang.Text = "S1"

jurusan.Text = "Sistem Informasi"

Case "112"

jenjang.Text = "D3"

jurusan.Text = "Teknik Informatika"

Case "113"

jenjang.Text = "S1"

jurusan.Text = "Sistem Informasi"

Case "114"

jenjang.Text = "D3"

jurusan.Text = "Teknik Informatika"

Case "115"

jenjang.Text = "D1"

jurusan.Text = "Desain Grafis"

End Select

End Sub

Langkah 5 :

o Kemudian kembali pada Form1.vb [Desain]

o Double klik pada Combobox KODE DOSEN

o Ketikkan Algoritma seperti dibawah ini.

Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged

Select Case kdosen.Text

Case "D-01"

ndosen.Text = "PURNAWAN ABADI S.KOM"

Case "D-02"

ndosen.Text = "SETIAWAN WIJAYA M.KOM"

Case "D-03"

ndosen.Text = "MAHARANI PUTRI S.KOM"

Case "D-04"

ndosen.Text = "PUTRA SINAGA M.KOM"

Case "D-05"

ndosen.Text = "REZA BAMBANG M.KOM"

End Select

End Sub

Langkah 6 :

o Kemudian kembali pada Form1.vb [Desain]

o Double klik pada Combobox KODE MATA KULIAH

o Ketikkan Algoritma seperti dibawah ini..

Private Sub kodeMT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodeMT.SelectedIndexChanged

Select Case kodeMT.Text

Case "MT-001"

MT.Text = "AGAMA ISLAM"

Case "MT-002"

MT.Text = "BAHASA INGGRIS"

Case "MT-003"

MT.Text = "PEMPROGRAMAN WEB"

Case "MT-004"

MT.Text = "STRUKTUR DATA"

Case "MT-005"

MT.Text = "JARINGAN WEB"

End Select

End Sub

Langkah 7 :

o ini Kemudian kembali pada Form1.vb [Desain]

o Double klik pada Button PROSES

o Ketikkan Algoritma seperti dibawah

Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

Nakhir.Text = (0.1 * Val(Nkehadiran.Text)) + (0.15 * Val(Ntugas.Text)) + (0.35 * Val(Nuts.Text)) + (0.4 * Val(Nuas.Text))

Select Case Nakhir.Text

Case Is >= 80

Nhuruf.Text = "A"

KET.Text = "Lulus"

Case 70 To 79

Nhuruf.Text = "B"

KET.Text = "Lulus"

Case 60 To 69

Nhuruf.Text = "C"

KET.Text = "Lulus"

Case 50 To 59

Nhuruf.Text = "D"

KET.Text = "Gagal"

Case Is <= 49

Nhuruf.Text = "E"

KET.Text = "Gagal"

End Select

End Sub

Langkah 8 :

o Kemudian kembali pada Form1.vb [Desain]

o Double klik pada Button HAPUS

o Ketikkan Algoritma seperti dibawah ini..

Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

npm.Text = ""

nama.Text = ""

jenjang.Text = ""

jurusan.Text = ""

kdosen.Text = ""

ndosen.Text = ""

kodeMT.Text = ""

MT.Text = ""

Nkehadiran.Text = ""

Ntugas.Text = ""

Nakhir.Text = ""

Nuas.Text = ""

Nuts.Text = ""

Nhuruf.Text = ""

KET.Text = ""

npm.Focus()

End Sub

Langkah 9 :

o Kemudian kembali pada Form1.vb [Desain]

o Double klik pada Button KELUAR

o Ketikkan Algoritma seperti dibawah ini..

Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

End

End Sub

Langkah 10 :

o Setelah selesai melakukan penginputan Algoritma seperti yang diatas..

o Kemudian tekan tombol F5 pada keyboard..

o Maka akan tampil hasil nya seperti berikut ini,,

Siti nUruL kHalisah blog

Cari Blog Ini

Minggu, 08 Desember 2013

tugas listview quis online soal no 1

Selasa, 03 Desember 2013

MENGHITUNG NILAI MAHASISWA DENGAN VS.2008