Ik ben bezig om een toetsscreen uit te lezen ,ik krijg wel de waarde x en y deze waarde kan ik ook zichtbaar maken .
Nu is mijn probleem om te kijken welke toets ingedrukt is .
Ik heb dit submenu gemaakt maar de waarde 'toets' krijg ik niet op het scherm.
Wat kan ik hier aan doen.
welketoets:
Select case X 'kijk naar de x waarde
Case 50 To 38 : kol = 10
Case 36 To 24 : kol = 20
case 22 To 10 : kol = 30
Case Else kol = 0
End Select
Select case Y 'kijk naar de y waarde
Case 40 To 34 : Rij = 1
Case 32 To 24 : Rij = 2
Case 22 To 14 : Rij = 3
Case Else Rij = 0
End Select
toets = kol + Rij ' tel de kolom en de rij op dit is de waarde van de toets
print at 1,1,"waarde x",dec x
print at 3,1,"waarde y",dec y
print at 6,1, dec2 toets ' testregel voor uitlezen waarde deze is alleen voor te testen
delayms 500
Return
hadv
Just find out what you like and let it kill you
Dit doe ik ff uit mijn hoofd...
Zet in de printregel "Dec2 toets". Wellicht dat de waarde van toets 0 is, ik weet niet zeker of er dan iets wordt afgedrukt. Met Dec2 dwing je 2 posities af.
marcob
Honourable Member
People tend to overestimate what can be done in one year and to underestimate what can be done in five or ten years
Lukt het helemaal niet om de tekst op het scherm te krijgen, of alleen de waarde toets niet?
ik zie in je vorige topic dat het een probleem was en ook niet lukte.
xwaarde toegevoegd
ywaarde toegevoegd
dit krijg ik te zien in het display.
Als ik op het middelste vakje druk is de waarde x30 y27 , dit zzou dus toets =22 moeten geven .
het lijkt erop dat de berekening niet klopt of overgeslagen word.
@hadv ik heb er dec 2 van gemaakt ,nu krijg ik 00 te zien
@marcob de losse x waarde en y waarde krijg ik wel op het scherm en de toets waarde blijft 0
en het vorige topic is opgelost
[Bericht gewijzigd door 19roland70 op (55%)]
Kan jou compiler wel over weg met Case 50 To 38.
en daar bedoel ik mee dat je van 50 tot 38 gaat ipv 38 tot 50.
En denk er aan dat er bij 37 en 23 niks gebeurt. (wordt wel 0 dan)
[Bericht gewijzigd door 2N3055 op (22%)]