[VB6] Backspace & Memory toets (rekenmachine)

[The System]

hey,

Voor school moeten we nu een rekenmachine maken, en dit is me al aardig gelukt. Maar nu ben ik bezig met een backspace toets en ik heb geen flauw idee hoe ik dat moet aanpakken. Leraar zelf weet het ook niet, maar hij beweerde dat het heel lastig was om te maken. We zijn met 3 man ofzo al een aantal dagen aan het bedenken hoe we het het moeten doen maar we zijn er nog niet uit .

en ten 2e wou ik vragen hoe je iets tijdelijk opslaat in de geheugen van een rekenmachine... hij werkt met drie commands, Memory+ Memory- en ShowMemory. Hier hebben we al helemaal geen kaas van gegeten, dus hulp zou welkom zijn

[The Dutch Dude]

ok, pak 1 globale variable 4, een double zou wel gepast zijn, omdat je er alle soorten getallen in gaat planten.
bij memory+ tel je de inhoud van het venster bij de inhoud van de variable op.
bij memory- haal je het ervanaf.
bij showmemory druk je het af in het venster.

om een globale variable te maken moet de de declaratie van de variabele bovenaan in een module zetten.

backspace, erm, misschien elke vorige toetsaanslag bijhouden en de vorige dan verwijderen, maar hoe dat moet, geen id..

[Michali]

Wat bedoel je met een backspace? Ok het laatste cijfer weghalen. Ik kan +- zeggen hoe je dat kan doen.
Heb het een tijdje niet gedaan dus het zal wel niet precies kloppen maar het gaat om het princiepe.
Ik ga er even van uit dat alle antwoorden in textbox komen te staan.
Dit komt in de event van je backspace button.

Visual Basic:

textbox.text = left(length(textbox.text - 1), textbox.text)

je textbox wordt dus vanaf het begin tot alle tekens min eentje van wat er al in stond. Ik weet niet of de parameters goed staan in left (gebruik het zelf zeer zelden) en of lenght nou wel echt zo heet. Dat moet je maar even opzoeken.

Dan die memory.

Je wil dus zoals normaal een m- m+ en m.

Deze komen dus ook in de click events van de betreffende button.

Natuurlijk van te voren een Public memvar as Double.

voor m

code:

textbox.text = str(memvar)

voor m+

code:

memvar = memvar + float(textbox.text)

voor m-

code:

memvar = memvar - float(textbox.text)

(jammer, in vb.net heb je += , eindelijk )

probeer er maar iets mee.

[The System]

dank u heren, ik zal het de eerstvolgende informatica les proberen in mijn code te proppen..

ik weet nu iig in welke richting ik moet denken..
en dat we geen vb.net hebben vind ik ook jammer want nu leren we iets wat eigenlijk al enigszinds verouderd is... maja dat gebeurt dan ook erg snel in pc land

[The System]

De memory zaken zijn inmiddels gelukt, alleen die backspace toets doet het nog niet, de code hierboven werkte niet.

de memory heb ik trouwens ook ietswat aangepast, ik heb namelijk die "float" niet gebruikt, maar het werkt wel prima
maar ik ben dus nog opzoek naar een backspace...

[Unifex]

O.s. zou moeten werken:
textbox.text = Left(textbox.text, Len(textbox.text) - 1)

[The System]

ik zal het straks tijdens mijn informatica les even proberen bedankt.

[johnwoo]

Unifex schreef op 16 oktober 2002 @ 07:50:
O.s. zou moeten werken:
textbox.text = Left(textbox.text, Len(textbox.text) - 1)

En wat als textbox al leeg is?
Ik zou er dan dit van maken:

code:

If textbox.Text <> "" Then textbox.Text = Left$(textbox.Text, Len(textbox.Text) - 1)

[Unifex]

dan zou ik nog eerder if len(textbox.text) > 0 then .......
is bij 10000 iteraties 0,00001 sec sneller

Oh een slotje een slotje please, nu voordat dit uit de hand loopt please:)