Script su Metodi Cabalistici, Ciclometrici & C.

joe · 24 Gennaio 2025

Ciao Salvo,

se scrivi "script spezzare una linea troppo lunga" in un motore di ricerca ti indirizza

ad una pagina ufficiale dove per sommi capi si ritrovano le stesse cose che sapevo e che ho scritto.

E' anche giusto rendere lo script più leggibile.

Quello che trovo strano è perché è si generino errori ad alcuni e ad altri no.

joe · 24 Gennaio 2025

L' ERRORE dipende da come è stato postato lo script

E da come lo visualizza la pagina Web dalla quale viene copiato.

Come si vede chiaramente ad ogni riga di comando è stato aggiunta un riga vuota.

L'ho resa maggiormente visibile contrassegnandola con un "Punto Rosso".

Il tentativo di eseguire lo script genera l' Errore di compilazione perché nella rimanente parte della della linea spezzata,

non c'è la rimanente parte degli Xor ... che terminano con THEN ... MA C'E UNA RIGA VUOTA.

Come ho già scritto precedentemente al messaggio #736

FORMATTANDO LO SCRIPT PREMENDO il pulsante che ho indicato in questo modo con una FRECCIA ROSSA:

Ovvero togliendo automaticamente TUTTE le righe vuote, lo script riprende a funzionare.

Perché come si era evidenziato, la linea ove si era creato l'errore viene compilata e poi eseguita correttamente.

salvo50 · 24 Gennaio 2025

Ciao Joe, grazie per la dritta

Riguardo alla formattazione, la faccio sempre con qualunque script, da quando me la insegnò Mike58

Alien. · 24 Gennaio 2025

joe ha scritto:
L' ERRORE dipende da come è stato postato lo script

E da come lo visualizza la pagina Web dalla quale viene copiato.

Come si vede chiaramente ad ogni riga di comando è stato aggiunta un riga vuota.

L'ho resa maggiormente visibile contrassegnandola con un "Punto Rosso".

Vedi l'allegato 2296667

Il tentativo di eseguire lo script genera l' Errore di compilazione perché nella rimanente parte della della linea spezzata,

non c'è la rimanente parte degli Xor ... che terminano con THEN ... MA C'E UNA RIGA VUOTA.

Come ho già scritto precedentemente al messaggio #736

FORMATTANDO LO SCRIPT PREMENDO il pulsante che ho indicato in questo modo con una FRECCIA ROSSA:

Vedi l'allegato 2296668

Ovvero togliendo automaticamente TUTTE le righe vuote, lo script riprende a funzionare.

Perché come si era evidenziato, la linea ove si era creato l'errore viene compilata e poi eseguita correttamente.

PERFETTO JOE TUTTO OK , GRAZIE.

EVERITA C · Mercoledì alle 12:04

EVERITA C · Mercoledì alle 12:05

Ciao Salvo se possibile lo script di questa tecnica di Matteo Palumbo.

Grazie infinite.

EVERITA C · Mercoledì alle 13:29

La tecnica si chiama " Trasferimento delle distanze con 18 o 36".

salvo50 · Mercoledì alle 17:10

Ciao a Tutti
Ciao Everita
Appena posso lo faccio

EVERITA C · Mercoledì alle 17:27

OK grazie infinite.

salvo50 · Ieri alle 17:51

Ciao a Tutti

Nel costrire i Quadrati Ciclometrici non Sempre le somme dei quadrati sono uguali come nel caso delle spiegazioni, quindi ho fatto 2 script, uno con le somme dei quadrati ciclometrici sempre uguali a 2 a 2 e l'altro oltre ad esserci le somme dei quadrati ciclometrici uguali ci sono anche quelli con le somme non uguali, in quello con le somme non uguali per proseguire nello script a discrezione mia ho proseguito scegliendo le somme nei posti dispari.
Ho visualizzato tutti i calcoli, ma ho predisposto che alla quarta domanda si possono anche non visualizzare rispondendo con qualsiasi numero eccetto l'uno 1 che è quello per visualizzarli

Con Somme Uguali

Codice:

Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim Meno1,Meno2,Piu1,Piu2,S1_36,S2_36
   Dim A,B,C,D,E1,E2,DAB,DCD,SoAD,SoBC,V_Calc
   Dim So_M14,So_M23,So_M13,So_M24,So5,So6
   Dim xSo1,xSo2,xSo3,xSo4,So1,So2,So3,So4
   Dim Amba(1),Ambo1(2),Ambo2(2),Terno(4),Ruo(3)
   Dim Post1(1),Post2(2),Post3(4),M(4),S(8)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500)'6806 estrazione usata nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,20)
   V_Calc = InputBox(" Per Visualizzare i Calcoli Metti 1 Per Non Visualizzarli Metti un Qualsiasi Altro Numero",,1)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "Trasferimento Delle Distanze 18 o 36 di Matteo Palumbo - Script Salvo50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      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)
               DAB = Distanza(A,B)
               If DAB = 18 Or DAB = 36 Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              DCD = Distanza(C,D)
                              If(DCD = 18 Or DCD = 36)And(DAB = DCD) Then
                                 SoAD = Fuori90(A + D) : SoBC = Fuori90(B + C)
                                 If SoAD = SoBC Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                    Call OrdinaMatrice(M,1)
                                    'M4--M1
                                    '|   |
                                    'M3--M2
                                    So_M14 =(M(1) + M(4))
                                    So_M23 =(M(2) + M(3))
                                    So_M13 =(M(1) + M(3))
                                    So_M24 =(M(2) + M(4))
                                    xSo1 = So_M23 + So_M13 : So1 = xSo1/2 : So1 = Fuori90(So1)
                                    xSo2 = So_M23 + So_M14 : So2 = xSo2/2 : So2 = Fuori90(So2)
                                    xSo3 = So_M14 + So_M24 : So3 = xSo3/2 : So3 = Fuori90(So3)
                                    xSo4 = So_M24 + So_M13 : So4 = xSo4/2 : So4 = Fuori90(So4)
                                    Meno1 = Fuori90((So2 + 90) - 18) : Piu1 = Fuori90(So2 + 18)
                                    Meno2 = Fuori90((So2 + 90) - 36) : Piu2 = Fuori90(So2 + 36)
                                    S(1) = Fuori90(A + So2) : S(2) = Fuori90(B + Piu2) : S(3) = Fuori90(A + Meno2) : S(4) = Fuori90(B + So2)
                                    S(5) = Fuori90(C + So2) : S(6) = Fuori90(D + Piu2) : S(7) = Fuori90(C + Meno2) : S(8) = Fuori90(D + So2)
                                    '
                                    If(S(1) = S(2)) And(S(3) = S(4)) And(S(5) = S(6)) And(S(7) = S(8)) Then
                                       S1_36 = Distanza(S(1),S(3)) : S2_36 = Distanza(S(5),S(7))
                                       So5 = Fuori90(S(1) + S(7)) : So6 = Fuori90(S(3) + S(5))
                                       Amba(1) = Fuori90((SoBC + 90) - So5)
                                       Ambo1(1) = Amba(1) : Ambo1(2) = SoBC
                                       Ambo2(1) = Amba(1) : Ambo2(2) = So5
                                       Terno(1) = S(7) : Terno(2) = S(3) : Terno(3) = S(5) : Terno(4) = S(1)
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"o") & "  Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                       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) & "Somma Comune: " & Format2(A) & " + " & Format2(D) & " = " & Format2(SoAD),1
                                       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) & "Somma Comune: " & Format2(B) & " + " & Format2(C) & " = " & Format2(SoBC),1
                                       Scrivi
                                       If V_Calc = 1 Then
                                          Scrivi Space(24) & "Estratti" & Space(8),1
                                          Scrivi "    Estratti con " & Space(6) & "Ordinati in ",1
                                          Scrivi "   Stessa Dist.",1,0
                                          Scrivi Format2(DAB),1,0,,2
                                          Scrivi Space(5) & "Senso Orario" & Space(8) & "Quadratura",1
                                          Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(4)),1,0
                                          Scrivi " " & Format2(M(1)) & Space(10) & FormattaStringa(So_M14,"000") & Space(3),1,0
                                          Scrivi Format2(So3),1,0,,2
                                          Scrivi Space(3) & FormattaStringa(So_M24,"000"),1
                                          '
                                          Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(3)),1,0
                                          Scrivi " " & Format2(M(2)),1,0
                                          Scrivi Space(10) & Format2(So2) & Space(9) & Format2(So4),1,,,2
                                          Scrivi Space(40) & FormattaStringa(So_M23,"000") & Space(3),1,0
                                          Scrivi Format2(So1),1,0,,2
                                          Scrivi Space(3) & FormattaStringa(So_M13,"000"),1
                                          Scrivi
                                          Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo1,"000") & "/2 = ",1,0
                                          Scrivi Format2(So1),1,,,2
                                          '
                                          Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M14,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo2,"000") & "/2 = ",1,0
                                          Scrivi Format2(So2),1,,,2
                                          '
                                          Scrivi Space(14) & FormattaStringa(So_M14,"000") & " + " & FormattaStringa(So_M24,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo3,"000") & "/2 = ",1,0
                                          Scrivi Format2(So3),1,,,2
                                          '
                                          Scrivi Space(14) & FormattaStringa(So_M24,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo4,"000") & "/2 = ",1,0
                                          Scrivi Format2(So4),1,,,2
                                          Scrivi
                                          Scrivi Space(12) & "Chiusura sequenza lineare:",1
                                          Scrivi Space(5) & Format2(Meno2) & " (-18) " & Format2(Meno1) & " (-18) ",1,0,,1
                                          Scrivi "|" & Format2(So2) & "|",1,0
                                          Scrivi " (+ 18) " & Format2(Piu1) & " (+ 18) " & Format2(Piu2),1,,,2
                                          Scrivi
                                          Scrivi Space(5) & "Ambi Distanza 36 Generati: " & Format2(So2) & " " & Format2(Piu2),1,0
                                          Scrivi " e " & Format2(So2) & " " & Format2(Meno2),1
                                          Scrivi
                                          Scrivi Space(13) & "Quadrati Ciclometrici",1,,,2
                                          Scrivi Space(12) & Format2(A) & " " & Format2(B) & " " & Format2(A) & " " & Format2(B),1,0
                                          Scrivi Space(1) & Format2(C) & " " & Format2(D) & " " & Format2(C) & " " & Format2(D),1
                                          '
                                          Scrivi Space(12) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1,0
                                          Scrivi Space(1) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1
                                          Scrivi Space(12) & String(23,"-"),1
                                          Scrivi Space(12) & StringaNumeri(S," ",True),1
                                          Scrivi
                                          Scrivi Space(10) & Format2(S(1)) & " (" & Format2(S1_36) & ") " & Format2(S(3)),1,0
                                          Scrivi Space(7) & Format2(S(5)) & " (" & Format2(S2_36) & ") " & Format2(S(7)),1
                                          Scrivi
                                          Scrivi Space(17) & Format2(S(1)) & " + " & Format2(S(7)) & " = " & Format2(So5),1
                                          Scrivi Space(17) & Format2(S(3)) & " + " & Format2(S(5)) & " = " & Format2(So6),1
                                          Scrivi
                                          Scrivi Space(14) & "Da " & Format2(So5) & " a " & Format2(SoBC) & " = ",1,0
                                          Scrivi Format2(Amba(1)),1,,,2
                                          Scrivi
                                          End If
                                          Scrivi Space(11) & " Pronostico ",1,,,2,3
                                          Scrivi Space(15) & " Ruote " & SiglaRuota(R1) & " " & SiglaRuota(R2),1
                                          Scrivi Space(16) & " Ambata " & Format2(Amba(1)),1
                                          Scrivi Space(16) & "Ambi Secchi ",1,,,1
                                          Scrivi Space(14) & "(" & Format2(Amba(1)) & " " & Format2(SoBC),1,0
                                          Scrivi ") (" & Format2(Amba(1)) & " " & Format2(So5) & ")",1
                                          Scrivi Space(12) & " Per Ambo e Terno ",1,,,1
                                          Scrivi Space(15) & Format2(S(7)) & " " & Format2(S(3)) & " " & Format2(S(5)) & " " & Format2(S(1)),1
                                          Scrivi
                                      
                                       '
                                       Ruo(1) = R1 : Ruo(2) = R2
                                       ImpostaGiocata 1,Amba,Ruo,Post1,Clp1,1
                                       ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2,2
                                       ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2,2
                                       ImpostaGiocata 4,Terno,Ruo,Post3,Clp2,2
                                       Gioca Es,1
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

Con possibili somme non uguali

Codice:

Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim Meno1,Meno2,Piu1,Piu2,S1_36,S2_36
   Dim A,B,C,D,E1,E2,DAB,DCD,SoAD,SoBC,V_Calc
   Dim So_M14,So_M23,So_M13,So_M24,So5,So6
   Dim xSo1,xSo2,xSo3,xSo4,So1,So2,So3,So4
   Dim Amba(1),Ambo1(2),Ambo2(2),Terno(4),Ruo(3)
   Dim Post1(1),Post2(2),Post3(4),M(4),S(8)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500)'6806 estrazione usata nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,20)
   V_Calc = InputBox(" Per Visualizzare i Calcoli Metti 1 Per Non Visualizzarli Metti un Qualsiasi Altro Numero",,1)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "Trasferimento Delle Distanze 18 o 36 di Matteo Palumbo - Script Salvo50",1,,4,,3,,1
   Scrivi "Con Possibili Somme Non Uguali Nei Quadrati Ciclometrici               ",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      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)
               DAB = Distanza(A,B)
               If DAB = 18 Or DAB = 36 Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              DCD = Distanza(C,D)
                              If(DCD = 18 Or DCD = 36)And(DAB = DCD) Then
                                 SoAD = Fuori90(A + D) : SoBC = Fuori90(B + C)
                                 If SoAD = SoBC Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                    Call OrdinaMatrice(M,1)
                                    'M4--M1
                                    '|   |
                                    'M3--M2
                                    So_M14 =(M(1) + M(4))
                                    So_M23 =(M(2) + M(3))
                                    So_M13 =(M(1) + M(3))
                                    So_M24 =(M(2) + M(4))
                                    xSo1 = So_M23 + So_M13 : So1 = xSo1/2 : So1 = Fuori90(So1)
                                    xSo2 = So_M23 + So_M14 : So2 = xSo2/2 : So2 = Fuori90(So2)
                                    xSo3 = So_M14 + So_M24 : So3 = xSo3/2 : So3 = Fuori90(So3)
                                    xSo4 = So_M24 + So_M13 : So4 = xSo4/2 : So4 = Fuori90(So4)
                                    Meno1 = Fuori90((So2 + 90) - 18) : Piu1 = Fuori90(So2 + 18)
                                    Meno2 = Fuori90((So2 + 90) - 36) : Piu2 = Fuori90(So2 + 36)
                                    S(1) = Fuori90(A + So2) : S(2) = Fuori90(B + Piu2) : S(3) = Fuori90(A + Meno2) : S(4) = Fuori90(B + So2)
                                    S(5) = Fuori90(C + So2) : S(6) = Fuori90(D + Piu2) : S(7) = Fuori90(C + Meno2) : S(8) = Fuori90(D + So2)
                                    '
                                    S1_36 = Distanza(S(1),S(3)) : S2_36 = Distanza(S(5),S(7))
                                    So5 = Fuori90(S(1) + S(7)) : So6 = Fuori90(S(3) + S(5))
                                    Amba(1) = Fuori90((SoBC + 90) - So5)
                                    Ambo1(1) = Amba(1) : Ambo1(2) = SoBC
                                    Ambo2(1) = Amba(1) : Ambo2(2) = So5
                                    Terno(1) = S(7) : Terno(2) = S(3) : Terno(3) = S(5) : Terno(4) = S(1)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"o") & "  Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                    Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                    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) & "Somma Comune: " & Format2(A) & " + " & Format2(D) & " = " & Format2(SoAD),1
                                    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) & "Somma Comune: " & Format2(B) & " + " & Format2(C) & " = " & Format2(SoBC),1
                                    Scrivi
                                    If V_Calc = 1 Then
                                       Scrivi Space(24) & "Estratti" & Space(8),1
                                       Scrivi "    Estratti con " & Space(6) & "Ordinati in ",1
                                       Scrivi "   Stessa Dist.",1,0
                                       Scrivi Format2(DAB),1,0,,2
                                       Scrivi Space(5) & "Senso Orario" & Space(8) & "Quadratura",1
                                       Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(4)),1,0
                                       Scrivi " " & Format2(M(1)) & Space(10) & FormattaStringa(So_M14,"000") & Space(3),1,0
                                       Scrivi Format2(So3),1,0,,2
                                       Scrivi Space(3) & FormattaStringa(So_M24,"000"),1
                                       '
                                       Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(3)),1,0
                                       Scrivi " " & Format2(M(2)),1,0
                                       Scrivi Space(10) & Format2(So2) & Space(9) & Format2(So4),1,,,2
                                       Scrivi Space(40) & FormattaStringa(So_M23,"000") & Space(3),1,0
                                       Scrivi Format2(So1),1,0,,2
                                       Scrivi Space(3) & FormattaStringa(So_M13,"000"),1
                                       Scrivi
                                       Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo1,"000") & "/2 = ",1,0
                                       Scrivi Format2(So1),1,,,2
                                       '
                                       Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M14,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo2,"000") & "/2 = ",1,0
                                       Scrivi Format2(So2),1,,,2
                                       '
                                       Scrivi Space(14) & FormattaStringa(So_M14,"000") & " + " & FormattaStringa(So_M24,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo3,"000") & "/2 = ",1,0
                                       Scrivi Format2(So3),1,,,2
                                       '
                                       Scrivi Space(14) & FormattaStringa(So_M24,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo4,"000") & "/2 = ",1,0
                                       Scrivi Format2(So4),1,,,2
                                       Scrivi
                                       Scrivi Space(12) & "Chiusura sequenza lineare:",1
                                       Scrivi Space(5) & Format2(Meno2) & " (-18) " & Format2(Meno1) & " (-18) ",1,0,,1
                                       Scrivi "|" & Format2(So2) & "|",1,0
                                       Scrivi " (+ 18) " & Format2(Piu1) & " (+ 18) " & Format2(Piu2),1,,,2
                                       Scrivi
                                       Scrivi Space(5) & "Ambi Distanza 36 Generati: " & Format2(So2) & " " & Format2(Piu2),1,0
                                       Scrivi " e " & Format2(So2) & " " & Format2(Meno2),1
                                       Scrivi
                                       Scrivi Space(13) & "Quadrati Ciclometrici",1,,,2
                                       Scrivi Space(12) & Format2(A) & " " & Format2(B) & " " & Format2(A) & " " & Format2(B),1,0
                                       Scrivi Space(1) & Format2(C) & " " & Format2(D) & " " & Format2(C) & " " & Format2(D),1
                                       '
                                       Scrivi Space(12) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1,0
                                       Scrivi Space(1) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1
                                       Scrivi Space(12) & String(23,"-"),1
                                       Scrivi Space(12) & StringaNumeri(S," ",True),1
                                       Scrivi
                                       Scrivi Space(10) & Format2(S(1)) & " (" & Format2(S1_36) & ") " & Format2(S(3)),1,0
                                       Scrivi Space(7) & Format2(S(5)) & " (" & Format2(S2_36) & ") " & Format2(S(7)),1
                                       Scrivi
                                       Scrivi Space(17) & Format2(S(1)) & " + " & Format2(S(7)) & " = " & Format2(So5),1
                                       Scrivi Space(17) & Format2(S(3)) & " + " & Format2(S(5)) & " = " & Format2(So6),1
                                       Scrivi
                                       Scrivi Space(14) & "Da " & Format2(So5) & " a " & Format2(SoBC) & " = ",1,0
                                       Scrivi Format2(Amba(1)),1,,,2
                                    End If
                                    Scrivi
                                    Scrivi Space(11) & " Pronostico ",1,,,2,3
                                    Scrivi Space(15) & " Ruote " & SiglaRuota(R1) & " " & SiglaRuota(R2),1
                                    Scrivi Space(16) & " Ambata " & Format2(Amba(1)),1
                                    Scrivi Space(16) & "Ambi Secchi ",1,,,1
                                    Scrivi Space(14) & "(" & Format2(Amba(1)) & " " & Format2(SoBC),1,0
                                    Scrivi ") (" & Format2(Amba(1)) & " " & Format2(So5) & ")",1
                                    Scrivi Space(12) & " Per Ambo e Terno ",1,,,1
                                    Scrivi Space(15) & Format2(S(7)) & " " & Format2(S(3)) & " " & Format2(S(5)) & " " & Format2(S(1)),1
                                    Scrivi
                                    '
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                                    ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                                    ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                                    ImpostaGiocata 4,Terno,Ruo,Post3,Clp2
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

EVERITA C · Ieri alle 18:58

Ciao Salvo ottimo script.

Stesso calcolo con la distanza 18.

Grazie infinite.

Alien. · Oggi alle 18:24

salvo50 ha scritto:

Ciao a Tutti

Nel costrire i Quadrati Ciclometrici non Sempre le somme dei quadrati sono uguali come nel caso delle spiegazioni, quindi ho fatto 2 script, uno con le somme dei quadrati ciclometrici sempre uguali a 2 a 2 e l'altro oltre ad esserci le somme dei quadrati ciclometrici uguali ci sono anche quelli con le somme non uguali, in quello con le somme non uguali per proseguire nello script a discrezione mia ho proseguito scegliendo le somme nei posti dispari.
Ho visualizzato tutti i calcoli, ma ho predisposto che alla quarta domanda si possono anche non visualizzare rispondendo con qualsiasi numero eccetto l'uno 1 che è quello per visualizzarli

Con Somme Uguali

Codice:

Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim Meno1,Meno2,Piu1,Piu2,S1_36,S2_36
   Dim A,B,C,D,E1,E2,DAB,DCD,SoAD,SoBC,V_Calc
   Dim So_M14,So_M23,So_M13,So_M24,So5,So6
   Dim xSo1,xSo2,xSo3,xSo4,So1,So2,So3,So4
   Dim Amba(1),Ambo1(2),Ambo2(2),Terno(4),Ruo(3)
   Dim Post1(1),Post2(2),Post3(4),M(4),S(8)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500)'6806 estrazione usata nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,20)
   V_Calc = InputBox(" Per Visualizzare i Calcoli Metti 1 Per Non Visualizzarli Metti un Qualsiasi Altro Numero",,1)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "Trasferimento Delle Distanze 18 o 36 di Matteo Palumbo - Script Salvo50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      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)
               DAB = Distanza(A,B)
               If DAB = 18 Or DAB = 36 Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              DCD = Distanza(C,D)
                              If(DCD = 18 Or DCD = 36)And(DAB = DCD) Then
                                 SoAD = Fuori90(A + D) : SoBC = Fuori90(B + C)
                                 If SoAD = SoBC Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                    Call OrdinaMatrice(M,1)
                                    'M4--M1
                                    '|   |
                                    'M3--M2
                                    So_M14 =(M(1) + M(4))
                                    So_M23 =(M(2) + M(3))
                                    So_M13 =(M(1) + M(3))
                                    So_M24 =(M(2) + M(4))
                                    xSo1 = So_M23 + So_M13 : So1 = xSo1/2 : So1 = Fuori90(So1)
                                    xSo2 = So_M23 + So_M14 : So2 = xSo2/2 : So2 = Fuori90(So2)
                                    xSo3 = So_M14 + So_M24 : So3 = xSo3/2 : So3 = Fuori90(So3)
                                    xSo4 = So_M24 + So_M13 : So4 = xSo4/2 : So4 = Fuori90(So4)
                                    Meno1 = Fuori90((So2 + 90) - 18) : Piu1 = Fuori90(So2 + 18)
                                    Meno2 = Fuori90((So2 + 90) - 36) : Piu2 = Fuori90(So2 + 36)
                                    S(1) = Fuori90(A + So2) : S(2) = Fuori90(B + Piu2) : S(3) = Fuori90(A + Meno2) : S(4) = Fuori90(B + So2)
                                    S(5) = Fuori90(C + So2) : S(6) = Fuori90(D + Piu2) : S(7) = Fuori90(C + Meno2) : S(8) = Fuori90(D + So2)
                                    '
                                    If(S(1) = S(2)) And(S(3) = S(4)) And(S(5) = S(6)) And(S(7) = S(8)) Then
                                       S1_36 = Distanza(S(1),S(3)) : S2_36 = Distanza(S(5),S(7))
                                       So5 = Fuori90(S(1) + S(7)) : So6 = Fuori90(S(3) + S(5))
                                       Amba(1) = Fuori90((SoBC + 90) - So5)
                                       Ambo1(1) = Amba(1) : Ambo1(2) = SoBC
                                       Ambo2(1) = Amba(1) : Ambo2(2) = So5
                                       Terno(1) = S(7) : Terno(2) = S(3) : Terno(3) = S(5) : Terno(4) = S(1)
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"o") & "  Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                       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) & "Somma Comune: " & Format2(A) & " + " & Format2(D) & " = " & Format2(SoAD),1
                                       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) & "Somma Comune: " & Format2(B) & " + " & Format2(C) & " = " & Format2(SoBC),1
                                       Scrivi
                                       If V_Calc = 1 Then
                                          Scrivi Space(24) & "Estratti" & Space(8),1
                                          Scrivi "    Estratti con " & Space(6) & "Ordinati in ",1
                                          Scrivi "   Stessa Dist.",1,0
                                          Scrivi Format2(DAB),1,0,,2
                                          Scrivi Space(5) & "Senso Orario" & Space(8) & "Quadratura",1
                                          Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(4)),1,0
                                          Scrivi " " & Format2(M(1)) & Space(10) & FormattaStringa(So_M14,"000") & Space(3),1,0
                                          Scrivi Format2(So3),1,0,,2
                                          Scrivi Space(3) & FormattaStringa(So_M24,"000"),1
                                          '
                                          Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(3)),1,0
                                          Scrivi " " & Format2(M(2)),1,0
                                          Scrivi Space(10) & Format2(So2) & Space(9) & Format2(So4),1,,,2
                                          Scrivi Space(40) & FormattaStringa(So_M23,"000") & Space(3),1,0
                                          Scrivi Format2(So1),1,0,,2
                                          Scrivi Space(3) & FormattaStringa(So_M13,"000"),1
                                          Scrivi
                                          Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo1,"000") & "/2 = ",1,0
                                          Scrivi Format2(So1),1,,,2
                                          '
                                          Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M14,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo2,"000") & "/2 = ",1,0
                                          Scrivi Format2(So2),1,,,2
                                          '
                                          Scrivi Space(14) & FormattaStringa(So_M14,"000") & " + " & FormattaStringa(So_M24,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo3,"000") & "/2 = ",1,0
                                          Scrivi Format2(So3),1,,,2
                                          '
                                          Scrivi Space(14) & FormattaStringa(So_M24,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                          Scrivi " = " & FormattaStringa(xSo4,"000") & "/2 = ",1,0
                                          Scrivi Format2(So4),1,,,2
                                          Scrivi
                                          Scrivi Space(12) & "Chiusura sequenza lineare:",1
                                          Scrivi Space(5) & Format2(Meno2) & " (-18) " & Format2(Meno1) & " (-18) ",1,0,,1
                                          Scrivi "|" & Format2(So2) & "|",1,0
                                          Scrivi " (+ 18) " & Format2(Piu1) & " (+ 18) " & Format2(Piu2),1,,,2
                                          Scrivi
                                          Scrivi Space(5) & "Ambi Distanza 36 Generati: " & Format2(So2) & " " & Format2(Piu2),1,0
                                          Scrivi " e " & Format2(So2) & " " & Format2(Meno2),1
                                          Scrivi
                                          Scrivi Space(13) & "Quadrati Ciclometrici",1,,,2
                                          Scrivi Space(12) & Format2(A) & " " & Format2(B) & " " & Format2(A) & " " & Format2(B),1,0
                                          Scrivi Space(1) & Format2(C) & " " & Format2(D) & " " & Format2(C) & " " & Format2(D),1
                                          '
                                          Scrivi Space(12) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1,0
                                          Scrivi Space(1) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1
                                          Scrivi Space(12) & String(23,"-"),1
                                          Scrivi Space(12) & StringaNumeri(S," ",True),1
                                          Scrivi
                                          Scrivi Space(10) & Format2(S(1)) & " (" & Format2(S1_36) & ") " & Format2(S(3)),1,0
                                          Scrivi Space(7) & Format2(S(5)) & " (" & Format2(S2_36) & ") " & Format2(S(7)),1
                                          Scrivi
                                          Scrivi Space(17) & Format2(S(1)) & " + " & Format2(S(7)) & " = " & Format2(So5),1
                                          Scrivi Space(17) & Format2(S(3)) & " + " & Format2(S(5)) & " = " & Format2(So6),1
                                          Scrivi
                                          Scrivi Space(14) & "Da " & Format2(So5) & " a " & Format2(SoBC) & " = ",1,0
                                          Scrivi Format2(Amba(1)),1,,,2
                                          Scrivi
                                          End If
                                          Scrivi Space(11) & " Pronostico ",1,,,2,3
                                          Scrivi Space(15) & " Ruote " & SiglaRuota(R1) & " " & SiglaRuota(R2),1
                                          Scrivi Space(16) & " Ambata " & Format2(Amba(1)),1
                                          Scrivi Space(16) & "Ambi Secchi ",1,,,1
                                          Scrivi Space(14) & "(" & Format2(Amba(1)) & " " & Format2(SoBC),1,0
                                          Scrivi ") (" & Format2(Amba(1)) & " " & Format2(So5) & ")",1
                                          Scrivi Space(12) & " Per Ambo e Terno ",1,,,1
                                          Scrivi Space(15) & Format2(S(7)) & " " & Format2(S(3)) & " " & Format2(S(5)) & " " & Format2(S(1)),1
                                          Scrivi
                                     
                                       '
                                       Ruo(1) = R1 : Ruo(2) = R2
                                       ImpostaGiocata 1,Amba,Ruo,Post1,Clp1,1
                                       ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2,2
                                       ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2,2
                                       ImpostaGiocata 4,Terno,Ruo,Post3,Clp2,2
                                       Gioca Es,1
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

Con possibili somme non uguali

Codice:

Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim Meno1,Meno2,Piu1,Piu2,S1_36,S2_36
   Dim A,B,C,D,E1,E2,DAB,DCD,SoAD,SoBC,V_Calc
   Dim So_M14,So_M23,So_M13,So_M24,So5,So6
   Dim xSo1,xSo2,xSo3,xSo4,So1,So2,So3,So4
   Dim Amba(1),Ambo1(2),Ambo2(2),Terno(4),Ruo(3)
   Dim Post1(1),Post2(2),Post3(4),M(4),S(8)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500)'6806 estrazione usata nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,20)
   V_Calc = InputBox(" Per Visualizzare i Calcoli Metti 1 Per Non Visualizzarli Metti un Qualsiasi Altro Numero",,1)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "Trasferimento Delle Distanze 18 o 36 di Matteo Palumbo - Script Salvo50",1,,4,,3,,1
   Scrivi "Con Possibili Somme Non Uguali Nei Quadrati Ciclometrici               ",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      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)
               DAB = Distanza(A,B)
               If DAB = 18 Or DAB = 36 Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              DCD = Distanza(C,D)
                              If(DCD = 18 Or DCD = 36)And(DAB = DCD) Then
                                 SoAD = Fuori90(A + D) : SoBC = Fuori90(B + C)
                                 If SoAD = SoBC Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                    Call OrdinaMatrice(M,1)
                                    'M4--M1
                                    '|   |
                                    'M3--M2
                                    So_M14 =(M(1) + M(4))
                                    So_M23 =(M(2) + M(3))
                                    So_M13 =(M(1) + M(3))
                                    So_M24 =(M(2) + M(4))
                                    xSo1 = So_M23 + So_M13 : So1 = xSo1/2 : So1 = Fuori90(So1)
                                    xSo2 = So_M23 + So_M14 : So2 = xSo2/2 : So2 = Fuori90(So2)
                                    xSo3 = So_M14 + So_M24 : So3 = xSo3/2 : So3 = Fuori90(So3)
                                    xSo4 = So_M24 + So_M13 : So4 = xSo4/2 : So4 = Fuori90(So4)
                                    Meno1 = Fuori90((So2 + 90) - 18) : Piu1 = Fuori90(So2 + 18)
                                    Meno2 = Fuori90((So2 + 90) - 36) : Piu2 = Fuori90(So2 + 36)
                                    S(1) = Fuori90(A + So2) : S(2) = Fuori90(B + Piu2) : S(3) = Fuori90(A + Meno2) : S(4) = Fuori90(B + So2)
                                    S(5) = Fuori90(C + So2) : S(6) = Fuori90(D + Piu2) : S(7) = Fuori90(C + Meno2) : S(8) = Fuori90(D + So2)
                                    '
                                    S1_36 = Distanza(S(1),S(3)) : S2_36 = Distanza(S(5),S(7))
                                    So5 = Fuori90(S(1) + S(7)) : So6 = Fuori90(S(3) + S(5))
                                    Amba(1) = Fuori90((SoBC + 90) - So5)
                                    Ambo1(1) = Amba(1) : Ambo1(2) = SoBC
                                    Ambo2(1) = Amba(1) : Ambo2(2) = So5
                                    Terno(1) = S(7) : Terno(2) = S(3) : Terno(3) = S(5) : Terno(4) = S(1)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"o") & "  Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                    Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                    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) & "Somma Comune: " & Format2(A) & " + " & Format2(D) & " = " & Format2(SoAD),1
                                    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) & "Somma Comune: " & Format2(B) & " + " & Format2(C) & " = " & Format2(SoBC),1
                                    Scrivi
                                    If V_Calc = 1 Then
                                       Scrivi Space(24) & "Estratti" & Space(8),1
                                       Scrivi "    Estratti con " & Space(6) & "Ordinati in ",1
                                       Scrivi "   Stessa Dist.",1,0
                                       Scrivi Format2(DAB),1,0,,2
                                       Scrivi Space(5) & "Senso Orario" & Space(8) & "Quadratura",1
                                       Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(4)),1,0
                                       Scrivi " " & Format2(M(1)) & Space(10) & FormattaStringa(So_M14,"000") & Space(3),1,0
                                       Scrivi Format2(So3),1,0,,2
                                       Scrivi Space(3) & FormattaStringa(So_M24,"000"),1
                                       '
                                       Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(3)),1,0
                                       Scrivi " " & Format2(M(2)),1,0
                                       Scrivi Space(10) & Format2(So2) & Space(9) & Format2(So4),1,,,2
                                       Scrivi Space(40) & FormattaStringa(So_M23,"000") & Space(3),1,0
                                       Scrivi Format2(So1),1,0,,2
                                       Scrivi Space(3) & FormattaStringa(So_M13,"000"),1
                                       Scrivi
                                       Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo1,"000") & "/2 = ",1,0
                                       Scrivi Format2(So1),1,,,2
                                       '
                                       Scrivi Space(14) & FormattaStringa(So_M23,"000") & " + " & FormattaStringa(So_M14,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo2,"000") & "/2 = ",1,0
                                       Scrivi Format2(So2),1,,,2
                                       '
                                       Scrivi Space(14) & FormattaStringa(So_M14,"000") & " + " & FormattaStringa(So_M24,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo3,"000") & "/2 = ",1,0
                                       Scrivi Format2(So3),1,,,2
                                       '
                                       Scrivi Space(14) & FormattaStringa(So_M24,"000") & " + " & FormattaStringa(So_M13,"000"),1,0
                                       Scrivi " = " & FormattaStringa(xSo4,"000") & "/2 = ",1,0
                                       Scrivi Format2(So4),1,,,2
                                       Scrivi
                                       Scrivi Space(12) & "Chiusura sequenza lineare:",1
                                       Scrivi Space(5) & Format2(Meno2) & " (-18) " & Format2(Meno1) & " (-18) ",1,0,,1
                                       Scrivi "|" & Format2(So2) & "|",1,0
                                       Scrivi " (+ 18) " & Format2(Piu1) & " (+ 18) " & Format2(Piu2),1,,,2
                                       Scrivi
                                       Scrivi Space(5) & "Ambi Distanza 36 Generati: " & Format2(So2) & " " & Format2(Piu2),1,0
                                       Scrivi " e " & Format2(So2) & " " & Format2(Meno2),1
                                       Scrivi
                                       Scrivi Space(13) & "Quadrati Ciclometrici",1,,,2
                                       Scrivi Space(12) & Format2(A) & " " & Format2(B) & " " & Format2(A) & " " & Format2(B),1,0
                                       Scrivi Space(1) & Format2(C) & " " & Format2(D) & " " & Format2(C) & " " & Format2(D),1
                                       '
                                       Scrivi Space(12) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1,0
                                       Scrivi Space(1) & Format2(So2) & " " & Format2(Piu2) & " " & Format2(Meno2) & " " & Format2(So2),1
                                       Scrivi Space(12) & String(23,"-"),1
                                       Scrivi Space(12) & StringaNumeri(S," ",True),1
                                       Scrivi
                                       Scrivi Space(10) & Format2(S(1)) & " (" & Format2(S1_36) & ") " & Format2(S(3)),1,0
                                       Scrivi Space(7) & Format2(S(5)) & " (" & Format2(S2_36) & ") " & Format2(S(7)),1
                                       Scrivi
                                       Scrivi Space(17) & Format2(S(1)) & " + " & Format2(S(7)) & " = " & Format2(So5),1
                                       Scrivi Space(17) & Format2(S(3)) & " + " & Format2(S(5)) & " = " & Format2(So6),1
                                       Scrivi
                                       Scrivi Space(14) & "Da " & Format2(So5) & " a " & Format2(SoBC) & " = ",1,0
                                       Scrivi Format2(Amba(1)),1,,,2
                                    End If
                                    Scrivi
                                    Scrivi Space(11) & " Pronostico ",1,,,2,3
                                    Scrivi Space(15) & " Ruote " & SiglaRuota(R1) & " " & SiglaRuota(R2),1
                                    Scrivi Space(16) & " Ambata " & Format2(Amba(1)),1
                                    Scrivi Space(16) & "Ambi Secchi ",1,,,1
                                    Scrivi Space(14) & "(" & Format2(Amba(1)) & " " & Format2(SoBC),1,0
                                    Scrivi ") (" & Format2(Amba(1)) & " " & Format2(So5) & ")",1
                                    Scrivi Space(12) & " Per Ambo e Terno ",1,,,1
                                    Scrivi Space(15) & Format2(S(7)) & " " & Format2(S(3)) & " " & Format2(S(5)) & " " & Format2(S(1)),1
                                    Scrivi
                                    '
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                                    ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                                    ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                                    ImpostaGiocata 4,Terno,Ruo,Post3,Clp2
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

Ciao salvo ottimo script ma servirebbe un ID mese oppure i numeri estratti per pronostico su tutte, Grazie se puoi.

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

joe

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

EVERITA C

Member

EVERITA C

Member

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

Alien.

Advanced Premium Member

Ultima estrazione Lotto

Ultimi Messaggi