Novità

Le mie solite idee

claudio8 ha scritto:
Un bravo per i lavori di ricerca ... un po meno ,ma comunque sufficente, per gli script (scherzo).

Ti ho risrcitto questo per darti qualche suggerimento :

Codice: 
Sub Main()
    ColoreTesto 2
    Scrivi "SOMMA 91 SU RUOTE CONTIGUE IN  2° POSIZIONE "
    Scrivi " GIOCA 1 AMBATA + 4 AMBI  SU RUOTE SPIA "
    Scrivi "METODO E LIST BY Marco"
    ColoreTesto 0
    Dim ruote(10)
    Dim am(1),nr(4),ambo(2)
    Dim posta(1)
    Dim poste(10)
    posta(1) = 1
    poste(2) = 1
    ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",300)
    k = InputBox("per quanti colpi?","colpi di gioco",10)
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    casi = 0
    'ok = 0
    For es = ini To fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 9
            'For r2 = r1 + 1 To 10
            'For p1 = 2To 2
            'For p2 = 2 To 2
            a = Estratto(es,r1,2)
            b = Estratto(es,r1 + 1,2)
            If Fuori90(a + b) = 1 Then
                'If r2 = r1 + 1 Then
                'ok = 1
                am(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,5) + 42)
                nr(1) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 29)
                nr(2) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,3,4) + 34)
                nr(3) = Fuori90(Estratto(es,4,3) + Estratto(es,10,4) + 20)
                nr(4) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 1)
                'If ok = 1 Then
                casi = casi + 1
                Scrivi String(100,"°") & " Caso n°" & casi,1
                ColoreTesto 1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                ruote(1) = r1
                ruote(2) = r2
                ColoreTesto 0
                ng = 0
                ImpostaGiocata 1,am,ruote,posta,k
                For x = 1 To 4 '<=== totale degli accoppiamenti x ambo
                    ambo(1) = am(1)
                    ambo(2) = nr(x)
                    ng = ng + 1
                    ImpostaGiocata ng + 1,ambo,ruote,poste,k
                Next
                'ImpostaGiocata 2,a1,ruote,poste,k,2
                'ImpostaGiocata 3,a2,ruote,poste,k,2
                'ImpostaGiocata 4,a3,ruote,poste,k,2
                'ImpostaGiocata 5,a4,ruote,poste,k,2
                Gioca es,1
                'End If
                'End If
            End If
            'Next
            'Next
            'Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & casi,1
    ColoreTesto 0
    Scrivi String(100," * ")
    ColoreTesto 0
    ScriviResoconto
End Sub

un saluto
Clicca per espandere...
Ciao Claudio,
Figurati se mi offendo!….come avrai già letto,ho ribadito di non capirci una cippa e se solo avessi il 20% delle vostre capacità…. Farei delle cose assurde ma imho!, questa è la realtà dei fatti
 
claudio8 ha scritto:
Un bravo per i lavori di ricerca ... un po meno ,ma comunque sufficente, per gli script (scherzo).

Ti ho risrcitto questo per darti qualche suggerimento :

Codice: 
Sub Main()
    ColoreTesto 2
    Scrivi "SOMMA 91 SU RUOTE CONTIGUE IN  2° POSIZIONE "
    Scrivi " GIOCA 1 AMBATA + 4 AMBI  SU RUOTE SPIA "
    Scrivi "METODO E LIST BY Marco"
    ColoreTesto 0
    Dim ruote(10)
    Dim am(1),nr(4),ambo(2)
    Dim posta(1)
    Dim poste(10)
    posta(1) = 1
    poste(2) = 1
    ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",300)
    k = InputBox("per quanti colpi?","colpi di gioco",10)
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    casi = 0
    'ok = 0
    For es = ini To fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 9
            'For r2 = r1 + 1 To 10
            'For p1 = 2To 2
            'For p2 = 2 To 2
            a = Estratto(es,r1,2)
            b = Estratto(es,r1 + 1,2)
            If Fuori90(a + b) = 1 Then
                'If r2 = r1 + 1 Then
                'ok = 1
                am(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,5) + 42)
                nr(1) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 29)
                nr(2) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,3,4) + 34)
                nr(3) = Fuori90(Estratto(es,4,3) + Estratto(es,10,4) + 20)
                nr(4) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 1)
                'If ok = 1 Then
                casi = casi + 1
                Scrivi String(100,"°") & " Caso n°" & casi,1
                ColoreTesto 1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                ruote(1) = r1
                ruote(2) = r2
                ColoreTesto 0
                ng = 0
                ImpostaGiocata 1,am,ruote,posta,k
                For x = 1 To 4 '<=== totale degli accoppiamenti x ambo
                    ambo(1) = am(1)
                    ambo(2) = nr(x)
                    ng = ng + 1
                    ImpostaGiocata ng + 1,ambo,ruote,poste,k
                Next
                'ImpostaGiocata 2,a1,ruote,poste,k,2
                'ImpostaGiocata 3,a2,ruote,poste,k,2
                'ImpostaGiocata 4,a3,ruote,poste,k,2
                'ImpostaGiocata 5,a4,ruote,poste,k,2
                Gioca es,1
                'End If
                'End If
            End If
            'Next
            'Next
            'Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & casi,1
    ColoreTesto 0
    Scrivi String(100," * ")
    ColoreTesto 0
    ScriviResoconto
End Sub

un saluto
Clicca per espandere...
Ho fatto girare il listato proprio ora(purtroppo sono a letto distrutto dal rafreddore)
bello il codice semplificativo ma lo script non esegue quello che voglio io
 
Marco-elle ha scritto:
Ho fatto girare il listato proprio ora(purtroppo sono a letto distrutto dal rafreddore)
bello il codice semplificativo ma lo script non esegue quello che voglio io
Clicca per espandere...
correggi qui ....
ruote(2) = r1+1
qui......
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1+1) & " - " & StringaEstratti(es,r1+1) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
e qui...
ImpostaGiocata ng + 1,ambo,ruote,poste,k,2

eccoti il codice pulito
Codice: 
Sub Main()
    ColoreTesto 2
    Scrivi "SOMMA 91 SU RUOTE CONTIGUE IN  2° POSIZIONE "
    Scrivi " GIOCA 1 AMBATA + 4 AMBI  SU RUOTE SPIA "
    Scrivi "METODO E LIST BY Marco"
    ColoreTesto 0
    Dim ruote(10)
    Dim am(1),nr(4),ambo(2)
    Dim posta(1)
    Dim poste(10)
    posta(1) = 1
    poste(2) = 1
    ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",300)
    k = InputBox("per quanti colpi?","colpi di gioco",10)
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    casi = 0
    For es = ini To fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 9
            a = Estratto(es,r1,2)
            b = Estratto(es,r1 + 1,2)
            If Fuori90(a + b) = 1 Then
                am(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,5) + 42)
                nr(1) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 29)
                nr(2) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,3,4) + 34)
                nr(3) = Fuori90(Estratto(es,4,3) + Estratto(es,10,4) + 20)
                nr(4) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 1)
                casi = casi + 1
                Scrivi String(100,"°") & " Caso n°" & casi,1
                ColoreTesto 1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
                " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                ruote(1) = r1
                ruote(2) = r1 + 1
                ColoreTesto 0
                ng = 0
                ImpostaGiocata 1,am,ruote,posta,k
                For x = 1 To 4 '<=== totale degli accoppiamenti x ambo
                    ambo(1) = am(1)
                    ambo(2) = nr(x)
                    ng = ng + 1
                    ImpostaGiocata ng + 1,ambo,ruote,poste,k,2
                Next
                Gioca es,1
            End If
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & casi,1
    ColoreTesto 0
    Scrivi String(100," * ")
    ColoreTesto 0
    ScriviResoconto
End Sub
credo non ci siano altre inesattezze
 
claudio8 ha scritto:
correggi qui ....
ruote(2) = r1+1
qui......
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1+1) & " - " & StringaEstratti(es,r1+1) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
e qui...
ImpostaGiocata ng + 1,ambo,ruote,poste,k,2

eccoti il codice pulito
Codice: 
Sub Main()
    ColoreTesto 2
    Scrivi "SOMMA 91 SU RUOTE CONTIGUE IN  2° POSIZIONE "
    Scrivi " GIOCA 1 AMBATA + 4 AMBI  SU RUOTE SPIA "
    Scrivi "METODO E LIST BY Marco"
    ColoreTesto 0
    Dim ruote(10)
    Dim am(1),nr(4),ambo(2)
    Dim posta(1)
    Dim poste(10)
    posta(1) = 1
    poste(2) = 1
    ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",300)
    k = InputBox("per quanti colpi?","colpi di gioco",10)
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    casi = 0
    For es = ini To fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 9
            a = Estratto(es,r1,2)
            b = Estratto(es,r1 + 1,2)
            If Fuori90(a + b) = 1 Then
                am(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,5) + 42)
                nr(1) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 29)
                nr(2) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,3,4) + 34)
                nr(3) = Fuori90(Estratto(es,4,3) + Estratto(es,10,4) + 20)
                nr(4) = Fuori90(Estratto(es,5,4) + Estratto(es,6,1) + 1)
                casi = casi + 1
                Scrivi String(100,"°") & " Caso n°" & casi,1
                ColoreTesto 1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
                " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                ruote(1) = r1
                ruote(2) = r1 + 1
                ColoreTesto 0
                ng = 0
                ImpostaGiocata 1,am,ruote,posta,k
                For x = 1 To 4 '<=== totale degli accoppiamenti x ambo
                    ambo(1) = am(1)
                    ambo(2) = nr(x)
                    ng = ng + 1
                    ImpostaGiocata ng + 1,ambo,ruote,poste,k,2
                Next
                Gioca es,1
            End If
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & casi,1
    ColoreTesto 0
    Scrivi String(100," * ")
    ColoreTesto 0
    ScriviResoconto
End Sub
credo non ci siano altre inesattezze
Clicca per espandere...
Avevo già risolto…per queste cazzatine ci arrivo da solo
Domani se non risolvo posto una ricerca su indici mensili annuali che non riesco a far girare come voglio io
 
000 1 12GEN20 88 11 (04) [ 4] FIRENZE
000 2 09FEB20 11 88 (16) [ 12] BARI
000 3 02MAR20 33 88 (25) [ 9] TORINO
000 4 02MAR20 11 88 (25) [ 0] NAZIONALE
000 5 17APR20 88 33 (45) [ 20] MILANO
000 6 29MAG20 33 88 (63) [ 18] MILANO
000 7 08GIU20 11 33 (67) [ 4] BARI
000 8 10LUG20 88 33 11 (81) [ 14] BARI
000 9 15LUG20 88 33 (83) [ 2] NAZIONALE
000 0 19AGO20 88 11 (98) [ 15] NAZIONALE
 
claudio8 ha scritto:
Fai pure
Con questo terno 88 33 11 di gemelli quale è la soluzione ?
Clicca per espandere...
Senti un po!.....ho fatto una ricerca statistica per estrapolare delle formazioni che hanno dato esito a ogni anno nei vari mesi dell'anno vincolando la prima estrazione e mi serve il codice esatto.
es:
1° di gennaio 2010
1° di febbraio 2010
...........
............
fino ad arrivare al 2021
perchè con il semolice indiceannuale(es) non risolvo

PS: sul code trovi la risoluzione alla tua domanda
Codice: 
Sub Main()
   ColoreTesto 2
   Scrivi "TERNO GEMELLARE  SORTITO SU TT "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(4)
   Dim ruota(10)
   Dim n1(4)
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   clp = 10
   ini = EstrazioneFin - 9900
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         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)
                  ok = 0
                  If(a = 11 Or a = 88 Or a = 33)_
                     And(b = 11 Or b = 88 Or b = 33)_
                     And(c = 11 Or c = 88 Or c = 33)Then
                     n1(1) = Fuori90(90 +(Estratto(es,5,5)) - Estratto(es,8,2) + 80)
                     n1(2) = Fuori90(Estratto(es,8,3) + Estratto(es,8,5) + 17)
                     n1(3) = Fuori90(90 +(Estratto(es,4,1)) - Estratto(es,6,5) + 6)
                     n1(4) = Fuori90(Estratto(es,3,2) + Estratto(es,12,5) + 51)
                     ruota(1) = 1
                     ruota(2) = 10
                     ok = 1
                  End If
                  If OK = 1 Then
                     co = co + 1
                     ColoreTesto 1
                     Scrivi String(80,"^") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es) & "   terno gemellare sortito su TT    " & a & " - " & b & " - " & c,1
                     Scrivi String(80,"^"),1
                     ColoreTesto 0
                     ImpostaGiocata 1,n1,ruota,poste,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ovvio che non possono esser sempre ambi secchi!....Cmq l'algoritmica "può" regalare previsioni sensate,
Tratto dal metodo (somma91 su ruote contigue in 2° posizione)
Immagine 2021-09-02 212915.png
 
Marco-elle ha scritto:
Senti un po!.....ho fatto una ricerca statistica per estrapolare delle formazioni che hanno dato esito a ogni anno nei vari mesi dell'anno vincolando la prima estrazione e mi serve il codice esatto.
es:
1° di gennaio 2010
1° di febbraio 2010
...........
............
fino ad arrivare al 2021
perchè con il semplice indiceannuale(es) non risolvo
Clicca per espandere...

Esiste anche la funzione " indicemensile"
 
Grazie alla collaborazione di tutti,oggi ho imparato cose nuove (si ma che casino!)
questa è una delle tante mie seghe mentali.....
Codice: 
Sub Main
   Dim IniConc,i,IdEstr,g,k
   Dim Mes,ann
   Dim aPrev(12),aRU(12),aP(2)
   aP(2) = 1
   Mes = 1
   ann = 2011
   ' trovo il Primo concorso utile del Mese e dell Anno che mi occorre
   aPrev(1) = Array(0,5,21,64,81)
   aRU(1) = Array(0,2,6)
   '
   aPrev(2) = Array(0,4,34,39,80)
   aRU(2) = Array(0,2,5)
   '
   aPrev(3) = Array(0,20,23,24,44)
   aRU(3) = Array(0,1,7)
   '
   aPrev(4) = Array(0,12,24,35,61)
   aRU(4) = Array(0,4,8)
   '
   aPrev(5) = Array(0,11,14,38,59)
   aRU(5) = Array(0,3,10)
   '
   aPrev(6) = Array(0,3,27,30,37)
   aRU(6) = Array(0,1,7)
   '
   aPrev(7) = Array(0,9,32,45,78)
   aRU(7) = Array(0,1,6)
   '
   aPrev(8) = Array(0,10,47,48,63)
   aRU(8) = Array(0,3,6)
   '
   aPrev(9) = Array(0,14,62,88,90)
   aRU(9) = Array(0,5,7)
   '
   aPrev(10) = Array(0,5,9,16,30)
   aRU(10) = Array(0,1,6)
   '
   aPrev(11) = Array(0,4,22,26,57)
   aRU(11) = Array(0,1,8)
   '
   aPrev(12) = Array(0,27,29,60,73)
   aRU(12) = Array(0,1,9)
   '
   For i = 1 To 5
      IniConc = DataEstrToIdEstr(i,Mes,ann)
      If IniConc Then Exit For
   Next
   Scrivi IniConc
   For IdEstr = IniConc To EstrazioneFin
      Mes = Mese(IdEstr)
      ' con questo ciclo conto quante estrazioni ci sono nele mese
      k = 12
      For g = IdEstr To IdEstr + 11
         If g > EstrazioneFin Then Exit For
         'k = k + 1
         If IndiceMensile(g + 1) = 1 Then Exit For
      Next
      If IndiceMensile(IdEstr) = 1 Then
         Call ImpostaGiocata(Mes,aPrev(Mes),aRU(Mes),aP,k)
         Call Gioca(IdEstr,1)
      End If
   Next
   ScriviResoconto
End Sub
 
Marco-elle ha scritto:
Grazie alla collaborazione di tutti,oggi ho imparato cose nuove (si ma che casino!)
questa è una delle tante mie seghe mentali.....
Codice: 
Sub Main
   Dim IniConc,i,IdEstr,g,k
   Dim Mes,ann
   Dim aPrev(12),aRU(12),aP(2)
   aP(2) = 1
   Mes = 1
   ann = 2011
   ' trovo il Primo concorso utile del Mese e dell Anno che mi occorre
   aPrev(1) = Array(0,5,21,64,81)
   aRU(1) = Array(0,2,6)
   '
   aPrev(2) = Array(0,4,34,39,80)
   aRU(2) = Array(0,2,5)
   '
   aPrev(3) = Array(0,20,23,24,44)
   aRU(3) = Array(0,1,7)
   '
   aPrev(4) = Array(0,12,24,35,61)
   aRU(4) = Array(0,4,8)
   '
   aPrev(5) = Array(0,11,14,38,59)
   aRU(5) = Array(0,3,10)
   '
   aPrev(6) = Array(0,3,27,30,37)
   aRU(6) = Array(0,1,7)
   '
   aPrev(7) = Array(0,9,32,45,78)
   aRU(7) = Array(0,1,6)
   '
   aPrev(8) = Array(0,10,47,48,63)
   aRU(8) = Array(0,3,6)
   '
   aPrev(9) = Array(0,14,62,88,90)
   aRU(9) = Array(0,5,7)
   '
   aPrev(10) = Array(0,5,9,16,30)
   aRU(10) = Array(0,1,6)
   '
   aPrev(11) = Array(0,4,22,26,57)
   aRU(11) = Array(0,1,8)
   '
   aPrev(12) = Array(0,27,29,60,73)
   aRU(12) = Array(0,1,9)
   '
   For i = 1 To 5
      IniConc = DataEstrToIdEstr(i,Mes,ann)
      If IniConc Then Exit For
   Next
   Scrivi IniConc
   For IdEstr = IniConc To EstrazioneFin
      Mes = Mese(IdEstr)
      ' con questo ciclo conto quante estrazioni ci sono nele mese
      k = 12
      For g = IdEstr To IdEstr + 11
         If g > EstrazioneFin Then Exit For
         'k = k + 1
         If IndiceMensile(g + 1) = 1 Then Exit For
      Next
      If IndiceMensile(IdEstr) = 1 Then
         Call ImpostaGiocata(Mes,aPrev(Mes),aRU(Mes),aP,k)
         Call Gioca(IdEstr,1)
      End If
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Con un po di fiori....
Codice: 
Sub Main
   Dim IniConc,i,IdEstr,g,k
   Dim Mes,ann
   Dim aPrev(12),aRU(12),aP(2)
   aP(2) = 1
   Mes = 1
   ann = 2010
   ' trovo il Primo concorso utile del Mese e dell Anno che mi occorre
   aPrev(1) = Array(0,5,21,64,81)
   aRU(1) = Array(0,2,6)
   '
   aPrev(2) = Array(0,4,34,39,80)
   aRU(2) = Array(0,2,5)
   '
   aPrev(3) = Array(0,20,23,24,44)
   aRU(3) = Array(0,1,7)
   '
   aPrev(4) = Array(0,12,24,35,61)
   aRU(4) = Array(0,4,8)
   '
   aPrev(5) = Array(0,11,14,38,59)
   aRU(5) = Array(0,3,10)
   '
   aPrev(6) = Array(0,3,27,30,37)
   aRU(6) = Array(0,1,7)
   '
   aPrev(7) = Array(0,9,32,45,78)
   aRU(7) = Array(0,1,6)
   '
   aPrev(8) = Array(0,10,47,48,63)
   aRU(8) = Array(0,3,6)
   '
   aPrev(9) = Array(0,14,62,88,90)
   aRU(9) = Array(0,5,7)
   '
   aPrev(10) = Array(0,5,9,16,30)
   aRU(10) = Array(0,1,6)
   '
   aPrev(11) = Array(0,4,22,26,57)
   aRU(11) = Array(0,1,8)
   '
   aPrev(12) = Array(0,27,29,60,73)
   aRU(12) = Array(0,1,9)
   '
   For i = 1 To 5
      IniConc = DataEstrToIdEstr(i,Mes,ann)
      If IniConc Then Exit For
   Next
   Scrivi IniConc
   For IdEstr = IniConc To EstrazioneFin
      Mes = Mese(IdEstr)
      ' con questo ciclo conto quante estrazioni ci sono nele mese
      k = 12
      For g = IdEstr To IdEstr + 11
         If g > EstrazioneFin Then Exit For
        ' k = k + 1
         If IndiceMensile(g + 1) = 1 Then Exit For
      Next
      If IndiceMensile(IdEstr) = 1 Then
      ColoreTesto 1: k = k + 1
  : Scrivi " 1° Estrazione del " &(es) & " " & String(3,"*") & " " & Mes & "° Mese" & " *** " & Mes & "/" & ann & " ** ",1,0 : ColoreTesto 1
         Scrivi "Metododo Statistico di Marco ",1,0: ColoreTesto 1: Scrivi "** Caso Annuale " & Format2( ann+1),1
         Scrivi
         Call ImpostaGiocata(Mes,aPrev(Mes),aRU(Mes),aP,k)
         Call Gioca(IdEstr,1)
      End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
BRAVA camy tu l'hai capita ....


cd18e704dbbf17ceea923b3d5947103c.gif
 
Buongiorno vi seguo in silenzio da tempo al momento fermo x una operazione al ginocchio, siete un gruppo fantastico e ho copiato nel passato diversi script, ringrazio e vi seguo dal ospedale sono diverse notti che non dormo seguo e leggo questo sito visto che ci sono sempre nuove idee per un appassionato …… auguro tante nuove
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto