Tekstcoderen in VB

[JenPi]

Hallo,

ik volg momenteel een cursus VB.net en moet volgende oefening maken (ik heb een gelijkaardig bericht gevonden op het forum maar het mijne is net iets anders, en net op dat deel loop ik vast)
Ik heb een textbox txtIn voor tekst invoer en een textbox txtUit voor de tekst uitvoer en een knop btnCodeer.
De tekst moet omgezet worden door de asc per letter +5 op te tellen.

Dit doe ik als volgt:

For i As Integer = 1 To Len(txtIn.Text)
txtUit.Text = txtUit.Text & Chr(Asc(Mid(strEen, i, 1)))
Next

Maar ik zou nog een tussenstap moeten doen. Eenmaal ik bij de asc van de letter 5 heb toegevoegd, moet ik controleren of deze waar in het letterbereik valt
(65-90 is A -Z en 97-122 is a - z)
Indien het buiten letterbereik valt, moet ik van de code 26 aftrekken.

"Je neemt de asc waarde van de letter en telt er 5 bij op.
Dan controleer je of de waarde boven 122 ligt (kleine letters) als het zo is -26
ANDERS controleer je of de waarde boven 90 ligt, (grote letters) indien zo -26
Hetgeen je nu hebt zet je terug om naar character"

Maar hier loop ik dus op vast...

Iemand die me verder kan helpen?

Bedankt!
Jen

 

[wampier]

Gewoon tijdelijk de waarde opslaan?

For i As Integer = 1 To Len(txtIn.Text)
tijdelijk = Asc(Mid(strEen, i, 1)) + 5
if (tijdelijk > 122) OR ( tijdelijk > 90 AND tijdelijk < 97) then
    tijdelijk = tijdelijk -26
end if
txtUit.Text = txtUit.Text & Chr(tijdelijk)
Next

Ik ga er hier van uit dat "strEen" ook werkelijk de juiste tekst bevat natuurlijk. Maar het zou netter zijn hier gewoon

tijdelijk = Asc(Mid(txtIn.Text, i, 1)) + 5

te gebruiken

 

[JenPi]

Inderdaad, tijdelijk opslaan dus!

Bedankt!