ist syntaktisch sicher falsch.Porta 0# = 1 'Setzt internen Pull-Up
Porta 0.1 = 1 'Setzt internen Pull-Up
Porta 0.2 = 1 'Setzt internen Pull-Up
Porta 0.3 = 1 'Setzt internen Pull-Up
Porta 0.4 = 1 'Setzt internen Pull-Up
Porta 0.5 = 1 'Setzt internen Pull-Up
Porta 0.6 = 1 'Setzt internen Pull-Up
Porta 0.7 = 1 'Setzt internen Pull-Up
Vom Sinn her kannst du so schreiben
PORTA=255
Kannst du die Anschlüsse an PORTA genau anders herum machen, dann kannst du einfach schreiben:Select Case Adr_1 'Adresse + 1
Case 0: Var_adresse = Var_adresse + 1
End Select
Select Case Adr_2 'Adresse + 2
Case 0: Var_adresse = Var_adresse + 2
End Select
Select Case Adr_4 'Adresse + 4
Case 0: Var_adresse = Var_adresse + 4
End Select
Select Case Adr_8 'Adresse + 8
Case 0: Var_adresse = Var_adresse + 8
End Select
Select Case Adr_16 'Adresse + 16
Case 0: Var_adresse = Var_adresse + 16
End Select
Select Case Adr_32 'Adresse + 32
Case 0: Var_adresse = Var_adresse + 32
End Select
Select Case Adr_64 'Adresse + 64
Case 0: Var_adresse = Var_adresse + 64
End Select
Select Case Adr_128 'Adresse + 128
Case 0: Var_adresse = Var_adresse + 128
End Select
Var_adresse=255-PORTA
Hier wir der µC stehenbleiben, wenn auf dem UART nichts anliegt.Empfzeichen = Inkey()
Es sieht so aus, als würdest du immer eine kleine Anzahl Zeichen mit einem CHR(13) am Ende übertragen.
Dann kannst du auch den SerialCharMatch benutzen. Geht so:
Es werden maximal 20 Zeichen gespeichert, falls mehr entsprechend vergrößern.Code:Config Serialin = Buffered , Size = 20 , Bytematch = 13 Dim Datenstring as String * 20 Serial0charmatch: Daten_count = 0 Datenstring = "" While Ischarwaiting() = 1 Daten_key = Inkey() If Daten_key <> Chr(13) Then Incr Daten_count If Daten_count < 20 Then Datenstring = Datenstring + Chr(Daten_key) End If End If Wend Clear Serialin 'Print Datenstring Return
Falls im Input Puffer ein CHR(13) auftaucht, wird automatisch die ISR Serial0CharMatch angesprungen. Dort werden dann die eingegangenen Zeichen an Datenstring angehängt. So wird der µC nie stehenbleiben.
Probier es mal.
Gruß
Rolf
Lesezeichen