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
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto