Negatieve waarden in PicBasic en op 'n LCD

Het blijft natuurlijk basic... Zucht... Kun je als het gedal <0 is niet zelf een - printen en dan de modulus van je getal printen? Het is natuurlijk de achterdeur uit, maar ja... je moet wat...

maar de manual lezen is ook een kunst. je moet sdec gebruike ipv dec voor signed values.

Je zou de volgende 'truc' uit kunnen halen.

TEMP = TEMP + 100; 

/*of +1000, net waar de verwachte waardes liggen binnen je systeem.*/

wat je nu hebt is dat 0 graden gecodeerd is als 100dec, en -100 graden ziet eruit als 0dec.

dan het volgende statement:

if (TEMP >= 100)
{
  print "-";
}
print TEMP;

code voorbeeldje is pseudocode, ik spreek geen basic.

Dat gaat niet werken. Omdat TEMP een signed word is krijg je

101
-100 (<-- 0 graden)
-99
-98
...
-1
-0
-65535
-65534

Gewoon een s voor die dec neerzetten is dus de meest simpele oplossing.

Op 11 april 2007 21:17:50 schreef xantus:
Dat gaat niet werken. Omdat TEMP een signed word is krijg je

101
-100 (<-- 0 graden)
-99
-98
...
-1
-0
-65535
-65534

Gewoon een s voor die dec neerzetten is dus de meest simpele oplossing.

Werkt perfect. Bedankt voor de tip !!

zoals in het andere topic dat je opende:

probeer eens een dword

dat is een 32 bit signed var in picbasic...

Op 11 april 2007 23:31:02 schreef Jeroen Boere:
zoals in het andere topic dat je opende:

probeer eens een dword

dat is een 32 bit signed var in picbasic...

Bedankt, ik ga dat eens proberen. Ik blijf het vreemd vinden dat er geen 1 of 2 byte types zijn hiervoor. Ook vreemd dat WORD unsigned is, en DWORD signed...

Op 11 april 2007 21:17:50 schreef xantus:
Dat gaat niet werken. Omdat TEMP een signed word is krijg je...

DIM Temp AS WORD

Ik ken picbasic niet, maar staat WORD niet voor een unsigned 16 bit getal? Neem in dat geval gewoon een ander variabele type als integer oid.

Op 12 april 2007 13:01:54 schreef jojo:
[...]
DIM Temp AS WORD

Ik ken picbasic niet, maar staat WORD niet voor een unsigned 16 bit getal? Neem in dat geval gewoon een ander variabele type als integer oid.

integer oid kent picbasic niet. Ook de toevoeging signed en unsigned niet....

Lees de manual even door.., vanaf blz48.

Signed: FLOAT, DWORD
Unsigned: WORD, BYTE, BIT

Alleen FLOAT is geen integer.

Ik blijf problemen houden. Deze code:

if TEMP >= 10 THEN
PRINT AT 2,11," ", SDEC Temp,%11011111,"A"
ELSE IF Temp >= 0 THEN
PRINT AT 2,11," ",SDEC Temp,%11011111,"B"
Else IF Temp > -10 THEN
PRINT AT 2,11," ",SDEC Temp,%11011111,"C"
ELSE
PRINT AT 2,11," ",SDEC Temp,%11011111,"D"
ENDIF

waarin Temp een DWORD is, komt niet in de laatste else tak (ik druk dan een D af achter de waarde). Als de waarde -12 is, wordt hij afgedrukt met C erachter.

Je IF THEN ELSE structuur is niet logisch, wat is de bedoeling?

Op 17 april 2007 19:48:08 schreef Henry S.:
Je IF THEN ELSE structuur is niet logisch, wat is de bedoeling?

De bedoeling van de if-then-else code is om de afgedrukte waarde rechts uit te lijnen. Het aantal spaties dat ik in de code heb staan wordt hier echter niet goed afgedrukt, dus lijkt het of alle takken hetzelfde doen. In de werkelijke code worden er in de 'A' tak 3 spaties afgedrukt, in de 'B' tak 2, in de 'C' tak ook 2, en in de 'D' tak 1 spatie.

Wat er nu gebeurt is dat de waarden kleiner dan -10 afgedrukt worden door de 'C' tak, en er wordt dus 1 spatie teveel afgedrukt.

Andere IF THEN ELSE maken, deze klopt niet, ga maar na. Je moet met grenzen werken.

Op 17 april 2007 23:00:59 schreef Henry S.:
Andere IF THEN ELSE maken, deze klopt niet, ga maar na. Je moet met grenzen werken.

Sorry, maar ik zie niet wat ik fout doe:

Als Temp >= 10 doe "A",
anders als Temp >= 0 (dus 0..9) doe "B",
anders als Temp > -10 (dus -9..-1) doe "C",
anders (dus Temp <= -10) doe "D".

Dus ik zou verwachten dat "D" wordt uitgevoerd als Temp bijv. -12 is.

Wat is er fout aan mijn code, cq redenatie ?

IF Temp >= 10 THEN
   PRINT AT 2,11,"   ", SDEC Temp,%11011111,"A"
ENDIF
IF Temp >-10 AND Temp <10 THEN
   PRINT AT 2,11,"  ",SDEC Temp,%11011111
   IF Temp >=0 THEN
      PRINT "B"
   ELSE 
      PRINT "C"
   ENDIF
ENDIF
IF Temp <=-10 THEN
   PRINT AT 2,11," ",SDEC Temp,%11011111,"D"
ENDIF

Dit is een optie, het kan nog efficienter maar dat bespaar ik je. De structuur dmv code-tags duidelijk gemaakt.

Ok, bedankt voor je reactie Henry. Je suggestie werkt, maar wat je doet is nu drie keer op een gebied testen. In de tweede test bekijk je of Temp kleiner is dan 10, terwijl je dat al kon weten uit de eerste IF (als die niet waar is, dan moet Temp dus kleiner zijn dan 10. Daarom gebruikte ik de ELSE. Waarom werkt dit niet in PicBasic? Zover ik weet werkt deze constructie in talen zoals "C" wel.

Het 'AND Temp <10' stukje is idd dubbel testen, mag weg, maar dan moet je extra ELSE's gebruiken.

IF Temp >= 10 THEN
   PRINT AT 2,11,"   ", SDEC Temp,%11011111,"A"
ELSE
   IF Temp >-10 THEN
      PRINT AT 2,11,"  ", SDEC Temp,%11011111
      IF Temp >=0 THEN
         PRINT "B"
      ELSE 
         PRINT "C"
      ENDIF
   ENDIF
ENDIF
IF Temp <=-10 THEN
   PRINT AT 2,11," ", SDEC Temp,%11011111,"D"
ENDIF

Welke is nu in een oogopslag duidelijker?
Dit is basic testen binnen grenzen wat heel overzichtelijk blijft.

Ok, ik zie wat je bedoelt. Ik heb nu m'n eigen code wat aangepast, en nu werkt het naar wens (zat ook nog een foutje in met aantal spaties):

  IF Temp >= 10 THEN
    PRINT AT 2,11,"  ", SDEC Temp,%11011111,"A"
  ELSE IF Temp >= 0 THEN
    PRINT AT 2,11,"   ",SDEC Temp,%11011111,"B"
  ELSE IF Temp > -10 AND Temp < 0 THEN
    PRINT AT 2,11,"  ",SDEC Temp,%11011111,"C"
  ELSE IF Temp <= -10 THEN
    PRINT AT 2,11," ",SDEC Temp,%11011111,"D"    
  ENDIF

Wat ik echter nog niet snap is dat de test Temp < 0 in de 2e ELSE tak nodig is. Als ik die weglaat wordt deze tak uitgevoerd als Temp < -10. Met deze test erbij wordt keurig code D uitgevoerd als Temp < -10. Mijns inziens is de test Temp < 0 overbodig omdat voor waarden > 0 de code A of B zou zijn uitgevoerd.

Ja, in A of B en C!

Pas op, ELSE IF is geen ELSEIF, manual blz. 240

ELSE
  IF bla=TRUE THEN 
     moo=1
  ELSE
     moo=2
  ENDIF
ENDIF

of

ELSEIF bla=TRUE THEN
  moo=1
ELSE
  moo=2
ENDIF

Proton+ is nogal strikt.

Behalve met eenregel sets:

IF x=10 THEN moo=0: ELSEIF x=20 THEN moo=1:ELSE:moo=3

Begint er al wat te koken, hier wel, ik doe dit droogzwemmend

Begint er al wat te koken, hier wel, ik doe dit droogzwemmend

De mist begint op te trekken. Bedankt voor je eindeloze geduld met deze PicBasic beginner....

Ik heb jaren met verschillende BASIC's gestoeid, vanaf de C64, beetje GW en veel Amiga BLITZ, tot zo'n 7-8 jaar geleden. En nu een half jaartje PROTON+ met lange onderbrekingen.

Dus ik spiek ook regelmatig, maar misschien interpreteer ik het wat gemakkelijker.

Weer 'n stukje manual gelezen. Ik moet dus ELSEIF gebruiken. Ik heb het nu aan het werk, met een minimum aan testen, maar moest daarvoor wel de laatste test omdraaien, en heb geen flauw idee waarom. Schiet mij maar lek.

Dus deze code werkt niet (komt niet in tak D voor bv -12):

  IF TEMP >= 10 THEN
    PRINT AT 2,11,"  ", SDEC Temp,%11011111,"A"
  ELSEIF Temp >= 0 THEN
    PRINT AT 2,11,"   ",SDEC Temp,%11011111,"B"
  ELSEIF Temp > -10 THEN
    PRINT AT 2,11,"  ",SDEC Temp,%11011111,"C"
  ELSE
    PRINT AT 2,11," ",SDEC Temp,%11011111,"D"    
  ENDIF

en deze code werkt wel (zou m.i. hetzelfde moeten werken):

  IF TEMP >= 10 THEN
    PRINT AT 2,11,"  ", SDEC Temp,%11011111,"A"
  ELSEIF Temp >= 0 THEN
    PRINT AT 2,11,"   ",SDEC Temp,%11011111,"B"
  ELSEIF Temp <= -10 THEN
    PRINT AT 2,11," ",SDEC Temp,%11011111,"D"
  ELSE
    PRINT AT 2,11,"  ",SDEC Temp,%11011111,"C"    
  ENDIF

Eerst maar eens even slapen lijkt me....

Ben weer wakker, maar nog geen idee waarom 't eerste stuk code anders werkt dan het tweede. Iemand anders misschien ?