Coding Daftar If..... Else

    Private Sub Form1_Load
        Me.Text = "Sesi 3_Dwi. P"
        Lblnrp.Text = "NRP"
        Lblnama.Text = "Nama"
        Lblalamat.Text = "Alamat"
        Lbltampil.Hide()

        Txtnrp.Text = "Isikan Data"
        Txtnama.Text = "Isikan Data"
        Txtalamat.Text = "Isikan Data"

        Txtnrp.ForeColor = Color.Gray
        Txtnama.ForeColor = Color.Gray
        Txtalamat.ForeColor = Color.Gray

        Btncetak.Text = "Cetak"
        Btnbaru.Text = "Baru"
        Btnkeluar.Text = "Keluar"
    End Sub

    Private Sub Txtnrp_GotFocus
        If (Txtnrp.Text = "Isikan Data") Then
            Txtnrp.Clear()
            Txtnrp.ForeColor = Color.Black
        Else
            Txtnrp.ForeColor = Color.Black
        End If
    End Sub

    Private Sub Txtnama_GotFocus
        If (Txtnama.Text = "Isikan Data") Then
            Txtnama.Clear()
            Txtnama.ForeColor = Color.Black
        Else
            Txtnama.ForeColor = Color.Black
        End If
    End Sub

    Private Sub Txtalamat_GotFocus
        If (Txtalamat.Text = "Isikan Data") Then
            Txtalamat.Clear()
            Txtalamat.ForeColor = Color.Black
        Else
            Txtalamat.ForeColor = Color.Black
        End If
    End Sub

    Private Sub Btncetak_Click
        If (Txtnrp.Text = "Isikan Data" Or Txtnrp.Text = "") Then
            MsgBox("Data Belum Lengkap", MsgBoxStyle.Critical, "Dwi. P")
        ElseIf (Txtnama.Text = "Isikan Data" Or Txtnama.Text = "") Then
            MsgBox("Data Belum Lengkap", MsgBoxStyle.Critical, "Dwi. P")
        ElseIf (Txtalamat.Text = "Isikan Data" Or Txtalamat.Text = "") Then
            MsgBox("Data Belum Lengkap", MsgBoxStyle.Critical, "Dwi. P")
        Else
            MsgBox("Data dengan NRP  " & Txtnrp.Text & "  Sudah dicetak", MsgBoxStyle.Information, "Dwi. P")
            Lbltampil.Show()
            Lbltampil.Text = "NRP : " & Txtnrp.Text & "   Nama : " & Txtnama.Text & "   Alamat : " & Txtalamat.Text
        End If
    End Sub

    Private Sub Btnbaru_Click
        Dim ask As MsgBoxResult
        ask = MsgBox("Yakin Akan Mengisi Data Baru?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Baru")
        If ask = MsgBoxResult.Yes Then
            Txtnrp.Text = "Isikan Data"
            Txtnama.Text = "Isikan Data"
            Txtalamat.Text = "Isikan Data"
            Txtnrp.ForeColor = Color.Gray
            Txtnama.ForeColor = Color.Gray
            Txtalamat.ForeColor = Color.Gray
            Lbltampil.Clear()
            Txtnrp.Focus()
        End If
    End Sub

    Private Sub Btnkeluar_Click
        Dim ask As MsgBoxResult
        ask = MsgBox("Anda Yakin Keluar Dari Program?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If ask = MsgBoxResult.Yes Then
            End
        End If
    End Sub

    Private Sub Txtnrp_LostFocus
        If (Txtnrp.Text = "") Then
            Txtnrp.Text = "Isikan Data"
            Txtnrp.ForeColor = Color.Gray
        End If
    End Sub

    Private Sub Txtnama_LostFocus
        If (Txtnama.Text = "") Then
            Txtnama.Text = "Isikan Data"
            Txtnama.ForeColor = Color.Gray
        End If
    End Sub

    Private Sub Txtalamat_LostFocus
        If (Txtalamat.Text = "") Then
            Txtalamat.Text = "Isikan Data"
            Txtalamat.ForeColor = Color.Gray
        End If
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini