Langsung ke konten utama

Latihan dasar Menggunakan IIF dan Select Case pada VB.NET

Latihan 3 Menggunakan IIF pada VB.NET


Berikut Source Code nya :

Public Class latihan3
'nadiahtami 2017230007
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hari As String
        Dim ke As String = ComboBox1.Text
        hari = IIf(ke = "1", "SENIN", IIf(ke = "2", "SELASA",
            IIf(ke = "3", "RABU", IIf(ke = "4", "KAMIS",
            IIf(ke = "5", "JUMAT", IIf(ke = "6", "SABTU", "MINGGU"))))))
        TextBox1.Text = hari
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
End Class

Latihan 4 Menggunakan Select Case pada VB.NET


 Berikut Source Code nya :

 Public Class latihan4
    'nadiahtami2017230007'
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bil As Integer = TextBox1.Text
        Select Case bil
            Case 80 To 100
                TextBox2.Text = "A"
            Case 65 To 79
                TextBox2.Text = "B"
            Case 47 To 64
                TextBox2.Text = "C"
            Case 26 To 46
                TextBox2.Text = "D"
            Case Else
                TextBox2.Text = "E"
        End Select
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
End Class

Komentar

Posting Komentar

Postingan populer dari blog ini

Latihan menggunakan If-then-Else dan Nested-If

Latihan 1 menggunakan (IF – THEN –ELSE) Berikut Source Codenya : Public Class latihan1    'nadiahtami 2017230007     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim keterangan As String         If TextBox1.Text >= 80 Then             keterangan = "Selamat Anda Lulus"         Else             keterangan = "Mohon Maaf Anda Belum Lulus"         End If         TextBox2.Text = keterangan     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim pesan As String         pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")         If pesan = vbYes Then  ...
Posting Komentar
Baca selengkapnya

Latihan Menggunakan Procedure dan Function pada VB.Net

Latihan 1 Menggunakan Procedure Berikut Source Codenya : Public Class proc1     'nadiahtami 2017230007     Private Sub gantitext(ByVal teksbaru As String)         TextBox1.Text = teksbaru     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         'btn pilih         gantitext("unsada")     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         'btn keluar         Dim pesan As String         pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")         If pesan = vbYes Then             End         End If     End Sub End Class Latihan 2 ...
Posting Komentar
Baca selengkapnya

Contoh Latihan dan Kasus Menggunakan Array Satu Dimensi pada VB.NET

Latihan 1 menggunakan Satu Dimensi Berikut Source Codenya : Public Class latihan1     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim makanan(3) As String         makanan(0) = "Nasi Goreng"         makanan(1) = "Ayam Goreng"         makanan(2) = "Nasi Rames"         makanan(3) = "Gado-Gado"         For Each element As String In makanan             ComboBox1.Items.Add(element)         Next         ComboBox1.Text = "Menu Makanan"     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim pesan As String        ...
Posting Komentar
Baca selengkapnya