+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Numeri Casuali

  1. #1
    L'avatar di BLUES
    BLUES non è in linea Scribacchino
    Luogo
    ROMA
    Post
    1,315

    Numeri Casuali

    Sto cercando un modo di mischiare i 4 button, praticamente inserisco i codici

    codice:
    Dim nRisposta1 As String = CType(QRMultiplaBindingSource.Current("A"), String)
    Dim nRisposta2 As String = CType(QRMultiplaBindingSource.Current("B"), String)
    Dim nRisposta3 As String = CType(QRMultiplaBindingSource.Current("C"), String)
    Dim nRisposta4 As String = CType(QRMultiplaBindingSource.Current("D"), String)
    giusto per provare:

    codice:
    For I = 1 To 4
           Controls("Button" & I).Text = ...("nRisposta2")
    Next I
    voglio solo sapere cosa devo scrivere al posto dei tre puntini come se fosse controls o avete suggerimenti migliori?
    BLUES

  2. #2
    Sgrubak non è in linea Scolaretto
    Luogo
    Torrazza Piemonte
    Post
    341
    Se ho capito cosa intendi, devi organizzare le risposte in un array e quando assegni la proprietà Text, sfrutti il contatore del ciclo come indice dell'array
    codice:
    Dim Risposte() as String
    
    Risposte(0) = CType(QRMultiplaBindingSource.Current("A"), String)
    Risposte(1) = CType(QRMultiplaBindingSource.Current("B"), String)
    Risposte(2) = CType(QRMultiplaBindingSource.Current("C"), String)
    Risposte(3) = CType(QRMultiplaBindingSource.Current("D"), String)
    
    For I = 1 To 4
           Controls("Button" & I).Text = Risposte(I)
    Next I
    Ma così non sono casuali. Devi usare un oggetto Random.

  3. #3
    L'avatar di BLUES
    BLUES non è in linea Scribacchino
    Luogo
    ROMA
    Post
    1,315
    Quote Originariamente inviato da Sgrubak Visualizza il messaggio
    Se ho capito cosa intendi, devi organizzare le risposte in un array e quando assegni la proprietà Text, sfrutti il contatore del ciclo come indice dell'array
    codice:
    Dim Risposte() as String
    
    Risposte(0) = CType(QRMultiplaBindingSource.Current("A"), String)
    Risposte(1) = CType(QRMultiplaBindingSource.Current("B"), String)
    Risposte(2) = CType(QRMultiplaBindingSource.Current("C"), String)
    Risposte(3) = CType(QRMultiplaBindingSource.Current("D"), String)
    
    For I = 1 To 4
           Controls("Button" & I).Text = Risposte(I)
    Next I
    Ma così non sono casuali. Devi usare un oggetto Random.
    Si conosco Random e stanotte ho risolto in un'altro metodo, ho dovuto rinonimare i campi A, B, C, D in R1, R2, ecc....

    codice:
    Dim nRisposta As String = CType(QRMultiplaBindingSource.Current("R" & Cstr(nRnd)), String)
    
    For I = 1 To 4
           Controls("Button" & I).Text = nRisposta
    Next I
    e fa ciò che mi serviva ma questa sera proverò anche dal tuo suggerimento giusto per imparare, grazie.
    BLUES

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi