Ik zit met het volgende:

If urentoets = 1 Then
    bit1 = 1
    EndIf

Eigenlijk wil ik meerdere toetsen hetzelfde laten uitvoeren.
Dus If urentoets = 1 or mintoets = 1 or modetoets = 1 then
bit1 = 1
endif

Nu heb ik totaal 5 toetsen en dit lijkt me niet helemaal de weg.
Iemand een beter voorstel?

Hoi tokko,

Voor zover ik begrijp wat je wil doen, denk ik dat je een andere constructie kan gebruiken zoals; on "urentoets" -> (sub programma)
(1) bit1 = 1 (2) bit"2" = 1 enz.
Even nakijken hoe je zo'n constructie kan maken met jouw basic interpreter.

Ben

Hoi tokko,

geloof dat ik je vraag niet helamaal goed gelezen heb,een trein van or's is best goed mogelijk zonder problemen, het hangt meer af van hoe perfect wil je een constructie in elkaar zetten, er is namelijk bijna altijd wel een manier om iets korter of "efficienter" te doen, maar loont het ook de moeite??

Ben

zijn urentoets en mintoets enz. integers of booleans?

Op 8 december 2011 11:18:45 schreef noone:
zijn urentoets en mintoets enz. integers of booleans?

Bool

Of je dit eenvoudiger vindt weet ik niet, het is maar een idee
If toets1 = then bit1 = 1 endif
If toets2 = then bit1 = 1 endif
If toets3 = then bit1 = 1 endif
.
.
.

If toetsX = then bit1 = 1 endif

Hoi tokkoo,

Nog een andere optie is me tebinnen geschoten,

even aangenomen dat alle toetsen aangesloten zijn op dezelfde poort;
in dat geval kan je een instructie nemen waarmee je de poort leest,
de uitkomst daarvan AND-en met een getal, en dan testen of de waarde 1 of 0 is.

Bijv. je hebt de toetsen aangesloten op de bits 2-3-4 en 5 van een poort.
lees dan de poortwaarde en voer de instructie "and 60" uit,
60 binair heeft de bits 2 t/m 5 hoog staan, zo copieer je de relevante bits uit de poort.
Met het resultaat kan je testen of het 0 of <> dan nul is en zodoende de gewenste bit 1 zetten.
dan werken alle toetsen met die bit.

groet, ben

Op 8 december 2011 18:07:38 schreef hadv:
Of je dit eenvoudiger vindt weet ik niet, het is maar een idee
If toets1 = then bit1 = 1 endif
If toets2 = then bit1 = 1 endif
If toets3 = then bit1 = 1 endif
.
.
.

If toetsX = then bit1 = 1 endif

Dat had ook gekund, ik heb toch maar voor:

If urentoets = 1 Or minutentoets = 1 Or modetoets = 1 Or exit = 1 Then
    bitbl = 1
    EndIf

gekozen.
In elk geval bedankt voor het meedenken.

ik weet niet of het mag in Proton, in andere talen mag je '=1' in vergelijkingen met Booleans ook weglaten.

Gewoon alle toetsen paralel zetten ? , of 1 toets voor alle fucnties ?

@noone: ik ben dat ook gewend en krijg dan telkens compiler errors omdat dat in Proton dus net weer niet mag.
Een boolean variabele bestaat officieel niet in Proton, het is alleen een bit.

[Bericht gewijzigd door hadv op (27%)]

Wat tokkoo doet mag je naar mijn idee ook met bit's byte's word en dword doen.
Ik heb er nog niet heel veel mee gedaan, maar zoals in voorbeeld had ik er geen problemen mee met proton ;)
[EDIT] of het moeten er te veel worden, dan gaat hij wel in de stress

[Bericht gewijzigd door Fredjuhh op (16%)]