Stap 3: Instellen van de besturingscomputer
Krijgen de NXT-G-Software.
Toegankelijk opwaarts visualbasic uitdrukkelijke en invoegen van een timercontrole. De doubleclick over de vorm en druk op Ctrl + A.
Kopieer deze code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt MyBase.Load
Timer1.Enabled = True
Timer1.interval = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Timer1.Tick
Me.Text = Cursor.Position.ToString()
Me.TopMost = True
End Sub
Einde klasse
Nu het programma uitvoeren. Voer het programma NXT-G. En uw robot op de Computer aansluiten. Open de afstandsbediening en klik op de knoop van de actie. Het moet het verplaatsen van de arm van het bot. Beweeg de muis over de knoop van de actie en de coördinaten op de titelbalk van de toepassing van de VB we gewoon schreven zien. Schrijf deze waarden in Kladblok en sla het op.
Nu een weebly-account te maken. Breng een nieuwe site en voeg vervolgens op een willekeurige pagina van de site, de een bestand om te uploaden. Klik erop en klik op een bestand te uploaden. Na die op het bureaublad die juiste klik en maak een nieuw tekstbestand met de naam ins.txt. Open het in Kladblok en typ het woord 'uit' in het. Uploaden. In de website editor, klik met de rechtermuisknop op de knop download bestand en kopieer het adres van de koppeling en het opslaan in Kladblok.
Nu je een url en coördinaten moet.
Verwijderen van alle code en voer deze code in hetzelfde programma die we schreef:
Public Class Form1
Dim exemplaar als MouseEventArgs
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Private Const MOUSEEVENTF_MOVE As Integer = & H1 ' muis bewegen
Private Const MOUSEEVENTF_LEFTDOWN As Integer = & H2 ' linker knop ingedrukt
Private Const MOUSEEVENTF_LEFTUP As Integer = & H4 ' links omhoog knoop
Private Const MOUSEEVENTF_RIGHTDOWN As Integer = & H8 ' juiste knop ingedrukt
Private Const MOUSEEVENTF_RIGHTUP As Integer = & H10 ' rechts van de knop omhoog
Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = & H20 ' middelste knop ingedrukt
Private Const MOUSEEVENTF_MIDDLEUP As Integer = & H40 ' midden omhoog knoop
Private Const MOUSEEVENTF_WHEEL As Integer = & H800 ' de knoop van het rolwiel rolde
Private Const MOUSEEVENTF_ABSOLUTE As Integer = & H8000 ' absolute beweging
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Vtoets As Long) As Integer
Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Integer, ByRef lpPoint als POINTAPI) As Integer
Public Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Integer, ByVal Y As Integer) As Integer
Openbare structuur POINTAPI
Dim X As Integer
Dim Y As Integer
Einde structuur
Private Sub clickdown()
Oproep mouse_event (MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub
Private Sub ClickUp()
Oproep mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt MyBase.Load
Timer1.Enabled = True
Timer1.interval = 2000
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Timer1.Tick
Probeer
My.Computer.Network.DownloadFile ("Uw Weebly bestand adres hier", "sample.txt")
Txt As String Dim = My.Computer.FileSystem.ReadAllText("sample.txt")
My.Computer.FileSystem.DeleteFile("sample.txt")
Als Me.Text <> txt vervolgens
Als txt. ToUpper = "ON" Then
Cursor.Position = nieuwe Point(Your Coordinate X here, Your coordinate Y here)
ClickDown()
Threading.Thread.Sleep(1000)
ClickUp()
End If
End If
Me.Text = txt
Vangst
Einde proberen
End Sub
Einde klasse
Waar is het geschreven ' uw coördineren X hier ' en 'Uw coördineren Y hier' Voer uw X- en Y-waarden die u hebt opgeslagen.
'Waar geschreven staat, Your Weebly bestand adres hier' invoeren uw weebly adres.
Voer het programma en moet u 'OFF' in de titelbalk.
Je bent klaar!
