Springen naar inhoud


- - - - -
VB6 SOLVED

Letters En Getallen Converteren



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 18 december 2014 - 19:57

dag iedereen
Met onderstaande code converteer ik een woord/zin in een waarde/getal
Als ik bv huis invoer krijg ik 21
Als ik hond invoer krijg ik 23
enz

Alles werkt perfect.
Maar ik mag zo enkel letters invoeren

Ik zou ook willen dat ik naast letters ook getallen kan invoeren en dat die getallen mee geteld worden
bv
Huis 74
dan zou het resultaat 95 moeten zijn
en als ik huis 74 A invoer dan zou het resultaat 96 zijn

dank u
houthalen
Code:
Dim vet As Variant
Dim woord As String, Teken As String
Dim k As Integer, valcar As Integer, asciTeken As Integer, somKlinker As Integer

vet = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8)
woord = Trim(Text3.Text)
valcar = 0
On Error Resume Next 'indien geen data ingevoerd

For k = 1 To Len(woord)
Teken = Mid(UCase(woord), k, 1)
asciTeken = Asc(UCase(Teken)) - 65
Select Case asciTeken
Case 0, 4, 8, 14, 20, 24
valcar = valcar + vet(asciTeken)
somKlinker = somKlinker + vet(asciTeken)
Case 0 To 25
valcar = valcar + vet(asciTeken)
End Select
Next


Text11.Text = valcar 'som waarde van de ingevoerde letters






#2 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 20 december 2014 - 10:32

Ik heb het zelf opgelost
Zo:


Code:
Case -17 To -8
Valcar=Valcar+asciTeken+17



toch bedankt voor uw aandacht
Houthalen





Ook met taq VB6 SOLVED voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6 SOLVED] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)