Novità

Script per numero uguale e altro distanza 30.

J

Juri

Super Member >GOLD<
Ciao a tutti.

SI PRENDE SOLO AMBI UNITI ANCHE NON ISOTOPI.SE ESCE L’AMBATA PER AMBO SI SOSPENDE.

QUANDO ESCE UN N RIPETUTO E POI SU UN’ALTRA RUOTA LO STESSO N CON DISTANZA 30 DELL’ALTRO SI GIOCA ES DEL 4 SETT.EMBRE Su fi 73-74 e su ge 73-44.Somme 57 e 27.
Manca l’87 ambata con 27 e 57 per ambo.
Al 4° c 87-27 mi.

Il 27 sett su ca 57-47 1° e 2° e e su ve 57-77 in 1° e 5°.Manca il 74 ambata con 14-44.Al 7° c 74 ve e ambetto 44-75 ca.
Al 2° c 74-17 pa tt e diam ca con la variante.


VARIANTE.

Il 29 sett su ge 31-52 in 4 e 5° poi su ve 52-1 in 1 e 5°.Ambata 23 con 61 su ge-ve tutte.Poi 23-53-83.
All’8 c 23-83 na tt.


Sono 2 metodi che si possono anche mettere insieme per comodità.

Mi sono spiegato bene?

Grazie mille.

Buon pomeriggio.
 
Juri;n2136403 ha scritto:
Ciao Salvo.

Puoi fare anche questo e l'altro?

Grazie.
Clicca per espandere...

Solo adesso vedo, in questi giorni sono stato assente perche mi si è rotto l'hard disk e sto cercando tra le chiavette e i cd-dvd dove avevo salvato tutti i programmi ed anche gli script, purtroppo l'ultimo salvataggio degli script l'avevo fatto a Luglio quindi devo prenderli dal forum, comunque appena posso do uno sguardo anche a questo

Ciao
 
Grazie mille.

Se non sento niente Salvo quando posto gli script basta che dopo qualche giorno te lo dica?Cosi' so che almeno l'hai letto.

Ti faccio i complimenti per la tua disponibilità visto che non è da tutti.Comunque sicuramente chi fa del bene poi gli ritorna indietro.

Ho notato che nei libri che ho letto e blog c'è stato tanto materiale gratuito utile e dopo sono arrivati le ricompense.

Stammi bene.
 
Ciao a Tutti

Non ho capito bene come fare le giocate, vedi se può andare.

Codice: 
'CHIESTO DA JURI
'SI PRENDE SOLO AMBI UNITI ANCHE NON ISOTOPI.SE ESCE L’AMBATA PER AMBO SI SOSPENDE.
'QUANDO ESCE UN N RIPETUTO E POI SU UN’ALTRA RUOTA LO STESSO N CON Distanza 30
'DELL’ALTRO SI Gioca ES DEL 4 SETT.EMBRE Su fi 73-74 e su ge 73-44.Somme 57 e 27.
'Manca l’87 ambata con 27 e 57 per ambo.
'Al 4° c 87-27 mi.
'Il 27 sett su ca 57-47 1° e 2° e e su ve 57-77 In 1° e 5°.Manca il 74 ambata
'con 14-44.Al 7° c 74 ve e ambetto 44-75 ca.
'Al 2° c 74-17 pa tt e diam ca con la variante.
'VARIANTE.
'Il 29 sett su ge 31-52 In 4 e 5° poi su ve 52-1 In 1 e 5°.Ambata 23 con 61 su ge-ve tutte.Poi 23-53-83.
'All’8 c 23-83 na tt.
'Sono 2 metodi che si possono anche mettere insieme per comodità.
'Script by Salvo50
Option Explicit
Sub Main()
   Dim Ini,Fin,Es,R1,R2,E1,E2,Salvo50
   Dim P1,P2,P3,P4,P5,P6,A,B,C,D,Manca
   Dim Som1,Som2,Dist,Caso,Casi,Clp1,Clp2
   Dim Ruote(2),Posta(1),Poste(3),Tutte(1)
   Dim AMBA(1),Num(3)
   Fin = EstrazioneFin
   Posta(1) = 1
   Poste(2) = 1
   Clp1 = InputBox(" Per quanti colpi vuoi giocare l'ambata? ",Salvo50,6)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la terzina?",,6)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9300)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     If P1 = P3 Or P1 = P4 Or P2 = P3 Or P2 = P4 Then
                        A = Estratto(Es,R1,P1)
                        B = Estratto(Es,R1,P2)
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A = C Or A = D Or B = C Or B = D Then
                           Som1 = Fuori90(A + B)
                           Som2 = Fuori90(C + D)
                           Dist = Differenza(Som1,Som2)
                           If(Dist = 30 Or Dist = 60) Then
                              If Som1 > Som2 And(Som1 - Som2) = 60 Then Manca = Fuori90(Som1 - 30)
                              If Som1 > Som2 And(Som1 - Som2) = 30 Then Manca = Fuori90(Som1 + 30)
                              If Som2 > Som1 And(Som2 - Som1) = 60 Then Manca = Fuori90(Som2 - 30)
                              If Som2 > Som1 And(Som2 - Som1) = 30 Then Manca = Fuori90(Som2 + 30)
                              'End If
                              Scrivi
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi Space(5) & Format2(A) & " + " & Format2(B) & " = ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Som1),1
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi Space(5) & Format2(C) & " + " & Format2(D) & " = ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Som2),1
                              ColoreTesto 0
                              Scrivi
                              Scrivi Space(26) & " Completa la Terzina Simmetrica il Numero ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Manca),1
                              ColoreTesto 0
                              Scrivi
                              Ruote(1) = R1
                              Ruote(2) = R2
                              Tutte(1) = TT_
                              AMBA(1) = Manca
                              ImpostaGiocata 1,AMBA,Ruote,Posta,Clp1,1
                              Num(1) = Manca : Num(2) = Som1 : Num(3) = Som2
                              ImpostaGiocata 2,Num,Tutte,Poste,Clp2,2
                              Gioca Es
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Questo va bene.

La seconda variante si può fare uno script a parte o si mette insieme?Sarebbe un'altra tecnica.

Il 27 sett su ca 57-47 1° e 2° e e su ve 57-77 in 1° e 5°.Manca il 74 ambata.Si gioca però con il 17 che manca nella terzina base distanza 30.
Al 2° c 74-17 pa tt e diam ca con la variante.


VARIANTE.

Il 29 sett su ge 31-52 in 4 e 5° poi su ve 52-1 in 1 e 5°.Ambata 23 con 61 su ge-ve tutte.Manca il 61 distanza 30 dai numeri base.
All’8 c 23-83 na tt.

Mi sono spiegato bene?Non era chiara la prima spiegazione ho visto.

Grazie mille.
 
Ciao a Tutti

Juri;n2135942 ha scritto:
VARIANTE.

Il 29 sett su ge 31-52 in 4 e 5° poi su ve 52-1 in 1 e 5°.Ambata 23 con 61 su ge-ve tutte.Poi 23-53-83.
All’8 c 23-83 na tt.
Clicca per espandere...


Quel 61 è un numero fisso o lo hai ricavato in qualche modo?
 
Ultima modifica:
Ho messo anche l'ambetto


Codice: 
'CHIESTO DA JURI
'SI PRENDE SOLO AMBI UNITI ANCHE NON ISOTOPI.SE ESCE L’AMBATA PER AMBO SI SOSPENDE.
'QUANDO ESCE UN N RIPETUTO E POI SU UN’ALTRA RUOTA LO STESSO N CON Distanza 30
'DELL’ALTRO SI Gioca ES DEL 4 SETT.EMBRE Su fi 73-74 e su ge 73-44.Somme 57 e 27.
'Manca l’87 ambata con 27 e 57 per ambo.
'Al 4° c 87-27 mi.
'Il 27 sett su ca 57-47 1° e 2° e e su ve 57-77 In 1° e 5°.Manca il 74 ambata
'con 14-44.Al 7° c 74 ve e ambetto 44-75 ca.
'Al 2° c 74-17 pa tt e diam ca con la variante.
'VARIANTE.
'Il 29 sett su ge 31-52 In 4 e 5° poi su ve 52-1 In 1 e 5°.Ambata 23 con 61 su ge-ve tutte.Poi 23-53-83.
'All’8 c 23-83 na tt.
'Sono 2 metodi che si possono anche mettere insieme per comodità.
'Script by Salvo50
Option Explicit
Sub Main()
   Dim Ini,Fin,Es,R1,R2,E1,E2,Salvo50
   Dim P1,P2,P3,P4,P5,P6,A,B,C,D,Manca1,Manca2
   Dim Som1,Som2,Dist,Caso,Casi,Clp1,Clp2
   Dim Ruote(2),Posta(2),Poste(3),Tutte(1)
   Dim Num1(2),Num2(2),Num3(2),Num4(2),Num5(2)
   Dim Num6(2),Num7(2),Num8(2),Num9(2),Num10(2)
   Dim Num11(2),Num12(2),AMBA(2),Num_1(2),Num_2(2),Num_3(2)
   Fin = EstrazioneFin
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Clp1 = InputBox(" Per quanti colpi vuoi giocare l'ambata? ",Salvo50,6)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la terzina e gli Ambetti?",,6)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9500)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     If P1 = P3 Or P1 = P4 Or P2 = P3 Or P2 = P4 Then
                        A = Estratto(Es,R1,P1)
                        B = Estratto(Es,R1,P2)
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A = C Or A = D Or B = C Or B = D Then
                           Som1 = Fuori90(A + B)
                           Som2 = Fuori90(C + D)
                           Dist = Differenza(Som1,Som2)
                           If(Dist = 30 Or Dist = 60) Then
                              If Som1 > Som2 And(Som1 - Som2) = 60 Then Manca1 = Fuori90(Som1 - 30)
                              If Som1 > Som2 And(Som1 - Som2) = 30 Then Manca1 = Fuori90(Som1 + 30)
                              If Som2 > Som1 And(Som2 - Som1) = 60 Then Manca1 = Fuori90(Som2 - 30)
                              If Som2 > Som1 And(Som2 - Som1) = 30 Then Manca1 = Fuori90(Som2 + 30)
                              'End If
                              If A = C Then
                                 If B > D And(B - D) = 60 Then Manca2 = Fuori90(B - 30)
                                 If B > D And(B - D) = 30 Then Manca2 = Fuori90(B + 30)
                                 If D > B And(D - B) = 60 Then Manca2 = Fuori90(D - 30)
                                 If D > B And(D - B) = 30 Then Manca2 = Fuori90(D + 30)
                              End If
                              If A = D Then
                                 If B > C And(B - C) = 60 Then Manca2 = Fuori90(B - 30)
                                 If B > C And(B - C) = 30 Then Manca2 = Fuori90(B + 30)
                                 If C > B And(C - B) = 60 Then Manca2 = Fuori90(C - 30)
                                 If C > B And(C - B) = 30 Then Manca2 = Fuori90(C + 30)
                              End If
                              If B = C Then
                                 If A > D And(A - D) = 60 Then Manca2 = Fuori90(A - 30)
                                 If A > D And(A - D) = 30 Then Manca2 = Fuori90(A + 30)
                                 If D > A And(D - A) = 60 Then Manca2 = Fuori90(D - 30)
                                 If D > A And(D - A) = 30 Then Manca2 = Fuori90(D + 30)
                              End If
                              If B = D Then
                                 If A > C And(A - C) = 60 Then Manca2 = Fuori90(A - 30)
                                 If A > C And(A - C) = 30 Then Manca2 = Fuori90(A + 30)
                                 If C > A And(C - A) = 60 Then Manca2 = Fuori90(C - 30)
                                 If C > A And(C - A) = 30 Then Manca2 = Fuori90(C + 30)
                              End If
                              Scrivi
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi Space(5) & Format2(A) & " + " & Format2(B) & " = ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Som1),1
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi Space(5) & Format2(C) & " + " & Format2(D) & " = ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Som2),1
                              ColoreTesto 0
                              Scrivi
                              Scrivi Space(26) & " Completa la Terzina Simmetrica il Numero ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Manca1),1
                              ColoreTesto 0
                              Scrivi Space(26) & " Completa la Terzina Simmetrica degli estratti il Numero ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Manca2),1
                              ColoreTesto 0
                              Scrivi
                              Ruote(1) = R1
                              Ruote(2) = R2
                              Tutte(1) = TT_
                              AMBA(1) = Manca1 : AMBA(2) = Manca2
                              ImpostaGiocata 1,AMBA,Ruote,Posta,Clp1,1
                              Num_1(1) = Manca1 : Num_1(2) = Som1
                              ImpostaGiocata 2,Num_1,Tutte,Poste,Clp2,2
                              Num_2(1) = Manca1 : Num_2(2) = Som2
                              ImpostaGiocata 3,Num_2,Tutte,Poste,Clp2,2
                              Num_3(1) = Som1 : Num_3(2) = Som2
                              ImpostaGiocata 4,Num_3,Tutte,Poste,Clp2,2

                              '-------------Ambetti------------------------
                              Num1(1) = Manca1 : Num1(2) = Som1 + 1
                              ImpostaGiocata 5,Num1,Ruote,Poste,Clp2,2
                              Num2(1) = Manca1 : Num2(2) = Som1 - 1
                              ImpostaGiocata 6,Num2,Ruote,Poste,Clp2,2
                              Num3(1) = Manca1 + 1 : Num3(2) = Som1
                              ImpostaGiocata 7,Num3,Ruote,Poste,Clp2,2
                              Num4(1) = Manca1 - 1 : Num4(2) = Som1
                              ImpostaGiocata 8,Num4,Ruote,Poste,Clp2,2
                              '---------------------------------------------
                              Num5(1) = Manca1 : Num5(2) = Som2 + 1
                              ImpostaGiocata 9,Num5,Ruote,Poste,Clp2,2
                              Num6(1) = Manca1 : Num6(2) = Som2 - 1
                              ImpostaGiocata 10,Num6,Ruote,Poste,Clp2,2
                              Num7(1) = Manca1 + 1 : Num7(2) = Som2
                              ImpostaGiocata 11,Num7,Ruote,Poste,Clp2,2
                              Num8(1) = Manca1 - 1 : Num8(2) = Som2
                              ImpostaGiocata 12,Num8,Ruote,Poste,Clp2,2
                              '---------------------------------------------
                              Num9(1) = Som1 : Num9(2) = Som2 + 1
                              ImpostaGiocata 13,Num9,Ruote,Poste,Clp2,2
                              Num10(1) = Som1 : Num10(2) = Som2 - 1
                              ImpostaGiocata 14,Num10,Ruote,Poste,Clp2,2
                              Num11(1) = Som1 + 1 : Num11(2) = Som2
                              ImpostaGiocata 15,Num11,Ruote,Poste,Clp2,2
                              Num12(1) = Som1 - 1 : Num12(2) = Som2
                              ImpostaGiocata 16,Num12,Ruote,Poste,Clp2,2
                              Gioca Es
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Nessun fisso.E' stato ricavato.

La terzina simmetrica qui non si gioca.Quello è l'altro script che hai fatto e va bene cosi'.

La variante è a parte e si gioca l'ambo a ruota e ambetto.Poi per ambo solo a tutte non mabetto ma fai come sei comodo.

VARIANTE.

Il 29 sett su ge 31-52 in 4 e 5° poi su ve 52-1 in 1 e 5°.Ambata 23 con 61 su ge-ve tutte.Manca il 61 distanza 30 dai numeri base.

Il 61 è il n° mancante tra 31 e 1 che si abbina per ambo al 23.Mi sono spiegato?Se l'ambo era 76-52 e 16-52 il n° da abbinare per ambo era il 16.Mi sono spiegato?L'ambata la si calcola come nel primo caso.


La seconda variante si può fare uno script a parte o si mette insieme?Sarebbe un'altra tecnica.

Il 27 sett su ca 57-47 1° e 2° e e su ve 57-77 in 1° e 5°.Manca il 74 ambata.57+47=14 e 57+77=44.Manca il 74.


Si gioca però con il 17 che manca nella terzina base distanza 30 tra 47-77 dico.
Al 2° c 74-17 pa tt e diam ca con la variante.


Grazie mille.
 
Ultima modifica:
Va messo l'ambo a ruota e tutta non per ambate.Poi si interrompe se esce l'ambata e non vedo gli esiti di ambo a tutte dopo.
Vedo che non va bene.La giocata va bene.

Grazie mille.
 
Ciao Juri

Ne metto un'altro, nella giocata per tutte le ruote non ho messo anche le ruote fisse, perchè già sono in tutte le ruote, sarebbero dei doppioni. (sembra uno scioglilingua)


Codice: 
 'CHIESTO DA JURI
'SI PRENDE SOLO AMBI UNITI ANCHE NON ISOTOPI.SE ESCE L?AMBATA PER AMBO SI SOSPENDE.
'QUANDO ESCE UN N RIPETUTO E POI SU UN?ALTRA RUOTA LO STESSO N CON Distanza 30
'DELL?ALTRO SI Gioca ES DEL 4 SETT.EMBRE Su fi 73-74 e su ge 73-44.Somme 57 e 27.
'Manca l?87 ambata con 27 e 57 per ambo.
'Al 4° c 87-27 mi.
'Il 27 sett su ca 57-47 1° e 2° e e su ve 57-77 In 1° e 5°.Manca il 74 ambata
'con 14-44.Al 7° c 74 ve e ambetto 44-75 ca.
'Al 2° c 74-17 pa tt e diam ca con la variante.
'VARIANTE.
'Il 29 sett su ge 31-52 In 4 e 5° poi su ve 52-1 In 1 e 5°.Ambata 23 con 61 su ge-ve tutte.Poi 23-53-83.
'All?8 c 23-83 na tt.
'Sono 2 metodi che si possono anche mettere insieme per comodità.
'Script by Salvo50
Option Explicit
Sub Main()
   Dim Ini,Fin,Es,R1,R2,E1,E2,Salvo50,Ambetti
   Dim P1,P2,P3,P4,P5,P6,A,B,C,D,Manca1,Manca2
   Dim Som1,Som2,Dist,Caso,Casi,Clp1,Clp2,Clp3
   Dim Ruote(2),Posta(2),Poste(3),Tutte(2),Posts(1)
   Dim Num1(2),Num2(2),Num3(2),Num4(2),Num5(2)
   Dim Num6(2),Num7(2),Num8(2),Num9(2),Num10(2),Amba2(2)
   Dim Num11(2),Num12(2),AMBA1(1),Num_1(2),Num_2(2),Num_3(2)
   Fin = EstrazioneFin
   Posts(1) = 1
   'Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Clp1 = InputBox(" Per quanti colpi vuoi giocare l'ambata? ",Salvo50,6)
   Ambetti = InputBox(" Vuoi giocare gli ambetti? (SI = 1) - (NO qualsiasi altro numero)  ",Salvo50,2)
   If Ambetti = 1 Then
      Clp2 = InputBox("Per quanti colpi vuoi giocare   gli Ambetti?",,6)
   End If
  Clp3 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",,6)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9500)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     If P1 = P3 Or P1 = P4 Or P2 = P3 Or P2 = P4 Then
                        A = Estratto(Es,R1,P1)
                        B = Estratto(Es,R1,P2)
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A = C Or A = D Or B = C Or B = D Then
                           Som1 = Fuori90(A + B)
                           Som2 = Fuori90(C + D)
                           Dist = Differenza(Som1,Som2)
                           If(Dist = 30 Or Dist = 60) Then
                              If Som1 > Som2 And(Som1 - Som2) = 60 Then Manca1 = Fuori90(Som1 - 30)
                              If Som1 > Som2 And(Som1 - Som2) = 30 Then Manca1 = Fuori90(Som1 + 30)
                              If Som2 > Som1 And(Som2 - Som1) = 60 Then Manca1 = Fuori90(Som2 - 30)
                              If Som2 > Som1 And(Som2 - Som1) = 30 Then Manca1 = Fuori90(Som2 + 30)
                              'End If
                              If A = C Then
                                 If B > D And(B - D) = 60 Then Manca2 = Fuori90(B - 30)
                                 If B > D And(B - D) = 30 Then Manca2 = Fuori90(B + 30)
                                 If D > B And(D - B) = 60 Then Manca2 = Fuori90(D - 30)
                                 If D > B And(D - B) = 30 Then Manca2 = Fuori90(D + 30)
                              End If
                              If A = D Then
                                 If B > C And(B - C) = 60 Then Manca2 = Fuori90(B - 30)
                                 If B > C And(B - C) = 30 Then Manca2 = Fuori90(B + 30)
                                 If C > B And(C - B) = 60 Then Manca2 = Fuori90(C - 30)
                                 If C > B And(C - B) = 30 Then Manca2 = Fuori90(C + 30)
                              End If
                              If B = C Then
                                 If A > D And(A - D) = 60 Then Manca2 = Fuori90(A - 30)
                                 If A > D And(A - D) = 30 Then Manca2 = Fuori90(A + 30)
                                 If D > A And(D - A) = 60 Then Manca2 = Fuori90(D - 30)
                                 If D > A And(D - A) = 30 Then Manca2 = Fuori90(D + 30)
                              End If
                              If B = D Then
                                 If A > C And(A - C) = 60 Then Manca2 = Fuori90(A - 30)
                                 If A > C And(A - C) = 30 Then Manca2 = Fuori90(A + 30)
                                 If C > A And(C - A) = 60 Then Manca2 = Fuori90(C - 30)
                                 If C > A And(C - A) = 30 Then Manca2 = Fuori90(C + 30)
                              End If
                              Scrivi
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi Space(5) & Format2(A) & " + " & Format2(B) & " = ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Som1),1
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi Space(5) & Format2(C) & " + " & Format2(D) & " = ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Som2),1
                              ColoreTesto 0
                              Scrivi
                              Scrivi Space(26) & " Completa la Terzina Simmetrica il Numero ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Manca1),1
                              ColoreTesto 0
                              Scrivi Space(26) & " Completa la Terzina Simmetrica degli estratti il Numero ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Manca2),1
                              ColoreTesto 0
                              Scrivi
                              Ruote(1) = R1
                              Ruote(2) = R2
                              Tutte(1) = TT_
                              'Tutte(2) = 12
                              AMBA1(1) = Manca1
                              ImpostaGiocata 1,AMBA1,Ruote,Posts,Clp1,1
                              Amba2(1) = Manca1 : Amba2(2) = Manca2
                              ImpostaGiocata 2,Amba2,Ruote,Posta,Clp1,2
                              ImpostaGiocata 3,Amba2,Tutte,Poste,Clp1,2
                              '
                              Num_1(1) = Manca1 : Num_1(2) = Som1
                              ImpostaGiocata 4,Num_1,Tutte,Poste,Clp3,2
                              Num_2(1) = Manca1 : Num_2(2) = Som2
                              ImpostaGiocata 5,Num_2,Tutte,Poste,Clp3,2
                              Num_3(1) = Som1 : Num_3(2) = Som2
                              ImpostaGiocata 6,Num_3,Tutte,Poste,Clp3,2
                              If Ambetti = 1 Then
                                 '-------------Ambetti------------------------
                                 Num1(1) = Manca1 : Num1(2) = Som1 + 1
                                 ImpostaGiocata 7,Num1,Ruote,Poste,Clp2,2
                                 Num2(1) = Manca1 : Num2(2) = Som1 - 1
                                 ImpostaGiocata 8,Num2,Ruote,Poste,Clp2,2
                                 Num3(1) = Manca1 + 1 : Num3(2) = Som1
                                 ImpostaGiocata 9,Num3,Ruote,Poste,Clp2,2
                                 Num4(1) = Manca1 - 1 : Num4(2) = Som1
                                 ImpostaGiocata 10,Num4,Ruote,Poste,Clp2,2
                                 '---------------------------------------------
                                 Num5(1) = Manca1 : Num5(2) = Som2 + 1
                                 ImpostaGiocata 11,Num5,Ruote,Poste,Clp2,2
                                 Num6(1) = Manca1 : Num6(2) = Som2 - 1
                                 ImpostaGiocata 12,Num6,Ruote,Poste,Clp2,2
                                 Num7(1) = Manca1 + 1 : Num7(2) = Som2
                                 ImpostaGiocata 13,Num7,Ruote,Poste,Clp2,2
                                 Num8(1) = Manca1 - 1 : Num8(2) = Som2
                                 ImpostaGiocata 14,Num8,Ruote,Poste,Clp2,2
                                 '---------------------------------------------
                                 Num9(1) = Som1 : Num9(2) = Som2 + 1
                                 ImpostaGiocata 15,Num9,Ruote,Poste,Clp2,2
                                 Num10(1) = Som1 : Num10(2) = Som2 - 1
                                 ImpostaGiocata 16,Num10,Ruote,Poste,Clp2,2
                                 Num11(1) = Som1 + 1 : Num11(2) = Som2
                                 ImpostaGiocata 17,Num11,Ruote,Poste,Clp2,2
                                 Num12(1) = Som1 - 1 : Num12(2) = Som2
                                 ImpostaGiocata 18,Num12,Ruote,Poste,Clp2,2
                              End If
                              Gioca Es
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Su ruota fissa non sospende il gioco anche di ambo se esce una delle 2 ambate?Gli ambi vanno avanti?

Grazie mille.
 
Juri;n2139180 ha scritto:
Su ruota fissa non sospende il gioco anche di ambo se esce una delle 2 ambate?Gli ambi vanno avanti?

Grazie mille.
Clicca per espandere...

Ciao a Tutti.

La sospensione all'uscita dell'ambata non l'avevo messo perchè il gioco a ruota l'avevo impostato solo per gli ambetti, avevo capito che l'ambata non ti interessava, evidentemente avevo capito male, adesso ho messo un'altra giocata solo per le ambate a ruota e all'uscita della prima ambata sospende la ricerca
 
Gli ambetti puoi tirarli via?
L'ambata è solo 1 non 2.Cosi' vedo da statistica se funziona.

Il resto va bene.

Grazie mille.



Estrazione n.9539 del 16.10.2018 BA 21 59 30 39 78 30 + 39 = 69
Estrazione n.9539 del 16.10.2018 RO 37 69 30 19 74 69 + 30 = 09

Completa la Terzina Simmetrica il Numero 39 AMBATA
Completa la Terzina Simmetrica degli estratti il Numero 09.Ambo 9-39 anche a tutte.


Estrazione generatrice del pronostico 09539 [124 - 16/10/2018]
G 0001 Numeri in gioco : 39.09 su BA RO per Estratto,Ambo

Estrazione n.9541 del 20.10.2018 NA 19 47 46 83 28 19 + 47 = 66
Estrazione n.9541 del 20.10.2018 NZ 62 19 82 77 18 19 + 77 = 06

Completa la Terzina Simmetrica il Numero 36 amabata.Al 2 c naz.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 agosto 2025
    Bari
    22
    86
    27
    44
    02
    Cagliari
    38
    11
    60
    69
    27
    Firenze
    45
    54
    37
    35
    41
    Genova
    53
    46
    12
    18
    13
    Milano
    09
    61
    13
    86
    70
    Napoli
    54
    57
    34
    70
    35
    Palermo
    40
    25
    24
    67
    74
    Roma
    66
    30
    54
    56
    24
    Torino
    17
    75
    55
    13
    19
    Venezia
    78
    17
    12
    85
    90
    Nazionale
    72
    01
    46
    50
    52
    Estrazione Simbolotto
    Nazionale
    28
    26
    27
    21
    37
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto