Novità

Le mie solite idee

M

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
C

claudio8

Premium Member
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
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
Alien.

Alien.

Advanced Premium Member
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
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
C

claudio8

Premium Member
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"
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
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:
Alien.

Alien.

Advanced Premium Member
BRAVA camy tu l'hai capita ....


cd18e704dbbf17ceea923b3d5947103c.gif
 
B

boris

Advanced Member
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
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto