[dpm1did1]

Not a complete noobie as i have a fair bit of PC experience, albeit mostly hardware, so i decided to add a software qualification to my engineering stuff....and i hit a bit of a VB snag

Requirement: a simple encryption program

easy peasy - using keycodes, or so it should

'single chr to ASCII to chr (automatic)
Private Sub Txt1_keyup(keycode As Integer, shift As Integer)
Label1.Caption = keycode 'encode function
Label2.Caption = Chr(keycode) 'decode
End Sub

entered text converts to ascii fine, but converts back incorrectly- as shown in the tests below:

eg. input chr : input ascii : incorrect label1 ascii : incorrect chr returned
a 97 65 A
A 65 65 A
z 122* 90 Z
Z 90 90 Z
1 49 49 1

in short, A-Z,0-9 are fine, but a-z code/decode to A-Z !!!!!!!

any ideas? surely it cant be that difficult but i am a little stumped as the rest of my little encryption stuff goes fine!- is it just a bad day?

VMT...D

Edited by dpm1did1, 24 May 2006 - 05:50 AM.

[Advertisements]

u just need the proper Chr(#) code
like if you wanted to do " then you would insert & Chr(34) &
i used it for my myspace generator i made. hopefully it'll help you

[KenshinX]

u just need the proper Chr(#) code
like if you wanted to do " then you would insert & Chr(34) &
i used it for my myspace generator i made. hopefully it'll help you

[Hai Mac]

Hi,
VB Keycodes and ASCII are two different things: When you press "A" on your keyboard, VB does not distinguish between "a" and "A", essentially you pressed the same key.
What you have to do is to replace the txt1_keyup with txt1_keypress. Keypress uses ASCII not VB Keycodes

Hope that helped

[KenshinX]

Hi,
VB Keycodes and ASCII are two different things: When you press "A" on your keyboard, VB does not distinguish between "a" and "A", essentially you pressed the same key.
What you have to do is to replace the txt1_keyup with txt1_keypress. Keypress uses ASCII not VB Keycodes

Hope that helped

o sorry i just realized i posted that in wrong forum there was a similar question in another so im sorry about that

[dpm1did1]

Many thanks for the replies..

"VB Keycodes and ASCII are two different things" - thx, guessed as much =but couldnt find a definite reference for it. So near yet so far!

"replace txt1_keyup with txt1_keypress. Keypress uses ASCII not VB Keycodes" - so easy to fix, pity my learned college instructor didnt just tell us that in the first place [ admittedly he is more C++ and flash oriented but i was left rather ]

i shall look at revising my code and fingers x'ed it will all work out well!

if not then i shall fudge it like i did for C++, VBA, SQL etc etc etc

[Hai Mac]

hope everything's gonna be fine
Cheers

[dpm1did1]

here is the code i eventually used:

Private Sub Txt1_KeyPress(keyAscii As Integer)
Label1.Caption = keyAscii 'encode function
Label2.Caption = chr(keyAscii) 'decode

rather than---
Private Sub Txt1_keyup(keycode As Integer, shift As Integer)
Label1.Caption = keycode 'encode function
Label2.Caption = Chr(keycode) 'decode

such subtle differences!

many thanks to one and all