Ik moet een programma maken die van 0,1,2,4,8,16,32,64 en 128 telt ( dus de machten van 2 ). Hier zie je een voorbeeld die van 1 tot 9 telt.
' Mijn dertiende programma'
Dim Bteller As Byte

Bteller = 1
While Bteller <10
Print Bteller
Incr Bteller Wend
End

Als er iemand goed met het programma BASCOM kan werken zou die me dan willen helpen. Want ik heb er al zo lang opgezocht maar ik vind de juiste oplossing niet.

Kijk eens naar de POWER functie.

Wat bedoel je met POWER functie?

Lees de manual eens...

Ik heb die cursus al gelezen maar snap die oefening niet en vroeg me af of iemand mij wil helpen.

Dan gooi je de volgende termen in de Help:

Dim
While-Wend
Print
Incr
End

Allemaal te vinden in de BASCOM Language Reference die in de Help staat van het programma.

Haha, de truuk met die machten van 2 is dat je moet schuiven...


&B00000001 =   1
&B00000010 =   2
&B00000100 =   4
&B00001000 =   8
&B00010000 =  16
&B00100000 =  32
&B01000000 =  64
&B10000000 = 128

Je begint met 1 (&B00000001) en schuift telkens 1 bit naar links. In BASCOM geloof ik de "Rotate ,, Left" functie...

Inzichtvraagje dus...

Of heb ik nou teveel verklapt >:)

[Bericht gewijzigd door djoveld op ]


Dim Waarde As Integer
Dim Macht As Integer
Waarde = 0
Macht = 0
While Waarde < 255
Rem Print Waarde
       Print Waarde
       Waarde = 2 ^ Macht
       Incr Macht
       Waitms 255
Wend
End

dit werkt in ieder geval

Waarde = Power(2,Macht)

gaf alleen maar een 1 terug.
succes

[Bericht gewijzigd door Stijnos op ]

Lezen is de truuk

The POWER function works for positive floating point variables only.

When you use a ^ b , the sign will be preserved.

While Excel does not allow raising a negative single, QB does allow it.

The Power functions uses less code compared with the code that is generated when you use ^ for floating point values.

It is important that you use single variables for both single and raise. Constants are not accepted.

ja maar zolang het hier hele getallen betreft, is de a ^ b methode net zo handig.