Per Mike

[antonio65]

Buonasera Mike, come stai? spero bene...mi complimento sempre con te perchè sei un grande scripter...
Se hai tempo e trovi stimoli...te ne propongo uno....si tratta di questo:

Esempio ruota di Bari ultima del mese 30 Dicembre 2017
75- 84-87-40-55 la somma è di 341 quindi la somma divisa per 5 = 68,2 tralasciando le virgole otterremo 68
.a questo su una percentuale di 100 ci accorgiamo che da 68 mancano 32...quindi 100-68=32
Ottenuto il numero 32 si moltiplica per 5 quindi 32x5= 160 dopo di questi segue una sottrazione cioè la differenza che c'è tra la somma reale cioè 341
con la somma ..chiamiamola virtuale 160 quindi 341-160=181 a questo punto siccome la percentuale mancante per arrivare ad una scala di 100 è 32 quindi inferiore
alla percentuale 68 in questo caso per proseguire ai numeri estratti bisogna sottrarre 181 diviso per 5 quindi 181 .5= 36,2 ovviamente la virgola viene sempre tolta quindi risultato è 36
a seguire avremo: 75-36= 39 84-36=48 87-36=51 40- 36=4 55 -36=19
quindi i numeri ricavati sono: 39-48-51-4-19 da giocare per la ruota dove è avvenuto il calcolo e per tutte.
In questo caso per questioni di virgola non siamo arrivati a 181 ma a 161 ma fa niente....
Nel caso che la percentuale dei numeri reali fosse inferiore invece di sottrarre come calcolo finale si addiziona
Esempio:
1a del mese di Gennaio ruota di Bari
41-20-60-8-54 somma 184 diviso 5 = 36,8 tralasciando la virgola avremo 36 per arrivare ad una scala di 100 mancano 64
quindi 100-36=64 moltiplicato per 5= 320 quindi somma originale 184-320(in questo caso Abs ) 136 a sua volta diviso per 5=27 tralasciando la virgola il risultato è 27
quindi 41+27=68 20+27=47 60+27=87 8+27=35 54+27=81
Numeri ricavati 68 47 87 35 81
Spero ti piaccia....se non ti piace come non detto...sempre grazie per quello che fai....

 

[Mike58]

Ciao Antonio, visto l'ora che rispondo capirai che ho appena terminato il turno di lavoro.
Tutto bene ma stimoli ancora pochi, leggendo quanto descritto il primo pensiero è stato che questo procedimento è un ottima occasione per sperimentarlo da solo.

Visto che stai approcciando in qualche modo con gli script, i calcoli da fare non sono impossibili ad ottenersi.

avresti tutti i codici del caso e sperimentare per imparare aiuta a capire come si può costruire uno script ex novo e da soli.

Tuttavia se ho tempo posso vedere come e cosa fare.

Ciao provaci.

 

[antonio65]

Buongiorno Mike, io mi do da fare è logico....non sto ad aspettare...prima sperimento con le capacità acquisite in questi mesi...
non sto con le mani nelle mani....ricorro al soccorso quando trovo ostacoli...infatti l'ho già fatto ....ti allego i codici...
l'ostacolo che ho trovato e che non so dire allo script che: se la somma (percentuale) ricavata è più bassa bisogna alla fine sottrarre...
se invece è più alta bisogna sottrarre...mi riferisco come ultimo calcolo quello che poi ti estrapola i numeri da mettere in gioco...
Ecco i codici:

S_E = SommaEstratti(es,r)
A = S_E/5
A2 = FormatNumber(a,0)
B = Abs(100 - a)
C = B*5
D = Abs(S_E - C)
E = D/5

Nu(1) = Fuori90(Abs(Num(1) + E))
Nu(2) = Fuori90(Abs(Num(2) + E))
Nu(3) = Fuori90(Abs(Num(3) + E))
Nu(4) = Fuori90(Abs(Num(4) + E))
Nu(5) = Fuori90(Abs(Num(5) + E))

 

[Mike58]

Antonio ho fatto una parte di script, senza ancora capire quale distinzione fare per avere la somma o la sottrazione, magari me la indichi sulla parte di script (come dato) e da li con un if then lo valorizzi e rifai i calcoli con sottrazione se superiore; e con addizione se inferiore o vicevesa

e da li dovresti creare un 2 array di scrittura tabella, mi basta solo l'indicazione di quali dati confrontare.

Intanto ti metto la 1° parte , cosi da capire se i calcoli sono esatti con lo script ottimizzato.

P.s. metti gli script nei tag "#"

[CODE ] qui metti il codice [ /CODE]

Sub Main
 Dim Nu(5),Nn(5),Ru(1),T,V
 Ini = 9415'31.12.2017
 fin = EstrazioneFin
 r = 1
 T = Array(T,"Data Estraz.","N. Estratti","SommaEstratti","Num1 / 5","Compl a 100","Diff se-c","C90 * 5","Num2 / 5","Numeri ricavati")
 Call InitTabella(T)
 For es = Ini To fin
 For p = 1 To 5
 Nu(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
 se = SommaEstratti(es,r) ' somma estratti
 se5 = Int(se/5) ' int restituisce il numero intero e arrotanda
 c90 = ComplAdX(se5,100) ' complementa al numero scelto
 c = c90*5
 d = Differenza(se,c)
 e = Int(d/5)
 Nn(p) = Differenza(Nu(p),e)
 Next
 '..... scrivi i valori .................
 'Scrivi GetInfoEstrazione(es) & vbTab,0,0
 'Scrivi StringaEstratti(es,r) & vbTab ,0,0
 'Scrivi se & vbTab & se5 & vbTab & c90 & vbTab & c & vbTab & d & vbTab & e & vbTab,0,0
 'Scrivi StringaNumeri(Nn,,1),1
 '.......................................
 V = Array(V,GetInfoEstrazione(es),StringaEstratti(es,r),se,se5,c90,c,d,e,StringaNumeri(Nn,,1))
 Call AddRigaTabella(V)
 Next
 Call CreaTabella()
End Sub

 

[salvo50]

Ciao Mike, Antonio

Se ho capito bene Antonio a riguardo del più o meno lo intende così, la parte che ho modificato è tra gli asterischi

 Sub Main
Dim Nu(5),Nn(5),Ru(1),T,V
Ini = 9415'31.12.2017
fin = EstrazioneFin
r = 1
T = Array(T,"Data Estraz.","N. Estratti","SommaEstratti","Num1 / 5","Compl a 100","Diff se-c","C90 * 5","Num2 / 5","Numeri ricavati")
Call InitTabella(T)
For es = Ini To fin
For p = 1 To 5
Nu(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
se = SommaEstratti(es,r) ' somma estratti
se5 = Int(se/5) ' int restituisce il numero intero e arrotanda
c90 = ComplAdX(se5,100) ' complementa al numero scelto
c = c90*5
d = Differenza(se,c)
e = Int(d/5)
'************************************************************************************
'qui bisogna stabilire quando la somma è uguale a 250, cosa fare, io l'ho scartato
If se <> 250 Then
If se > 250 Then
Nn(p) = Fuori90(Abs(Nu(p) - e))
Else
Nn(p) = Fuori90(Abs(Nu(p) + e))
End If
End If
'************************************************************************************

Next
'..... scrivi i valori .................
'Scrivi GetInfoEstrazione(es) & vbTab,0,0
'Scrivi StringaEstratti(es,r) & vbTab ,0,0
'Scrivi se & vbTab & se5 & vbTab & c90 & vbTab & c & vbTab & d & vbTab & e & vbTab,0,0
'Scrivi StringaNumeri(Nn,,1),1
'.......................................
V = Array(V,GetInfoEstrazione(es),StringaEstratti(es,r),se,se5,c90,c,d,e,StringaNumeri(Nn,,1))
Call AddRigaTabella(V)
Next
Call CreaTabella()
End Sub

 

[antonio65]

Ciao Mike , grazie per l'intervento...bisogna sottrarre quando la nuova somma è più piccola....
bisogna operare cosi come da ultimo calcolo:
nella tabella di output tu hai scritto num1/5 e Compl a 100 quando Compl a 100 ha il numero inferiore bisogna sottrarre come ultimo calcolo....
per il resto va secondo le mie descrizioni...

 

[Mike58]

Bene Salvo, io l'ho capita cosi, sicuramente Antonio avrà lo spunto per poter proseguire.

 Sub Main
Dim Nu(5),Nn(5),Ru(1),T,V
Ini = 9415'31.12.2017
fin = EstrazioneFin
r = 1
T = Array(T,"Data Estraz.","N. Estratti","SommaEstratti","Num1 / 5","Compl a 100","Diff se-c","C90 * 5","Num2 / 5","Numeri ricavati","kk","Esiti","Clp")
Call InitTabella(T)
For es = Ini To fin
For p = 1 To 5
Nu(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
se = SommaEstratti(es,r) ' somma estratti
se5 = Int(se/5) ' int restituisce il numero intero e arrotanda
c90 = ComplAdX(se5,100) ' complementa al numero scelto
c = c90*5
d = Differenza(se,c)
e = Int(d/5)
Ru(1) = r
'************************************************************************************
'qui bisogna stabilire quando la somma è uguale a 250, cosa fare, io l'ho scartato
If se > c Then
'If se > 250 Then
Nn(p) = Fuori90(Abs(Nu(p) - e))
kk = "Addiz."
Else
Nn(p) = Fuori90(Abs(Nu(p) + e))
kk = "sottraz"
'End If
End If
'************************************************************************************

Next
Call VerificaEsito(Nn,Ru,es+1,2,10,,,clp,es1)
'..... scrivi i valori .................
'Scrivi GetInfoEstrazione(es) & vbTab,0,0
'Scrivi StringaEstratti(es,r) & vbTab ,0,0
'Scrivi se & vbTab & se5 & vbTab & c90 & vbTab & c & vbTab & d & vbTab & e & vbTab,0,0
'Scrivi StringaNumeri(Nn,,1),1
'.......................................
V = Array(V,GetInfoEstrazione(es),StringaEstratti(es,r),se,se5,c90,c,d,e,StringaNumeri(Nn,,1),kk,es1,clp)
Call AddRigaTabella(V)
Next
Call CreaTabella()
End Sub

 

[antonio65]

Grazie anche a Salvo....va bene così Mike....da qui in poi me lo gestisco io piano piano...la base è questa....
Da dei risultati incredibili...qualche ruota meno...me lo gestisco anche per tutte le ruote....ottima base per fare ricerche....Grazie infinite....

 

[antonio65]

Buonasera Mike,scusa il disturbo....sono riuscito a personalizzare lo script ma come finale mi manca inserire correttamente
call verifica esito...siccome non avevo mai visto un call verifica esito con 3 virgole ho problemi anche per colorare....
ti chiedo l'ultimo aiuto per completare le mie idee...grazie...spero non ti arrabbi....ho fatto del mio meglio...comunque noterai dei progressi nello script(almeno credo) per quanto riguarda di postare gli script....non riesco a metterli nell apposito #


Sub Main
Dim Nu(5),SFF(3),Nn(5)
Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
Dim Ru(12),T,x1,x2,x3,x4,x5
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
Ini = 9415
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
T = Array(T,"DATA","N.ESTRATTI","SommaEstratti","S_E / 5 ","Compl a 100","Compl a 100*5","DIFF.","C90 / 5","Num2 / 5","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Data","n1-n2","n1-n3","n1-n4","n1-n5","n2-n3","n2-n4","n2-n5","n3-n4","n3-n5","n4-n5")
Call InitTabella(T,6)
Call AvanzamentoElab(Ini,fin,es)
For es = Ini To fin
For p = 1 To 5
Nu(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
S_E = SommaEstratti(es,r) '184
S_E5 = Int(S_E/5) ' int restituisce il numero intero e arrotanda
C90 = ComplAdX(S_E5,100) ' complementa al numero scelto
C = c90*5
D = Differenza(S_E,C)
E = Int(d/5)
'------- ---------------
If S_E > c Then
Nn(1) = Fuori90(Abs(Nu(1) - e))
Nn(2) = Fuori90(Abs(Nu(2) - e))
Nn(3) = Fuori90(Abs(Nu(3) - e))
Nn(4) = Fuori90(Abs(Nu(4) - e))
Nn(5) = Fuori90(Abs(Nu(5) - e))
KK = "sottraz"
Else
Nn(1) = Fuori90(Abs(Nu(1) + e))
Nn(2) = Fuori90(Abs(Nu(2) + e))
Nn(3) = Fuori90(Abs(Nu(3) + e))
Nn(4) = Fuori90(Abs(Nu(4) + e))
Nn(5) = Fuori90(Abs(Nu(5) + e))
KK = "Addiz."
End If
Next
'************************************************************************************
m1(1) = Nn(1) : m1(2) = Nn(2)
m2(1) = Nn(1) : m2(2) = Nn(3)
m3(1) = Nn(1) : m3(2) = Nn(4)
m4(1) = Nn(1) : m4(2) = Nn(5)
m5(1) = Nn(2) : m5(2) = Nn(3)
m6(1) = Nn(2) : m6(2) = Nn(4)
m7(1) = Nn(2) : m7(2) = Nn(5)
m8(1) = Nn(3) : m8(2) = Nn(4)
m9(1) = Nn(3) : m9(2) = Nn(5)
m10(1) = Nn(4) : m10(2) = Nn(5)
'-------------------------------------------------
ReDim V(40)
V(1) = GetInfoEstrazione(es)
V(2) = StringaEstratti(es,r)
V(3) = S_E
V(4) = S_E5
V(5) = C90
V(6) = C
V(7) = D
V(8) = E
V(9) = kk
V(10) = Nn(1)
V(11) = Nn(2)
V(12) = Nn(3)
V(13) = Nn(4)
V(14) = Nn(5)
sr = SerieRitardo(Ini,fin,Nn,Ru,1)
'Call VerificaEsito(nn,Ru,es1,1,10,,esito,colpi,estratti,id)
Call VerificaEsito(Nn,Ru,es + 1,2,10,,,clp,es1)
V(15) = es1
V(16) = estratti
V(17) = clp & "°"
V(18) = data
V(19) = m1(1) & "." & m1(2)
V(20) = m2(1) & "." & m2(2)
V(21) = m3(1) & "." & m3(2)
V(22) = m4(1) & "." & m4(2)
V(23) = m5(1) & "." & m5(2)
V(24) = m6(1) & "." & m6(2)
V(25) = m7(1) & "." & m7(2)
V(26) = m8(1) & "." & m8(2)
V(27) = m9(1) & "." & m9(2)
V(28) = m10(1) & "." & m10(2)
rr = 11
If EstrattoFrequenza(rr,Nn(1),es+ 1,es + 2) > 0 Then Call SetColoreCella(10,1,4)
If EstrattoFrequenza(rr,Nn(2),es + 1,es + 2) > 0 Then Call SetColoreCella(11,1,4)
If EstrattoFrequenza(rr,Nn(3),es + 1,es + 2) > 0 Then Call SetColoreCella(12,1,4)
If EstrattoFrequenza(rr,Nn(4),es + 1,es + 2) > 0 Then Call SetColoreCella(13,1,4)
If EstrattoFrequenza(rr,Nn(5),es + 1,es + 2) > 0 Then Call SetColoreCella(14,1,4)

'-------------------------------------------------------------
Call VerificaEsito(m1,Ru,es + 1,1,10,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(m2,Ru,es + 1,1,10,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(m3,Ru,es + 1,1,10,,esito3,colpi3,estratti3,id3)
Call VerificaEsito(m4,Ru,es + 1,1,10,,esito4,colpi4,estratti4,id4)
Call VerificaEsito(m5,Ru,es + 1,1,10,,esito5,colpi5,estratti5,id5)
Call VerificaEsito(m6,Ru,es + 1,1,10,,esito6,colpi6,estratti6,id6)
Call VerificaEsito(m7,Ru,es + 1,1,10,,esito7,colpi7,estratti7,id7)
Call VerificaEsito(m8,Ru,es + 1,1,10,,esito8,colpi8,estratti8,id8)
Call VerificaEsito(m9,Ru,es + 1,1,10,,esito9,colpi9,estratti9,id9)
Call VerificaEsito(m10,Ru,es + 1,1,10,,esito10,colpi10,estratti10,id10)
'-------------------------------------------------------------
Call AddRigaTabella(V)
'-------------------------------------------------------------
If esito1 = "Ambo" Then Call SetColoreCella(19,2,4)
If esito2 = "Ambo" Then Call SetColoreCella(20,2,4)
If esito3 = "Ambo" Then Call SetColoreCella(21,2,4)
If esito4 = "Ambo" Then Call SetColoreCella(22,2,4)
If esito5 = "Ambo" Then Call SetColoreCella(23,2,4)
If esito6 = "Ambo" Then Call SetColoreCella(24,2,4)
If esito7 = "Ambo" Then Call SetColoreCella(25,2,4)
If esito8 = "Ambo" Then Call SetColoreCella(26,2,4)
If esito9 = "Ambo" Then Call SetColoreCella(27,2,4)
If esito10 = "Ambo" Then Call SetColoreCella(28,2,4)
'------------------------------------------------------------
If V(15) = "Estratto" Then Call SetColoreCella(15,3,1)
If V(15) = "Ambo" Then Call SetColoreCella(15,2,4)
If V(15) = "Terno" Then Call SetColoreCella(15,7,4)
If V(1) = GetInfoEstrazione(es) Then Call SetColoreCella(1,,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,Nn,Ru,posta,clp

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

ScriviResoconto
End Sub

 

[Mike58]

Ciao Antonio l'errore è banale non hai dichiarato esito e poi vorresti fare la condizione dell IF-Then

leggi bene la guida del codice che trovi nell'Help ogni codice è spiegato nella sua interezza.

sarebbe cosi

Call verificaEsito(Nn,Ru,es +1,2,10,,esito,clp,es1)

[LEFT][COLOR=#252C2F][FONT=Helvetica][SIZE=13px]Call VerificaEsito(Nn,Ru,es + 1,2,10,,,clp,es1)[/SIZE][/FONT][/COLOR][/LEFT]

Poi non puoi fare un confronto condizionale con una stringa alphaNumerica se in quella cella non hai tale stringa , ma altri dati in questo caso gli estratti sortiti.

devi fare magari un altro confronto, magari mettendo una conteggio numerico ossia una seriefreq(es+1,es+10,.....) e otterrai un serie numerica, e da li puoi fare il confronto condizionale.

purtroppo come lo hai impostao non va bene.
oppure puoi aggiungere la stringa esito in una data colonna e poi fare il confronto.

If V(15) = "Estratto" Then Call SetColoreCella(15,3,1)
If V(15) = "Ambo" Then Call SetColoreCella(15,2,4)
If V(15) = "Terno" Then Call SetColoreCella(15,7,4)
If V(1) = GetInfoEstrazione(es) Then Call SetColoreCella(1,,1)

Devi leggere la guida dell'Help per ogni codice che vuoi usare.

Mentre per il code # basta cliccare abilitando l'icona A vicino allo smile e avrai le altre icone di editor avanzato e da li cliccare icona #
compariranno code - code in mezzo incolli lo script.

Ciao

 

[antonio65]

Ciao Mike ci ho provato e riprovato ...adesso con il tuo codice si è aggiustato un pò....[Call VerificaEsito(Nn,Ru,es + 1,2,10,,clp,es1)] variando il numero evidenziato quindi se lo porto a numeri 1 cioè che stabilisce estratto...influenza pure i colpi pur rimanendo a 10 ....
Ci ho provato pazienza....infinite grazie....

 

[antonio65]

[Call verificaEsito(Nn,Ru,es +1,2,10,,esito,clp,es1)][/CODE]

 

[antonioquagliozzi]

a tt gli scripter,cortesemente listato lotto:spia 17 bari;1°bari-8)(1°ba-1°fix3°fi)(1°bax1°fix3°fi)(1°ba-2°tox1°ba)x ambo su ve)(1°ba-1°mi-3°nz)(1°bax1°ge-5°na)(1°ba-4°bax1°to)x il terno.su ve,(grazie di att)