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

• #886 sonar addikt Ndruu #885

  Új Válasz 2007-05-22 17:37:53 #886

  Ú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

  Privát üzenet küldése

  

  sonar

  addikt

  válasz Ndruu #885 üzenetére

  Jó öreg fősulis idők, ott még sörbe mérték a tudást

• #883 sonar addikt Ndruu #882

  Új Válasz 2007-05-22 14:05:27 #883

  Ú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

  Privát üzenet küldése

  

  sonar

  addikt

  válasz Ndruu #882 üzenetére

  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]

• #881 Polyák tag Ndruu #880

  Új Válasz 2007-05-22 12:16:06 #881

  Ú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

  Privát üzenet küldése

  

  Polyák

  tag

  válasz Ndruu #880 üzenetére

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

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