Zamena slova

Zamena slova

offline
  • Feky 
  • Ugledni građanin
  • Pridružio: 03 Maj 2005
  • Poruke: 482
  • Gde živiš: Senta

Interesuje me kako bi mogao da izvedem da kad otkucam u jedan text box slovo A,u drugom da mi ispise slovo Z.I tako bi za svako slovo bio jedno suprotno slovo...

Ako neko hoce,neka mi da neki code,sa kojim to mogu postici.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

Evo ti teorijski pa ti pretoci to u progi (tako ces nauciti).

U niz ubaci sve karaktere. Kada u TextBox ukucas A izvuces index na kome se nalazi taj karakter A. Taj isti niz pocnes da citas od nazad (znaci da ti sada Z bude prvo i samo mu kazes da ti dohvati karakter koji se nalazi na polju gde je index 1 (koji si prethodno sacuvao citanjem polozaja karaktera A) i to je to.

Ovo mi je prvo palo na pamet. Mozes da dosta nacini to resiti.



offline
  • Pridružio: 15 Jul 2005
  • Poruke: 36
  • Gde živiš: Cacak

mozda je ovo ipak jednostavnije resenje:
Private Sub Text1_KeyPress(KeyAscii As Integer)     If KeyAscii > 64 And KeyAscii < 91 Then 'velika slova (65=A 90=Z)         Text2.Text = Chr$(90 - (KeyAscii - 65))     Else         If KeyAscii > 96 And KeyAscii < 123 Then 'mala slova (97=a 122=z)             Text2.Text = Chr$(122 - (KeyAscii - 97))         End If     End If End Sub

Ko je trenutno na forumu
 

Ukupno su 462 korisnika na forumu :: 13 registrovanih, 2 sakrivenih i 447 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Insan, ladro, miodrag, raketaš, Raptor1, royst33, vlvl, VP6919, wizzardone, yrraf, zlatkoa987, zlaya011