rodrigo
Super Member >PLATINUM<
Ciao a tutti volevo evidenziare questo argomento che disaronno aveva postato tempo fa:
http://forum.lottoced.com/forum/lott...chivi-virtuali
era uno script sui Sistemi Virtuali sulla base di una esaustiva spiegazione di BladeRunner. Dopo aver letto un post di Statix57 dell'Aprile 2012 sui Sistemi Virtuali Determinati di cui inserisco uno stralcio, volevo appunto chiedere a disaronno, Mike58, Joe91 o chiunque voglia, se era possibile modificare lo script esistente in uno che ricerchi appunto Sistemi Virtuali Determinati.
Ringrazio in anticipo per la gentilezza e per la solita disponibilità.
05-04-2012, 01:01 Sistemi Virtuali Determinati
Rpd1- Rpd2-Rpd3-Rpd4
attualmente ho
Torino numero 2 determinato primo estratto.
Sistema 83
Numero 9
Rc 1117
Rpd1 728
Rpd2 646
Rpd3 204
numero in gioco 2
Statix57
http://forum.lottoced.com/forum/lott...chivi-virtuali
era uno script sui Sistemi Virtuali sulla base di una esaustiva spiegazione di BladeRunner. Dopo aver letto un post di Statix57 dell'Aprile 2012 sui Sistemi Virtuali Determinati di cui inserisco uno stralcio, volevo appunto chiedere a disaronno, Mike58, Joe91 o chiunque voglia, se era possibile modificare lo script esistente in uno che ricerchi appunto Sistemi Virtuali Determinati.
Ringrazio in anticipo per la gentilezza e per la solita disponibilità.
05-04-2012, 01:01 Sistemi Virtuali Determinati
Rpd1- Rpd2-Rpd3-Rpd4
attualmente ho
Torino numero 2 determinato primo estratto.
Sistema 83
Numero 9
Rc 1117
Rpd1 728
Rpd2 646
Rpd3 204
numero in gioco 2
Statix57
Codice:
Option Explicit
Sub Main()
Dim es,est,es1,nn,t,r,y,ri,a,q,j,EV,fin
Dim i(25),ord(90,04),mru(1000,08)
i(01) = 01:i(02) = 07:i(03) = 11:i(04) = 13:i(05) = 17:i(06) = 19:i(07) = 23:i(08) = 29:i(09) = 31:i(10) = 37
i(11) = 41:i(12) = 43:i(13) = 47:i(14) = 49:i(15) = 53:i(16) = 59:i(17) = 61:i(18) = 67:i(19) = 71:i(20) = 73
i(21) = 77:i(22) = 79:i(23) = 83:i(24) = 89:i(25) = 90
es = EstrazioneFin - 1000:est = es + 01: es1 = es:fin = EstrazioneFin
nn = 00
For t = 01 To 25
For r = 01 To 10
Messaggio "Sistema Virtuale D = ( " & Format2(i(t)) & " ) sula ruota di " & NomeRuota(r)
AvanzamentoElab 01,25,t
For y = 01 To 90
ri = 00
a = y
For j = est To fin
a = Fuori90(a + i(t))
If j > fin Then Exit For
If Posizione(j,r,a) > 0 Then ri = 00
If Posizione(j,r,a) = 0 Then ri = ri + 01
Next
ord(y,01) = a: ord(y,02) = ri:ord(y,03) = r:ord(y,04) = i(t)
Next
nn = nn + 01
OrdinaMatrice ord,- 01,02
For q = 01 To 02
mru(nn,01) = ord(01,01):mru(nn,02) = ord(01,02)
mru(nn,03) = ord(01,03):mru(nn,04) = ord(01,04)
Next
Next
For q = 01 To 90
ord(q,01) = 00:ord(q,02) = 00:ord(q,03) = 00:ord(q,04) = 00
Next
Next
Scrivi: Scrivi "ordinamento Sistemi Virtuali": Scrivi
OrdinaMatrice mru,- 01,02
For j = 01 To 25
Scrivi Format2(j) & " numero = " & Format2(mru(j,01)) & " rit = " & Format2(mru(j,02)) & " ruota = " & NomeRuota(mru(j,03)) & " Sistema Virtuale D ( " & Format2(mru(j,04)) & " )",1
EV = Fuori90(mru(j,01) + mru(j,04))
If j = 001 Then Scrivi "AMBATA VALIDA PER L'ESTRAZIONE SUCCESSIVA= " & Format2(EV),1:Scrivi
If j <> 01 Then Scrivi "AMBATA VALIDA PER L'ESTRAZIONE SUCCESSIVA= " & Format2(EV),1:Scrivi
Next
Scrivi:Scrivi "estrazione di fine ricerca nr " & Format2(fin) & " del " & DataEstrazione(fin),1
End Sub
Ultima modifica: