H2H

H2H
Aplikasi Android H2H Server Pulsa

Kode Select Case Visual Studio 2010



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim paket As String
        paket = txtPackage.Text

        Select Case paket
            Case "1"
                txtTime.Text = "1 jam"
                txtCost.Text = "3000"
            Case "2"
                txtTime.Text = "2 jam"
                txtCost.Text = "5000"
            Case "3"
                txtTime.Text = "3 jam"
                txtCost.Text = "7000"
            Case "4"
                txtTime.Text = "4 jam"
                txtCost.Text = "9000"
            Case "5"
                txtTime.Text = "5 jam"
                txtCost.Text = "10500"
            Case "6"
                txtTime.Text = "6 jam"
                txtCost.Text = "12000"
            Case "7"
                txtTime.Text = "7 jam"
                txtCost.Text = "13.500"
            Case Else
                txtTime.Text = "8 jam"
                txtCost.Text = "15000"
        End Select
    End Sub