Le mie solite idee

Alien. · 24 Agosto 2021

NON VI è COMMENTO.

Sakti · 26 Agosto 2021

Ue, Marco, mi fai annusare i risultati poi non passi lo script....
Non si fa, non si fa...

Sempre ricerche molto mirate e uniche..
Sono Script Dipendente....

Marco-elle · 26 Agosto 2021

toon ha scritto:
Ue, Marco, mi fai annusare i risultati poi non passi lo script....
Non si fa, non si fa...
Sempre ricerche molto mirate e uniche..
Sono Script Dipendente....
Vedi l'allegato 2220384

Hai visto la formula 69-90 che ha pagato l’ambo secco a VE?

farfalla2 · 26 Agosto 2021

CIAO MARCO.......IO HO TANTI SCRIPT TUOI E.......SEI IL MIGLIORE.....

Sakti · 26 Agosto 2021

No, non visto..

Marco-elle · 26 Agosto 2021

farfalla2 ha scritto:
CIAO MARCO.......IO HO TANTI SCRIPT TUOI E.......SEI IL MIGLIORE.....

Grazie ma….non ho soldi da darti per la marchetta!
Sei esagerata sono uno scripter principiante che di aggrappa sui muri per stilare le mie pippe mentali

Sakti · 26 Agosto 2021

Sono pienamente in accordo con "farfalla2"..

franca46 · 26 Agosto 2021

Marco-elle ha scritto:
Ciao Franca,
il listato è storico,ovvero circa all'inizio del gioco della Lottomatta,,,,,puoi modificare 'l'inizio dell'elaborazione a un periodo recente,Mi sembra che tu sia capace a fare queste semplici modifiche

fatto

Marco-elle · 26 Agosto 2021

Formula 9-90
formula statistica che gioca 4 ambi + 1 quartina sulle ruote spia

Codice:

Sub Main()
ColoreTesto 2
   Scrivi "FORMULA 9-90 "
   Scrivi "GIOCA 4 AMBI + 1 QUARTINA SU RUOTE SPIA "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(5)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",200)
k = InputBox("per quanti colpi?","colpi di gioco",12)
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 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 90 And b = 9 Or a = 9 And b = 90 Then
ok = 1
If ok = 1 Then
n1(1) = 41
n2(1) = 41
n2(2) = 18
n3(1) = 41
n3(2) = 21
n4(1) = 41
n4(2) = 38
n5(1) = 41
n5(2) = 44
n6(1) = 2
n6(2) = 13
n6(3) = 15
n6(4) = 29
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
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
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

Marco-elle · 27 Agosto 2021

Somma 91 su ruote contigue in 2° posizione
gioca 1 ambata + 4 ambi
metodo algoritmico

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)
Dim a1(2)
Dim a2(2)
Dim a3(2)
Dim a4(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,p1)
b = Estratto(es,r2,p2)
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)
a1(1) = Fuori90(Estratto(es,1,1)+Estratto(es,5,5)+42)
a1(2) = Fuori90(Estratto(es,5,4)+Estratto(es,6,1)+29)
a2(1) = Fuori90(Estratto(es,1,1)+Estratto(es,5,5)+42)
a2(2) = Fuori90(90+(Estratto(es,10,4))-Estratto(es,3,4)+34)
a3(1) = Fuori90(Estratto(es,1,1)+Estratto(es,5,5)+42)
a3(2) = Fuori90(Estratto(es,4,3)+Estratto(es,10,4)+20)
a4(1) = Fuori90(Estratto(es,1,1)+Estratto(es,5,5)+42)
a4(2) = 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
ImpostaGiocata 1,am,ruote,posta,k
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

Sakti · 27 Agosto 2021

Ma come fai???
100% risultati positivi..

Ti ringrazio in anticipo per le future vincite...

fida · 27 Agosto 2021

Cosa bisogna giocare?

camy64 · 27 Agosto 2021

fida ha scritto:
Cosa bisogna giocare?

Ciao Fida!!! Mi associo alla richiesta

Sakti · 27 Agosto 2021

Perdonami Marco se mi permetto, ma....

62 su BA CA per Estratto
62.46 su BA CA per Ambo
62.70 su BA CA per Ambo
62.88 su BA CA per Ambo
62.18 su BA CA per Ambo
Per otto colpi di gioco e se volete giocare la cinquina 62.46.70.88.18 Per Ambo Terno ,come preferite.
..............................................
82 su CA FI per Estratto
82.27 su CA FI per Ambo
82.44 su CA FI per Ambo
82.64 su CA FI per Ambo
82.89 su CA FI per Ambo
Per 10 colpi di gioco e se volete giocare la cinquina 82.27.44.64.89 Per Ambo Terno ,come preferite.

Marco-elle · 28 Agosto 2021

toon ha scritto:
Perdonami Marco se mi permetto, ma....

62 su BA CA per Estratto
62.46 su BA CA per Ambo
62.70 su BA CA per Ambo
62.88 su BA CA per Ambo
62.18 su BA CA per Ambo
Per otto colpi di gioco e se volete giocare la cinquina 62.46.70.88.18 Per Ambo Terno ,come preferite.
..............................................
82 su CA FI per Estratto
82.27 su CA FI per Ambo
82.44 su CA FI per Ambo
82.64 su CA FI per Ambo
82.89 su CA FI per Ambo
Per 10 colpi di gioco e se volete giocare la cinquina 82.27.44.64.89 Per Ambo Terno ,come preferite.

Grazie Toon,
aggiungo anche .....prendete con le pinze queste previsioni,perchè possono essere un fuoco di paglia come no......

Marco-elle · 28 Agosto 2021

Somma 90 sulla NZ
gioca 4 ambi su FI-VE
Algoritmic game

Codice:

Sub Main()
   ColoreTesto 1 :Scrivi "-----------------SOMMA 90 SULLA NAZIONALE",1
   ColoreTesto 1 :Scrivi "------------------- GIOCA 4 AMBI SU FI-VE",1
   ColoreTesto 1 :Scrivi "------------------- Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(1),nu3(3),pt(1),pt1(5),ruote(12),nu1(5),nu2(3),nu4(4),pt2(5)
   pt2(2) = 1
   clp = 10
   co = 0
   ini = 9600
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 To 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               If r = 12 Then
                  a = Estratto(es,r,p1)
                  b = Estratto(es,r,p2)
                  ok = 0
                  If a + b = 90 Then
                     :ok = 1
                     If ok = 1 Then
                        ColoreTesto 1
                        Scrivi String(65,"=") : ColoreTesto 0
                        Scrivi "Data " & DataEstrazione(es) & " "
                        Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                        Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                        Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                        Scrivi
                        ruote(1) = 3
                        ruote(2) = 10
                        nu1(1) = Fuori90(Estratto(es,4,1) + Estratto(es,4,4) + 82)
                        nu1(2) = Fuori90(90 +(Estratto(es,12,4)) - Estratto(es,1,3) + 10)
                        ImpostaGiocata 1,nu1,ruote,pt2,clp
                        nu2(1) = Fuori90(Estratto(es,4,1) + Estratto(es,4,4) + 82)
                        nu2(2) = Fuori90(Estratto(es,7,3) + Estratto(es,9,2) + 44)
                        ImpostaGiocata 2,nu2,ruote,pt2,clp
                        nu3(1) = Fuori90(Estratto(es,4,1) + Estratto(es,4,4) + 82)
                        nu3(2) = Fuori90(Estratto(es,2,2) + Estratto(es,7,2) + 30)
                        ImpostaGiocata 3,nu3,ruote,pt2,clp
                        nu4(1) = Fuori90(Estratto(es,4,1) + Estratto(es,4,4) + 82)
                        nu4(2) = Fuori90(Estratto(es,4,1)*Estratto(es,4,3) + 14)
                        ImpostaGiocata 4,nu4,ruote,pt2,clp
                        Gioca es,1
                     End If
                  End If
               End If
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Marco-elle · 28 Agosto 2021

Ambo diametrale su RO
gioca 4 ambi su BA-FI
Algoritmic game

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "AMBI  DIAMETRALI SORTITI SU RO "
   Scrivi "GIOCA 4 AMBI SU BA-FI  "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim n1(2)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   poste(2) = 1
   clp = 10
   ini = EstrazioneFin - 470
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
   
      For p1 = 1 To 4
         For p2 = p1 + 1 To 5
            a = Estratto(es,8,p1)
            b = Estratto(es,8,p2)
            ok = 0
            If Abs(a - b) = 45 Then
               n1(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n1(2) = Fuori90(90 +(Estratto(es,9,2)) - Estratto(es,5,1) + 18)
               n2(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n2(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,9,5) + 20)
               n3(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n3(2) = Fuori90(Estratto(es,4,4) * Estratto(es,9,5) + 75)
               n4(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n4(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,4) + 78)
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"°") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   ambo diametrale su RO    " & a & " - " & b,1
               Scrivi String(80,"°"),1
               ColoreTesto 0
               ruota(1) = 1
               ruota(2) = 3
               n1(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n1(2) = Fuori90(90 +(Estratto(es,9,2)) - Estratto(es,5,1) + 18)
               ImpostaGiocata 1,n1,ruota,poste,clp
               n2(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n2(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,9,5) + 20)
               ImpostaGiocata 2,n2,ruota,poste,clp
               n3(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n3(2) = Fuori90(Estratto(es,4,4) * Estratto(es,9,5) + 75)
               ImpostaGiocata 3,n3,ruota,poste,clp
               n4(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n4(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,4) + 78)
               ImpostaGiocata 4,n4,ruota,poste,clp
               Gioca es,1
            End If
         Next
      Next
   Next
   ' Next
   ScriviResoconto
End Sub

Marco-elle · 28 Agosto 2021

Marco-elle ha scritto:

Ambo diametrale su RO
gioca 4 ambi su BA-FI
Algoritmic game

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "AMBI IN DIAMETRALI SORTITI SU RO "
   Scrivi "GIOCA 4 AMBI SU BA-FI  "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim n1(2)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   poste(2) = 1
   clp = 10
   ini = EstrazioneFin - 470
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
   
      For p1 = 1 To 4
         For p2 = p1 + 1 To 5
            a = Estratto(es,8,p1)
            b = Estratto(es,8,p2)
            ok = 0
            If Abs(a - b) = 45 Then
               n1(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n1(2) = Fuori90(90 +(Estratto(es,9,2)) - Estratto(es,5,1) + 18)
               n2(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n2(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,9,5) + 20)
               n3(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n3(2) = Fuori90(Estratto(es,4,4) * Estratto(es,9,5) + 75)
               n4(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n4(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,4) + 78)
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"°") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   ambo diametrale su RO    " & a & " - " & b,1
               Scrivi String(80,"°"),1
               ColoreTesto 0
               ruota(1) = 1
               ruota(2) = 3
               n1(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n1(2) = Fuori90(90 +(Estratto(es,9,2)) - Estratto(es,5,1) + 18)
               ImpostaGiocata 1,n1,ruota,poste,clp
               n2(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n2(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,9,5) + 20)
               ImpostaGiocata 2,n2,ruota,poste,clp
               n3(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n3(2) = Fuori90(Estratto(es,4,4) * Estratto(es,9,5) + 75)
               ImpostaGiocata 3,n3,ruota,poste,clp
               n4(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,4) + 67)
               n4(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,4) + 78)
               ImpostaGiocata 4,n4,ruota,poste,clp
               Gioca es,1
            End If
         Next
      Next
   Next
   ' Next
   ScriviResoconto
End Sub

Marco-elle · 30 Agosto 2021

Formula 21-39-66
gioca 1 ambata + 4 ambi
su ruote spia
Algoritmic Game

Codice:

Sub Main()
   ColoreTesto 1 :Scrivi "-----------------Formula 21-39-66 di marco",1
   ColoreTesto 1 :Scrivi "------------------- Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),am(1),a1(2),a2(2),a3(2),a4(2),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(2)
   pt(1) = 1
   pt1(2) = 1
   pt2(2) = 1
   clp = 10
   co = 0
   ini = 9000
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               For r1 = 1 To 12
                  If r1 = 11 Then r1 = 12
                  For p = 1 To 5
                     c = Estratto(es,r1,p)
                     ok = 0
                     If(a = 21 Or a = 39 Or a = 66)_
                        And(b = 21 Or b = 39 Or b = 66)_
                        And(c = 21 Or c = 39 Or c = 66) Then
                        ok = 1
                        a1(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,7,4) + 57)
                        a2(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a2(2) = Fuori90(90 +(Estratto(es,8,4)) - Estratto(es,3,2) + 58)
                        a3(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a3(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5) + 27)
                        a4(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a4(2) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,4,5) + 6)
                        If ok = 1 Then
                           If(r <> r1 And c <> a And c <> b) Then
                              co = co + 1
                              ColoreTesto 1
                              Scrivi String(65,"=") : ColoreTesto 0
                              Scrivi "Data " & DataEstrazione(es) & " "
                              Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                              Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                              Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                              Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
                              Scrivi
                              ruote(1) = r
                              ruote(2) = r1
                              cg = 0
                              am(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              cg = cg + 1
                              ImpostaGiocata cg,am,ruote,pt,clp
                              a1(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,7,4) + 57)
                              cg = cg + 1
                              ImpostaGiocata cg,a1,ruote,pt1,clp
                              a2(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a2(2) = Fuori90(90 +(Estratto(es,8,4)) - Estratto(es,3,2) + 58)
                              cg = cg + 1
                              ImpostaGiocata cg,a2,ruote,pt1,clp
                              a3(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a3(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5) + 27)
                              cg = cg + 1
                              ImpostaGiocata cg,a3,ruote,pt1,clp
                              a4(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a4(2) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,4,5) + 6)
                              cg = cg + 1
                              ImpostaGiocata cg,a4,ruote,pt1,clp
                              Gioca es,1
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

claudio8 · 1 Settembre 2021

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

Le mie solite idee

Advanced Premium Member

Advanced Member

Banned

Member

Advanced Member

Banned

Advanced Member

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member

Banned

Banned

Banned

Banned

Banned

Premium Member