Minggu, 22 Maret 2020

Visual Lanjutan TEORI 2 Latihan 1 (Percabangan IF-THEN-ELSE)


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim keterangan As String
        If TextBox1.Text >= 60 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
            End
        End If
    End Sub
End Class

Tidak ada komentar:

Posting Komentar