[VB6] Keypad noob vraagje

[Maku]

Ok ik ben dus voor school al ff bezig met en rekenmachientje maar ik vond het wel handig als ik met mijn keypad m ook aan kom stuuren nou ben ik al even onderweg maar het wil niet lukken wat ik heb :

code:

Dim store1 As Currency
Dim store2 As Currency
Dim operator As String

Private Sub acht_Click()
    Display.Text = Display.Text + "8"
End Sub

Private Sub close_Click()
   Unload Main
End Sub

Private Sub drie_Click()
   Display.Text = Display.Text + "3"
End Sub

Private Sub een_Click()
   Display.Text = Display.Text + "1"
End Sub

Private Sub geddoor_Click()
   store1 = Val(Display.Text)
   operator = "/"
   Display.Text = ""
End Sub

Private Sub is_Click()
   store2 = Val(Display.Text)
   If operator = "-" Then uitkomst = store1 - store2
   If operator = "+" Then uitkomst = store1 + store2
   If operator = "X" Then uitkomst = store1 * store2
   If operator = "/" Then uitkomst = store1 / store2
Display.Text = uitkomst

End Sub

Private Sub keer_Click()
   store1 = Val(Display.Text)
   operator = "X"
   Display.Text = ""
End Sub

Private Sub Komma_Click()
   Display.Text = Display.Text + ","
End Sub

Private Sub min_Click()
   store1 = Val(Display.Text)
   operator = "-"
   Display.Text = ""
End Sub

Private Sub negen_Click()
   Display.Text = Display.Text + "9"
End Sub

Private Sub nul_Click()
   Display.Text = Display.Text + "0"
End Sub

Private Sub plus_Click()
    store1 = Val(Display.Text)
    operator = "+"
    Display.Text = ""
End Sub

Private Sub twee_Click()
   Display.Text = Display.Text + "2"
End Sub

Private Sub vier_Click()
   Display.Text = Display.Text + "4"
End Sub

Private Sub vijf_Click()
   Display.Text = Display.Text + "5"
End Sub

Private Sub wis_Click()
   Display.Text = ""
End Sub

Private Sub wisalles_Click()
   Display.Text = ""
End Sub

Private Sub zes_Click()
   Display.Text = Display.Text + "6"
End Sub

Private Sub zeven_Click()
     Display.Text = Display.Text + "7"
End Sub

Maar nu dus met je numpad

Ik ben tot zo ver :

code:

Private Sub Display_Change()

If vbkeyadd = ???? Then
    store1 = Val(Display.Text)
      operator = "+"
      Display.Text = ""
End if
End Sub

maar dat werkt dus niet ik kan het nergens in mijn boek vinden en op internet ook niet, ik weet het het is een noob vraagje maar ik erger me de &@%@(*&$^er aan dat het niet wil lukken

Can anyone help me please ?

[Verwijderd]

id college?

[Maku]

Op woensdag 20 maart 2002 18:30 schreef 00fly747 het volgende:
id college?

Yep maar dit is voor mezelf staat niet in de opdracht ! en ik kan het ook niet in me boek vinden

[Verwijderd]

Zoek eens op KeyPress

[Maku]

Me helpfunctie is naar de bagger in vb

Zou iemand het voor me willen maken ? althans het laatste stukje text of een programma source geven waar ook dmv toetsen dingen aangestuurd worden , het is maar heel simpel maa rik kom er maar niet op

[Verwijderd]

code:

Private Sub Form_KeyPress(KeyAscii As Integer)
    Select Case Chr(KeyAscii)
      Case "1"
        MsgBox "Een"
      Case "2"
        MsgBox "Twee"
      Case "/"
        MsgBox "Gedeeld door"
    End Select
End Sub

[Maku]

ik ga ff priegelen

[Maku]

Als ik

code:

Private Sub Form_KeyPress(KeyAscii As Integer)
    Select Case Chr(KeyAscii)
      Case "/"
        store1 = Val(Display.Text)
        operator = "/"
        Display.Text = ""
      Case "+"
        store1 = Val(Display.Text)
        operator = "+"
        Display.Text = ""
      Case "*"
        store1 = Val(Display.Text)
        operator = "X"
            Display.Text = ""
     End Select
End Sub

Doe dan vult hijgewoon een + * of / in mijn invoer schermpie

het doet dus niets

[Maku]

Ik dacht dat het een N00B vraagje was

[Sponge]

Op woensdag 20 maart 2002 19:09 schreef 001Michael het volgende:
Als ik

code:

Private Sub Form_KeyPress(KeyAscii As Integer)
    Select Case Chr(KeyAscii)
      Case "/"
        store1 = Val(Display.Text)
        operator = "/"
        Display.Text = ""
      Case "+"
        store1 = Val(Display.Text)
        operator = "+"
        Display.Text = ""
      Case "*"
        store1 = Val(Display.Text)
        operator = "X"
            Display.Text = ""
     End Select
End Sub

Doe dan vult hijgewoon een + * of / in mijn invoer schermpie


het doet dus niets

Voor elke case:
-Zet waarde van textbox in stor1
-Geef operator het teken van de operatie
-Maak de display textbox leeg

Dus de code hierboven doet dat helemaal niet

[Sponge]

Trouwens..je code is nogal..inefficient.

Gebruikt een control array en voor de getallen je gewoon de index van de control pakken (waarschijnlijk wel index +1) en je hebt gewoon het zelfde resultaat, kun je alle code onder cmdeen,twee, drie etc. weg halen... en maar onder een event neerzetten

check pscode.com voor wat rekenmachines, geeft misschien wat input... hoe het ook (of anders) kan

[Maku]

Op woensdag 20 maart 2002 20:02 schreef 41.6C.6D.61.72 het volgende:

[..]

Voor elke case:
-Zet waarde van textbox in stor1
-Geef operator het teken van de operatie
-Maak de display textbox leeg

Dus de code hierboven doet dat helemaal niet

JA idd ik heb ook nog een is knop oftewel ik moet de enterknop linken aan de uitreken ( is knop )

[Maku]

Op woensdag 20 maart 2002 20:05 schreef 41.6C.6D.61.72 het volgende:
Trouwens..je code is nogal..inefficient.

Gebruikt een control array en voor de getallen je gewoon de index van de control pakken (waarschijnlijk wel index +1) en je hebt gewoon het zelfde resultaat, kun je alle code onder cmdeen,twee, drie etc. weg halen... en maar onder een event neerzetten

check pscode.com voor wat rekenmachines, geeft misschien wat input... hoe het ook (of anders) kan

Maar het is dan ook mijn 4r programma ofzow ik ben echt nog een beginner

[Verwijderd]

Heej, jij zit bij mij in de klas!!

maare, kan je niet een scriptje maken die kijkt welke toets is ingedrukt en dan het teken dat bij die toets hoord in die display zet??

[Verwijderd]

btw, kon je geen toets aan een commandbutton linken?? volgens mij heb ik dat wel is gedaan.

[Maku]

Niemand

[Verwijderd]

wat nou als je de tekens doorgeeft in Ascii code en niet als String, of zit ik nou echt in het rond te lullen

[Verwijderd]

ik heb em gevonden:

code:

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKey1 Then
      blablabla
    End If
End Sub

vbkey1 is toets '1'
dus als je de 1 indrukt doet ie blablabla...

snapje..

grtz jim

ps. kijk anders ff in je boek op blz 154 bovenaan

[Maku]

Hey thanx ik ga het even proberen ik denk wel dat het werkt