Új hozzászólás Aktív témák

• Ndruu MODERÁTOR

  #885

  #883 sonar

  2007-05-22 14:48:03

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Ndruu

  MODERÁTOR

  #883 sonar

  #883 sonar

  Ki kommentezem hátha meg érted, megy ez fejből is, és nem nehezebb mint egy másodfoku egyenlet megoldása
  
  Dim ch As String - ch szöveges változó deklarálása
  Const basic As String = ''Basic'' - basic szöveges konstans megadása. basic konstans ''Basic'' stringet tartalmazza
  
  Dim p As Integer - p integer változó deklarálása
  For p = 1 To Len(basic) - p=1 től len(basic)- ig; len(basic)= a konstansban tárolt string hossza, ez itt 5
  
  ch = Mid(basic, p, 1) - ch= az adott pozició betüje (mid parancs, (sting, kezdőpoz, hány karaktert adjon vissza))
  s = s + Chr(Asc(ch) + 1); - összefűzi a stringet meg kicsit varázsol vele (egyel növeli)
  Next p
  ennyi
  max 5 perc fejbe, lapon kevesebb
  
  [Szerkesztve]

  nagyon köszönöm! így már valamivel érthetőbb... lényeg hogy meglett az a fránya 2es és ezzel megvan a 2kreditecske is

• Ndruu MODERÁTOR

  #882

  #881 Polyák

  2007-05-22 13:23:46

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Ndruu

  MODERÁTOR

  #881 Polyák

  #881 Polyák

  Hali!
  Nos megnéztem. Az s értéke ''Cbtjd''.
  [link]

  köszi! azért érdekes hogy ezt nekem fejből kellett volna kitalálni... de ma írtam belőle és meglett a tárgy...

• Ndruu MODERÁTOR

  #880 2007-05-22 00:20:26

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Ndruu

  MODERÁTOR

  hello! érdeklődnék hogy tudnátok-e segíteni, mert abszolut értetlen vagyok ebben a VB-ben, de programozás tárgyhoz kell... van egy vmi programrészem és arról kellene eldöntenem hogy mit ad ki eredményül... de mivel nem értek hozzá és VB sincs a gépemen ezért foggalmam sincs... a részlet a következő
  
  Dim ch As String
  Const basic As String = ''Basic''
  Dim p As Integer
  For p = 1 To Len(basic)
  ch = Mid(basic, p, 1)
  s = s + Chr(Asc(ch) + 1);
  Next p
  
  és az a kérdés hogy mi lesz s értéke... azt kiderítettem hogy a basic feliratott olvassa be és abból válogat ki vmi betűket, de nem értek hozzá... szal plz help
  
  előre is köszönöm

Új hozzászólás Aktív témák