Hilfe...finde die fehler nicht heraus

[Kuwe]

Hi :-s ,
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

[Jaecko]

Tausch mal dieses Monster an If...Then..Endif-Verschachtelungen gegen ne Select Case aus. So ist das nicht gerade übersichtlich. Und Nachzählen, ob die Anzahl an End If stimmt will glaub ich keiner.

Select Case Wert
Case 1: Zeichen = A
Case 2: Zeichen = B
....
End Select

[jo_robot]

1. fehler: outputs als Port nicht als pin configuren
2. fehler bei den pullups port= 1 nicht pin
3. warum machst du die end ifs alle am schluss? und nicht nach jedem if satz? weil so wie es jetzt ist macht er im unterren teil nur was wenn wert = 1 ist :) tipp: um sowas zu lösen ist select case auch ganz schön.

4. ganz am ende fehlt noch ein (formales) "end"

[Kuwe]

super vielen dank.... aber die probleme bestehen weiterhin.

[Jaecko]

Wie sieht denn der Code jetzt aus?

[jo_robot]

das wäre das einfachste wenn du den code nochmal postest. am besten makierst du den code dann noch und drückst oben auf den "code" butten (du kannst auch von hand [ code ] CODECODECOEDECODE [ / code ] ohne den leerzeichen in den klammern natürlich machen. Dann wird der Code schön formatiert angezeigt

[Kuwe]

$regfile = "m32def.dat"

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



Config Portc.4 = Input
Config Portc.5 = Input
Config Portc.6 = Output
Config Portd.7 = Output
Config Porta.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

Portc.4 = 1
Portc.5 = 1
Portc.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
End If
If Licht < 900then
Eins = 0
End If


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

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


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


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

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


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


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

If Wert = 4 Then
Zeichen = C
End If
If Wert = 7 Then
Zeichen = D
End If
If Wert = 15 Then
Zeichen = E
End If
If Wert = 30 Then
Zeichen = F
End If
If Wert = 60 Then
Zeichen = G
End If
If Wert = 90 Then
Zeichen = H
End If
If Wert = 3 Then
Zeichen = I
End If
If Wert = 5 Then
Zeichen = J
End If
If Wert = 16 Then
Zeichen = K
End If
If Wert = 31 Then
Zeichen = L
End If
If Wert = 61 Then
Zeichen = M
End If
If Wert = 91 Then
Zeichen = N
End If
If Wert = 6 Then
Zeichen = O
End If
If Wert = 9 Then
Zeichen = P
End If
If Wert = 17 Then
Zeichen = Q
End If
If Wert = 32 Then
Zeichen = R
End If
If Wert = 62 Then
Zeichen = S
End If
If Wert = 64 Then
Zeichen = T
End If
If Wert = 94 Then
Zeichen = U
End If
If Wert = 11 Then
Zeichen = V
End If
If Wert = 19 Then
Zeichen = W
End If
If Wert = 34 Then
Zeichen = X
End If
If Wert = 94 Then
Zeichen = Y

End If





Print Zeichen





Loop
End

[Kuwe]

Über das select case weis ich nicht genau bescheid., deshalb würde ich gerne beim if bleiben

[jo_robot]

Das mit If ist auch ok.

am anfang sollte noch baudrate rein:

d.h. $baud = 9600
oder was auch immer du benützt

dann die inputs müssen mit pin declariert werden.. da ist bascom ein wenig eigen. Output --> port input-->pin und pullups ein port

dann If Licht < 900then fehlt ein leerzeichen

[jo_robot]

was macht die zeile

wert = A+B....

ich seh nirgends ein A,B oder C :)

[Kuwe]

oh....da sollten eig die einzelnen werte zusammengezählt werden.
mhh die probleme die er mir angibt sind noch folgende

in der zeile:

Wert = eins + zwei + drei + vier +funf + sechs +sieben +acht

also ich wollte dort die einzelnen variablen addieren und den Wert in einer neuen Variable (Wert (integer)) Speichern.
Doch basom sagt mir 3 parameters expeckted

andere Fehler zusätzlich

Ich kann in der Var. Zeichen keine Buchstaben speichern<


und:
er findet kein if und kein end if in zeile 0

hier nochmal der code






$regfile = "m32def.dat"

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



Config Portc.4 = Input
Config Portc.5 = Input
Config Portc.6 = Output
Config Portd.7 = Output
Config Porta.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

Portc.4 = 1
Portc.5 = 1
Portc.6 = 1

Sound Portd.7 , 400 , 450
Waitms 500
Sound Portd.7 , 400 , 450

Config Adc = Single , Prescaler = Auto


Do


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


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

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


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


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

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


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


If Licht > 900 Then
Acht = 90
End If
If Licht < 900 Then
Acht = 0
End If

Wert = Eins + Zwei + Drei + Vier + Funf + Sechs + Sieben + Acht




If Wert = 1 Then
Zeichen = A
End If
If Wert = 2 Then
Zeichen = B
End If

If Wert = 4 Then
Zeichen = C
End If
If Wert = 7 Then
Zeichen = D
End If
If Wert = 15 Then
Zeichen = E
End If
If Wert = 30 Then
Zeichen = F
End If
If Wert = 60 Then
Zeichen = G
End If
If Wert = 90 Then
Zeichen = H
End If
If Wert = 3 Then
Zeichen = I
End If
If Wert = 5 Then
Zeichen = J
End If
If Wert = 16 Then
Zeichen = K
End If
If Wert = 31 Then
Zeichen = L
End If
If Wert = 61 Then
Zeichen = M
End If
If Wert = 91 Then
Zeichen = N
End If
If Wert = 6 Then
Zeichen = O
End If
If Wert = 9 Then
Zeichen = P
End If
If Wert = 17 Then
Zeichen = Q
End If
If Wert = 32 Then
Zeichen = R
End If
If Wert = 62 Then
Zeichen = S
End If
If Wert = 64 Then
Zeichen = T
End If
If Wert = 94 Then
Zeichen = U
End If
If Wert = 11 Then
Zeichen = V
End If
If Wert = 19 Then
Zeichen = W
End If
If Wert = 34 Then
Zeichen = X
End If
If Wert = 94 Then
Zeichen = Y

End If





Print Zeichen





Loop
End

[Jaecko]

Achja... da war was...
Das hier:
Wert = eins + zwei + drei + vier +funf + sechs +sieben +acht
kann Bascom nicht.
Es kann immer nur 1 Operator verwendet werden.
Also Wert = Eins + Zwei, dann Wert = Wert + Drei etc...

[Kuwe]

danke für die vielen mühen......entlich klappt es super.
kai

[jo_robot]

Immerwieder gerne :) Wir haben alle mal so angefangen xD

danke für die vielen mühen......entlich klappt es super.
kai