Tugas 3

Saya akan menjelaskan program sederhana yang saya buat, program ini digunakan pegawai ford yang ingin memberikan atau mengecek VIN (Vehicle Identification Number) jadi jika ingin menggunakan program ini pegawai harus tau pass word dan ID Admin.

Saat awal menjalankan program akan muncul form login seperti ini

lalu kita masukan password dan tekan button enter
jika salah hasilnya akan

namun jika benar akan seperti ini

setelah itu form 1 akan hilang lalu muncul form 2 dengan tampilan

diatas kita dapat memilih dimana kendaraan tersebut di produksi dengan 3 pilihan karena hanya negara tersebut asal mobil ford

lalu kita memilih model mobil dan tipenya

setelah itu kita pilih tahun dan bulan produksi dan menginput seuence numbernya (4 digit)

setelah semuanya terinput dengan benar tekan Generate lalu XXX yang dibawah akan berubah menjadi VIN mobil tersebut

lalu jika ingin mengulang tekan reset makan form akan kembali seperti awal

lalu tekan log out jika ingin keluar lalu form akan kembali ke form log in

jika sudah selesai tekan exit maka akan muncil dialog box

tekan OK untuk keluar dan cancel untuk masuk kembali :D sekian

berikut ini source codenya

Form1:
Public Class Form1

    Private Sub Enter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enter.Click
        If ID.Text = "admin" And Pass.Text = "rizky" Then
            MsgBox("Selamat datang admin")
            ID.Text = ""
            Pass.Text = ""
            ID.Focus()
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("ID atau Password salah")
            ID.Text = ""
            Pass.Text = ""
            ID.Focus()
        End If
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Dim y As Integer
        y = MsgBox("Apa anda ingin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "konfirmasi")
        If y = vbOKCancel Then
            Me.Close()
        End If
    End Sub
End Class

Form2:
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x, y As Integer
        For x = 2010 To 2012
            year.Items.Add(x)
        Next
        For y = 1 To 12
            month.Items.Add(MonthName(y))
        Next
    End Sub

    Private Sub Generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Generate.Click
        If C1.Text = "Germany" Then
            L1.Text = "MNB"
        ElseIf C1.Text = "Thailand" Then
            L1.Text = "RHD"
        ElseIf C1.Text = "USA" Then
            L1.Text = "UMC"
        End If
        If C2.Text = "Fiesta" Then
            L2.Text = "J"
        ElseIf C2.Text = "Focus" Then
            L2.Text = "F"
        ElseIf C2.Text = "Mustang" Then
            L2.Text = "M"
        End If
        If C3.Text = "Hatchback" Then
            L3.Text = "J"
        ElseIf C3.Text = "Sedan" Then
            L3.Text = "S"
        End If
        If year.Text = "2010" Then
            L4.Text = "A"
        ElseIf year.Text = "2011" Then
            L4.Text = "B"
        ElseIf year.Text = "2012" Then
            L4.Text = "C"
        End If
        If month.Text = "January" Then
            L5.Text = "J"
        ElseIf month.Text = "February" Then
            L5.Text = "F"
        ElseIf month.Text = "March" Then
            L5.Text = "M"
        ElseIf month.Text = "April" Then
            L5.Text = "L"
        ElseIf month.Text = "May" Then
            L5.Text = "Y"
        ElseIf month.Text = "June" Then
            L5.Text = "E"
        ElseIf month.Text = "July" Then
            L5.Text = "U"
        ElseIf month.Text = "August" Then
            L5.Text = "G"
        ElseIf month.Text = "September" Then
            L5.Text = "B"
        ElseIf month.Text = "October" Then
            L5.Text = "O"
        ElseIf month.Text = "November" Then
            L5.Text = "A"
        ElseIf month.Text = "December" Then
            L5.Text = "D"
        End If
        L6.Text = T1.Text
    End Sub

    Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
        C1.ResetText()
        C2.ResetText()
        C3.ResetText()
        month.ResetText()
        year.ResetText()
        T1.Text = ""
        L1.Text = "X X X"
        L2.Text = "X"
        L3.Text = "X"
        L4.Text = "X"
        L5.Text = "X"
        L6.Text = "X X X X"
        C1.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Log Out")
        Form1.Show()
        Me.Close()
    End Sub
End Class