String auf String zuweisen geht nicht

Moin.

Hab grad ein kleines Problem, bei dem ich grad nicht weiterkomm.
Mit dem Programmtext hier meint Bascom "Error 242, Source variable does not match the target variable".
Die Function soll eine Widerstands-Matrixtastatur an ADC-Port 0 "abfragen" und ensprechend Case-Select-Anweisungen herausfinden, welche Taste gedrückt wurde. Diese Gedrückte Taste (nur 1 Zeichen) soll dann in "Key" abgelegt werden.

Code:

---


'Programmanfang

Declare Function Getkey As String
Dim Key As String * 1
DIM Adcval0 as Word

'...
'Hauptprogramm
'...
'
Key = Getkey    ' Aufruf der Function
'...
'...


Function Getkey As String
  Local Tmp1 As String * 1
  Adcval0 = Getadc(0)                                      ' Taste   
      Case 114 To 154 : Tmp1 = "X"    'Cancel
      Case 245 To 285 : Tmp1 = "E"    'Enter
      Case 372 To 412 : Tmp1 = "R"    'Right
      Case 503 To 543 : Tmp1 = "U"    'Up
      Case 647 To 687 : Tmp1 = "C"    'Center
      Case 817 To 857 : Tmp1 = "D"    'Down
      Case Is > 1000 : Tmp1 = "L"      'Left
      Case Else : Tmp1 = "N"              'None
Getkey = Tmp1
End Function

END

---

Was hab ich hier übersehen?

MfG

Hallo Jaecko,

was deinen Programm fehlt, ist der Anfang und das Ende der Case-Abfrage:

Code:

---


Select Case Adcval0
    Case 114 To 154 : Tmp1 = "X"
    ....
    Case Else
    ...
End Select

---

Gruß
Detlef

Hallo.

Case Select und End Select sind im eigentlichen Programm schon da.
Hab wohl beim Kopieren etwas zu viel rausgekürzt... ](*,)

Bascom ja hier auch schon was melden, wenn Case Select fehlt.
Aber es ist nur dieser eine Fehler 242.

Es hilft, wenn du auch sagst, welche Zeile der Bascom angemeckert hat.

Wäre die Zeile
"Key = Getkey"

Du mußt immer Klammer machen

Declare Function Getkey() As String

Key = Getkey() ' Aufruf der Function

END

Function Getkey() As String

ahh... und schon gehts.

thxle.