tugas 1

Public Class Form1

    Private Property pesan As MsgBoxResult

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Ckode_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ckode.Click

       

    End Sub

    Private Sub Ckode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ckode.SelectedIndexChanged

        If Ckode.Text = "F001" Then

            Tnmbrg.Text = "kue tar"

            Thrg.Text = "10000"

        ElseIf Ckode.Text = "F002" Then

            Tnmbrg.Text = "Donat"

            Thrg.Text = "15000"

        ElseIf Ckode.Text = "F003" Then

            Tnmbrg.Text = "Roti bolu"

            Thrg.Text = "10000"

        Else

            Tnmbrg.Text = ""

            Thrg.Text = ""

        End If

    End Sub

    Private Sub Tjumbel_KeyPress(KeyAscii As Integer)

        If KeyAscii = 13 Then

            Ttotal.Text = (Thrg.Text) * Val(Tjumbel.Text)

        End If

    End Sub

    Private Sub Tjumbel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tjumbel.TextChanged

       

    End Sub

    Private Sub Ckeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ckeluar.Click

        pesan = MsgBox("Keluar Aplikasi?", vbQuestion + vbOKCancel, "Fajar Novi P")

        If pesan = vbOK Then

        End If

    End Sub

    Private Sub Ttotal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ttotal.TextChanged

        Ttotal.Text = (Thrg.Text) * Val(Tjumbel.Text)

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

End Class