X Salvo

franca46 · 8 Gennaio 2023

buona domenica a tutti , il listato che ho postato non è farina del mio sacco.
di questo listato ne ho anche un'altra versione , se volete la posto

franca46 · 8 Gennaio 2023

franca46 ha scritto:
buona domenica a tutti , il listato che ho postato non è farina del mio sacco.
di questo listato ne ho anche un'altra versione , se volete la posto

Codice:

Sub main()
Dim ab(2),ter(3),num(4),ruote(3),ruot(1),poste(2), posti(3)
poste(2)=1  '<-------- solo x gli ambi
posti(2)=1  '<-------- solo x gli ambi in terzina
posti(3)=1  '<-------- solo terno in terzina

quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•damper•",30))
If quante= False Then Exit Sub
For es =(EstrazioneFin - quante) To EstrazioneFin
   Messaggio CStr(EstrazioneFin - es)

     For r1=1 To 10
        For p1=1 To 5
          a=Estratto(es,r1,p1)
                   
            For r2=r1+1 To 12
               If r2=11 Then r2=12

                 For p2=1 To 5

                   b=Estratto(es,r2,p2)
                     If b=a Then
                                                   
                                   For rx= 1 To 12
                          If rx<>11 And rx<>r1 And rx<>r2 Then
                                          For p3=1 To 5
                                            d=Estratto(es,rx,p3)

                                              If d=10 Or d=80_
                                              Or d=90 Then
 
                                           If p3=p1 Or p3=p2 Then

cont=cont+1
ColoreTesto 2 : Scrivi String(25,32)&"Pronostico  n° " &cont&"",1
ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r1),3)&""&Space(2)&_
""& StringaEstratti(es,r1)&""&Space(5)&_
""& Format2(a)&""&Space(3)&"("&p1&")"
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r2),3)&""&Space(2)&_
""& StringaEstratti(es,r2)&""&Space(5)&_
""& Format2(b)&""&Space(3)&"("&p2&")"
ColoreTesto 1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(rx),3)&""&Space(2)&_
""& StringaEstratti(es,rx)&""&Space(5)&_
""& Format2(d)&""&Space(3)&"("&p3&")"
ColoreTesto 0 : Scrivi

ruote(1)=r1 : ruote(2)=r2 : ruote(3)=rx

ab(1)=a : ab(2)=10 : ImpostaGiocata 1,ab,ruote,poste,13
ab(2)=80 : ImpostaGiocata 2,ab,ruote,poste,13
ab(2)=90 : ImpostaGiocata 3,ab,ruote,poste,13

ter(1)=a : ter(2)=10 : ter(3)=80
ImpostaGiocata 4,ter,ruote,posti,13

ter(2)=80 : ter(3)=90
ImpostaGiocata 5,ter,ruote,posti,13

ter(2)=90 : ter(3)=10
ImpostaGiocata 6,ter,ruote,posti,13

ruot(1)=11

num(1)=a
num(2)=10
num(3)=80
num(4)=90
ImpostaGiocata 7,num,ruot,posti,13

Gioca es : Scrivi String(62,151)                                 
                                     
                                               End If
                                          End If
                                       Next
                                  End If
                               Next
                          End If
                       Next
                    Next
            Next
         Next
      Next
ScriviResoconto
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub

salvo50 · 8 Gennaio 2023

franca46 ha scritto:
buona domenica a tutti , il listato che ho postato non è farina del mio sacco.
di questo listato ne ho anche un'altra versione , se volete la posto

Ciao a Tutti.

Ciao Franca46

Lo so che il listato non è tuo ma di Damper che secondo me è uno bravo a fare gli script, siccome ho letto questa versione di tre terni in tre colpi, ho fatto notare le differenze

adeleadele · 9 Gennaio 2023

Grazie puo' uscire a genova l'8 con 38 35 64 9 90

adeleadele · 9 Gennaio 2023

Se noti i casi negativi sono i numeri consecutivi non isotopi quelli escono l'unico non uscito è l'8 fa errori ora isotopo c'è il 5 anche se escono maggiormente isotopi e consecutivi.

CICALOTTO · Mercoledì alle 18:25

Buonasera, riporto UP questa discussione e vi chiedo una cosa, come mai non prende in considerazione anche la ruota di Bari dove in questo caso ad esempio è presente il numero 10? mentre in una altra estrazione lo considera per la successiva previsione, forse perchè essendo la prima ruota BARI non la riconosce? Ovviamente riferito a questa versione dello script, GRAZIE find'ora se qualche anima buona mi riesce ad aiutare. GRAZIE

kubes ha scritto:

TRE TERNI IN TRE COLPI -ELISABETTA MASI

Codice:

Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,R3,R4,P1,P2,P3,P4,P5,P6,P7,P8,Clp
   Dim E1,E2,E3,E4,A,B,C,D,Caso,Casi,Fr1,fr2,fr3
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Terno1(3)
   Dim Terno2(3),terno3(3),Ruo(4),Posta(2),Poste(3)
   Ruo(1) = TU_
   Clp = 8
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   Scrivi "Progetto - Tre Terni in Tre Colpi di Elisabetta Masi ",1,1,3,,3,,1
   Ini = 9520
   Fin = EstrazioneFin
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For P2 = 1 To 5
               B = Estratto(Es,R2,P2)
               If A = B And A <> 10 And A <> 80 And A <> 90 Then
                  For R3 = 1 To 11
                     If R3 = 11 Then R3 = 12
                     If R3 <> R2 And R3 <> R1 Then
                        For P3 = 1 To 5
                           C = Estratto(Es,R3,P3)
                           If C = A Then
                              '-----------------------------------------------------
                              For R4 = 1 To 11
                                 If R4 = 11 Then R4 = 12
                                 For P4 = 1 To 5
                                    D = Estratto(Es,R4,P4)
                                    If R4 <> R3 And R4 <> R2 And R4 <> R1 And D = 10 Or D = 80 Or D = 90 Then
                                       Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = R4
                                       Ambo1(1) = A : Ambo1(2) = 10
                                       Fr1 = SerieFreqTurbo(Es - 7,Es,Ambo1,Ruo,2)
                                       Ambo2(1) = A : Ambo2(2) = 80
                                       fr2 = SerieFreqTurbo(Es - 7,Es,Ambo2,Ruo,2)
                                       Ambo3(1) = A : Ambo2(2) = 90
                                       fr3 = SerieFreqTurbo(Es - 7,Es,Ambo3,Ruo,2)
                                       If Fr1 = 0 And fr2 = 0 And fr3 = 0 Then
                                          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
                                          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 Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E1) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          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 = B Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E2) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                          For P7 = 1 To 5
                                             E3 = Estratto(Es,R3,P7)
                                             If E3 = C Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E3) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R4) & " ",1,0
                                          For P8 = 1 To 5
                                             E4 = Estratto(Es,R4,P8)
                                             If E4 = D Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E4) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                                          ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                                          ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                                          Terno1(1) = A : Terno1(2) = 10 : Terno1(3) = 80
                                          ImpostaGiocata 4,Terno1,Ruo,Poste,Clp
                                          Terno2(1) = A : Terno2(2) = 10 : Terno2(3) = 90
                                          ImpostaGiocata 5,Terno2,Ruo,Poste,Clp
                                          terno3(1) = A : terno3(2) = 80 : terno3(3) = 90
                                          ImpostaGiocata 6,terno3,Ruo,Poste,Clp
                                          Gioca Es
                                       End If
                                    End If
                                 Next
                              Next
                              '----------------------------------------------------
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
   ScriviDistribuzioneCasiInCorso(True) ' come sopra
   ScriviResoconto
End Sub

salvo50 · Ieri alle 15:06

CICALOTTO ha scritto:
Buonasera, riporto UP questa discussione e vi chiedo una cosa, come mai non prende in considerazione anche la ruota di Bari dove in questo caso ad esempio è presente il numero 10? mentre in una altra estrazione lo considera per la successiva previsione, forse perchè essendo la prima ruota BARI non la riconosce? Ovviamente riferito a questa versione dello script, GRAZIE find'ora se qualche anima buona mi riesce ad aiutare. GRAZIE

Ciao a Tutti
Antonio Pagano, Bubù, Franca46, Matematico, Pandit, ScarfaceTony, Scrignobianco.
Grazie

Ciao Cicalotto

Quei casi menzionata da te non ci sono perché, nel metodo Post 23, c'è la condizione che se almeno uno degli ambi
si trova nelle 7 (sette) estrazioni precedenti l'estrazione viene saltata, adesso io non sono andato a controllare
gli ambi usciti nelle sette estrazione precedenti, troppo noioso, però ho tolto la condizione e le estrazioni
saltate ci sono.

Vuoi che ti posto lo script senza quella condizione?

CICALOTTO · Oggi alle 09:36

salvo50 ha scritto:
Ciao a Tutti
Antonio Pagano, Bubù, Franca46, Matematico, Pandit, ScarfaceTony, Scrignobianco.
Grazie

Ciao Cicalotto

Quei casi menzionata da te non ci sono perché, nel metodo Post 23, c'è la condizione che se almeno uno degli ambi
si trova nelle 7 (sette) estrazioni precedenti l'estrazione viene saltata, adesso io non sono andato a controllare
gli ambi usciti nelle sette estrazione precedenti, troppo noioso, però ho tolto la condizione e le estrazioni
saltate ci sono.

Vuoi che ti posto lo script senza quella condizione?

BUONGIORNO

in effetti non avevo ancora controllato le precedenti estrazioni; per lo script, magari grazie se puoi postarlo...

nel frattempo mi sono permesso di aggiungere una condizione, cioè solo numeri uguali e isotopi su ruote consecutive, così da restringere le previsioni...

in questo modo:

For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 9
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
R2 = R1 + 1
For P2 = 1 To 5
B = Estratto(Es,R2,P2)
If A = B And P1 = P2 And A <> 10 And A <> 80 And A <> 90 Then
For R3 = R2 + 1 To 12
If R3 = 11 Then R3 = 12
For P3 = 1 To 5
C = Estratto(Es,R3,P3)
If C = 10 Or C = 80 Or C = 90 Then
If A > 0 And B > 0 And C > 0 Then

CICALOTTO · Oggi alle 09:42

così facendo, nelle ultime 36 estrazioni questo è il risultato...

CICALOTTO · Oggi alle 09:47

ultimo aiutino, ma se nelle previsioni volessi aggiungere anche ambetto e quindi nei risultati mi elaborasse anche gli ambetti e relative vincite? Sarebbe possibile e come indicare nello script il comando?
Nella ultima estrazione ad esempio a colpo è uscito a Cagliari 85 con 89 anzichè 90 quindi ambetto ...

salvo50 · Oggi alle 12:18

Ciao a Tutti

ok metto anche l'ambetto, appena posso lo faccio

CICALOTTO · Oggi alle 12:31

salvo50 ha scritto:
Ciao a Tutti

ok metto anche l'ambetto, appena posso lo faccio

grazie

Cerca

Cerca

X Salvo

franca46

Advanced Member >PLATINUM PLUS<

franca46

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

adeleadele

Advanced Member >PLATINUM<

adeleadele

Advanced Member >PLATINUM<

CICALOTTO

Member

Allegati

salvo50

Advanced Member >PLATINUM PLUS<

CICALOTTO

Member

CICALOTTO

Member

Allegati

CICALOTTO

Member

Allegati

salvo50

Advanced Member >PLATINUM PLUS<

CICALOTTO

Member

Ultima estrazione Lotto

Ultimi Messaggi