Visual Basic 6 - Estrarre numeri

Forum - Visual Basic 6 - Estrarre numeri - Pagina 2

Pagine: [ 1 2 3 ]

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 11:39
Venerdì, 17/11/2017

il primo di bari
r=1

rs(Ruota(r) & 1)

se sostituisco al tuo codice mi da errore

Codice sorgente - presumibilmente VB.NET

Dim estr(1 To 10, 1 To 5) As Byte
    Dim numeri(1 To 90) As Byte
    Dim cntnum As Byte
    Dim i As Integer
    Dim r As Integer
    Dim c As Integer
   
    For i = 1 To 90
        numeri(i) = 0
    Next i
   
    cntnum = 0
    For c = 1 To 5
        For r = 1 To 10
            If numeri(estr(rs(Ruota(r)), c)) = 0 Then
                numeri(estr(rs(Ruota(r)), c)) = 1
                cntnum = cntnum + 1
            End If
                       
            If cntnum = 20 Then Exit For
        Next r
        If cntnum = 20 Then Exit For
    Next c
   
    For i = 1 To 90
        If numeri(i) Then
            Print i
        End If
    Next i

()
Newbie

Messaggi:
Iscritto:

Postato alle 11:51
Venerdì, 17/11/2017

magicolotto ... non cominciare a fare di testa tua ...

Il codice non funziona se cambi roba a caso ...

I numeri estratti nelle varie ruote, come ti ho detto prima, devono stare nell'array

estr(1 To 10, 1 To 5)

prima di eseguire la prima for e ce li devi mettere tu, non so da dove.

Il resto del codice non lo devi toccare.

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 11:56
Venerdì, 17/11/2017

ok, non lo tocco...
apro la connessione

poi
Dim Ruota(1 To 11) As String
        Ruota(1) = "BA"
        Ruota(2) = "CA"
        Ruota(3) = "FI"
        Ruota(4) = "GE"
        Ruota(5) = "MI"
        Ruota(6) = "NA"
        Ruota(7) = "PA"
        Ruota(8) = "RO"
        Ruota(9) = "TO"
        Ruota(10) = "VE"
        Ruota(11) = "NZ"
ed esempio il  primo estratto di bari  è _ :
rs(Ruota(1) & 1)
da qui prendo  i numeri ...

come  li metto nell'insieme

()
Newbie

Messaggi:
Iscritto:

Postato alle 12:05
Venerdì, 17/11/2017

Qualcosa del genere

estr(r, c) = rs(Ruota(r) & c)

con r che va da 1 a 10 e c che va da 1 a 5

La ruota 11 non l'ho considerata perché tu non l'avevi detto all'inizio

Ultima modifica effettuata da il 17/11/2017 alle 12:06

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 12:37
Venerdì, 17/11/2017

Provo e ti dico
Scusa nel tuo codice qual'è la parte che verifica se ci sono numeri ripetuti

()
Newbie

Messaggi:
Iscritto:

Postato alle 13:07
Venerdì, 17/11/2017

magicolotto ... dopo tanti anni ancora non sai neanche le basi del VB?

E' ovvio che è la If ... ma se non l'hai ancora capito ...

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 13:35
Venerdì, 17/11/2017

ma si certo ... lo so che è la if.......

sto per provare

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 13:44
Venerdì, 17/11/2017

woww  sembra funzionare,

senti ,li mette già ordinati in modo crescente , se  invece li volessi in ordine estrattitovo , cioè
da 1 a 10 rispettando  l'ordine delle ruote r ?

Pagine: [ 1 2 3 ]