GWBasic

[mistaoutlaw]

Hoi.
Ik moet een programmaatje schrijven met GWBasic waarin een decimaal getal dat ingevoerd word omgezet wordt naar een binair getal.

Ik heb tot nu toe dit bedacht maar het klopt niet en ik kom niet verder

10 INPUT "Voer een decimaal getal in";D
20 IF D > 255 THEN PRINT "Hier kan geen binair getal van worden gemaakt"
30 IF D < 0 THEN PRINT "Hier kan geen binair getal van worden gemaakt"
40 B$ = "0"
50 TD = D
60 FOR I = 1 TO 8
70 IF TD >= 2^(8-i) THEN B = B$ + "1" ELSE B = B$ + "0"
80 IF TD >= 2^(8-i) THEN TD = TD - 2^(8-i)
90 NEXT I
100 PRINT B

ik krijg de volgende foutmelding:
Onjuist type in 60.

Hoe moet ik dit verbeteren en hoe moet ik verder?
Alvast bedankt ;x

[Tielenaar]

mistaoutlaw schreef op 14 March 2003 @ 16:55:
Hoi.
Ik moet een programmaatje schrijven met GWBasic waarin een decimaal getal dat ingevoerd word omgezet wordt naar een binair getal.

Ik heb tot nu toe dit bedacht maar het klopt niet en ik kom niet verder

[...]


ik krijg de volgende foutmelding:
Onjuist type in 60.

Hoe moet ik dit verbeteren en hoe moet ik verder?
Alvast bedankt ;x

Iets met hoofdlettergevoeligheid misschien?
ik zie dat je i en I gebruikt.

[mistaoutlaw]

nee want dat is omdat ik het zo type hier, GWbasic zet het zelf om naar hoofdletters.
Thx voor je reply though

[Baron]

B = B$ in regel 70 mag niet.

Voor de rest werkt het nog niet hoor

[ Voor 46% gewijzigd door Baron op 14-03-2003 17:27 ]

[Banzi]

idd B en B$...

Moest je in GWBasic ook nooit de stapgrootte aangeven???

Dan wordt het dus: FOR I = 1 to 8 STEP 1

[jurri@n]

Zie zo al een paar foutjes... b= b$ + "1" bijvoorbeeld...

je wilt een integer een string + een string maken? Zet ff een $ voor die achter b ! (deze fout zit 2x in regel 70 en 1 x op regel 100)

Als ik dat aanpas doet 'ie het hier goed hoor!

[ Voor 111% gewijzigd door jurri@n op 14-03-2003 17:42 ]

[mistaoutlaw]

ok thx voor jullie replies.
Ik had het zo voor ogen: ik heb een B ( het uiteindelijke binaire getal) die als waarde "" dus nix heeft. en voor elke TD die aan de eis voldoet moet ie er een 1 of een 0 achter plakken, zodat ie dus na 8 keer de hele rij heeft.
jurri@n ik zal het even proberen thx

[mistaoutlaw]

Thx alot mensen het werkt nu inderdaad!!!! Thx voor jullie replies jullie zijn lieV ;x
Nu ff wat mooier maken en zo hehe

Cya

[Verwijderd]

Trouwens, pak toch gewoon PDS Basic 7.1 daar kun je iig je basic code compileren naar een executable.

[mistaoutlaw]

dat zal ik volgende keer eens proberen, thx