Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 19
  1. #1
    Utente di HTML.it L'avatar di HammerFist
    Registrato dal
    May 2005
    Messaggi
    1,110

    Variabile con numero random alfanumerico

    Avrei bisogno che il contenuto di una variabile sia un elemento alfanumerico di 4 cifre che si genera da solo...
    voi come fareste?

  2. #2
    due funzioni

    RND : che ti restituisce un numero random
    CHR : che - dandogli in pasto un numero - ti restituisce un carattere ... CHR(64) e' 'A', CHR(65) e' 'B', ecc

    condire con ragionamenti propri per ottenere la pietanza finale

  3. #3
    codice:
    Function creaKey() 
      vLungh = 4	
    	Randomize
      For xx = 1 To vLungh
        creaKey = creaKey & Chr(Int((126 - 48 + 1) * Rnd + 48))
      Next 
    End Function
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  4. #4
    Utente di HTML.it L'avatar di HammerFist
    Registrato dal
    May 2005
    Messaggi
    1,110
    Grazie mille!

  5. #5
    Originariamente inviato da lufo5
    codice:
    Function creaKey() 
      vLungh = 4	
    	Randomize
      For xx = 1 To vLungh
        creaKey = creaKey & Chr(Int((126 - 48 + 1) * Rnd + 48))
      Next 
    End Function
    secondo me nn va...e quando uscirebbe?
    Visto ke è ricorsiva=?
    ..o mi sfugge qcosa?

    VaneX

  6. #6
    ricorsiva de chè? è una funzione con uno stupidissimo cilo for-next
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  7. #7
    Originariamente inviato da lufo5
    ricorsiva de chè? è una funzione con uno stupidissimo cilo for-next
    quando metti il nome della funzione *a destra* del segno di uguale, asp potrebbe essere tentato di richiamare (in maniera ricorsiva) la funzione stessa...

    forse non dara' errore, ma io comunque userei una variabile d'appoggio, cosi' (passerei anche la lunghezza, tanto per farla un po' piu' flessibile...)

    codice:
    Function creaKey(vLungh) 
    
      Dim sWork, xx
      Randomize
      For xx = 1 To vLungh
        sWork = sWork & Chr(Int((126 - 48 + 1) * Rnd + 48))
      Next 
      CreaKey = sWork
    
    End Function

  8. #8
    tutto codice inutile.. funziona già così.
    ah.. asp non è tentato da nulla. I nomi delle funzioni all'interno delle stesse sono variabili, punto e basta, altrimenti non potresti nemmeno valorizzarla, come hai fatto te nell'ultimo passaggio.
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  9. #9
    Originariamente inviato da lufo5
    tutto codice inutile.. funziona già così.
    ah.. asp non è tentato da nulla. I nomi delle funzioni all'interno delle stesse sono variabili, punto e basta, altrimenti non potresti nemmeno valorizzarla, come hai fatto te nell'ultimo passaggio.
    ho detto *a destra*. quando la valorizzo e' a sinistra. anche se funziona come dici tu, e' piu' forte di me scrivere codice 'pulito'.

    (IMHO, il fatto che non dia errore potrebbe essere considerato un malfunzionamento...)

  10. #10
    punti di vista... sappi che quell'"errore" c'è.
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.