Aiuto per script

Rispondi
Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Aiuto per script

Messaggio da SeeLe8 » 24/10/2014, 22:24

Questo script dovrebbbe eseguire i seguenti calcoli:
Trovare un numero isotopo su due ruote
fare la somma degli estratti delle due ruote
trovare una delle due somme su una delle due ruote
sommare il valore somma trovato a tutti i numeri dell'altra ruota

Esempio:
16 settembre
BA 76.28.31.81.48
PA 76.42.2.85.3

le due ruote hanno il 76 ripetuto isotopo, quindi faccio le somme degli estratti
BA = 76+28+31+81+48 = 264 - fuori 90 = 84
PA = 76+42+2+85+3 = 208 - fuori90 = 28

il 28 è presente a Bari, quindi sommo il 28 a tutti gli estratti di Palermo
76+28 = 14
42+28 = 70
2+28 = 30
85+28 = 23
3+28 = 30
per completare la lunghetta aggiungo li valore somma (28), il suo complemento a 90 (62) e l

al 10° colpo su PA esce 30.70.28

Ho fatto questo, ma non riesco ad andare avanti :disp:

Codice: Seleziona tutto

Sub Main()
Dim ruota(10),ruote(10),nu(6),posta(2),poste(4)
posta(1) = 1
poste(3) = 2
poste(4) = 1

ruote(1) = r1
ruote(2) = r2

ini = CInt(InputBox("INIZIO RICERCA ?","inizio",8800))
col = CInt(InputBox("COLPI DI GIOVCO ?","colpi",12))
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab Ini,fin,es

For r1 = 1 To 10
For p = 1 To 5
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p1 = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = b Then
					
somr1 = Fuori90(SommaEstratti(es,r1))
somr2 = Fuori90(SommaEstratti(es,r2))

For r3 = 1 To 11
If r3 = 11 Then r3 = 12
For p11 = 1 To 5
n11 = Estratto(es,r3,p11)

If r3 = r1 Or r3 = r2 And n11 <> a And n11 <> b Then

If n11 = somr2 Then

nu(1) = Fuori90(sor2 + Estratto(es,r1,1))
nu(2) = Fuori90(sor2 + Estratto(es,r1,2))
nu(3) = Fuori90(sor2 + Estratto(es,r1,3))
nu(4) = Fuori90(sor2 + Estratto(es,r1,4))
nu(5) = Fuori90(sor2 + Estratto(es,r1,5))
nu(6) = ComplAdX(sor2)
nu(7) = somr2


conta = conta + 1 : Scrivi String(95,"*") & " Caso n°" & Format2(conta),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " n.iso: " & Format2(a) & "] Somma Estratti: " & Format2(sor1),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " n.iso: " & Format2(b) & "] Somma Estratti: " & Format2(sor2) & "] Somma rintracciata: " & Format2(n11),1
Scrivi

ImpostaGiocata 1,nu,ruote,poste,col,4
Gioca es
End If
End If
End If
Next
Next

End If
Next
Next
Next
Next
Next
Scrivi
ScriviResoconto
End Sub
Ultima modifica di SeeLe8 il 24/10/2014, 22:26, modificato 1 volta in totale.
Immagine

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: Aiuto per script

Messaggio da Enplein » 25/10/2014, 12:55

Ciao SeeLe8, controlla se ci sono errori...

Ciao, Enplein.

Codice: Seleziona tutto


Sub Main()
Dim ruota(10),ruote(2),nu(7),posta(2),poste(4)
posta(1) = 1
poste(2) = 2
poste(3) = 2
poste(4) = 1



ini = CInt(InputBox("INIZIO RICERCA ?","inizio",8800))
col = CInt(InputBox("COLPI DI GIOVCO ?","colpi",12))
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab Ini,fin,es

For r1 = 1 To 10
For p = 1 To 5 
a = Estratto(es,r1,p)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
b = Estratto(es,r2,p)
If a = b Then
               
somr1 = Fuori90(SommaEstratti(es,r1))
somr2 = Fuori90(SommaEstratti(es,r2))

po1=Posizione (es,r1,somr1) : po2=Posizione (es,r1,somr2)
po3=Posizione (es,r2,somr1) : po4=Posizione (es,r2,somr2)
If po1>0 Or po2>0 Or po3>0 Or po4>0 Then 
If po1>0 Then nx=somr1 : ro =r2 : rr=r1
If po2>0 Then nx=somr2 : ro =r2 : rr=r1
If po3>0 Then nx=somr1 : ro =r1 : rr=r2
If po4>0 Then nx=somr2 : ro =r1 : rr=r1

For i=1 To 5
nu(i)=Fuori90 (nx+Estratto (es,ro,i))
Next 

nu(6) = (90-nx)
nu(7) = nx

ruote(1) = r1 : ruote(2)=r2
conta = conta + 1 : Scrivi String(95,"*") & " Caso n°" & Format2(conta),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " n.iso: " & Format2(a) & "] Somma Estratti: " & Format2(somr1),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " n.iso: " & Format2(b) & "] Somma Estratti: " & Format2(somr2) &_
 "] Somma rintracciata: " & Format2(nx)&" su "& SiglaRuota (rr),1
Scrivi

ImpostaGiocata 1,nu,ruote,poste,col,4
Gioca es
End If
End If

Next
Next
Next
Next
Scrivi
ScriviResoconto
End Sub

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Aiuto per script

Messaggio da SeeLe8 » 25/10/2014, 18:22

che macello, non ci sarei mai arrivata!

Ti ringrazio tantissimo!!
:abb: :abb:
Immagine

Avatar utente
Tatoo64
Site Admin
Messaggi: 3860
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Aiuto per script

Messaggio da Tatoo64 » 01/11/2014, 14:14

Ottimo metodo ............... ma si può sfoltire qualche numero???
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Aiuto per script

Messaggio da SeeLe8 » 01/11/2014, 14:45

Ci ho provato anch'io, ma non ho risolto molto...
aggiustando la posta alle sole sorti di ambo e terno e diminuendo i colpi di gioco a 10
il resoconto è comunque poco incoraggiante nonostante la % di vincita

Casi esaminati : 28
| Casi vincenti : 21
| Percentuale pos. : 75 %
| Pronostici totali : 40
| Pronostici vinc. : 27
| Percentuale pos. : 67,5 %
| Giocate in corso : 0
| Giocate terminate : 40
| Bollette giocate : 542
| Bollette vincenti : 27
| Attesa media : 5
| Spesa : 2.168,00 €
| Vincita : 1.496,49 €
| Guadagno : -671,51 €
| Perc. Rendimento : -30,974 %
| Mass. Esposizione : 376,00 €
| Ambo su ruota : 33
| Terno su ruota : 3
Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite