Char test reversed

[Darrel Taylor]

With this program...

Code: Select all

Include "usart.bas"

Const
    Char_A As Char = "A",
    Char_B As Char = "B"
    
SetBaudrate(br19200)

If Char_A = Char_B Then
    USART.Write("Char_A = Char_B = TRUE",13,10)
Else    
    USART.Write("Char_A = Char_B = FALSE",13,10)
EndIf

If Char_A <> Char_B Then
    USART.Write("Char_A <> Char_B = TRUE",13,10)
Else    
    USART.Write("Char_A <> Char_B = FALSE",13,10)
EndIf

DelayMS(1000)

End

I get this result...

Code: Select all

Char_A = Char_B = TRUE
Char_A <> Char_B = FALSE

Somethings backwards somewhere.

[Darrel Taylor]

Just for additional information. This program works fine (Byte instead of Char)

Code: Select all

Include "usart.bas" 

Const 
    Char_A As Byte = "A", 
    Char_B As Byte = "B" 
    
SetBaudrate(br19200) 

If Char_A = Char_B Then 
    USART.Write("Char_A = Char_B = TRUE",13,10) 
Else    
    USART.Write("Char_A = Char_B = FALSE",13,10) 
EndIf 

If Char_A <> Char_B Then 
    USART.Write("Char_A <> Char_B = TRUE",13,10) 
Else    
    USART.Write("Char_A <> Char_B = FALSE",13,10) 
EndIf 

DelayMS(1000) 

End

Result =

Code: Select all

Char_A = Char_B = FALSE
Char_A <> Char_B = TRUE

[David Barker]

> Just for additional information. This program works
> fine (Byte instead of Char)

There was a problem with the typecasting, which has now been fixed. You can download the latest version (1.2.0.1) from here...

http://www.sfcompiler.co.uk/swordfish/d ... index.html

[Darrel Taylor]

WOW

Amazing response time. Now I can get back to my new module.

Thanks David !