Ú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

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