Quis no 1

Public Class Quiz1

    Sub BuatTabel()
        Storage.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        Storage.View = View.Details
        Storage.GridLines = True
        Storage.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = No_Pembelian.Text
        Lst.SubItems.Add(Kd_Barang.Text)
        Lst.SubItems.Add(Nm_Barang.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Jumlah.Text)
        Lst.SubItems.Add(Total.Text)
        Storage.Items.Add(Lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kd_Barang.Items.Add("TS001")
        Kd_Barang.Items.Add("TS002")
        Kd_Barang.Items.Add("VG001")
        Kd_Barang.Items.Add("VG002")

        Call BuatTabel()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kd_Barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(Kd_Barang.Text, 3)
        If x = "001" Then
            Nm_Barang.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            Nm_Barang.Text = "Flashdisk 2GB"
        End If

        Select Case Kd_Barang.Text
            Case "TS001"
                Harga.Text = "105000"
            Case "TS002"
                Harga.Text = "75000"
            Case "VG001"
                Harga.Text = "90000"
            Case "VG002"
                Harga.Text = "60000"
        End Select
    End Sub

    Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Tambah.Click
        IsiTabel()
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress
        Total.Text = Harga.Text * Val(Jumlah.Text)
    End Sub

    Private Sub Btn_Hapus_yg_Dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_yg_Dipilih.Click
        Storage.Items.Remove(Storage.SelectedItems(0))
    End Sub

    Private Sub Btn_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_Semua.Click
        Storage.Items.Clear()
    End Sub

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

    Private Sub Btn_Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Bersih.Click
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub
End Class

Postingan Nilai Mahasiswa

Ini postingan saya untuk memenuhi tugas saya mata kuliah Pemograman visual

baik inilah program nya

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

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

        End

    End Sub

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

        NPM.Items.Add("12110377")

        NPM.Items.Add("12110404")

        NPM.Items.Add("12110400")

        NPM.Items.Add("12110597")

        NPM.Items.Add("12110321")

        KD.Items.Add("301")

        KD.Items.Add("302")

        KD.Items.Add("303")

        KD.Items.Add("304")

        KD.Items.Add("305")

        KMK.Items.Add("301")

        KMK.Items.Add("302")

        KMK.Items.Add("303")

        KMK.Items.Add("304")

        KMK.Items.Add("305")

        Dim x As Integer

        For x = 100 To 1 Step -3

            NK.Items.Add(x)

        Next (x)

        x = 100

        Do While x >= 1

            NT.Items.Add(x)

            x = x - 3

        Loop

        For x = 100 To 1 Step -3

            UTS.Items.Add(x)

        Next (x)

        For x = 100 To 1 Step -3

            UAS.Items.Add(x)

        Next (x)

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110377"

                NM.Text = "Meitri Widya Pradipta"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110404"

                NM.Text = "Kristina Nancy LumbanGaol"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110400"

                NM.Text = "Steven Leo Talenta Ginting"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110597"

                NM.Text = "Doni Armando"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110321"

                NM.Text = "Cahyo Shobirin"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

        End Select

    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged

        Select Case KD.Text

            Case "301"

                ND.Text = "Toni Limbong,S.Kom,M.Kom"

            Case "302"

                ND.Text = "Sinar Sinurat,ST,M.Kom"

            Case "303"

                ND.Text = "Mesran,S.Kom,M.Kom"

            Case "304"

                ND.Text = "Kennedi Tampubolon,S.Si"

            Case "305"

                ND.Text = "Kristian Siregar,S.Kom"

        End Select

    End Sub

    Private Sub KMK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMK.SelectedIndexChanged

        Select Case KMK.Text

            Case "301"

                MK.Text = "Sistem Basis Data"

            Case "302"

                MK.Text = "Matematika Diskrit"

            Case "303"

                MK.Text = "Pemrogaman Visual Basic"

            Case "304"

                MK.Text = "Kalkulus II"

            Case "305"

                MK.Text = "HTML"

        End Select

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NA.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * NT.Text + 0.1 * NK.Text()

        If NA.Text >= 50 Then

            KET.Text = "Lulus"

        Else

            KET.Text = "Gagal"

        End If

        If NA.Text >= 80 Then

            NH.Text = "A"

        ElseIf (NA.Text >= 70) And (NA.Text < 80) Then

            NH.Text = "B"

        ElseIf (NA.Text >= 60) And (NA.Text < 70) Then

            NH.Text = "C"

        ElseIf (NA.Text >= 50) And (NA.Text < 60) Then

            NH.Text = "D"

        Else

            NH.Text = "E"

        End If

    End Sub

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

        NPM.Text = ("")

        NM.Text = ("")

        Jenjang.Text = ("")

        Jurusan.Text = ("")

        KD.Text = ("")

        ND.Text = ("")

        KMK.Text = ("")

        MK.Text = ("")

        NK.Text = ("")

        NT.Text = ("")

        UTS.Text = ("")

        UAS.Text = ("")

        NA.Text = ("")

        NH.Text = ("")

        KET.Text = ("")

    End Sub

End Class

Dan hasilnya. . 

catatan lagu ini pas buat ku 

All I knew this morning when I wokeIs I know something now, know something now I didn't beforeAnd all I've seen since eighteen hours agoIs green eyes and freckles and your smileIn the back of my mind making me feel like
I just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you know you know you
'Cause all I know is we said "Hello"And your eyes look like coming homeAll I know is a simple nameEverything has changedAll I know is you held the doorYou'll be mine and I'll be yoursAll I know since yesterday is everything has changed

And all my walls stood tall painted blueAnd I'll take them down, take them down and open up the door for you
And all I feel in my stomach is butterfliesThe beautiful kind, making up for lost time,Taking flight, making me feel like
I just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you know you know you
'Cause all I know is we said "Hello"And your eyes look like coming homeAll I know is a simple nameEverything has changedAll I know is you held the doorYou'll be mine and I'll be yoursAll I know since yesterday is everything has changed
Come back and tell me whyI'm feeling like I've missed you all this time, oh, oh, ohAnd meet me there tonightAnd let me know that it's not all in my mind

I just wanna know you better know you better know you better nowI just wanna know you know you know you

'Cause all I know is we said "Hello"And your eyes look like coming homeAll I know is a simple nameEverything has changedAll I know is you held the doorYou'll be mine and I'll be yoursAll I know since yesterday is everything has changed
All I know is we said "Hello"So dust off your highest hopesAll I know is pouring rain and everything has changedAll I know is the new found graceAll my days I know your faceAll I know since yesterday is everything has changed

Biodata saya 
Nama     : Meitri Widya Pradipta
TTL       : Tj.Morawa 24-Mei-1994
Alamat   : Jl.Limau Manis Tj.Morawa 
anak ke  : 3 dari 4 bersaudara .
Zodiak    : Gemini 

Ayah saya bernama Prabowo A. bekerja sebgai POLRI dan di tugas kan di Asr.Brimob Kompi 2 Den A Tj.Morawa . Ibu saya bernama S. Nainggolan. Ibu saya sebagai Ibu Rumah Tangga .

Pertama buat blog gue mau postingin tentang bias gue, yaitu Choi Sooyoung :)
berikut Biodata Choi Sooyoung ... Cekidot :D

Choi Soo-young

 atau lebih dikenal dengan Sooyoung adalah artis yang sekarang tergabung dengan Grup Musik terkenal dunia Girls’ Generation. Didalam Grup Girls’ Generation, Sooyoung mendapat bagian sebagai Vokal pendukung dan juga merangkap Dancer dari Girls’ Generation. Tidak hanya itu Sooyoung Girls’ Generation memiliki talenta lain seperti Akting.

Keberhasilan Sooyoung bergabung dengan Girlband Girls’ Generation tidaklah gampang dan harus mengikuti pelatihan selama 6 tahun 3 Bulan baru bisa melakukan debut bersama Girls’ Generation. Bagi anda yang ingin mengetahui lebih jauh tentang Sooyoung Girls’ Generation bisa dilihat pada bawah ini Profil Sooyoung Girls’ Generation dan Biodata Sooyoung Girls’ Generation untuk teman-teman.

Profil

• Nama Lahir : Choi Soo-young
• Nama Panggilan : Shik shin (God of food), NaSoo (interrupter), DJ Syoung
• Nama Panggung : Lively Princess SOOYOUNG
• nama Inggris : Summer Choi
• Tanggal Lahir : 10 Februari 1990
• Posisi : Vokal pendukung dan Dancer
• Zodiak : Aquarius
• Golongan Darah : O
• Saudara : Satu Kakak Perempuan Choi Soo-jin
• Bahasa : Korea, Inggris, Mandarin, Jepang.
• Keahlian : Menari dan Akting.
• Casting : 2000 SM Open Audition | 2002 Korea-Japan Ultra Idol Duo Audition
• Durasi Latihan : 6 Tahun 3 Bulan
• Sekolah : ChungAng University, Department of Theater.

Karir

• 2002 Japanese duo ‘Route f‘ (with Marina Takahashi)
• 2003 CF Samsung Anycall Battle of Music (with Jewerly Park Jung-ah)
• 2004 School uniforms ‘Rocks’ model
• 2005 VJ for M.Net ‘Hello Chat’
• 2005 OST for Inuyasha ‘I Am‘ (Korean ver.)
• 2007 DJ for Melon ‘ChunJi Radio: Sungmin &amp; Sooyoung’ (with Super Junior Sungmin)
• 2007 Sitcom KBS ‘Unstoppable Marriage‘ (as Choi Soo-young)
• 2008 OST for SBS drama Working Mom ‘Ggok‘ (with Yuri)
• 2008 Movie ‘Hello Schoolgirl!‘ (as Jung Da-jung)
• 2009 CF ‘Post Cereal‘ (with Sunny &amp; Seohyun)
• 2009 Featured with The Blue ‘Feeling Only You‘ (with Tiffany)
• 2009 MC for MBC ‘Fantastic Duo’ (with Kim Jae-dong)
• 2009 CF ‘Post Cereal‘ (with Taeyeon &amp; Tiffany)
• 2010 CF ‘Biotherm’ (with Tiffany &amp; Yuri)

Tentang Sooyoung

• Sooyoung adalah anggota tertinggi dalam Girls’ Generation.
• Sooyoung lancar berbahasa Jepang.
• Sooyoung merupkan anggota Girls’ Generation yang sangat suka makan dan sangat sulit untuk menjadi gemuk.
• Nama Inggris Sooyoung adalah Summer yang diberikan oleh Jessica.
• Sooyoung beragama Kristen.
• Sooyoung sangat suka dengan Fashion dan merupakan anggota yang paling modis dalam Girls’ Generation.
• Sooyoung sangat mudah menangis.

ini beberapa pose sooyoung yang saya suka :)