Kontrollera AC enheter trådlöst med hjälp av USB (3 / 5 steg)
Steg 3: Ställa in kontroll dator
Få NXT-G programvara.
Öppna upp visualbasic express och infoga en timer kontroll. Dubbelklicka på formen och tryck på Ctrl + A.
Kopiera denna kod:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar MyBase.Load
Timer1.Enabled = sant
Timer1.Interval = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Timer1.Tick
Me.Text = Cursor.Position.ToString()
Me.TopMost = sant
End Sub
Slutet klass
Nu kör programmet. Kör programmet NXT-G. Och ansluta din robot till datorn. Öppna upp fjärrkontrollen och klicka på åtgärdsknappen. Den bör gå arm bot. Musen över knappen och se koordinaterna på namnlisten i VB ansökan vi bara skrev. Skriver dessa värden i anteckningar och spara den.
Nu skapa en weebly konto. Gör en ny webbplats och sedan på varje sida på webbplatsen, infoga den fil som ska överföras. Klicka på den och klicka på ladda upp en fil. Efter det på skrivbordet rätt klick och skapa en ny textfil med namnet ins.txt. Öppna den i anteckningar och skriv ordet "av" i den. Ladda upp den. I webbplats redaktör, rätt klick på knappen Hämta filen och Kopiera adressen och spara den i anteckningar.
Nu bör du ha en url och koordinater.
I samma program som vi skrev bort all kod och skriv in denna kod:
Public Class Form1
Dim instans som MouseEventArgs
Privata Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy som heltal, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Privat Const MOUSEEVENTF_MOVE As Integer = & H1 ' mus flytta
Privat Const MOUSEEVENTF_LEFTDOWN As Integer = & H2 ' vänster knapp ned
Privat Const MOUSEEVENTF_LEFTUP As Integer = & H4 ' vänsterknappen
Privat Const MOUSEEVENTF_RIGHTDOWN As Integer = & H8 "Höger knapp ned
Privat Const MOUSEEVENTF_RIGHTUP As Integer = & H10 ' höger upp
Privat Const MOUSEEVENTF_MIDDLEDOWN As Integer = & H20 ' mellersta knapp ned
Privat Const MOUSEEVENTF_MIDDLEUP As Integer = & H40 "mitten knappen
Privat Const MOUSEEVENTF_WHEEL As Integer = & H800 "hjulknappen rullade
Privat Const MOUSEEVENTF_ABSOLUTE As Integer = & H8000 ' absolut flytta
Privat deklarera funktionen GetAsyncKeyState Lib "user32" (ByVal vkey As Long) som heltal
Deklarera funktionen ClientToScreen Lib "user32" (ByVal hwnd som heltal, ByRef lpPoint som POINTAPI) som heltal
Offentligt deklarera funktionen SetCursorPos Lib "user32.dll" (ByVal X As Integer, ByVal Y As Integer) som heltal
Offentliga strukturen POINTAPI
Dim X som heltal
Dim Y som heltal
Slutet struktur
Private Sub clickdown()
Ring mouse_event (MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub
Private Sub ClickUp()
Ring mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar MyBase.Load
Timer1.Enabled = sant
Timer1.Interval = 2000
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Timer1.Tick
Försök
My.Computer.Network.DownloadFile ("Ditt Weebly fil Adress här", "sample.txt")
Dim txt As String = My.Computer.FileSystem.ReadAllText("sample.txt")
My.Computer.FileSystem.DeleteFile("sample.txt")
Om Me.Text <> txt sedan
Om txt. ToUpper = "ON" då
Cursor.Position = ny Point(Your Coordinate X here, Your coordinate Y here)
ClickDown()
Threading.Thread.Sleep(1000)
ClickUp()
Slut om
Slut om
Me.Text = txt
Fånga
Slutet försök
End Sub
Slutet klass
Där det står "ditt samordna X här" och "Your samordna Y här" Ange din X- och Y-värden som du sparade.
Där det är skrivet, ange "Ditt Weebly fil adress här" ditt weebly adress.
Kör programmet och du bör se "OFF" i namnlisten.
Du är klar!