Novità

Chi riesce a modificarmi questo script?

Juri

Super Member >GOLD<
Si riesce Salvo a fare uno script solo su una ruota ma con casi uniti e basta anche in 1 e 5° posizione?Es su roma 2 e 3° e 1 e 2° e cosi' via.

In max 5 estrazioni di distanza andando indietro.

Grazie mille.
 

salvo50

Advanced Member >PLATINUM PLUS<
Juri;n2133042 ha scritto:
Si riesce Salvo a fare uno script solo su una ruota ma con casi uniti e basta anche in 1 e 5° posizione?Es su roma 2 e 3° e 1 e 2° e cosi' via.

In max 5 estrazioni di distanza andando indietro.

Grazie mille.

Ciao a Tutti

Se vuoi vedere il cerchiociclometrico togli la spunta alla rispettiva riga, ho inserito anche la visualizzazione della distribuzione degli esiti e dei casi in corso

Codice:
Option Explicit
Sub Main()
   Dim Quante,Dist,Rit,Ini,Fin,Es,Ex,R1,R2,P3,P4
   Dim P1,P2,A,B,C,D,Sf,Cont,Manca1,Manca2,Clp
   Dim N1(2),N2(2),Ruote(1),Posta(2),Tot(6),Ru(1),Num(2)
   Posta(1) = 1
   Posta(2) = 1
   Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?",,10))
   If Quante = False Then Exit Sub
   Dist = 30 'CInt(InputBox("Quale Distanza",,30))
   Rit = InputBox("Quale Ritardo ruota2 ricercare",,5)
   Clp = CInt(InputBox("QUANTI COLPI VUOI GIOCARE?",,10))
   Scrivi "Ambo anche Posizione diversa e consecutivo 1 Ruota e con Distanza Diagonale o Verticale od Orizontale = " & Dist,1,,,,3,,1
   Scrivi
   Ini = EstrazioneFin - Quante
   Fin = EstrazioneFin
   For Es = Ini To Fin
      Messaggio "[" & Es & "]ª"
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            P2 = FuoriX(P1 + 1,5)
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            For Ex = Es - Rit To Es - 1
               For P3 = 1 To 5
                  P4 = FuoriX(P3 + 1,5)
                  C = Estratto(Ex,R1,P3)
                  D = Estratto(Ex,R1,P4)
                  If(Distanza(A,D) = Dist And Distanza(B,C) = Dist) Xor(Distanza(A,C) = Dist And Distanza(B,D) = Dist)_
                     Xor(Distanza(A,B) = Dist And Distanza(C,D) = Dist) Then
                     N1(1) = A
                     N1(2) = B
                     N2(1) = C
                     N2(2) = D
                     Ru(1) = R1
                     Sf = SerieRitardo(Ini,Es,N2,Ru,2)
                     If Sf < Rit Then
                        Cont = Cont + 1 : Scrivi
                        ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & Cont,1 : ColoreTesto 0 : Scrivi
                        Scrivi GetInfoEstrazione(Es) & vbTab & SiglaRuota(R1) & vbTab & StringaEstratti(Es,R1),1,0
                        Scrivi Space(10) & StringaNumeri(N1,,1) & vbTab & "(" & P1 & "-" & P2 & ")",1
                        Scrivi Space(74) & "         Distanza    ",1,0
                        ColoreTesto 2 : Scrivi Dist,1 : ColoreTesto 0
                        Scrivi GetInfoEstrazione(Ex) & vbTab & SiglaRuota(R1) & vbTab & StringaEstratti(Ex,R1),1,0
                        Scrivi Space(10) & StringaNumeri(N2,,1) & vbTab & "(" & P3 & "-" & P4 & ")" & vbTab & Sf,1
                        If Distanza(A,B) = Dist And Distanza(C,D) = Dist Then
                           If A > B And Abs(A - B) = 60 Then Manca1 = Fuori90(A - Dist)
                           If A > B And Abs(A - B) = 30 Then Manca1 = Fuori90(A + Dist)
                           If B > A And Abs(B - A) = 60 Then Manca1 = Fuori90(B - Dist)
                           If B > A And Abs(B - A) = 30 Then Manca1 = Fuori90(B + Dist)
                           If C > D And Abs(C - D) = 60 Then Manca2 = Fuori90(C - Dist)
                           If C > D And Abs(C - D) = 30 Then Manca2 = Fuori90(C + Dist)
                           If D > C And Abs(D - C) = 60 Then Manca2 = Fuori90(D - Dist)
                           If D > C And Abs(D - C) = 30 Then Manca2 = Fuori90(D + Dist)
                        End If
                        If Distanza(A,C) = Dist And Distanza(B,D) Then
                           If A > C And Abs(A - C) = 60 Then Manca1 = Fuori90(A - Dist)
                           If A > C And Abs(A - C) = 30 Then Manca1 = Fuori90(A + Dist)
                           If C > A And Abs(C - A) = 60 Then Manca1 = Fuori90(C - Dist)
                           If C > A And Abs(C - A) = 30 Then Manca1 = Fuori90(C + Dist)
                           If B > D And Abs(B - D) = 60 Then Manca2 = Fuori90(B - Dist)
                           If B > D And Abs(B - D) = 30 Then Manca2 = Fuori90(B + Dist)
                           If D > B And Abs(D - B) = 60 Then Manca2 = Fuori90(D - Dist)
                           If D > B And Abs(D - B) = 30 Then Manca2 = Fuori90(D + Dist)
                        End If
                        If Distanza(A,D) = Dist And Distanza(B,C) = Dist Then
                           If A > D And Abs(A - D) = 60 Then Manca1 = Fuori90(A - Dist)
                           If A > D And Abs(A - D) = 30 Then Manca1 = Fuori90(A + Dist)
                           If D > A And Abs(D - A) = 60 Then Manca1 = Fuori90(D - Dist)
                           If D > A And Abs(D - A) = 30 Then Manca1 = Fuori90(D + Dist)
                           If C > B And Abs(C - B) = 60 Then Manca2 = Fuori90(C - Dist)
                           If C > B And Abs(C - B) = 30 Then Manca2 = Fuori90(C + Dist)
                           If B > C And Abs(B - C) = 60 Then Manca2 = Fuori90(B - Dist)
                           If B > C And Abs(B - C) = 30 Then Manca2 = Fuori90(B + Dist)
                        End If
                        Scrivi
                        Scrivi Space(20) & " Mancano i numeri ",1,0
                        ColoreTesto 2 : Scrivi Format2(Manca1) & " e " & Format2(Manca2),1,0 : ColoreTesto 0
                        Scrivi " per chiudere le due terzine",1
                        Scrivi
                        Tot(1) = A
                        Tot(2) = B
                        Tot(3) = C
                        Tot(4) = D
                        Tot(5) = Manca1
                        Tot(6) = Manca2
                        'DisegnaCerchioCiclometrico Tot,1,,,,1
                        Ruote(1) = R1
                        Num(1) = Manca1 : Num(2) = Manca2
                        ImpostaGiocata 1,Num,Ruote,Posta,Clp
                        Gioca Es
                        Scrivi String(90,"=")
                     End If
                  End If
                  'Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
   ScriviDistribuzioneCasiInCorso(True) ' come sopra
   ScriviResoconto
End Sub
 
Ultima modifica:

Juri

Super Member >GOLD<
ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True

Mi dice errore. 13 linea 104.Errore di run time di microsoft VBScript.

Grazie.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ho lanciato lo script ed a me non da errori, probabilmente quando hai fatto copia e incolla si saranno creati degli spazi (a volte lo fa), che ti devo dire, se non riesci a vedere l'inghippo, metti la spunta o elimina la riga o riprendi di nuovo lo script, io ho lanciato quello postato.
 
Ultima modifica:
L

LuigiB

Guest
ciao , quella è una funzionalità piuttosto recente .. se non hai l'ultima versione di spaziometria ti conviene remmare la riga .. potrebbe darsi che l'errore sia dovuto alla mancanza di quella funzione nella tua versione...
 

salvo50

Advanced Member >PLATINUM PLUS<
LuigiB;n2133087 ha scritto:
ciao , quella è una funzionalità piuttosto recente .. se non hai l'ultima versione di spaziometria ti conviene remmare la riga .. potrebbe darsi che l'errore sia dovuto alla mancanza di quella funzione nella tua versione...

Ciao Luigi
grazie,
non avevo idea dell'errore segnalato da Juri, pensavo che fosse un errore di copia e incolla.
 
L

LuigiB

Guest
ciao Salvo .. tutte le ipotesi sono sempre possibili ..l forum gioca strani scherzi io per esempio prima volevo riportare dei dati in un altro post e me li aveva messi tutti appiccicati ...li ho prima dovuti mettre in notepad e poi incollarli ...
 

Juri

Super Member >GOLD<
Ciao Salvo.

Nello script con cerchio ciclometrico del 19 agosto penso non c'è la stessa estrazione e se metto 0 non va.Si puo' fare?Sono i piu' importanti.

Tu di solito anche negli altri script le metti?Ovviamente se bisogna andare indietro o avanti nella ricerca va bene.

Il 4 dicembre c'è questa previsione ma non risulta.
Torino169194382
Nazionale961861388


il 27 novembre questa ma non c'è.
Milano6321559077
Roma273011514


Grazie mille.
 

salvo50

Advanced Member >PLATINUM PLUS<
Juri;n2143307 ha scritto:
Ciao Salvo.

Nello script con cerchio ciclometrico del 19 agosto penso non c'è la stessa estrazione e se metto 0 non va.Si puo' fare?Sono i piu' importanti.

Tu di solito anche negli altri script le metti?Ovviamente se bisogna andare indietro o avanti nella ricerca va bene.

Il 4 dicembre c'è questa previsione ma non risulta.
Torino169194382
Nazionale961861388


il 27 novembre questa ma non c'è.
Milano6321559077
Roma273011514


Grazie mille.

Ciao a Tutti.

La prima quella di To - Nz a me risulta che c'è

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/TwhWh8kL\/cerchio.png"}[/IMG2]


La seconda quella di MI - RO

non ho capito, c'è e non ci deve essere, o non c'è e ci deve essere?
 

Juri

Super Member >GOLD<
Non c'è ma ci deve essere.

Puoi rimandarmi lo script che vedo se ci sono dei problemi con spaziometria?

Grazie.
 

Juri

Super Member >GOLD<
Non riesco a salvare gli script perchè non li trovo.C'è un modo in spaziometria?sI VEDE che ci sono altre cartelle che bloccano.Ho messo la versione 31 e fatto pulizia.
 

Juri

Super Member >GOLD<
salvo50;n2127427 ha scritto:
Ciao a Tutti.

Lo script è molto lento, credo sia perchè deve disegnare il cerchio ciclometrico, i 2 numeri mancanti delle terzine simmetriche non li ho evidenziati, devo ancora vedere come fare, però ho inserito la ricerca dei 2 numeri mancanti delle 2 terzine simmetriche.

Lo script è da riprendere perchè ho evidenziato i 2 numeri mancanti ed ho messo la distanza 30 fissa, perchè con altre distanze lo script è imprevedibile

Codice:
Option Explicit
Sub Main()
Dim Quante,Dist,Rit,Ini,Fin,Es,Ex,R1,R2
Dim P1,P2,A,B,C,D,Sf,Cont,Manca1,Manca2,Clp
Dim N1(2),N2(2),Ruote(2),Posta(2),Tot(6),Ru(1),Num(2)
Posta(1) = 1
Posta(2) = 1
Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",8))
If Quante = False Then Exit Sub
Dist = 30 'CInt(InputBox("Quale Distanza",,30))
Rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
Clp = CInt(InputBox("QUANTI COLPI VUOI GIOCARE?",,10))
Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale o Verticale od Orizontale = " & Dist,1,,,,3,,1
Scrivi
Ini = EstrazioneFin - Quante
Fin = EstrazioneFin
For Es = Ini To Fin
Messaggio "[" & Es & "]ª"
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For Ex = Es - Rit To Es - 1
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
C = Estratto(Ex,R2,P1)
D = Estratto(Ex,R2,P2)
If(Distanza(A,D) = Dist And Distanza(B,C) = Dist) Xor(Distanza(A,C) = Dist And Distanza(B,D) = Dist)_
Xor(Distanza(A,B) = Dist And Distanza(C,D) = Dist) Then
N1(1) = A
N1(2) = B
N2(1) = C
N2(2) = D
Ru(1) = R2
Sf = SerieRitardo(Ini,Es,N2,Ru,2)
If Sf < Rit Then
Cont = Cont + 1 : Scrivi
ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & Cont,1 : ColoreTesto 0 : Scrivi
Scrivi GetInfoEstrazione(Es) & vbTab & SiglaRuota(R1) & vbTab & StringaEstratti(Es,R1),1,0
Scrivi Space(10) & StringaNumeri(N1,,1) & vbTab & "(" & P1 & "-" & P2 & ")",1
Scrivi Space(74) & " Distanza ",1,0
ColoreTesto 2 : Scrivi Dist,1 : ColoreTesto 0
Scrivi GetInfoEstrazione(Ex) & vbTab & SiglaRuota(R2) & vbTab & StringaEstratti(Ex,R2),1,0
Scrivi Space(10) & StringaNumeri(N2,,1) & vbTab & "(" & P1 & "-" & P2 & ")" & vbTab & Sf,1
If Distanza(A,B) = Dist And Distanza(C,D) = Dist Then
If A > B And Abs(A - B) = 60 Then Manca1 = Fuori90(A - Dist)
If A > B And Abs(A - B) = 30 Then Manca1 = Fuori90(A + Dist)
If B > A And Abs(B - A) = 60 Then Manca1 = Fuori90(B - Dist)
If B > A And Abs(B - A) = 30 Then Manca1 = Fuori90(B + Dist)
If C > D And Abs(C - D) = 60 Then Manca2 = Fuori90(C - Dist)
If C > D And Abs(C - D) = 30 Then Manca2 = Fuori90(C + Dist)
If D > C And Abs(D - C) = 60 Then Manca2 = Fuori90(D - Dist)
If D > C And Abs(D - C) = 30 Then Manca2 = Fuori90(D + Dist)
End If
If Distanza(A,C) = Dist And Distanza(B,D) Then
If A > C And Abs(A - C) = 60 Then Manca1 = Fuori90(A - Dist)
If A > C And Abs(A - C) = 30 Then Manca1 = Fuori90(A + Dist)
If C > A And Abs(C - A) = 60 Then Manca1 = Fuori90(C - Dist)
If C > A And Abs(C - A) = 30 Then Manca1 = Fuori90(C + Dist)
If B > D And Abs(B - D) = 60 Then Manca2 = Fuori90(B - Dist)
If B > D And Abs(B - D) = 30 Then Manca2 = Fuori90(B + Dist)
If D > B And Abs(D - B) = 60 Then Manca2 = Fuori90(D - Dist)
If D > B And Abs(D - B) = 30 Then Manca2 = Fuori90(D + Dist)
End If
If Distanza(A,D) = Dist And Distanza(B,C) = Dist Then
If A > D And Abs(A - D) = 60 Then Manca1 = Fuori90(A - Dist)
If A > D And Abs(A - D) = 30 Then Manca1 = Fuori90(A + Dist)
If D > A And Abs(D - A) = 60 Then Manca1 = Fuori90(D - Dist)
If D > A And Abs(D - A) = 30 Then Manca1 = Fuori90(D + Dist)
If C > B And Abs(C - B) = 60 Then Manca2 = Fuori90(C - Dist)
If C > B And Abs(C - B) = 30 Then Manca2 = Fuori90(C + Dist)
If B > C And Abs(B - C) = 60 Then Manca2 = Fuori90(B - Dist)
If B > C And Abs(B - C) = 30 Then Manca2 = Fuori90(B + Dist)
End If
Scrivi
Scrivi Space(20) & " Mancano i numeri ",1,0
ColoreTesto 2 : Scrivi Format2(Manca1) & " e " & Format2(Manca2),1,0 : ColoreTesto 0
Scrivi " per chiudere le due terzine",1
Scrivi
Tot(1) = A
Tot(2) = B
Tot(3) = C
Tot(4) = D
Tot(5) = Manca1
Tot(6) = Manca2
DisegnaCerchioCiclometrico Tot,1,,,,1
Ruote(1) = R1
Ruote(2) = R2
Num(1) = Manca1 : Num(2) = Manca2
ImpostaGiocata 1,Num,Ruote,Posta,Clp
Gioca Es
Scrivi String(90,"=")
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

Questo script mi parte da 9472 e non va oltre l'8 maggio 2018.

Grazie.
 

salvo50

Advanced Member >PLATINUM PLUS<
Io ho usato lo script del post 14, perchè qualche mese fa, mi si è rotto l'hardisk e dato che l'ultimo salvataggio l'avevo fatto a Luglio, gli script fatti ad Agosto, Settembre, e Ottobre, li ho persi.
 

salvo50

Advanced Member >PLATINUM PLUS<
Juri;n2143318 ha scritto:
Questo script mi parte da 9472 e non va oltre l'8 maggio 2018.

Grazie.

Ho lanciato lo script postato da te e senza cambiare nulla a me parte dall'estrazione 9553 e finisce all'estrazione 9562
 

salvo50

Advanced Member >PLATINUM PLUS<
Juri;n2143307 ha scritto:
Ciao Salvo.

Nello script con cerchio ciclometrico del 19 agosto penso non c'è la stessa estrazione e se metto 0 non va.Si puo' fare?Sono i piu' importanti.

Tu di solito anche negli altri script le metti?Ovviamente se bisogna andare indietro o avanti nella ricerca va bene.

Il 4 dicembre c'è questa previsione ma non risulta.
Torino169194382
Nazionale961861388


il 27 novembre questa ma non c'è.
Milano6321559077
Roma273011514


Grazie mille.

quella del 27-11-18

Mi 63-21-55-90-77
Ro 27-30-11-51-04

non l'avevo trovata, quindi ho modificato lo script del post 14, è da riprendere
 

Juri

Super Member >GOLD<
Si puo' mettere anche a tutte l'ambo?

In spaziometria sai come salvo gli script?Vedo che non mi apre la cartella se vado in programmi ecc.Allora le salvo diversamente e reinstallo.Gli altri scirpt vanno.

Grazie.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti


Con Ambo a tutte

Codice:
Option Explicit
Sub Main()
   Dim Quante,Dist,Rit,Ini,Fin,Es,Ex,R1,R2
   Dim P1,P2,A,B,C,D,Sf,Cont,Manca1,Manca2,Clp
   Dim N1(2),N2(2),Ruote(2),Posta(2),Ruota(1)
   Dim Tot(6),Ru(1),Num(2),Poste(2)
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",8))
   If Quante = False Then Exit Sub
   Dist = 30 'CInt(InputBox("Quale Distanza",,30))
   Rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
   Clp = CInt(InputBox("QUANTI COLPI VUOI GIOCARE?",,10))
   Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale o Verticale od Orizontale = " & Dist,1,,,,3,,1
   Scrivi
   Ini = EstrazioneFin - Quante
   Fin = EstrazioneFin
   For Es = Ini To Fin
      Messaggio "[" & Es & "]ª"
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For Ex = Es - Rit To Es - 1
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     C = Estratto(Ex,R2,P1)
                     D = Estratto(Ex,R2,P2)
                     If(Distanza(A,D) = Dist And Distanza(B,C) = Dist) Xor(Distanza(A,C) = Dist And Distanza(B,D) = Dist)_
                        Xor(Distanza(A,B) = Dist And Distanza(C,D) = Dist) Then
                        N1(1) = A
                        N1(2) = B
                        N2(1) = C
                        N2(2) = D
                        Ru(1) = R2
                        Sf = SerieRitardo(Ini,Es,N2,Ru,2)
                        If Sf < Rit Then
                           Cont = Cont + 1 : Scrivi
                           ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & Cont,1 : ColoreTesto 0 : Scrivi
                           Scrivi GetInfoEstrazione(Es) & vbTab & SiglaRuota(R1) & vbTab & StringaEstratti(Es,R1),1,0
                           Scrivi Space(10) & StringaNumeri(N1,,1) & vbTab & "(" & P1 & "-" & P2 & ")",1
                           Scrivi Space(74) & "         Distanza    ",1,0
                           ColoreTesto 2 : Scrivi Dist,1 : ColoreTesto 0
                           Scrivi GetInfoEstrazione(Ex) & vbTab & SiglaRuota(R2) & vbTab & StringaEstratti(Ex,R2),1,0
                           Scrivi Space(10) & StringaNumeri(N2,,1) & vbTab & "(" & P1 & "-" & P2 & ")" & vbTab & Sf,1
                           If Distanza(A,B) = Dist And Distanza(C,D) = Dist Then
                              If A > B And(A - B) = 60 Then Manca1 = Fuori90(A - Dist)
                              If A > B And(A - B) = 30 Then Manca1 = Fuori90(A + Dist)
                              If B > A And(B - A) = 60 Then Manca1 = Fuori90(B - Dist)
                              If B > A And(B - A) = 30 Then Manca1 = Fuori90(B + Dist)
                              If C > D And(C - D) = 60 Then Manca2 = Fuori90(C - Dist)
                              If C > D And(C - D) = 30 Then Manca2 = Fuori90(C + Dist)
                              If D > C And(D - C) = 60 Then Manca2 = Fuori90(D - Dist)
                              If D > C And(D - C) = 30 Then Manca2 = Fuori90(D + Dist)
                           End If
                           If Distanza(A,C) = Dist And Distanza(B,D) Then
                              If A > C And(A - C) = 60 Then Manca1 = Fuori90(A - Dist)
                              If A > C And(A - C) = 30 Then Manca1 = Fuori90(A + Dist)
                              If C > A And(C - A) = 60 Then Manca1 = Fuori90(C - Dist)
                              If C > A And(C - A) = 30 Then Manca1 = Fuori90(C + Dist)
                              If B > D And(B - D) = 60 Then Manca2 = Fuori90(B - Dist)
                              If B > D And(B - D) = 30 Then Manca2 = Fuori90(B + Dist)
                              If D > B And(D - B) = 60 Then Manca2 = Fuori90(D - Dist)
                              If D > B And(D - B) = 30 Then Manca2 = Fuori90(D + Dist)
                           End If
                           If Distanza(A,D) = Dist And Distanza(B,C) = Dist Then
                              If A > D And(A - D) = 60 Then Manca1 = Fuori90(A - Dist)
                              If A > D And(A - D) = 30 Then Manca1 = Fuori90(A + Dist)
                              If D > A And(D - A) = 60 Then Manca1 = Fuori90(D - Dist)
                              If D > A And(D - A) = 30 Then Manca1 = Fuori90(D + Dist)
                              If C > B And(C - B) = 60 Then Manca2 = Fuori90(C - Dist)
                              If C > B And(C - B) = 30 Then Manca2 = Fuori90(C + Dist)
                              If B > C And(B - C) = 60 Then Manca2 = Fuori90(B - Dist)
                              If B > C And(B - C) = 30 Then Manca2 = Fuori90(B + Dist)
                           End If
                           Scrivi
                           Scrivi Space(20) & " Mancano i numeri ",1,0
                           ColoreTesto 2 : Scrivi Format2(Manca1) & " e " & Format2(Manca2),1,0 : ColoreTesto 0
                           Scrivi " per chiudere le due terzine",1
                           Scrivi
                           Tot(1) = A
                           Tot(2) = B
                           Tot(3) = C
                           Tot(4) = D
                           Tot(5) = Manca1
                           Tot(6) = Manca2
                           DisegnaCerchioCiclometrico Tot,1,,,,1
                           Ruote(1) = R1
                           Ruote(2) = R2
                           Ruota(1) = TU_
                           Num(1) = Manca1 : Num(2) = Manca2
                           ImpostaGiocata 1,Num,Ruote,Posta,Clp
                           ImpostaGiocata 2,Num,Ruota,Poste,Clp
                           Gioca Es
                           Scrivi String(105,"=")
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto