la somma 90

[Zetrix]

ciao,
dovrei sistemare una tecnica ma non riesco a completare lo script

esempio sulla ruota di VE abbiamo una somma 90 (84+6)
questa somma serve a isolare i tre numeri rimanenti
adesso la parte piu difficile e questa serve identificare questi
tre numeri rimanenti e disporli dal numero piu grande al piu piccolo
esempio i tre numeri rimanenti sono 31 81 61
li disponiamo in questo modo 81 61 31 adesso si applica la formula a-b+c
81-61+31=51
l'ambata e 51 e gioca a VE e la secondaria e MI (la diametrale)..
la seconda parte per ambo lo so fare ma non riesco a completare la prima parte
dell'ambata

 

[i legend]

Ci provo

 

[Zetrix]

grazie i legend , lo script lo completato ma non riesco a identificare quei tre numeri
rimanenti ho fatto diverse prove ma non ci sono riuscito..

 

[Zetrix]

i legend questa e una mia tecnica (la somma 90 fa boom) scrivela nel listato ancora qualcuno la copiasse..
ho provato con SpazioLight ma non ci sono riuscito a completare lo script..
soltanto la somma 90 sono riuscito a scrivere nella tabella..

 

[i legend]

Zetrix devo farlo su carta .
Oravho un impegno dopo cena mi ci metto , se qualcuno non ha già fatto.
A dopo.

 

[Zetrix]

va bene i legend , a dopo

 

[i legend]

Ok lo ricontrollo questa sera.

 

[Zetrix]

Ciao ilegend , ho provato lo script ma non calcola niente..

 

[i legend]

Non da errore, ma non calcola.
Che range hai scelto?

 

[i legend]

Prendi almeno 1000 estrazioni fa i calcoli solo su Bari.

 

[Zetrix]

i legend il range ho scelto di 8 estr indietro ma le ruote sono incluse tutte
oppure ai messo solo la ruota di BA..
lo script non da errore ma non calcola niente..

 

[i legend]

È uscita una somma 90 su Bari nelle ultime 8 estrazioni?

 

[Zetrix]

ho messo Dim R : R = 10
e da errore a queste..
AP(p1) = 1
AP(p2) = 1

invece se scrivo Dim R : R = 1

non da errore ma non calcola niente

 

[Zetrix]

È uscita una somma 90 su Bari nelle ultime 8 estrazioni?

no

 

[i legend]

Quindi è per questo che non trova nulla

 

[Zetrix]

i legend se metto il mio script riesci a modificarlo oppure vuoi fare uno nuovo..

 

[Zetrix]

Sub Main
   Dim ambata1(2),ambata2(2),calc(10),ruota(5),ruote1(5),ruote2(2),quaterna(6),posta(2),poste1(2),poste2(4)
   Dim ambata3(2),ambo1(2),ambo2(2),ambo3(2)
   Dim r1,r2,rs,es,rk,rx
   Dim a,b,c,x,y,k,w,z,j,d,f,v,s,t,h
   Dim a1,a2,a3,a4,a5
   Dim sAmbo
   '
   posta(1) = 1
   '--------------------
   poste1(2) = 1
   '--------------------
   poste2(2) = 1
   poste2(3) = 1
   poste2(4) = 1
   '------------
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   k = 9
   For es = EstrazioneFin - rs To EstrazioneFin
      '-------------------------------
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12 End If
         For r2 = 1 To 12
            If r2 = 11 Then r2 = 12 End If
            '--------------------------
            For p1 = 1 To 4
               For p2 = p1 To 5
                  '--------------------------
                  'For rx = rk To rk
                  '-----------------------------
                  a1 = Estratto(es,r1,1)
                  a2 = Estratto(es,r1,2)
                  a3 = Estratto(es,r1,3)
                  a4 = Estratto(es,r1,4)
                  a5 = Estratto(es,r1,5)
                  '---------------------------------
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  '------------------------------
                  c = Estratto(es,r2,p1)
                  d = Estratto(es,r2,p2)
                  '--------------------------------
                  '------------------------------------------------
                  '------------------------------
                  w =(a + b)
                  y = Fuori90(c + d)
                  '-------------------------------------
                  '---------
                  x = Fuori90(a2 - a5 + a1)
                  '----------------------------
                  '----------------------------
                  '---------------------------------
                  '-------------------------
                  If w = 90 Then
                     '
                     '
                     '
                     '---------------------------
                     '
                     If p1 <> p2 Then
                        '
                        '
                        '-------------------------
                        '
                        sAmbo = sAmbo & x & "-" & y & "   " & SiglaRuota(r1) & "-" & SiglaRuota(r2) & "" & vbCrLf
                        '
                        '-----------------------------
                        ambata1(1) = x
                        '---------------------------------
                        ambo1(1) = x
                        ambo1(2) = Fuori90(c + d)
                        '----------------------------------
                        '---------------
                        '
                        ruota(1) = r1
                        ruota(2) = RuotaDiametrale(r1)
                        '-------------------------------
                        ruote1(1) = r1
                        ruote1(2) = RuotaDiametrale(r1)
                        ruote1(3) = 11
                        ruote1(4) = 12
                        '------------------------------
                        '-------------------------------
                        ruote2(1) = r1
                        ruote2(2) = RuotaDiametrale(r1)
                        '------------------------------
                        calc(1) = a
                        calc(2) = b
                        calc(3) = c
                        '-------------------------------
                        '
                        ReDim MatriceCaselleDaEvid(4,1)
                        '
                        MatriceCaselleDaEvid(1,0) = r1
                        MatriceCaselleDaEvid(1,1) = p1
                        '
                        MatriceCaselleDaEvid(2,0) = r1
                        MatriceCaselleDaEvid(2,1) = p2
                        '
                        MatriceCaselleDaEvid(3,0) = r2
                        MatriceCaselleDaEvid(3,1) = p1
                        '
                        MatriceCaselleDaEvid(4,0) = r2
                        MatriceCaselleDaEvid(4,1) = p2
                        '-----------------------------------
                        '
                        Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                        '
                        Scrivi("" &(a) & "+" &(b) & " = " &(w) & ""),0,1,1,5
                        Scrivi
                        Scrivi("" &(c) & "+" &(d) & " = " &(y) & ""),0,1,4,1
                        Scrivi
                        'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                        ImpostaGiocata 1,ambata1,ruota,posta,k
                        Gioca es,1,,1
                        Scrivi
                        Scrivi String(55,".")
                        Scrivi
                        ImpostaGiocata 1,ambo1,ruote1,poste1,k
                        Gioca es,1,,1
                        Scrivi
                        Scrivi String(55,".")
                        Scrivi
                        'ImpostaGiocata 1,ambo2,ruote1,poste1,k
                        'Gioca es,1,,1
                        Scrivi
                        Scrivi String(55,".")
                        Scrivi
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi(sAmbo),0,1,1,3,4
End Sub

i legend questo e lo script che ho scritto io ma si deve sistemare il calcolo dell'ambata..
in questo script ho calcolato soltanto la ruota di venezia di questa estr..
vedi se riesci a modificare questo script..
oppure devi scrivere uno nuovo..ma deve essere simile a questo script..
con la tabella delle estr..

 

[i legend]

Ciao zetrix allora cerchiamo di risolvere un problema per volta .
Mi dici dove ho dichiarato aP?
Dim aP dove è?
Insieme agli altri dim oppure prima del ciclo
For p1 = 1 to 5
Next
Poi proviamo a fare la tabella.

 

[Zetrix]

i legend stasera ho giocato il 9 51 a VE mannaggia la sfortuna e uscito il 9 56

 

[Zetrix]

lo script che ai fatto e questo..non da errore lo script ma non calcola niente..
ma a VE ce una somma 90

anzi no lo script da errore se metto un range di 13 estr, prima avevo messo un range di 1 estr,
AP(p1) = 1
AP(p2) = 1
lo script segnala questo errore a queste due righe AP