BASCOM - String nach Integer konvertieren

[Robin T. (rotoe)]

Hallo Leute,

Ich habe ein kleines Problem mit Bascom.

Unzware habe ich mittels "Split" ein String vom Uart aufgeteilt.
Wenn ich die Teile jetzt auf das Compare1a und 1b Register gebe
funktioniert natürlich nichts. Er kompilliert es zwar aber es 
funktioniert nicht weil compare nunmal Integer haben möchte.

Meine Frage: Wie kann ich einen String nach Integer Konvertieren.

[Philipp B. (philipp_burch)]

CInt() oder sowas vielleicht?

[Robin T. (rotoe)]

Funktioniert leider nicht. Dann gibt der Compiler ne Fehlermeldung raus.

[Rolf I. (for_ro)]

Robin Tönniges wrote:
>
> Meine Frage: Wie kann ich einen String nach Integer Konvertieren.

Mit Integer=Val(String) sollte es gehen.

Gruß

Rolf

[Robin T. (rotoe)]

Hier mal der Code:

$regfile "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1
Dim Wert As String * 20                                     'Die Variable wo der Eingelesene Wert vom UART reinkommt
Dim Farbe(3) As String * 20                                 'Das Array mit den durch SPLIT einzelnen Farben
Dim Rot As Integer                                          'Die Farben als Integer wo die String rein sollen
Dim Gruen As Integer
Dim Blau As Integer
Dim Bcount As Byte

Print "RGB-LED Farbwechsler von Robin T."
Print "Verbindung hergestellt"
Do
  Input "" , Wert                                           'Hier wird der UART gelesen
  Bcount = Split(wert , Farbe(1) , ".")                     'Hier wird der eingelesene String in 3 Teile nämlich R, G und B gesplittet
  Rot = Cint(farbe(1))                                      'Die Versuche einen String in ein Integer zu konvertieren
  Gruen = Cint(farbe(2))
  Blau = Cint(farbe(3))
  Compare1a = Rot                                           'Die PWM Kanäle
  Compare1b = Gruen
  Compare2 = Blau
Loop
End

[Robin T. (rotoe)]

Hups. Hat schon wer geantwortet. Mom ich probiers aus

[Robin T. (rotoe)]

Juhu! Es funktioniert. Bis auf ein kleinen Manko das immer nur eine 
Farbe schnell und schön gesteuert werden kann. Bei 2 oder 3 flackern die 
anderen. Aber das sit erstmal egal. Das gefragte ist gelöst.

Danke