colorare eventuali numeri sortiti

[antonio65]

Buongiorno,chiedo aiuto per colorare/e/o evidenziare i numeri che escono in base alle previsioni....nella griglia dove ci sono i simboli nu1 nu2 nu3 nu4 nu5....inoltre se si possono inserire 10 resoconti accoppiati a 2 a 2....io ci provato non riesco...grazie in anticipo Antonio.
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),ME N(5),sff(3)
Dim Ru(12),T
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
ini = 9350'EstrazioneFin - est
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,9))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifi ca","Colpo","Ritardo x 1","frx1","frx2","frx3")
Call InitTabella(T,6)
For es = ini To fin
'If IndiceMensile(es) = Ind Then
casi = casi + 1
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(NuFr(i,1))
'NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(18)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1)
Next
A1 = NuAdd(1)
A2 = NuAdd(1)
A3 = NuAdd(1)
A4 = NuAdd(1)
A5 = NuAdd(1)

MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(6)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next

V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,1,,Esito,colpi,estratti ,id)
V(12) = Esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = sff(1)
V(17) = sff(2)
V(18) = sff(3)
Call AddRigaTabella(V)

Scrivi "================================================= ================="
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
Scrivi "DNA(1) " & SiglaRuota(r) & "---" & Format2(DNA(1)),1
Scrivi "A1" & SiglaRuota(r) & "---" & Format2(A1),1

Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12

ImpostaGiocata 1,MEN,Ru,posta,clp


Gioca es
'End If
Next
casi = 0
Call CreaTabella()

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub

 

[Mike58]

Ciao Antonio, premesso che non capisco cosa stai combinando con questo tuo script e cosa vuoi e devi ottenere.
Dalla spiegazione non si capisce e poi ci sono codici immessi a seconda di una tua logica ( vedi le ruote gioca(es)), ma cercando di darti una mano mi soffermo solo sulla richiesta di colorazione e resoconti delle singole giocate.

Visto anche che se sei capace di mettere insieme dei codici e secondo una tua logica, io ti vengo incontro e ti metto solo dei codici che cercano di simulare quanto vorresti ottenere, cosi da vedere come si scrivono i codici , dove e se fanno quello che richiedi.

P.s. per imparare leggere sempre la guida in linea circa la descrizione dei codici usati.

Se avevo una qualche idea su come potevo impostare questo tuo progetto con il post del tuo script sono riandato in confusione.

valuta i codici usati.

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MeN(5),sff(3)
Dim Ru(12),T
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
ini = 9350'EstrazioneFin - est
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
Ind = CInt(InputBox("Quale indiceMensile",,9))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verif i ca","Colpo","Ritardo x 1","frx1","frx2","frx3")
Call InitTabella(T,6)
For es = ini To fin
If IndiceMensile(es) = Ind Then
casi = casi + 1
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(NuFr(i,1))
'NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(18)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1)
Next
A1 = NuAdd(1)
A2 = NuAdd(1)
A3 = NuAdd(1)
A4 = NuAdd(1)
A5 = NuAdd(1)

MeN(1) = Fuori90(Abs(V(5) - DNA(1)))
MeN(2) = Fuori90(Abs(V(5) - DNA(2)))
MeN(3) = Fuori90(Abs(V(5) - DNA(3)))
MeN(4) = Fuori90(Abs(V(5) - DNA(6)))
MeN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MeN,Ru,x)
Next

V(7) = MeN(1)
V(8) = MeN(2)
V(9) = MeN(3)
V(10) = MeN(4)
V(11) = MeN(5)
sr = SerieRitardo(Ini,fin,MeN,Ru,1)
Call VerificaEsito(MeN,Ru,es1,1,1,,Esito,colpi,estratti ,id)
V(12) = Esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = sff(1)
V(17) = sff(2)
V(18) = sff(3)
Call AddRigaTabella(V)
rr = 11

If EstrattoFrequenza(rr,MeN(1),es1,es2) > 0 Then Call SetColoreCella(7,2,4)' servono per colorare celle volute
If EstrattoFrequenza(rr,MeN(2),es1,es2) > 0 Then Call SetColoreCella(8,2,4)'idem
If EstrattoFrequenza(rr,MeN(3),es1,es2) > 0 Then Call SetColoreCella(9,2,4)
If EstrattoFrequenza(rr,MeN(4),es1,es2) > 0 Then Call SetColoreCella(10,2,4)
If EstrattoFrequenza(rr,MeN(5),es1,es2) > 0 Then Call SetColoreCella(11,2,4)


Scrivi "============================================= ==== ================="
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
Scrivi "DNA(1) " & SiglaRuota(r) & "---" & Format2(DNA(1)),1
Scrivi "A1" & SiglaRuota(r) & "---" & Format2(A1),1

Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12

ImpostaGiocata 1,MeN,Ru,posta,clp


Gioca es
ScriviResoconto(True),0 ' scrive il resoconto parziale e senza grafico
End If

Next
casi = 0
Call CreaTabella()

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub

 

[antonio65]

Ciao Mike.che i codici sono scritti sbagliati non ne avevo dubbi...tipo le ruote
...Lo script facendo delle analisi riguarda tutte le mie idee...dunque la tecnica rimane cosi come l'hai decifrata tu.
Chiedo cortesemente alcune cose: in primis togliere l'indice mensile (non mi serve più)
a seguire abbiamo poi 5 Men che generano 5 numeri da giocare; questi 5 Men accoppiarli a 2...e quindi generano 10 combinazioni cosichè
mi viene facile individuare le posizioni degli ambi ad esempio: a caso il 1° ed il 5° danno più ambi....quindi solo 10 resoconti se possibile messi alla fine....ultima cosa i colori :una volta lanciato lo script nella griglia dove c'è scritto verifica ovviamente sono i numeri con esiti positivi...
devono essere colorati cosi comè mi hai appena mandato lo script...solo che facendo una prova se ci fai caso ce qualcosa che nn va...tipo nella 1 riga esce il 45 a Bari ma evidenzia pure gli altri....Riguardo la tua idea se non ti ho messo confusione prenditi il tempo che vuoi...grazie Antonio!!!

 

[Mike58]

Ciao Antonio, per il Resoconto non saprei se può essere scritto alla fine era solo un modo per farti capire che è possibile scriverlo ed indicizzarlo, i codici setcolorecella anche questi erano un modo per identificarli e farti vedere il modus operanti per colorarli.
In questo caso li colora tutti quelli usciti perché nella tua verifica vedo che li hai su tutte le ruote e così ho agito.

Poi l'indice l'ho messo per velocizzare lo script e avere meno dati possibili per mio vantaggio di lettura, puoi comunque toglierlo.

Prova tu a capire come e dove utilizzare i codici che ti ho suggerito e vedrai che prima poi ti arricchirai e crescerai in fatto di conoscenza vbscript.

Purtroppo è più difficile decifrare un problema da uno script esistente che fare un progetto ben dettagliato ex novo.

Provaci il mio è un incitamento.

Ciao

 

[antonio65]

Ciao Mike, grazie per la fiducia,ma ancora sono in erba ( ci proverò con tutto quello che sto imparando...in tutti i casi devi intervenire tu mi spiego: ho preso lo script originale senza intaccato che hai fatto tu...ho copiato i codici dei colori ma succede una confusione...esegui lo script in allegato originale così constata tu...con i colori c'è qualcosa che non va...e se non capisci tu....posso stare fino al prossimo Natale ancora a capire...ahahahhah


Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
Dim Ru(1),T
Ini = EstrazioneFin - 1730
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
End If
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(15)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)

sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,10,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
Call AddRigaTabella(V)
rr = 11

If EstrattoFrequenza(rr,MEN(1),es1,es2) > 0 Then Call SetColoreCella(7,2,4)' servono per colorare celle volute
If EstrattoFrequenza(rr,MEN(2),es1,es2) > 0 Then Call SetColoreCella(8,2,4)'idem
If EstrattoFrequenza(rr,MEN(3),es1,es2) > 0 Then Call SetColoreCella(9,2,4)
If EstrattoFrequenza(rr,MEN(4),es1,es2) > 0 Then Call SetColoreCella(10,2,4)
If EstrattoFrequenza(rr,MEN(5),es1,es2) > 0 Then Call SetColoreCella(11,2,4)

Next
casi = 0
Call CreaTabella()

End Sub

 

[Mike58]

Tranquillo almeno in questo la risposta è immediata.
Hai solo lasciato la ruota rr che rappresenta tutte, devi cambiarla con r che è uguale alla ruota in esame.

If EstrattoFrequenza(r,MeN(1),es1,es2) > 0 Then Call SetColoreCella(7,2,4)' servono per colorare celle volute
If EstrattoFrequenza(r,MeN(2),es1,es2) > 0 Then Call SetColoreCella(8,2,4)'idem
If EstrattoFrequenza(r,MeN(3),es1,es2) > 0 Then Call SetColoreCella(9,2,4)
If EstrattoFrequenza(r,MeN(4),es1,es2) > 0 Then Call SetColoreCella(10,2,4)
If EstrattoFrequenza(r,MeN(5),es1,es2) > 0 Then Call SetColoreCella(11,2,4)

 

[antonio65]

Non va Mike...alcuni li da altri no...oppure ne da in meno....mannaggia

 

[Mike58]

Certo Antonio che non da il risultato che ti aspetti, ma non c'è errore di codice, c'è solo errore di impostazione.

Se leggi quello che vuoi confrontare ti accorgerai che stai confrontando una verificaEsito in 10 colpi e poi una frequenzaEstratto in 1 solo colpo
chiaro che non colori tutte le celle.

soluzione o riduci i colpi in verificaEsito a 1 colpo o aumenti i colpi nel range in EstrattoFrequenza.
questo è il range usato in EstrattoFrequenza

es1 = es + 1​

es2 = es1 + clp

questo sono i colpi in verificaEsito

Call VerificaEsito(MEN,Ru,es1,1,​

10​

,,esito,colpi,estratt i,id)​

 

[antonio65]

Ciao Mike ho fatto come mi hai suggerito,ti allego lo script (se puoi) lo controlli ....ho messo 10 colpi in Clp e 10 dove tu hai evidenziato in rosso
Non cambia niente....secondo me forse sarà o un problema per come ho impostato le ruote....o qualche next o end if
Se lo controlli esegui per come te lo invio lo script e controlla la previsione (quindi per domani) da estratto ...come se fosse già uscito...
perchè lo trova nelle previsioni usciti ieri sera...se lo conteggia mi fa sballare tutte le ricerche....

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),sff(3)
Dim Ru(12),T
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
ini = 9350'EstrazioneFin - est
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,9))
clp = CInt(InputBox("Quanti Colpi di Gioco",,10))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","frx1","frx2","frx3")
Call InitTabella(T,6)
For es = ini To fin
'If IndiceMensile(es) = Ind Then
casi = casi + 1
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(NuFr(i,1))
'NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(18)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1)
Next
MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,10,,Esito,colpi,estratti,id)
V(12) = Esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = sff(1)
V(17) = sff(2)
V(18) = sff(3)

Call AddRigaTabella(V)

If EstrattoFrequenza(r,MEN(1),es1,es2) > 0 Then Call SetColoreCella(7,0,5)' servono per colorare celle volute
If EstrattoFrequenza(r,MEN(2),es1,es2) > 0 Then Call SetColoreCella(8,1,6)'idem
If EstrattoFrequenza(r,MEN(3),es1,es2) > 0 Then Call SetColoreCella(9,6,7)
If EstrattoFrequenza(r,MEN(4),es1,es2) > 0 Then Call SetColoreCella(10,7,9)
If EstrattoFrequenza(r,MEN(5),es1,es2) > 0 Then Call SetColoreCella(11,4,7)


If V(12) = "Ambo" Then Call SetColoreCella(12,2,4)
If V(12) = "Estratto" Then Call SetColoreCella(12,3,1)
If V(12) = "Terno" Then Call SetColoreCella(12,7,4)
If V(12) = "Quaterna" Then Call SetColoreCella(12,8,5)

Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12

ImpostaGiocata i,MEN,Ru,posta,clp


Gioca es
'End If
Next
casi = 0
Call CreaTabella()

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub

 

[Mike58]

Antonio, dopo una spiegazione, su un argomento o dato script, devi applicarlo li dove ti è stato suggerito e poi riportarlo ad altri script solo se si è capito il concetto.

Ora vedo comunque che hai capito come usarlo, ma nel 2° script ci sono altri errori di impostazione e li io avevo applicato la "rr" che definiva la ruota Tutte (rr = 11) come tu hai fatto hai ancora la ruota "r" che agisce solo sulla ruota di ricerca.

Prima bisogna imparare ad usare i codici in modo semplice e soprattutto corretti e poi li trasporti in modo ampliato su altri script.

Provaci che vedo segnali incoraggianti.

Il tutto come io dico senza presunzione di perfezione.

Ciao Continua cosi...

Mike

 

[antonio65]

Non hai presunzione....sei una persona umile ...dedichi del tuo tempo agli altri...Grazie....quindi allora devo reinserire rr =11? L avevo tolto perché nelle precedenti conversazioni tu avevi detto di sostituirlo con r=11....