antonio65
Super Member >PLATINUM<
Salve , ne approfitto per fare gli auguri di una serena Pasqua e tanta felicità a tutto il sito...
Volevo chiedere a tutti gli scripter o chi ne è capace se si può inserire un resoconto o una tabella riguardo la funzione For nu 1 to 90
In pratica lo script va benissimo solo che mi viene difficoltoso e macchinoso capire e a decifrare .Eseguendo lo script e variando la funzione For nu 1 to 10 sulla ruota di Bari mi da 6 Ambi con capogioco quindi in questo caso la scelta su 2 numeri...(indice mensile 6 del mese) però non ho un risultato tipo : For nu 2 (ambi 3) in parole povere mi somma gli ambi....
io chiederei qualora fosse possibile di dividerli come se ogni for Nu avesse un suo resonconto...Grazie e tanti auguri!!!
Sub Main
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
'es = 9200'7694
nru1 = NZ_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
clp = 1' < - - - Colpi di gioco
ini = 7694'7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 6 Then
Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)
MEN1 = a01*4
MEN2 = a02*4
MEN3 = a03*4
MEN4 = a04*4
MEN5 = a05*4
For nu = 1 To 10
co = co + 1
' QUESTO CICLO (MEN) NON PRODUCE NULLA SOLO nu x 4
DNA1 = 165*4
DNA2 = nu*4
DNA3 = nu*4
DNA4 = nu*4
DNA5 = nu*4
'bisogna capire il Valore che deve ricavare
' se vuoi la frequenza trasformali in Numeri vettori e usa il codice SerieFreq
' poi li filtri in base ad un valore.
'--------------------------------------------
'----- QUESTO CALCOLO LO LASCIO ALLA TUA DEDUZIONE -------------
nu1 = Fuori90(Abs(MEN3 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
'nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
'nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
'nu5 = Fuori90(Abs(MEN5 - DNA5)/4)
'---------------------------------------------------------------
Scrivi Format2(co) & " - " & Format2(nu1) '& " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)
Scrivi "MEN = " & Men1 & " " & Men2 & " " & Men3 & " " & Men4 & " " & Men5
Scrivi "DNA = " & DNA1 & " " & DNA2 & " " & DNA3 & " " & DNA4 & " " & DNA5
If ScriptInterrotto Then Exit For
Scrivi "============================================= ==== ================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
ruote(2) = 1
'ruote(3) = 2
'ruote(4) = 3
'ruote(5) = 4
'ruote(6) = 5
'ruote(7) = 6
'ruote(8) = 7
'ruote(9) = 8
'ruote(10) = 9
'ruote(11) = 10
'ruote(12) = 12
numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp
Gioca ES
Next
co = 0
End If
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub
Volevo chiedere a tutti gli scripter o chi ne è capace se si può inserire un resoconto o una tabella riguardo la funzione For nu 1 to 90
In pratica lo script va benissimo solo che mi viene difficoltoso e macchinoso capire e a decifrare .Eseguendo lo script e variando la funzione For nu 1 to 10 sulla ruota di Bari mi da 6 Ambi con capogioco quindi in questo caso la scelta su 2 numeri...(indice mensile 6 del mese) però non ho un risultato tipo : For nu 2 (ambi 3) in parole povere mi somma gli ambi....
io chiederei qualora fosse possibile di dividerli come se ogni for Nu avesse un suo resonconto...Grazie e tanti auguri!!!
Sub Main
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
'es = 9200'7694
nru1 = NZ_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
clp = 1' < - - - Colpi di gioco
ini = 7694'7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 6 Then
Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)
MEN1 = a01*4
MEN2 = a02*4
MEN3 = a03*4
MEN4 = a04*4
MEN5 = a05*4
For nu = 1 To 10
co = co + 1
' QUESTO CICLO (MEN) NON PRODUCE NULLA SOLO nu x 4
DNA1 = 165*4
DNA2 = nu*4
DNA3 = nu*4
DNA4 = nu*4
DNA5 = nu*4
'bisogna capire il Valore che deve ricavare
' se vuoi la frequenza trasformali in Numeri vettori e usa il codice SerieFreq
' poi li filtri in base ad un valore.
'--------------------------------------------
'----- QUESTO CALCOLO LO LASCIO ALLA TUA DEDUZIONE -------------
nu1 = Fuori90(Abs(MEN3 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
'nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
'nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
'nu5 = Fuori90(Abs(MEN5 - DNA5)/4)
'---------------------------------------------------------------
Scrivi Format2(co) & " - " & Format2(nu1) '& " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)
Scrivi "MEN = " & Men1 & " " & Men2 & " " & Men3 & " " & Men4 & " " & Men5
Scrivi "DNA = " & DNA1 & " " & DNA2 & " " & DNA3 & " " & DNA4 & " " & DNA5
If ScriptInterrotto Then Exit For
Scrivi "============================================= ==== ================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
ruote(2) = 1
'ruote(3) = 2
'ruote(4) = 3
'ruote(5) = 4
'ruote(6) = 5
'ruote(7) = 6
'ruote(8) = 7
'ruote(9) = 8
'ruote(10) = 9
'ruote(11) = 10
'ruote(12) = 12
numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp
Gioca ES
Next
co = 0
End If
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub
Ultima modifica:
