rob.
Advanced Member >GOLD<
CIAO LUIGI, HO LETTO LA TUA RISPOSTA E AD UN CERTO PUNTO MI HAI DETTO (....o che per sbaglio stavi ad usare uno dei famosi script di claudio che mise qualche tempo fa sul forum) COSA VUOI DIRMI CHE PROBABILMENTE STO' USANDO UNO SCRIPT CHE NON VA??-TE L'HO POSTATO QUI' COSI' MI DICI SE E' PROPRIO QUELLO SCRIPT CHE NON VA;NON VORREI PERDERE ALTRE ORE INUTILMENTE A STUDIARE SU UNA COSA SENZA SENSO!!!-SE QUESTO NON VA' POTRESTI CORTESEMENTE POSTARMENE UNO UGUALE??-CIOE' CHE FACCIA LA STESSA COSA??-GRAZIE MILLE ROB
Sub Main()
Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
Dim rut(10),nn3(2),mt4(90,3),rutt(10)
ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
r = CInt(InputBox("RUOTA DELL 'AMBATA SPIA","RUOTA",2))
a = CInt(InputBox(" NUMERO AMBATA SPIA","1° SPIA",9))
ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",1))
ru(2) = CInt(InputBox("RUOTE DEI FREQ. ","2° RUOTA",2))
rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",1)))
rutt(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2)))
cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
rru(1) = 11 'freq a tutte
ini = EstrazioneFin - ESRT 'estrazione di partenza
fin = EstrazioneFin 'estrazione finale
cc = 0
For es = ini To fin
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
For i = 1 To 89
n(1) = i
For j = i + 1 To 90
n(2) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = n(2)
fr = SerieFreq(es + 1,es + cl,n,ru,2)
mt(co,4) = mt(co,4) + fr
Next
Next
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
mt1(co,3) = mt1(co,3) + fr1
Next
co = 0
For i1 = 1 To 89
n1(1) = i1
For j1 = i1 + 1 To 90
n1(2) = j1
co = co + 1
mt2(co,1) = co
mt2(co,2) = n1(1)
mt2(co,3) = n1(2)
fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
mt2(co,4) = mt2(co,4) + fr2
Next
Next
co = 0
For ii1 = 1 To 90
nn2(1) = ii1
co = co + 1
mt3(co,1) = co
mt3(co,2) = nn2(1)
fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
mt3(co,3) = mt3(co,3) + fr3
Next
co = 0
For ii2 = 1 To 90
nn3(1) = ii2
co = co + 1
mt4(co,1) = co
mt4(co,2) = nn3(1)
fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
mt4(co,3) = mt4(co,3) + fr4
Next
'----------------------------------------------------
ColoreTesto 2
Scrivi es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
OrdinaMatrice mt1,- 1,3
OrdinaMatrice mt2,- 1,4
OrdinaMatrice mt3,- 1,3
OrdinaMatrice mt4,- 1,3
Scrivi "AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r)
Scrivi "Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi "Ambi+frequenti/ Estratti+frequenti/ Ambi+presenti nei cicli / Estratti" & _
"+frequenti 1° RUOTA / Estratti+frequenti 2° RUOTA"
Scrivi "le 2R sono le ruota di: " & NomeRuota(ru(1)) & " " & NomeRuota(ru(2)) & ""
ColoreTesto 2
Scrivi Space(0) & "Ambo+FRE su 2R| Estratto+PRE su 2R | | Ambo+FRE A TUTTE R | Estratto+PRE " & NomeRuota(rut(1)) & " | Estratto+FRE " & NomeRuota(rutt(1)) & ""
ColoreTesto 0
For xx = 1 To 25
Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & Space(4) & mt(xx,4) & Space(8) &(mt1(xx,2)) & Space(4) & Format2(mt1(xx,3)) & Space(16) & _
Format2(mt2(xx,2)) & Space(2) & Format2(mt2(xx,3)) & Space(6) & mt2(xx,4) & Space(10) &(mt3(xx,2)) & Space(4) & Format2(mt3(xx,3)) & Space(10) & _
Format2(mt4(xx,2)) & Space(4) & Format2(mt4(xx,3))
Next
End Sub
Sub Main()
Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
Dim rut(10),nn3(2),mt4(90,3),rutt(10)
ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
r = CInt(InputBox("RUOTA DELL 'AMBATA SPIA","RUOTA",2))
a = CInt(InputBox(" NUMERO AMBATA SPIA","1° SPIA",9))
ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",1))
ru(2) = CInt(InputBox("RUOTE DEI FREQ. ","2° RUOTA",2))
rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",1)))
rutt(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2)))
cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
rru(1) = 11 'freq a tutte
ini = EstrazioneFin - ESRT 'estrazione di partenza
fin = EstrazioneFin 'estrazione finale
cc = 0
For es = ini To fin
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
For i = 1 To 89
n(1) = i
For j = i + 1 To 90
n(2) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = n(2)
fr = SerieFreq(es + 1,es + cl,n,ru,2)
mt(co,4) = mt(co,4) + fr
Next
Next
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
mt1(co,3) = mt1(co,3) + fr1
Next
co = 0
For i1 = 1 To 89
n1(1) = i1
For j1 = i1 + 1 To 90
n1(2) = j1
co = co + 1
mt2(co,1) = co
mt2(co,2) = n1(1)
mt2(co,3) = n1(2)
fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
mt2(co,4) = mt2(co,4) + fr2
Next
Next
co = 0
For ii1 = 1 To 90
nn2(1) = ii1
co = co + 1
mt3(co,1) = co
mt3(co,2) = nn2(1)
fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
mt3(co,3) = mt3(co,3) + fr3
Next
co = 0
For ii2 = 1 To 90
nn3(1) = ii2
co = co + 1
mt4(co,1) = co
mt4(co,2) = nn3(1)
fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
mt4(co,3) = mt4(co,3) + fr4
Next
'----------------------------------------------------
ColoreTesto 2
Scrivi es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
OrdinaMatrice mt1,- 1,3
OrdinaMatrice mt2,- 1,4
OrdinaMatrice mt3,- 1,3
OrdinaMatrice mt4,- 1,3
Scrivi "AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r)
Scrivi "Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi "Ambi+frequenti/ Estratti+frequenti/ Ambi+presenti nei cicli / Estratti" & _
"+frequenti 1° RUOTA / Estratti+frequenti 2° RUOTA"
Scrivi "le 2R sono le ruota di: " & NomeRuota(ru(1)) & " " & NomeRuota(ru(2)) & ""
ColoreTesto 2
Scrivi Space(0) & "Ambo+FRE su 2R| Estratto+PRE su 2R | | Ambo+FRE A TUTTE R | Estratto+PRE " & NomeRuota(rut(1)) & " | Estratto+FRE " & NomeRuota(rutt(1)) & ""
ColoreTesto 0
For xx = 1 To 25
Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & Space(4) & mt(xx,4) & Space(8) &(mt1(xx,2)) & Space(4) & Format2(mt1(xx,3)) & Space(16) & _
Format2(mt2(xx,2)) & Space(2) & Format2(mt2(xx,3)) & Space(6) & mt2(xx,4) & Space(10) &(mt3(xx,2)) & Space(4) & Format2(mt3(xx,3)) & Space(10) & _
Format2(mt4(xx,2)) & Space(4) & Format2(mt4(xx,3))
Next
End Sub