Halaman Login :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub



    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles user.KeyPress
        If e.KeyChar = Chr(13) Then
            pas.Focus()


        End If
    End Sub


    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles pas.KeyPress
        If e.KeyChar = Chr(13) Then
            L.Focus()

        End If
    End Sub


    Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        user.MaxLength = 8
        pas.PasswordChar = "*"
        pas.MaxLength = 4
        user.Focus()

    End Sub


    Private Sub L_Click_1(sender As Object, e As EventArgs) Handles L.Click
        If user.Text = "" Or pas.Text = "" Then
            MsgBox("Lengkapi Kolom Kosong Dengan Benar", vbOKOnly + vbInformation, "Lengkapi Kolom Kosong")

        ElseIf user.Text = "STIKOM" And pas.Text = "1234" Then
            MsgBox("Login Berhasil", vbOKOnly + vbInformation, "Info Login")
            Form2.user1.Text = user.Text
            Form2.Show()
            user.Text = ""
            pas.Text = ""
            Me.Enabled = False

        ElseIf user.Text = "TOMI" And pas.Text = "1234" Then
            MsgBox("Login Berhasil", vbOKOnly + vbInformation, "Info Login")
            Form2.user1.Text = user.Text
            user.Text = ""
            pas.Text = ""
            Form2.Show()
            Me.Enabled = False
        ElseIf user.Text = "COBA" And pas.Text = "1234" Then
            MsgBox("Login Berhasil", vbOKOnly + vbInformation, "Info Login")
            Form2.user1.Text = user.Text
            user.Text = ""
            pas.Text = ""
            Form2.Show()
            Me.Enabled = False
        Else
            MsgBox("Login Gagal", vbOKOnly + vbInformation, "Info Gagal Login")
            user.Text = ""
            pas.Text = ""


        End If
    End Sub

    Private Sub K_Click(sender As Object, e As EventArgs) Handles K.Click
        Dim t As String
        t = MsgBox("Yakin Anda Ingin Menutup Aplikasi Ini ?", vbYesNo + vbInformation, "Tutup Aplikasi")
        If t = vbYes Then
            Close()

        ElseIf t = vbNo Then




        End If
    End Sub

    Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click

    End Sub
End Class

----------------------------------------
Halaman Remot Kontrol

Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form2
    Dim myport As Array
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        myport = IO.Ports.SerialPort.GetPortNames

        cbaud.Items.Add(9600)
        cbaud.Items.Add(19200)
        cbaud.Items.Add(38400)
        cbaud.Items.Add(57600)
        cbaud.Items.Add(115200)

        For i = 0 To UBound(myport)
            cport.Items.Add(myport(i))
        Next i
        cport.Text = cport.Items(0)

        cbaud.Text = cbaud.Items(0)
    End Sub
    Private Sub Form2_Activated(sender As Object, e As EventArgs) Handles Me.Activated

        PictureBox1.Enabled = False
        PictureBox2.Enabled = False
        PictureBox3.Enabled = False
        kiri.Enabled = False
        kanan.Enabled = False
        maju.Enabled = False
        mundur.Enabled = False
        berhenti.Enabled = False

        GroupBox3.Enabled = False
        Tkamera.Text = "http://192.168.43.1:8080/jpeg-browser.html"
        Tkamera.Enabled = False
        btnkamera.Enabled = False

    End Sub

    Private Sub Form2_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then
            'SerialPort1.PortName = cport.Text
            SerialPort1.Write(7)
            SerialPort1.Close()
            ket.Text = "Tidak Aktive"
            MessageBox.Show("Bluetooth OFF.", "Informasi Koneksi", MessageBoxButtons.OK, MessageBoxIcon.Information)





            konek.Enabled = True
            cbaud.Enabled = True
            cport.Enabled = True
            WebBrowser1.ScriptErrorsSuppressed = False
            PictureBox1.Enabled = False
            PictureBox2.Enabled = False
            PictureBox3.Enabled = False

            kiri.Enabled = False
            kanan.Enabled = False
            maju.Enabled = False
            mundur.Enabled = False
            berhenti.Enabled = False
            ketmotor.Text = ""
            LabelLine.Text = ""
            Debug.WriteLine(cport.Focus)


        ElseIf e.KeyCode = Keys.Down Then
            SerialPort1.Write(3)
            ketmotor.Text = "Robot Mundur"

        ElseIf e.KeyCode = Keys.Left Then
            SerialPort1.Write(1)
            ketmotor.Text = "Robot Belok Kiri"

        ElseIf e.KeyCode = Keys.Right Then
            SerialPort1.Write(2)
            ketmotor.Text = "Robot Belok Kanan"

        ElseIf e.KeyCode = Keys.Up Then
            SerialPort1.Write(4)
            ketmotor.Text = "Robot Maju"

        ElseIf e.KeyCode = Keys.ShiftKey Then
            SerialPort1.Write(7)
            ketmotor.Text = "Robot Berhenti"

        ElseIf e.KeyCode = Keys.Escape Then
            MsgBox("Silahkan Pilih Arah Robot Line [ A, B, atau C ]", MsgBoxStyle.OkOnly, "Pengaturan Robot Line")
            PictureBox1.Enabled = True
            PictureBox2.Enabled = True
            PictureBox3.Enabled = True

            kiri.Enabled = True
            kanan.Enabled = True
            maju.Enabled = True
            mundur.Enabled = True
            berhenti.Enabled = True
            GroupBox1.Enabled = True
            LabelLine.Text = ""
            ketmotor.Text = ""
        ElseIf e.KeyCode = Keys.F1 Then
            MsgBox("Pengaturan Arah Kamera", MsgBoxStyle.OkOnly, "Rubah Haluan Kamera")
            GroupBox3.Enabled = True

        ElseIf e.KeyCode = Keys.F2 Then
            MsgBox("Pengaturan Arah Kamera Selesai", MsgBoxStyle.OkOnly, "Rubah Haluan Kamera Selesai")
            GroupBox3.Enabled = False
        End If
    End Sub

    Private Sub Form2_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Up Then
            SerialPort1.Write(0)
            ketmotor.Text = ""

        ElseIf e.KeyCode = Keys.Left Then
            SerialPort1.Write(0)
            ketmotor.Text = ""

        ElseIf e.KeyCode = Keys.Right Then
            SerialPort1.Write(0)
            ketmotor.Text = ""

        ElseIf e.KeyCode = Keys.Down Then
            SerialPort1.Write(0)
            ketmotor.Text = ""
        End If
    End Sub

    Private Sub konek_Click(sender As Object, e As EventArgs) Handles konek.Click
        SerialPort1.PortName = cport.Text
        SerialPort1.Open()

        MessageBox.Show("Koneksi Bluetooth OK", "Informasi Koneksi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ket.Text = "Active"

        'WebBrowser1.ScriptErrorsSuppressed = True
        'WebBrowser1.Navigate(New Uri("http://192.168.43.1:8080/jpeg-browser.html"))
        'WebBrowser1.Navigate(New Uri("http://10.37.143.238:8080/jpeg-browser.html"))
        'WebBrowser1.Navigate(New Uri("http://192.168.43.1:8080/jpeg-browser.html"))
        'GroupBox3.Enabled = False

        PictureBox1.Enabled = False
        PictureBox2.Enabled = False
        PictureBox3.Enabled = False

        konek.Enabled = False
        cbaud.Enabled = False
        cport.Enabled = False

        kiri.Enabled = True
        kanan.Enabled = True
        maju.Enabled = True
        mundur.Enabled = True
        berhenti.Enabled = True
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        PictureBox1.Enabled = True
        PictureBox2.Enabled = False
        PictureBox3.Enabled = False
        SerialPort1.Write(6)
        kiri.Enabled = True
        kanan.Enabled = True
        maju.Enabled = True
        mundur.Enabled = True
        berhenti.Enabled = True
        LabelLine.Text = "Robot Menuju Ke Area Kerja A"
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        PictureBox1.Enabled = False
        PictureBox2.Enabled = True
        PictureBox3.Enabled = False
        SerialPort1.Write(8)
        kiri.Enabled = True
        kanan.Enabled = True
        maju.Enabled = True
        mundur.Enabled = True
        berhenti.Enabled = True
        LabelLine.Text = "Robot Menuju Ke Area Kerja B"

    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click

        PictureBox1.Enabled = False
        PictureBox2.Enabled = False
        PictureBox3.Enabled = True

        SerialPort1.Write(9)

        kiri.Enabled = True
        kanan.Enabled = True
        maju.Enabled = True
        mundur.Enabled = True
        berhenti.Enabled = True
        LabelLine.Text = "Robot Menuju Ke Area Kerja C"
    End Sub

    Private Sub berhenti_Click(sender As Object, e As EventArgs) Handles berhenti.Click
        SerialPort1.Write(0)
        ketmotor.Text = "Robot Berhenti"
    End Sub


    Private Sub PengaturanPosisiKameraToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PengaturanPosisiKameraToolStripMenuItem.Click

        GroupBox3.Enabled = True
        Tkamera.Enabled = True
        btnkamera.Enabled = True
        GroupBox3.Enabled = True

        PictureBox1.Enabled = False
        PictureBox2.Enabled = False
        PictureBox3.Enabled = False

    End Sub

    Private Sub PengaturanPosisiKameraSelesaiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PengaturanPosisiKameraSelesaiToolStripMenuItem.Click
        MsgBox("Lanjutkan..!", MsgBoxStyle.OkOnly, "Pengaturan Kamera Selesai")

        GroupBox3.Enabled = False
        PictureBox1.Enabled = True
        PictureBox2.Enabled = True
        PictureBox3.Enabled = True

        kiri.Enabled = True
        kanan.Enabled = True
        maju.Enabled = True
        mundur.Enabled = True
        berhenti.Enabled = True

        GroupBox1.Enabled = True

        LabelLine.Text = ""

    End Sub



    Private Sub KeluarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeluarToolStripMenuItem.Click
        Dim t As String
        t = MsgBox("Yakin Anda Ingin Menutup Aplikasi Ini ?", vbYesNo + vbInformation, "Tutup Aplikasi")
        If t = vbYes Then
            Form1.Show()
            Form1.Enabled = True
            Close()

        ElseIf t = vbNo Then




        End If



    End Sub

    Private Sub kiri_Click(sender As Object, e As EventArgs) Handles kiri.Click

    End Sub

    Private Sub kiri_MouseDown(sender As Object, e As MouseEventArgs) Handles kiri.MouseDown
        SerialPort1.Write(1)
        ketmotor.Text = "Robot Belok Kiri"
    End Sub

    Private Sub kiri_MouseUp(sender As Object, e As MouseEventArgs) Handles kiri.MouseUp
        SerialPort1.Write(0)
        ketmotor.Text = ""
    End Sub

    Private Sub kanan_Click(sender As Object, e As EventArgs) Handles kanan.Click

    End Sub

    Private Sub kanan_MouseDown(sender As Object, e As MouseEventArgs) Handles kanan.MouseDown
        SerialPort1.Write(2)
        ketmotor.Text = "Robot Belok Kanan"
    End Sub

    Private Sub kanan_MouseUp(sender As Object, e As MouseEventArgs) Handles kanan.MouseUp
        SerialPort1.Write(0)
        ketmotor.Text = ""
    End Sub

    Private Sub maju_Click(sender As Object, e As EventArgs) Handles maju.Click

    End Sub

    Private Sub maju_MouseDown(sender As Object, e As MouseEventArgs) Handles maju.MouseDown
        SerialPort1.Write(4)
        ketmotor.Text = "Robot Maju"
    End Sub

    Private Sub maju_MouseUp(sender As Object, e As MouseEventArgs) Handles maju.MouseUp
        SerialPort1.Write(0)
        ketmotor.Text = ""
    End Sub

    Private Sub mundur_Click(sender As Object, e As EventArgs) Handles mundur.Click

    End Sub

    Private Sub mundur_MouseDown(sender As Object, e As MouseEventArgs) Handles mundur.MouseDown
        SerialPort1.Write(4)
        ketmotor.Text = "Robot Mundur"
    End Sub

    Private Sub mundur_MouseUp(sender As Object, e As MouseEventArgs) Handles mundur.MouseUp
        SerialPort1.Write(0)
        ketmotor.Text = ""
    End Sub



    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        tanggal.Text = Format(Now, "short date")
        waktu.Text = Format(Now, "Short Time")
    End Sub

    Private Sub TutupAplikasiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TutupAplikasiToolStripMenuItem.Click

    End Sub



    Private Sub btnkamera_Click(sender As Object, e As EventArgs) Handles btnkamera.Click
        WebBrowser1.Navigate(New Uri(Tkamera.Text))
    End Sub

    Private Sub AktivekanRemoteDanNavigasiLineToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktivekanRemoteDanNavigasiLineToolStripMenuItem.Click
        WebBrowser1.Navigate(New Uri("http://www.abc.com"))
    End Sub

    Private Sub SelesaiMatikanBluetoothToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelesaiMatikanBluetoothToolStripMenuItem.Click
        SerialPort1.Write(7)
        SerialPort1.Close()
        ket.Text = "Tidak Aktive"
        MessageBox.Show("Bluetooth OFF.", "Informasi Koneksi", MessageBoxButtons.OK, MessageBoxIcon.Information)

        konek.Enabled = True
        cbaud.Enabled = True
        cport.Enabled = True
        WebBrowser1.ScriptErrorsSuppressed = False
        PictureBox1.Enabled = False
        PictureBox2.Enabled = False
        PictureBox3.Enabled = False

        kiri.Enabled = False
        kanan.Enabled = False
        maju.Enabled = False
        mundur.Enabled = False
        berhenti.Enabled = False
        ketmotor.Text = ""
        LabelLine.Text = ""
        Debug.WriteLine(cport.Focus)
    End Sub

    Private Sub PENGATURANKAMERANToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PENGATURANKAMERANToolStripMenuItem.Click

    End Sub
End Class