Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<
METODO AURUM di ROBERTO PASCALE su appunti di FABARRI

Codice:
 'PROGETTO - AURUM - BY ROBERTO PASCALE
'Con cerchio ciclometrico
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim FIn,Es,Esq,Clp,Col,Esqcol,Idestr
    Dim Posta(2),Ruota(1),Ambo1(2),Ambo2(2)
    Dim Ambo3(2),Ambo4(2),F(3),Num(5),Poste(5)
    Dim P1,P2,P3,R1,Caso,Casi,Salvo50,Clp2
    Dim A1,A2,A3,B1,B2,B3,C1,C2,C3,Dab,Dac,Dbc
    Dim DC1,DC2,DC3,PA1,MA1,PC3,MC3,Est1,Est2
    Dim Me1,C90DC2,V1,V2,Diam1,Diam2
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9200)'6779 primo esempio GE 23-01-1999
    Clp = InputBox("Per quanti colpi vuoi giocare l'ambo?",Salvo50,7)
    Clp2 = InputBox("Per quanti colpi vuoi giocare la cinquina?",Salvo50,13)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,9000))
    Posta(1) = 1
    Posta(2) = 1
    Poste(2) = 1
    Poste(3) = 1
    Poste(4) = 1
    'Poste(5) = 1
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Messaggio Es
        AvanzamentoElab Esq,Esqcol,Es
        Caso = 0
        For R1 = 1 To 12
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 3
                For     P2 = P1 + 1 To 4
                    For     P3 = P2 + 1 To 5
                        A1 = Estratto(Es,R1,P1): If A1 > 0 Then
                        B1 = Estratto(Es,R1,P2)
                        C1 = Estratto(Es,R1,P3)
                        If A1 <> 45 And A1 <> 90 And B1 <> 45 And B1 <> 90 And C1 <> 45 And C1 <> 90 Then
                            Dab = Distanza(A1,B1) : Dac = Distanza(A1,C1) : Dbc = Distanza(B1,C1)
                            If Dab <> 30 And Dac <> 30 And Dbc <> 30 Then
                                If(Dab = Dbc) Then
                                    A2 = Fuori90(A1 + 30) : A3 = Fuori90(A2 + 30)
                                    B2 = Fuori90(B1 + 30) : B3 = Fuori90(B2 + 30)
                                    C2 = Fuori90(C1 + 30) : C3 = Fuori90(C2 + 30)
                                    DC1 = Distanza(A1,C3)
                                    PA1 = Fuori90(A1 + DC1): MA1 = Fuori90(90 +(A1 - DC1))
                                    If PA1 = C3 Then
                                        Est1 = MA1
                                    Else
                                        Est1 = PA1
                                    End If
                                    '
                                    PC3 = Fuori90(C3 + DC1): MC3 = Fuori90(90 +(C3 - DC1))
                                    If PC3 = A1 Then
                                        Est2 = MC3
                                    Else
                                        Est2 = PC3
                                    End If
                                    '
                                    DC2 = Distanza(Est1,Est2)
                                    If pari(DC2) Then
                                        C90DC2 =(90 - DC2)
                                        Me1 = C90DC2 / 2
                                        If Me1 <> 30 Then
                                        If Est1 < Est2 Then
                                            V1 = Fuori90(Est1 + Me1)
                                            V2 = Fuori90(90 +(Est2 - Me1))
                                        End If
                                        If Est2 < Est1 Then
                                            V1 = Fuori90(Est2 + Me1)
                                            V2 = Fuori90(90 +(Est1 - Me1))
                                        End If
                                        If V1 = V2 Then
                                            Ruota(1) = R1
                                            Diam1 = Diametrale(Est1)
                                            Diam2 = Diametrale(Est2)
                                            '
                                            Caso = Caso + 1
                                            Casi = Casi + 1
                                            ColoreTesto 1
                                            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                            ColoreTesto 2
                                            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                            ColoreTesto 0
                                            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                                            Scrivi
                                            ColoreTesto 1
                                            Scrivi " Distanza Ciclometrica tra estratti " & Format2(Dab) & " - " & Format2(A1) & "  " & Format2(B1) & "  " & Format2(C1),1
                                            Scrivi
                                            Scrivi Space(41) & Format2(A2) & "  " & Format2(B2) & "  " & Format2(C2),1
                                            Scrivi
                                            Scrivi Space(41) & Format2(A3) & "  " & Format2(B3) & "  " & Format2(C3),1
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi Space(14) & "Cardine 1" & Space(5) & "estremo 1" & Space(5) & "Distanza" & Space(5) & "Estremo 2 " & Space(5) & "Cardine 2"
                                            Scrivi Space(17) & Format2(Est1) & Space(12) & Format2(A1) & Space(12) & Format2(DC1) & Space(11) & Format2(C3) & Space(13) & Format2(Est2)
                                            ColoreTesto 0
                                            Scrivi
                                            F(1) = Est1 :F(2) = Est2 :F(3) = V1
                                            DisegnaCerchioCiclometrico F,- 1,1,0
                                            Num(1) = V1
                                            Num(2) = Est1
                                            Num(3) = Est2
                                            Num(4) = Diam1
                                            Num(5) = Diam2
                                            '
                                            Scrivi
                                            Ambo1(1) = V1
                                            Ambo1(2) = Est1
                                            ImpostaGiocata 1,Ambo1,Ruota,Posta,Clp
                                            Ambo2(1) = V1
                                            Ambo2(2) = Est2
                                            ImpostaGiocata 2,Ambo2,Ruota,Posta,Clp
                                            Ambo3(1) = V1
                                            Ambo3(2) = Diam1
                                            ImpostaGiocata 3,Ambo3,Ruota,Posta,Clp
                                            Ambo4(1) = V1
                                            Ambo4(2) = Diam2
                                            ImpostaGiocata 4,Ambo4,Ruota,Posta,Clp
                                            Num(1) = V1
                                            Num(2) = Est1
                                            Num(3) = Est2
                                            Num(4) = Diam1
                                            Num(5) = Diam2
                                            ImpostaGiocata 5,Num,Ruota,Poste,Clp2
                                            Gioca Es
                                        End If
                                    End If
                                End If
                                End If

                            End If
                        End If
                    End If
                    If ScriptInterrotto Then Exit Sub
                Next
            Next
        Next
    Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - AURUM - BY ROBERTO PASCALE"
Scrivi Space(50) & "SCRIPT BY SALVO50"
End Sub
 
Ultima modifica:

Juri

Super member
Ciao a tutti.
Questi programmi come si possono vedere tramite listato?Dove vanno caricati?Sono semplici da usare una volta messo questo script?
Grazie mille.

Buona serata!
 

salvo50

Advanced Member >PLATINUM PLUS<
Juri;n2101373 ha scritto:
Ciao a tutti.
Questi programmi come si possono vedere tramite listato?Dove vanno caricati?Sono semplici da usare una volta messo questo script?
Grazie mille.

Buona serata!

Ciao, usa il programma Spaziometria di LuigiB, apri la sezione script, fai copia e incolla dello script, poi lo lanci dall'icona con il fulmine, e poi è intuitivo quello che appare nell'output, se non capisci qualcosa, chiedi.
 

rosce14

Premium Member
CIAO SALVO50, PERCHE' QUESTO SCRIPT E' FERMO AL 18 01 18.? NON SI AGGIORNA?
DEVO ASPETTARE CHE CI SIA LA GIUSTA CONDIZIONE?
RESTO IN ATTESA DI UNA TUA RISPOSTA.
ROSCE14
 

Juri

Super member
Ci sono le istruzioni su come usare le varie funzioni?Ho visto che lo script va ma non riesco più a richiamarlo.

Uno può anche testare dei metodi sommativi presi sul giornale?

Grazie mille.
 

salvo50

Advanced Member >PLATINUM PLUS<
Juri;n2101465 ha scritto:
Ci sono le istruzioni su come usare le varie funzioni?Ho visto che lo script va ma non riesco più a richiamarlo.

Ciao

Ripremi di nuovo ll tasto con l'icona del fulmine e lo script riparte

Uno può anche testare dei metodi sommativi presi sul giornale?


Domande come la tua, sono già state fatte e se non ricordo male, qualcuno ha già risposto positivamente.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Originariamente inviato da rosce14
CIAO SALVO50, PERCHE' QUESTO SCRIPT E' FERMO AL 18 01 18.? NON SI AGGIORNA?
DEVO ASPETTARE CHE CI SIA LA GIUSTA CONDIZIONE?
RESTO IN ATTESA DI UNA TUA RISPOSTA.
ROSCE14

Il metodo dopo aver fatto tutti i calcoli, chiede che tra due numeri ci sia la somma 90 e la chiama EQUAZIONE PERFETTA, quindi l'ultima equazione perfetta che ha trovato fino ad oggi è quella del 21-12-17, io ho impostato 13 colpi, ma tu puoi cambiarli, poi ho impostato che appena uscita l'ambata il gioco finisce, finche non ci sarà un altra combinazione con equazione perfetta. Quindi il gioco si ferma al 18-01-18, perchè è iniziato il 21-12-17 più 12 colpi, dato che al dodicesimo colpo è uscita l'ambata, quindi per vedere un altra previsione, bisogna aspettare che ci sia la condizione dell'EQUAZIONE PERFETTA
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Quattro Terzine Per Ambo, di Domenico Manna

Quattro terzine per ambo fg1 - D.Manna.PNG


Quattro terzine per ambo fg2 - D.Manna.PNG

Codice:
 'Progetto - Quattro Terzine Per Ambo - By D.Manna
'script - By Salvo50
Option Explicit
Sub Main
    Dim Fin,Clp,Col,Esqcol,Esq,Es,R1,Caso,Casi,Ok
    Dim Num1(3),Num2(3),Num3(3),Num4(3),Ru(1),Poste(2)
    Dim A1,A2,A3,A4,A5,A234,A235,A345
    Dim Ftre,Fsei,Fnove,FA1,A1x7,A1x13
    Ftre = Figura(3)
    Fsei = Figura(6)
    Fnove = Figura(9)
    'Poste(1) = 1
    Poste(2) = 1
    Fin = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9300)'4049 esempio nell'articolo
    R1 = CInt(InputBox("Inserisci il numero della ruota scelta (1 - 10 -- 12 per la NAZ)?",,6))
    Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,7))
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare?",,1000))
    Ru(1) = R1
    Esqcol = Esq + Col
    If Esqcol > Fin Then Esqcol = Fin
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        A1 = Estratto(Es,R1,1)
        A2 = Estratto(Es,R1,2)
        A3 = Estratto(Es,R1,3)
        A4 = Estratto(Es,R1,4)
        A5 = Estratto(Es,R1,5)
        FA1 = Figura(A1)
        If FA1 <> Ftre And FA1 <> Fsei And FA1 <> Fnove Then
            If Cadenza(A1) <> Cadenza(0) And Cadenza(A1) <> Cadenza(5) Then
                If Cadenza(A2) <> Cadenza(A3) And Cadenza(A2) <> Cadenza(A4)And Cadenza(A2) <> Cadenza(A5) Then
                    If Cadenza(A3) <> Cadenza(A4) And Cadenza(A3) <> Cadenza(A5)And Cadenza(A4) <> Cadenza(A5) Then
                        A235 = Fuori90(A2 + A3 + A5)
                        A234 = Fuori90(A2 + A3 + A4)
                        A345 = Fuori90(A3 + A4 + A5)
                        A1x7 = Fuori90(A1 * 7)
                        A1x13 = Fuori90(A1 * 13)
                        Num1(1) = Fuori90(A345 + A1x7)
                        Num1(2) = Fuori90(A234 + A1x7)
                        Num1(3) = Fuori90(A235 + A1x7)
                        '----------------------------
                        Num2(1) = Fuori90(90 +(A345 - A1x7))
                        Num2(2) = Fuori90(90 +(A234 - A1x7))
                        Num2(3) = Fuori90(90 +(A235 - A1x7))
                        '------------------------------
                        Num3(1) = Fuori90(A345 + A1x13)
                        Num3(2) = Fuori90(A234 + A1x13)
                        Num3(3) = Fuori90(A235 + A1x13)
                        '------------------------------
                        Num4(1) = Fuori90(90 +(A345 - A1x13))
                        Num4(2) = Fuori90(90 +(A234 - A1x13))
                        Num4(3) = Fuori90(90 +(A235 - A1x13))
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                        Scrivi
                        EliminaRipetuti Num1
                        ImpostaGiocata 1,Num1,Ru,Poste,Clp,2
                        EliminaRipetuti Num2
                        ImpostaGiocata 2,Num2,Ru,Poste,Clp,2
                        EliminaRipetuti Num3
                        ImpostaGiocata 3,Num3,Ru,Poste,Clp,2
                        EliminaRipetuti Num4
                        ImpostaGiocata 4,Num4,Ru,Poste,Clp,2
                        Gioca Es
                    End If
                End If
            End If
        End If
        If ScriptInterrotto Then Exit Sub
    Next
    ScriviResoconto
    Scrivi Space(56) & "Progetto - Quattro Terzine Per Ambo - By D.Manna"
    Scrivi Space(56) & "script by Salvo50"
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
IL TRIO VINCENTE (Prima versione)- BY ANTONIO DI PAOLO



Trio vincente - A. Di Paolo.jpg

Codice:
'PROGETTO - IL TRIO VINCENTE (Prima versione)- BY ANTONIO DI PAOLO
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Esq,Clp1,Col,Esqcol,Clp2
   Dim Posta(2),Ruote(1),Ruota(1),Poste(4),Num1(2),Num2(4)
   Dim R1,R2,Caso,Casi,P1,P2,P3,A,B,C,P,E
   Dim DAB,DCA,DBC,Sve1,Sve2,Sor1,Sor2
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,8597)'6797 primo esempio nell'articolo, del 27-03-99
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata e l'ambo?",,10)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la Quartina?",,14)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,9000))
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   'Poste(4) = 1
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Messaggio Es
      AvanzamentoElab Esq,Esqcol,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If A > 0 Then
                     DAB = Distanza(A,B)
                     DCA = Distanza(C,A)
                     DBC = Distanza(B,C)
                     If((DAB = DBC) And(DAB = 1)) Xor((DCA = DAB) And(DAB = 1))Xor((DBC = DCA) And(DCA = 1)) Then
                        If DAB = DBC Then
                           Sve1 = Fuori90(A + C)
                           Sve2 = Fuori90(B + B)
                           Sor1 = Fuori90(A + B)
                           Sor2 = Fuori90(C + B)
                        End If
                        If DCA = DAB Then
                           Sve1 = Fuori90(C + B)
                           Sve2 = Fuori90(A + A)
                           Sor1 = Fuori90(C + A)
                           Sor2 = Fuori90(B + A)
                        End If
                        If DBC = DCA Then
                           Sve1 = Fuori90(B + A)
                           Sve2 = Fuori90(C + C)
                           Sor1 = Fuori90(B + C)
                           Sor2 = Fuori90(A + C)
                        End If
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P = 1 To 5
                           E = Estratto(Es,R1,P)
                            If(E = A) Or(E = B) Or(E = C) Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E) & Space(1),1,0
                        Next
                        Scrivi
                        Scrivi
                        '
                        Ruota(1) = R1
                        Ruote(1) = TU_
                        Num1(1) = Sve1
                        Num1(2) =(90 - Sve1)
                        If Sve1 <> 90 And Sve2 <> 90 Then Posta(2) = 1
                        ImpostaGiocata 1,Num1,Ruota,Posta,Clp1
                        Num2(1) = Num1(1)
                        Num2(2) = Num1(2)
                        Num2(3) = Sor1
                        Num2(4) = Sor2
                        ImpostaGiocata 2,Num2,Ruote,Poste,Clp2
                        Posta(2) = 0
                        Gioca Es
                        'End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi Space(52) & " PROGETTO - IL TRIO VINCENTE (Prima versione) - BY ANTONIO DI PAOLO"
   Scrivi Space(52) & "                 SCRIPT BY Salvo50"
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Ho fatto una piccola correzione, perchè quando le prime due somme sono uguali a 90, il secondo numero è zero, quindi ho tolto la giocata dell'ambo
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

METODO DIAMETRALE

Metodo diametrale - Luciana Giorgetti.jpg

Codice:
'PROGETTO - METODO DIAMETRALE - a cura di LUCIANA GIORGETTI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Esq,Clp1,Col,Esqcol,Salvo50
   Dim Num1(4),Num2(8),Ruote(2),Poste(5),Ma(4)
   Dim R1,R2,Caso,Casi,P1,P,PP,A,B,E1,E2
   Dim S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14
   Dim Dist1,Dist2,Dist3
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)'6685 è il secondo esempio nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare?",Salvo50,9)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,1000))
   Poste(2) = 1
   Poste(3) = 1
   'Poste(4) = 1
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Messaggio Es
      AvanzamentoElab Esq,Esqcol,Es
      Caso = 0
      For R1 = 1 To 9
         For R2 = R1 + 1 To 10
            For P1 = 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R2,P1)
               If A = Diametrale(B) Then
                  S1 = Fuori90(A + B)
                  If S1 <> 45 Then
                     S2 = Fuori90(A + S1)
                     S3 = Fuori90(B + S1)
                     Ma(1) = A : Ma(2) = B : Ma(3) = S2 : Ma(4) = S3
                     OrdinaMatrice Ma,1
                     Dist1 = Distanza((Ma(1)),(Ma(2)))
                     Dist2 = Distanza((Ma(2)),(Ma(3)))
                     Dist3 = Distanza((Ma(3)),(Ma(4)))
                     S4 = Fuori90(Dist1 + Dist2)
                     S5 = Fuori90(Dist2 + Dist3)
                     If S4 = S5 Then
                        S6 = Fuori90(Ma(1) + Ma(2))
                        S7 = Fuori90(Ma(2) + Ma(3))
                        S8 = Fuori90(Ma(3) + Ma(4))
                        S9 = Fuori90(Dist1 + S6)
                        S10 = Fuori90(Dist2 + S7)
                        S11 = Fuori90(Dist3 + S8)
                        S12 = Fuori90(S6 + S9)
                        S13 = Fuori90(S7 + S10)
                        S14 = Fuori90(S8 + S11)
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 2
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 1
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P = 1 To 5
                           E1 = Estratto(Es,R1,P)
                           If E1 = A Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & " ",1,0
                        For PP = 1 To 5
                           E2 = Estratto(Es,R2,PP)
                           If E2 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        ColoreTesto 1
                        Scrivi Space(15) & Format2(Dist1) & Space(3) & Format2(S4) & Space(3) & Format2(Dist2),1,0
                        Scrivi Space(3) & Format2(S5) & Space(3) & Format2(Dist3),1
                        ColoreTesto 2
                        Scrivi Space(10) & Format2(Ma(1)) & Space(8) & Format2(Ma(2)) & Space(8) & Format2(Ma(3)),1,0
                        Scrivi Space(8) & Format2(Ma(4)),1
                        ColoreTesto 1
                        Scrivi Space(15) & Format2(S6) & Space(8) & Format2(S7) & Space(8) & Format2(S8),1
                        Scrivi Space(15) & Format2(S9) & Space(8) & Format2(S10) & Space(8) & Format2(S11),1
                        Scrivi Space(15) & Format2(S12) & Space(8) & Format2(S13) & Space(8) & Format2(S14),1
                        Scrivi
                        ColoreTesto 0
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Num1(1) = Dist1
                        Num1(2) = Dist2
                        Num1(3) = S4
                        EliminaRipetuti Num1
                        ImpostaGiocata 1,Num1,Ruote,Poste,Clp1
                        Num2(1) = S6
                        Num2(2) = S7
                        Num2(3) = S9
                        Num2(4) = S10
                        Num2(5) = S12
                        Num2(6) = S13
                        Num2(7) = Dist1
                        Num2(8) = Dist2
                        EliminaRipetuti Num2
                        ImpostaGiocata 2,Num2,Ruote,Poste,Clp1
                        Gioca Es
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi Space(52) & " PROGETTO - METODO DIAMETRALE - a cura di LUCIANA GIORGETTI"
   Scrivi Space(52) & "                 SCRIPT BY Salvo50"
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
VINCERE A COLPO

Vincere a colpo - Vasapollo Cosma.jpg

Codice:
 'PROGETTO - VINCERE A COLPO - a cura di VASAPOLLO COSMA
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim FIn,Es,Es1,Esq,Clp1,Clp2,Col,Esqcol,Salvo50
    Dim Num1(1),Num2(2),Num3(2),Ruote(2)
    Dim Poste(2),NRF(1),RUO(1),Posta(1)
    Dim R1,R2,Caso,Casi,A1,A5,B1,B5,C1,C5
    Dim Somma,P,PP,PPP,E1,E2,E3,Ambata,NR
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,8000)'6686 è il primo esempio nell'articolo
    Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",Salvo50,2)
    Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",Salvo50,10)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
    Posta(1) = 1
    Poste(2) = 1
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Messaggio Es
        AvanzamentoElab Esq,Esqcol,Es
        Es1 = Es + 1
        Caso = 0
        For R1 = 1 To 9
            If IndiceMensile(Es) = 1 Then
                A1 = Estratto(Es,R1,1): If A1 > 0 Then
                A5 = Estratto(Es,R1,5)
                B1 = Estratto(Es1,R1,1)
                B5 = Estratto(Es1,R1,5)
                Ambata = Fuori90(A1 + A5 + B1 + B5)
                If Ambata < 45 Then
                    NR = Ambata + 45
                Else
                    NR = Ambata - 45
                End If
                For R2 = R1 + 1 To 10
                    C1 = Estratto(Es1,R2,1)
                    C5 = Estratto(Es1,R2,5)
                    If NR = C1 Or NR = C5 Then
                        RUO(1) = 11
                        NRF(1) = NR
                        '
                        If SerieFreq(Es1,Es1,NRF,RUO,1) = 1 Then
                            Caso = Caso + 1
                            Casi = Casi + 1
                            ColoreTesto 2
                            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                            ColoreTesto 1
                            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                            ColoreTesto 0
                            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                            Scrivi "  " & SiglaRuota(R1) & " ",1,0
                            For P = 1 To 5
                                E1 = Estratto(Es,R1,P)
                                If E1 = A1 Or E1 = A5 Then
                                    ColoreTesto 2
                                Else
                                    ColoreTesto 0
                                End If
                                Scrivi Format2(E1) & " ",1,0
                                ColoreTesto 0
                            Next
                            Scrivi
                            Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                            Scrivi "  " & SiglaRuota(R1) & " ",1,0
                            For PP = 1 To 5
                                E2 = Estratto(Es1,R1,PP)
                                If E2 = B1 Or E2 = B5 Then
                                    ColoreTesto 2
                                Else
                                    ColoreTesto 0
                                End If
                                Scrivi Format2(E2) & " ",1,0
                                ColoreTesto 0
                            Next
                            Scrivi
                            Scrivi
                            Scrivi " Numero da cercare In tutte le Ruote = " & Format2(NR) & " Trovato a " & Format2(NomeRuota(R2)),1
                            Scrivi
                            Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                            Scrivi "  " & SiglaRuota(R2) & " ",1,0
                            For PPP = 1 To 5
                                E3 = Estratto(Es1,R2,PPP)
                                If E3 = NR Then
                                    ColoreTesto 2
                                Else
                                    ColoreTesto 0
                                End If
                                Scrivi Format2(E3) & " ",1,0
                                ColoreTesto 0
                            Next
                            Scrivi
                            Scrivi
                            Scrivi
                            Ruote(1) = R2
                            Ruote(2) = R1
                            Num1(1) = Ambata
                            ImpostaGiocata 1,Num1,Ruote,Posta,Clp1
                            Num2(1) = Ambata
                            Num2(2) = Fuori90(Ambata + 1)
                            ImpostaGiocata 2,Num2,RUO,Poste,Clp2,2
                            Num3(1) = Ambata
                            Num3(2) = Fuori90(90 +(Ambata - 1))
                            ImpostaGiocata 3,Num3,RUO,Poste,Clp2,2
                            Gioca Es1
                        End If
                    End If
                Next
            End If
        End If
    Next
    If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi Space(52) & " PROGETTO - VINCERE A COLPO - a cura di VASAPOLLO COSMA "
Scrivi Space(52) & "                 SCRIPT BY Salvo50"
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Vincite Misteriose

Vincite misteriose  - A. Tirenni.jpg

Codice:
 'PROGETTO - VINCITE MISTERIOSE - a cura di ALFIO TIRENNI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim FIn,Es,Esq,Clp,Col,Esqcol,Salvo50
    Dim Posta(2),Ruota(1),Num1(2)
    Dim R1,Caso,Casi,Estr1,Estr2,P,P1,P2,E1
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9340)
    Clp = InputBox("Per quanti colpi vuoi giocare?",,10)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
    Posta(1) = 1
    Posta(2) = 1
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Messaggio Es
        AvanzamentoElab Esq,Esqcol,Es
        Caso = 0
        For R1 = 1 To 11
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 4
                For P2 = P1 + 1 To 5
                    Estr1 = Estratto(Es,R1,P1)
                    Estr2 = Estratto(Es,R1,P2)
                    If Estr1 > 0 Then
                        If(Cadenza(Estr1) = Cadenza(Estr2)) Or(Decina(Estr1) = Decina(Estr2)) Then
                            Num1(1) = Fuori90(135 - Estr1)
                            Num1(2) = Fuori90(135 - Estr2)
                            Caso = Caso + 1
                            Casi = Casi + 1
                            ColoreTesto 1
                            Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                            ColoreTesto 2
                            Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                            ColoreTesto 0
                            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
                            Scrivi "  " & SiglaRuota(R1) & " ",1,0
                            For P = 1 To 5
                                E1 = Estratto(Es,R1,P)
                                If E1 = Estr1 Or E1 = Estr2 Then
                                    ColoreTesto 2
                                Else
                                    ColoreTesto 0
                                End If
                                Scrivi Format2(E1) & " ",1,0
                                ColoreTesto 0
                            Next
                            Scrivi
                            Scrivi
                            Scrivi
                            Ruota(1) = R1
                            ImpostaGiocata 1,Num1,Ruota,Posta,Clp,2
                            Gioca Es
                        End If
                    End If
                Next
            Next
        Next
        If ScriptInterrotto Then Exit Sub
    Next
    ScriviResoconto
    Scrivi Space(52) & " PROGETTO - VINCITE MISTERIOSE - a cura di ALFIO TIRENNI"
    Scrivi Space(52) & "                 SCRIPT BY Salvo50"
End Sub
 
Ultima modifica:
R

Roby

Guest
Ciao salvo, bello quello che stai facendo, mi rievoca un passato remoto di quando leggevo "Il Calcolo Vincitore" di Fabrizio Arrigoni ai più conosciuto come Fabarri...
Io non gioco, lo fatto sporadicamente in passato, ma la passione rimane ed è un altra cosa.
salvo, io ho una cassa di giornali del passato, se vuoi spulcio tra le ragnatele e pubblico qualcosa che magari si era persa o che fa piacere a qualcuno,però non ho assolutamente tempo di fare gli script anche se sono in perfettamente in grado ma fino a un certo punto.

Quindi se a qualcuno fa piacere, cerco e metto, ditemi voi.

Un saluto

Cesare
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Cerberus, anch'io con gli script arrivo fino ad un certo punto, ma quando non ci arrivo chiedo aiuto.
A riguardo dei metodi datati mi fa molto piacere se li posti.
 
R

Roby

Guest
Ciao salvo.
Mi domandavo....ci sono diritti d'autore? come funziona la cosa?
Va be che ho cose molto vecchie, anche di autori sconosciuti del 1800.
ne ho molte dai giornali però.
illuminami.
 

salvo50

Advanced Member >PLATINUM PLUS<
Cerberus;n2110528 ha scritto:
Ciao salvo.
Mi domandavo....ci sono diritti d'autore? come funziona la cosa?
Va be che ho cose molto vecchie, anche di autori sconosciuti del 1800.
ne ho molte dai giornali però.
illuminami.

Ciao a Tutti.

Non lo sò come funziona la cosa, però in queste riviste esempio come LottoPiù, credo che basti citare la fonte, io non ho citato la fonte però c'è il logo di LottoPiù in tutte le immagini che ho postato.
 
Ultima modifica:
R

Roby

Guest
Grazie della risposta, comunque sto vedendo in giro che metodi dalle riviste se ne trovano a bizzeffe per il web.
La maggior parte son già stati pubblicati in ogni dove.
Io invece vorrei fare una cosa diversa, ossia pubblicare oltre a metodi del passato di autori di una certa levatura, anche articoli, stranezze, curiosità, metodi strani, originali, inediti e provocatori su cui discutere e prendere spunti e magari modificare a proprio vantaggio.
Quindi, raccolgo un po di materiale e poi apro le danze aprendo un nuovo 3D.

ciao

Cesare
 
Ultima modifica:
R

Roby

Guest
Si, aprirò un nuovo 3D, perchè se li pubblico qui da te, rischio di imbrattarti il tuo spazio con un sacco di roba che non centra con il tuo titolo che è abbastanza chiaro.
Però alcuni metodi classici delle riviste li metterò qui da te che è più giusto.

Grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 novembre 2020
    Bari
    61
    80
    40
    26
    16
    Cagliari
    14
    12
    83
    85
    28
    Firenze
    76
    40
    31
    53
    61
    Genova
    58
    02
    50
    34
    30
    Milano
    86
    62
    14
    54
    23
    Napoli
    81
    26
    19
    35
    09
    Palermo
    26
    39
    31
    16
    51
    Roma
    11
    58
    68
    23
    85
    Torino
    59
    74
    88
    01
    22
    Venezia
    35
    57
    28
    36
    90
    Nazionale
    26
    80
    87
    36
    77
    Estrazione Simbolotto
    Torino
    12
    04
    41
    06
    44
Alto