Chi riesce a modificarmi questo script?

Juri · 23 Agosto 2018

A me lo trova nel cerchio cilometrico.

Juri · 1 Ottobre 2018

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 · 1 Ottobre 2018

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

Juri · 1 Ottobre 2018

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 · 1 Ottobre 2018

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.

LuigiB · 1 Ottobre 2018

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...

Juri · 1 Ottobre 2018

Tirando via le 2 righe va.Metto l'ultima versione e poi vedo.

Grazie.

salvo50 · 1 Ottobre 2018

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.

LuigiB · 1 Ottobre 2018

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 · 2 Ottobre 2018

E' perfetto Salvo con l'ultima versione che ho messo.

Grazie mille.

Juri · 9 Dicembre 2018

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.
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 306"]
[TR]
[TD]Torino[/TD]
[TD]1[/TD]
[TD]69[/TD]
[TD]19[/TD]
[TD]43[/TD]
[TD]82[/TD]
[/TR]
[TR]
[TD]Nazionale[/TD]
[TD]9[/TD]
[TD]61[/TD]
[TD]86[/TD]
[TD]13[/TD]
[TD]88[/TD]
[/TR]
[/TABLE]

il 27 novembre questa ma non c'è.

Milano	63	21	55	90	77

Roma	27	30	11	51	4

Grazie mille.

salvo50 · 9 Dicembre 2018

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.
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 306"]
[TR]
[TD]Torino[/TD]
[TD]1[/TD]
[TD]69[/TD]
[TD]19[/TD]
[TD]43[/TD]
[TD]82[/TD]
[/TR]
[TR]
[TD]Nazionale[/TD]
[TD]9[/TD]
[TD]61[/TD]
[TD]86[/TD]
[TD]13[/TD]
[TD]88[/TD]
[/TR]
[/TABLE]

il 27 novembre questa ma non c'è.

Milano 63 21 55 90 77

Roma 27 30 11 51 4

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 · 9 Dicembre 2018

Non c'è ma ci deve essere.

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

Grazie.

Juri · 9 Dicembre 2018

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 · 9 Dicembre 2018

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 · 9 Dicembre 2018

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 · 9 Dicembre 2018

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 · 9 Dicembre 2018

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.
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 306"]
[TR]
[TD]Torino[/TD]
[TD]1[/TD]
[TD]69[/TD]
[TD]19[/TD]
[TD]43[/TD]
[TD]82[/TD]
[/TR]
[TR]
[TD]Nazionale[/TD]
[TD]9[/TD]
[TD]61[/TD]
[TD]86[/TD]
[TD]13[/TD]
[TD]88[/TD]
[/TR]
[/TABLE]

il 27 novembre questa ma non c'è.

Milano 63 21 55 90 77

Roma 27 30 11 51 4

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 · 10 Dicembre 2018

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 · 10 Dicembre 2018

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

Chi riesce a modificarmi questo script?

Super Member >GOLD<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Super Member >GOLD<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<