Hey Gerhard,
ich glaube das muss so lauten:
Code:$regfile = "m32def.dat" Dim A As Byte Dim B As Byte A = 10 B = 11 If A = 10 And B = 10 Then Print "Hallo" Else Print "Nicht Hallo" end IF
Hey Gerhard,
ich glaube das muss so lauten:
Code:$regfile = "m32def.dat" Dim A As Byte Dim B As Byte A = 10 B = 11 If A = 10 And B = 10 Then Print "Hallo" Else Print "Nicht Hallo" end IF
Geändert von Kampi (28.06.2013 um 18:51 Uhr) Grund: War Mist....Codebeispiel eingefügt.
Schaut ruhig mal auf meiner Homepage vorbei:
http://kampis-elektroecke.de
Oder folge mir auf Google+:
Daniel Kampert
Es gibt 10 Arten von Menschen. Die einen können Binär, die anderen nicht.
Gruß
Daniel
Es gibt unterschiedliche Formen der Anwendung, als Einzeiler, welcher ohne End If auskommt und als Befehlsabfolge zwischen der If Then / Else /End If Anweisung.
Mach's einfach so wie in der Hilfe.
- - - Aktualisiert - - -
Es wird im Moment wieder Bascom gesprochen
Was Du meinst, ist C, da macht's 'nen Unterschied.
Ja auch gerade gesehen
Hab dann doch mal Sicherheitshalber Bascom angeschmissen und geschaut
War mir selber nicht ganz so sicher....dann gucke ich lieber noch mal nach!
Schaut ruhig mal auf meiner Homepage vorbei:
http://kampis-elektroecke.de
Oder folge mir auf Google+:
Daniel Kampert
Es gibt 10 Arten von Menschen. Die einen können Binär, die anderen nicht.
Gruß
Daniel
So soll es sein, schön
...ich stolper auch manchmal noch darüber das ich hinter dem else immer gerne gleich die Anweisung schreibe möchte.
Was war jetzt der Fehler?
Zeilenumbruch zwischen then/else und dem Befehl war zwingend, oder wie?
Gruß Ryoken
A mistake is evidence that someone tried to do something.
It`s not impossible - it just costs more
@Ryoken: Ja so geht es !
Code:'------------------------------------------------------------------------------- TestTime: If _HOUR = Ph1 AND _MIN = Pm1 then SET PORTB.0 else RESET PORTB.0 end IF if _HOUR = Ph2 AND _MIN = Pm2 then SET PORTB.1 else RESET PORTB.1 end if return '-------------------------------------------------------------------------------
Arduinos, STK-500(AVR), EasyPIC-40, PICKIT 3 & MPLABX-IDE , Linux Mint
Lesezeichen