funzione verifica esito

[genios]

Potete Spiegatemi l ' uso della funzione verificaesito per controllare le due sestine al super enalotto del seguente script

[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]()
[B]Dim[/B] [B]Numeri[/B](6,2)
[B]Dim[/B] [B]c[/B](6)
[B]Dim[/B] [B]ruota[/B](1)
[B]Dim[/B] [B]EstrazioneIniziale[/B],[B]EstrazioneFinale[/B]
[B]Dim[/B] [B]retestratti[/B]
[B]Dim[/B] [B]i[/B],[B]j[/B]

[B]Numeri[/B](1,1) [B]=[/B] 90
[B]Numeri[/B](2,1) [B]=[/B] 75
[B]Numeri[/B](3,1) [B]=[/B] 60
[B]Numeri[/B](4,1) [B]=[/B] 45
[B]Numeri[/B](5,1) [B]=[/B] 10
[B]Numeri[/B](6,1) [B]=[/B] 15

[B]Numeri[/B](1,2) [B]=[/B] 84
[B]Numeri[/B](2,2) [B]=[/B] 70
[B]Numeri[/B](3,2) [B]=[/B] 56
[B]Numeri[/B](4,2) [B]=[/B] 42
[B]Numeri[/B](5,2) [B]=[/B] 16
[B]Numeri[/B](6,2) [B]=[/B] 12

[B]EstrazioneFinale[/B] [B]=[/B] [B]EstrazioniArchivioSE[/B]
[B]For[/B] [B]EstrazioneIniziale[/B] [B]=[/B] 1 [B]To[/B] [B]EstrazioneFinale[/B]
[B]For[/B] [B]i[/B] [B]=[/B] 1 [B]To[/B] 2
[B]For[/B] [B]j[/B] [B]=[/B] 1 [B]To[/B] 6
[B]c[/B]([B]j[/B]) [B]=[/B] [B]Numeri[/B]([B]j[/B],[B]i[/B])
[B]Next[/B]
[B]Scrivi[/B]([B]StringaNumeri[/B]([B]c[/B]))


[B]Next[/B]
[B]Next[/B]
[B]End[/B] [B]Sub[/B]

.

Saluti Eugenio

 

[Membro cancellato 16574]

Buonanotte ,
Salutando tuuti .
Provi cosi :

Option Explicit
Sub Main
Dim c(6)
Dim ruota(1)
Dim EstrazioneIniziale,EstrazioneFinale
Dim retestratti,retesito,es
Dim i,j
Dim Numeri(6,2)
Numeri(1,1) = 90
Numeri(2,1) = 75
Numeri(3,1) = 60
Numeri(4,1) = 45
Numeri(5,1) = 10
Numeri(6,1) = 15
Numeri(1,2) = 84
Numeri(2,2) = 70
Numeri(3,2) = 56
Numeri(4,2) = 42
Numeri(5,2) = 16
Numeri(6,2) = 12
EstrazioneIniziale = EstrazioniArchivioSE - 10
EstrazioneFinale = EstrazioniArchivioSE
For es = EstrazioneIniziale To EstrazioneFinale
For i = 1 To 2
For j = 1 To 6
c(j) = Numeri(j,i)
Next
Call VerificaEsitoSE(c,es,01,01,retesito,,retestratti)
Call Scrivi(GetInfoEstrazioneSE(es) & "  " & StringaNumeri(c,,True) & "  " & retesito & "  " & retestratti)
Next
Next
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

 

[genios]

Grazie Magia . Vorrei chiederti se la funzione verificaesito va sempre chiamata con l' istruzione Vbasic Call.

Ciao Eugenio