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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto