Hilfe...finde die fehler nicht heraus

**Kuwe** · 21.04.2010, 18:35

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

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** · 21.04.2010, 19:11

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...