Hi Bernard,
Thats greate news.
Im on my way home I will try to tweak the code little bit, when I get time.
Im open suggestions.

Hello Pikczu
everything works almost normally except for some ACK / NAK management details.
The main problems were:
-Allimentation of the LCD
-Share of COM1 with USB arduino card
- In the Do / Ischarwaiting / Loop function, do not put any other functions.
I thank you very much for your help!
Bernard :roll: :roll: :smt024

as I implied before.

b=a+a
a=a-b
no multiplication

a*2 with binary it can also be done with shift to make it fast.

……….a - a=0!

regards
Hubert

and my 16 cycles solution, but readable for beginners :idea:

[code:1:e30fea3027]
Dim Number As Single
Number = 123
Print Number
toggle Number.31
Print Number
[/code:1:e30fea3027]

Have all a nice weekend

[quote:edee31e49f="theo64"]which i think is the same as i suggested.. a = -a[/quote:edee31e49f]
Interestingly you think wrong. At least in terms of execution cycles.

[quote:edee31e49f="Netzman"]Possibly the fastest method:

[code:1:edee31e49f]Dim Number As Single
Dim Upperbyte As Byte At Number + 3 Overlay
Const Signreverse = &H80

Number = 1
Upperbyte = Upperbyte Xor Signreverse ' 8 cycles
Print Number[/code:1:edee31e49f]

Takes 8 cycles.
[i:edee31e49f]0 - s[/i:edee31e49f] takes 202, [i:edee31e49f]-s[/i:edee31e49f] and [i:edee31e49f]-1 * s[/i:edee31e49f] each complete in 279 cycles.[/quote:edee31e49f]
Do you truly believe your botchery is useful for an user who does not even know the most simple thing of inverting the sign of a variable?
Btw., you're not the only one knowing about the sign-bit, however your code looks bulky and has no ease of use of an a = -a.
As you're a clever guy, do some graphs showing cycle savings vs. ugliness of code.

Possibly the fastest method:

[code:1:58cb4be997]Dim Number As Single
Dim Upperbyte As Byte At Number + 3 Overlay
Const Signreverse = &H80

Number = 1
Upperbyte = Upperbyte Xor Signreverse ' 8 cycles
Print Number[/code:1:58cb4be997]

Takes 8 cycles.
[i:58cb4be997]0 - s[/i:58cb4be997] takes 202, [i:58cb4be997]-s[/i:58cb4be997] and [i:58cb4be997]-1 * s[/i:58cb4be997] each complete in 279 cycles.

which i think is the same as i suggested.. a = -a

NT7108C are similar with Samsung KS0108B

search forum for KS0108 lots of sample code that worked

[code:1:1d2223fe16]$include "Font8x8.font"
$lib "glcdKS108.lbx"

'for Glcd Ks108
'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 5 , Enable = 4 , Mode = 6

'The dataport is the portname that is connected to the data lines of the LCD
'The controlport is the portname which pins are used to control the lcd
'CE = CS1 Chip select
'CE2 = CS2 Chip select second chip
'CD = DI Data/instruction
'RD = R/W Read/Write
'RESET = RST reset
'ENABLE = E Chip Enable
'And Potmeter for contrast to +5V, V0, VEE (V0 is center pin on pot)

Setfont Font8x8

Dim Char As Byte , L As Byte , C As Byte
'Show lcd ascii on lcd
Do

Cls
Char = 31
For L = 1 To 8
For C = 0 To 127 Step 8
Char = Char + 1
Lcdat L , C , Chr(char)
Next C
Next L

Wait 2

Cls
Char = 128
For L = 1 To 8
For C = 0 To 127 Step 8
Char = Char + 1
Lcdat L , C , Chr(char)
Next C
Next L

Wait 2

Loop

End [/code:1:1d2223fe16]

[quote:0189d22629="six1"][code:1:0189d22629]s=s * -1[/code:1:0189d22629][/quote:0189d22629]
As a basic rule multiplications and divisions should be avoided, where additions and subtractions are usable, as the latter are faster:
[code:1:0189d22629]s= 0 - s[/code:1:0189d22629]
Not much gain in this case, 'only' 28 percent faster.
Where speed is required, 28 percent is really something.

A very simple way would be:

a=a-(2a)

regards
Hubert