Discussione chiusa
Visualizzazione dei risultati da 1 a 6 su 6

estrazione numero casuale senza ripetizione del numero già estratto

  1. #1
    vinciencio non è in linea Novello
    ciao, mi presento
    sono vinciencio, ho 60 anni

    essendo un autodidatta e, conoscendo pochissimo visual basic,
    non avendo mai usato nè variabili, nè il ciclo for...next etc....
    ho cercato di risolvere i miei pseudo programmini utilizzando un pò di
    logica , qualche casella di testo, qualche label , qualche timer.... ed if...then


    sto cercando di fare una statistica sul gioco del lotto.....
    utilizzo visual basic in maniera molto elementare.....
    se mi poteste aiutare..... ve ne sarei molto grato...
    il problema è questo:

    cercare un numero ( ad es. il 12 ) in un intervallo di quaranta (o più numeri)

    e fare in modo che un numero (dei quaranta ) già trovato non
    venga più cercato.

    io, utilizzo: un timer, una label AX, una casella di testo A (dove metto il numero da cercare)
    quaranta label (da x1 a _x40 ) ..... e una label Contatore

    private sub timer1_timer ( )

    ax = int(40*rnd+1)....
    "poi, metto un contatore"
    contatore=contatore+1
    if contatore=1 then
    x1=ax
    end if
    if contatore=2 then
    x2=ax
    end if
    e cosi via fino ad x40.......
    poi dico:
    if ax=12 then
    timer1.enabled=false
    end if
    end sub
    cosi facendo, mi visualizza i numeri che cerca fino a quando non trova il numero che si trova in A.
    Noto però che, molti numeri vengono ripetuti......
    come posso fare per evitare la ripetizione dei numeri già usciti? grazie
    non discostatevi molto da questo codice perchè (conoscendo visual basic in maniera molto approssimativa ......avrei problemi nel capire).....
    sono sicuro invece che voi avete già capito....

    grazie infinite
    vinciencio

  2. #2
    L'avatar di bottomap
    bottomap non è in linea Amanuense
    Ciao,

    Dovresti inserire le richieste di carattere tecnico nella sezione appropriata... in caso contrario difficilmente otterrai una risposta. Inoltre è bene se specifichi quale versione di VB stai utilizzando... le cose possono cambiare parecchio tra il vecchio vb6 e le nuove versioni.

    Per questa volta sposto io la discussione...

    Ciaociao
    ℹ️ Leggi di più su bottomap ...

  3. #3
    L'avatar di Cteniza
    Cteniza non è in linea Amanuense
    A parte il fatto che dovresti mettere questo post sul forum di visual basic .. in alcuni casi, questo ad esempio, si fa prima a buttare via tutto e a riscrivere.
    Il fatto che non si vogliano usare, perchè non si conoscono molte istruzioni di visual basic non è una scusa.
    Esiste l'help in linea, esistono degli esempi di microsoft, guardiamoli, impariamo.
    Nessuno nasce imparato, tutti dobbiamo continuamente rinnovarci fino a quando saremo chiamati a scrivere sulle tastiere celesti.
    Se ti va di analizzarlo, questo è un mio esempio che fa quanto chiedi.
    Generazione numeri tombola con Visual Basic
    ℹ️ Leggi di più su Cteniza ...

  4. #4
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Quote Originariamente inviato da vinciencio Visualizza il messaggio
    non discostatevi molto da questo codice perchè (conoscendo visual basic in maniera molto approssimativa ......avrei problemi nel capire).....
    Quindi tu saresti uno che pur conoscendo poco o niente di come si guida, e delle regole stradali saleresti in auto comunque?
    Non so che lavoro tu faccia (o abbia fatto) ma di certo questo NON è il modo di procedere e dubito che tu l'abbia appreso così (ma dipende anche dallacomplessità del lavoro stesso).

    Imparare a programmare è una cosa seria, anche fatta per hobby. E te lo dice uno che ha iniziato diversi anni fa SOLO per hobby. Ma se non avessi comprato libri e studiato con perseveranza, sarei ancora in braghe di tela.

    Prima si studiano le basi di un linguaggio di programmazione, le funzioni, le proprietà e gli eventi.
    Poi ci si mette a programmare.

    Al massimo si potrà scrivere qualche riga di codice per sperimentare i risultati sulla teoria che si sta studiando, cioè libri alla mano.

    Quote Originariamente inviato da vinciencio Visualizza il messaggio
    sono sicuro invece che voi avete già capito....
    Al contrario! Per noi è veramnete faticoso seguire codice così mal fatto.

    Ciao
    ℹ️ Leggi di più su gibra ...

  5. #5
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Cteniza, ho osservato il tuo esempio ma non riesco ad applicarlo : #Private Function Estrai() As Integer()
    Dim Numeri As Collection
    Dim Estratti(89) As Integer 'da 0 a 89
    Dim k As Integer, iPos As Integer, Estratto As Integer
    Randomize
    Set Numeri = New Collection
    'Popoliamo la collection con i 90 numeri
    For k = 1 To 90
    Numeri.Add k, CStr(k)
    Next
    'ad ogni step i limiti della funzione rnd diminuiscono di 1
    For k = 90 To 1 Step -1
    iPos = Int((k * Rnd) + 1)
    Estratto = CInt(Numeri.Item(iPos))
    Numeri.Remove (iPos)
    Estratti(90 - k) = Estratto
    Next
    Estrai = Estratti
    End Function#
    ℹ️ Leggi di più su queen_live78 ...

  6. #6
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    Non ha senso riesumare discussioni così vecchie. I motivi, per quanto ovvi, sono stati spiegati più volte

    Queen_live78, ti invito nuovamente a leggere il regolamento del forum ed ad attenerti ad esso.

    Chiudo.
    ℹ️ Leggi di più su Brontolo ...

Discussione chiusa

Potrebbero interessarti anche ...

  1. Numero casuale in un determinato intervallo di numeri.
    Da acer1629 nel forum Adobe Flash, ActionScript
    Risposte: 1
    Ultimo Post: 18-10-2011, 19:23
  2. Risposte: 6
    Ultimo Post: 31-07-2011, 14:49
  3. Estrazione dei divisori non-primi dato un numero n.
    Da jess46 nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 19-07-2011, 12:21
  4. [F8- AS 2.0] Numeri Random - Esclusione numero estratto
    Da San_Salvario nel forum Adobe Flash, ActionScript
    Risposte: 7
    Ultimo Post: 09-05-2007, 10:14
  5. [VB6] estrazione di un numero da 1 a 30
    Da dolcissimo nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 30-12-2006, 19:25