Selasa, 29 Oktober 2013

untuk desainnya seperti ini





untuk listting nya adalah seperti ini



Public Class Form1
    Private Sub buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonhapus.Click
        mk.Text = ""
        Dosen.Text = ""
        nm.Text = ""
        ns.Text = ""
        na.Text = ""

    End Sub

    Private Sub buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonproses.Click
        na.Text = 0.4 * nm.Text + 0.6 * ns.Text
    End Sub

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

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mk.items.add("pemograman visual")
        mk.Items.Add("PTI")
        Dosen.Items.Add("Toni Limbong,S.Kom M.Kom")
        Dosen.Items.Add("Sinar Sinurat S.T M.Kom")
    End Sub

    Private Sub nm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nm.TextChanged

    End Sub
End Class


Maka hasilnya akan seperti ini


 

       Pernyataan Select Case mirip dengan pernyataan If...Then...Else, pada dasarnya keduanya gunanya sama, tetapi menggunakan Select Case akan mempermudah menulis dan mengelola kode. Ketika pernyataan If...Then...Else memiliki banyak blok kode, kode menjadi sulit dibaca dan diikuti.
Struktur Select Case akan menguji ekspresi tunggal yang dievaluasi sekali pada bagian atas dari struktur. Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok, blok pernyataan yang berhubungan akan dijalankan.
Berikut adalah sintaks pernyataan Select Case:
Select Case Ekspresi
Case Nilai1
BlokPernyataan1
Case Nilai2
BlokPernyataan2
...
Case Else
BlokPernyataanN
End Select




pada form1 kode list ting nya adalah
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koder.Items.Add("ts001")
        kode.Items.Add("ts002")
        kode.Items.Add("vg001")
        kode.Items.Add("vg002")

    End Sub


pada combobox listtingnya adalah


Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        Dim a As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        If x = "ts" Then
            merk.Text = "toshiba"
        ElseIf x = "vg" Then
            merk.Text = "v-gen"
        End If
        a = Microsoft.VisualBasic.Right(kode.Text, 3)
        If a = "001" Then
            nama.Text = "flashdish 4gb"
        Else
            nama.Text = "flashdish 2gb"

        End If

    End Sub
End Class



Maka hasilnya akan seperti ini