entäs kun, on ohjelma joka rivittää numerot, ja sitten pitäis pystyy kääntää ne numerot kirjaimiks toiseen laatikkoon...
Function Kaanna(rivi As String) As String
rivi = strRivitetty
Chr(BinToDes(rivi))
End Function
'Varmaan ymmärrät mitä olen tekemässä, mutta miten saisin homman toimimaan?
lainaus:
entäs kun, on ohjelma joka rivittää numerot, ja sitten pitäis pystyy kääntää ne numerot kirjaimiks toiseen laatikkoon...
Käytä Asc funktiota:
joo tiedän ascin, mutta kun käännän binäärit numeroita kirjaimiks, aina 8 merkkiä vastaa yhtä kirjainta, ja aina ne 8 pitäis kääntää.
vihjeenä:
kun käännetään binäärit kirjaimiksi, niin binäärit desimaaleina on juuri tuo asc arvo, ja siitä pitää ottaa se normaali kirjain eli käytetään Chr:iä.
Aihe on jo aika vanha, joten et voi enää vastata siihen.