Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák

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

  • sonar sonar addikt
    #883
    #882 Ndruu
    Ú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
    sonar
    sonar
    addikt
    #882 Ndruu

    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]

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