Hi ,
Ich arbeite an einem Projekt für ein Referat. Dabei lese ich eine Lichtschranke aus. Ich möchte aus dem Code der von der Lichtschranke kommt, buchstaben bekommen, ähnlcih wie ein bit-code....Nun bin ich am programmieren. Problem: Bascom findet fehler und ich finde nicht heraus wie ich diese behebe. Würde mich über Antworten sehr freuen.

Hier die Fehler:
Line 111 3 Parameters expected
Line 113 Source Variable does not match the target variable
line 0 If then expeted
und line 0 end if expected


Hier der Code....Ich weis er ist einfach geschrieben, ohne Funktionen und so.





$regfile = "m32def.dat"

$framesize = 32
$swstack = 32
$hwstack = 32



Config Pinc.4 = Input
Config Pinc.5 = Input
Config Pinc.6 = Output
Config Pind.7 = Output
Config Pina.1 = Output

Dim Wert As Integer
Dim Licht As Integer
Dim Eins As Integer
Dim Zwei As Integer
Dim Drei As Integer
Dim Vier As Integer
Dim Funf As Integer
Dim Sechs As Integer
Dim Sieben As Integer
Dim Acht As Integer
Dim Neun As Integer


Dim Zahl As String * 200
Dim Zeichen As String * 200

Pinc.4 = 1
Pinc.5 = 1
Pinc.6 = 1

Sound Portd.7 , 400 , 450 'als start
Waitms 500
Sound Portd.7 , 400 , 450

Config Adc = Single , Prescaler = Auto


Do


Start Adc
Licht = Getadc(1)
If Licht > 900 Then
Eins = 1
Else
If Licht < 900then
Eins = 0
Else


If Licht > 900 Then
Zwei = 2
Else
If Licht < 900 Then
Zwei = 0
Else


If Licht > 900 Then
Drei = 4
Else
If Licht < 900 Then
Drei = 0
Else


If Licht > 900 Then
Vier = 7
Else
If Licht < 900 Then
Vier = 0
Else


If Licht > 900 Then
Funf = 15
Else
If Licht < 900 Then
Funf = 0
Else

If Licht > 900 Then
Sechs = 30
Else
If Licht < 900then
Sechs = 0
Else


If Licht > 900 Then
Sieben = 60
Else
If Licht < 900 Then
Sieben = 0
Else


If Licht > 900 Then
Acht = 90
Else
If Licht < 900 Then
Acht = 0
Else
Wert = A + B + C + D + E + F + G + H
If Wert = 1 Then
Zeichen = A

If Wert = 2 Then
Zeichen = B
Else
If Wert = 4 Then
Zeichen = C
Else
If Wert = 7 Then
Zeichen = D
Else
If Wert = 15 Then
Zeichen = E

If Wert = 30 Then
Zeichen = F

If Wert = 60 Then
Zeichen = G

If Wert = 90 Then
Zeichen = H

If Wert = 3 Then
Zeichen = I

If Wert = 5 Then
Zeichen = J

If Wert = 16 Then
Zeichen = K

If Wert = 31 Then
Zeichen = L

If Wert = 61 Then
Zeichen = M
If Wert = 91 Then
Zeichen = N
If Wert = 6 Then
Zeichen = O
If Wert = 9 Then
Zeichen = P
If Wert = 17 Then
Zeichen = Q
If Wert = 32 Then
Zeichen = R
If Wert = 62 Then
Zeichen = S
If Wert = 64 Then
Zeichen = T
If Wert = 94 Then
Zeichen = U
If Wert = 11 Then
Zeichen = V
If Wert = 19 Then
Zeichen = W
If Wert = 34 Then
Zeichen = X
If Wert = 94 Then
Zeichen = Y



End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

Print Zeichen





Loop