Nuova richiesta SCRIPT

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

Nuova richiesta SCRIPT

Messaggio da SeeLe8 » 15/07/2014, 12:43

Ciao scripter!!
Avrei bisogno di uno script che mi ricerchi la seguente situazione:

Esempio: 27 maggio 2014
Genova ha un ambo UNITO 46.47 in 1°-2° posizione di somma 3
questo ambo ha distanza 1
ricercare in posizione ISOTOPA, su altra ruota, un ambo avente distanza complementare al valore somma 3, ovvero distanza 2
in questo caso troviamo a Bari l'ambo 23.21

l'ambata da mettere in gioco è 3 sulle due ruote
per l'abbinamento si abbina il complemento alle distanze (in questo caso 1 e 2)
91-3 = 88
91-2 = 89

esito:
al 6° colpo ambata e ambo secco 3.88

-------------------------
altro esempio

17 giugno 2014

Cagliari 16.50 = somma 66 e distanza 34
Bari 84.52 = distanza 32 (32+34 = 66)

Previsione:
BA-CA ambata 66
ambi
90+34-66 = 58
90+32-66 = 56

Esito
al 9° colpo ambata 66 e ambo 66.58 a CA
(+ 2 ambi a tutte nel frattempo)


Le distanze devono essere matematiche e non ciclometriche
Se il valore somma è minore del valore distanza non và fatto nessun calcolo.

GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEE
:abb: :abb: :abb: :abb:
Immagine

Avatar utente
DjNomade
Messaggi: 565
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Nuova richiesta SCRIPT

Messaggio da DjNomade » 15/07/2014, 23:56


Vedi se puo' andar bene cosi'.....

Ciauz


Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=23&t=4988&sid=d6858a3d2b8930fdd67a2a939dcb0590
Sub Main()
   Scrivi "AMBI ISOTOPI  X SEELE8",1
   Scrivi
   Dim ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),quartina(4),ruota(10),h,y,posta(1),poste(2),postee(4)
   posta(1) = 1 : poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
   EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","DJNOMADE",21)
   k = CInt(InputBox("QUANTI COLPI ?","DJNOMADE",12))
   fin = EstrazioneFin
   ini = fin - estrazionilotto
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 11
       If r1 = 11  Then r1 = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               For r2 =  1 To 11
                  If r2 = 11  Then r2 = 12
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        n3 = Estratto(es,r2,p3)
                        n4 = Estratto(es,r2,p4)
                        n5 = Fuori90(n1 + n2) 'somma
                        n6 = ABS(n1 - n2)'DIFFERENZA
                        n7 = ABS(n3 - n4)'DIFFERENZA
                        n8 = (n5 - n6)
                        If n7 =n8  And p1 = p3 And p2 = p4 and r1<>r2 Then
                        n9 = (90+n6 - n5)
                        n10 = (90+n7 - n5)

                           casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " > ambo < " & Format2(n1) & "." & Format2(n2) & " > somma < " & Format2(n5)& " > diff. < " & Format2(n6)& " >"
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " > ambo < " & Format2(n3) & "." & Format2(n4) & " > diff. < " & Format2(n7)& " >"
                           ruota(1) = r1 : ruota(2) = r2 :
                           ruote(1) = r1 : ruote(2) = r2 : ruote(3) = 11                         
                           '----------------------------------------
                           ambata(1) = n5
                           ImpostaGiocata 1,ambata,ruota,posta,k,1
                           ambo1(1) = n5
                           ambo1(2) = n9
                           ImpostaGiocata 2,ambo1,ruote,poste,k,2
                           ambo1(1) = n5
                           ambo1(2) = n10
                           ImpostaGiocata 3,ambo1,ruote,poste,k,2
                           

                           Gioca es
                        End If
                        
                        Next
                       
                     Next
                     Next   
                     Next    
                     Next   
                     Next 
                     If ScriptInterrotto Then Exit For
                     Next     
                     ScriviResoconto
                     End Sub

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

Re: Nuova richiesta SCRIPT

Messaggio da SeeLe8 » 17/07/2014, 14:49

GRAZIE MILLE DJ!!
I casi sono tanti, però i risultati mi sembrano buoni. Vedrò come ridurre... GRAZIE!! :abb:
Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite