Basic Code für LCD

OP #743412
Lesenswert?
• ▲
▼
hi @ all
was ist an folgendem Code falsch??

Sub main()
LCD_Init()
LCD_ClearLCD()
LCD_CursorOff()
Port_DataDir(2,0)

For i = 1 To 8
ausgabe = 0x4c
wert = Port_ReadBit(16+i)
LCD_CursorPos(i-1)
If wert = 1 Then
ausgabe = 0x48
End If
Next
LCD_WriteChar(ausgabe)
End Sub

ich möchte dass ich auf dem LC-Display alle 8 Ports angezeigt bekomme 
aber er zeigt immer nur einen an. Habe den von aus C übersetzt und da 
war noch die Funktion "while (1)" aber ich weis nicht wie ich das für 
Basic übersetzen soll


Mfg

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren