| Re: Ports Kategorie: Programmierung Basic (von Cartasu_Perfektion is´was für Anfänger - 30.06.2010 16:15) | ||
| Als Antwort auf Re: Ports von GEMINI1606 - 30.06.2010 15:47 | ||
| ||
|
Gut, ich habe den code entsprehend eurer vorschläge geändert, aber funzt immer noch nicht. die LED´s an den Ausgängen werden über Optokoppler betrieben, und bleiben immernoch permanent an--Port Kaputt? Wie ist das mit den Portpins als eingang, 5V oder 0V High Pegel - also invertierte Logik oder nich? ' Ports für Lichtschranken definieren ' #define LS_R Port_ReadBit(16) 'Eingang 1. Lichtschranke #define LS_L Port_ReadBit(17) 'Eingang 2. Lichtschranke Dim Linksrechts As Byte ' globale Variablendeklaration '------------------------------------------------------------------------------ 'Abfrage der Lichtschranke ' Sub Lichtschranke() Port_DataDirBit(16,PORT_IN) Port_DataDirBit(17,PORT_IN) Linksrechts = 0 If LS_L = 0 And LS_R = 1 And Linksrechts = 0 Then Linksrechts = 1 End If If LS_R = 0 And LS_L = 1 And Linksrechts = 0 Then Linksrechts = 11 End If If LS_L = 0 And LS_R = 0 Then Linksrechts = 0 End If If LS_L = 1 And LS_R = 1 Then Linksrechts = 0 End If Return End Sub ' '------------------------------------------------------------------------ ' Sub main() ' Ports für Richtungsausgabe definieren Port_DataDirBit(18,PORT_OUT) Port_DataDirBit(19,PORT_OUT) Do Lichtschranke() If Linksrechts = 1 Then Port_WriteBit(18,PORT_OFF) End If If Linksrechts = 11 Then Port_WriteBit(19,PORT_OFF) End If If Linksrechts = 0 Then Port_WriteBit(18,PORT_ON):Port_WriteBit(19,PORT_ON) End If Loop While 1 End Sub | ||
Antwort schreiben Antworten: | ||
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum