Stap 5: Macintosh toepassing testen
Hier is een eenvoudige test applicatie voor de Mac.Opmerking: U moet ervoor zorgen dat u hebben de FTDI extensie geïnstalleerd op je Mac.
De toepassing is geschreven in echte Basic. Het stuurt gewoon het bericht dat wordt getypt in de editfield aan de USBMOD2, en met behulp van het programma in stap 1, wordt dat bericht getoond in Hyperterminal op de PC.
Het programma begint met het controleren van uw Mac om te zien welke seriële poorten heeft (met inbegrip van de VPC geboden door de FTDI-extensie). Als de USBMOD2 niet wordt gevonden, zal het stoppen.
De broncode voor de applicatie is hieronder.
Window1.Open:
Sub Open()
Dim i as Integer, poort als tekenreeks
' Controleer welke seriële poorten zijn beschikbaar met inbegrip van
' De VPC zoals die geboden door de uitbreiding van FTDI
voor i = 0 tot System.serialPortCount - 1
poort = System.serialport(i). Naam
Als poort = "USBHighSpeedSerialConverter" then
serial1. SerialPort = system. SerialPort(i)
goto endFTDIcheck
eind als
volgende
Als poort dan <> "USBHighSpeedSerialConverter"
MsgBox "de USBMOD2 is niet verbonden, nu stoppen'
sluit af
eind als
endFTDIcheck:
End Sub
Window1.PushButton1.action:
Sub Action()
serial1.write editField1.text
End Sub
