Novità

Le mie solite idee

Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
boris ha scritto:
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
Clicca per espandere...
Ciao Boris,
ti auguro una buona guarizione,per esperienza vissuta,ti capisco e conosco molto bene l'ambiente ospedaliero.Chissà che,anche queste piccolezze (intendo questo gioco)ti aiutino in qualche frazione di tempo
di svago ;)
 
toon

toon

Advanced Member
Auguri Boris, spero tu esca più atletico di prima..
in bocca a Lupa.. ;) (y)
Un consiglio...Segui Marco, con le sue trovate geniali avrai delle belle soddisfazioni,
sempre giocare con parsimonia...🤞:cool:
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Metodo x gioco spuculativo
3 ambate su FI alla 1° del mese semplici e determinate nelle prime 2 caselle
il resoconto potrebbe risultare sconfortante solo perchè non ho inserito
un aumento progressivo perchè è del tutto soggettivo.
Codice: 
Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "3 AMBATE SU' FI SEMPLICi E 1° E 2° POSIZIONE  ALLA 1° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim ambata(3):Dim posta(1):Dim postaa(10):Dim poste(10)
   posta(1) = 3
   postaa(6) = 1
   poste(7) = 1
   klp = 12
   ini = 8000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Then
         ruote(1) = 3
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 0
         ambata(1) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,12,5) + 30)
         ambata(2) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,4,3) + 33)
         ambata(3) = Fuori90(Estratto(es,9,1) + Estratto(es,2,5) + 85)
         ImpostaGiocata 1,ambata,ruote,posta,klp
         ambata(1) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,12,5) + 30)
         ambata(2) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,4,3) + 33)
         ambata(3) = Fuori90(Estratto(es,9,1) + Estratto(es,2,5) + 85)
         ImpostaGiocata 2,ambata,ruote,postaa,klp
         ambata(1) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,12,5) + 30)
         ambata(2) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,4,3) + 33)
         ambata(3) = Fuori90(Estratto(es,9,1) + Estratto(es,2,5) + 85)
         ImpostaGiocata 3,ambata,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Metodo Day by Day
permette di giocare 3 ambate semplici e in 3° posizione
con unici algoritmi che calcolano a ogni estrazione
questo permette di valutare una singola previsione già
avanti con i colpi e risparmiare risorse con la speranza
che questa sia positiva
Codice: 
Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "METODO DAY BY DAY ",1
   Scrivi
   Scrivi
   Scrivi "3 AMBATE SEMPLICI E IN 3° POSIZIONE SU' GE ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim poste(1)
   Dim postee(8)
   Dim a(10)
   poste(1) = 3
   postee(8) = 1
   klp = 12
   ini = 9850
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Call AvanzamentoElab(Ini,Fin,es)
      ruote(1) = 4
      casi = casi + 1
      co = co + 1
      ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
      ColoreTesto 1:Scrivi String(100,"°")
      ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
      ColoreTesto 1:Scrivi String(100,"°")
      ColoreTesto 1:Scrivi String(100,"°")
      ColoreTesto 0
      a(1) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 15)
      a(2) = Fuori90(Estratto(es,8,3) + Estratto(es,12,5) + 77)
      a(3) = Fuori90(Estratto(es,1,1) + Estratto(es,12,3) + 66)
      EliminaRipetuti a
      ImpostaGiocata 1,a,ruote,poste,klp
      a(1) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 15)
      a(2) = Fuori90(Estratto(es,8,3) + Estratto(es,12,5) + 77)
      a(3) = Fuori90(Estratto(es,1,1) + Estratto(es,12,3) + 66)
      EliminaRipetuti a
      ImpostaGiocata 2,a,ruote,postee,klp
      Gioca es,1
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Formula statistica 18-63-90
gioca 1 ambata(facoltativa) + 4 ambi + 1 terzina
su ruote spia
Codice: 
Sub Main()
   ColoreTesto 1 :Scrivi "-----------------Formula 18-63-90 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),T(3),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(2)
   pt(1) = 1
   pt1(2) = 1
   pt2(2) = 1
   clp = 12
   co = 0
   ini = 9350
   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 = 18 Or a = 63 Or a = 90)_
                        And(b = 18 Or b = 63 Or b = 90)_
                        And(c = 18 Or c = 63 Or c = 90) Then
                        ok = 1
                        If ok = 1 Then
                           If(r <> r1 And c <> a And c <> b) Then
                              co = co + 1
                              ColoreTesto 2
                              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) = 35
                              cg = cg + 1
                              ImpostaGiocata cg,am,ruote,pt,clp
                              a1(1) = 35
                              a1(2) = 3
                              cg = cg + 1
                              ImpostaGiocata cg,a1,ruote,pt1,clp
                              a2(1) = 35
                              a2(2) = 5
                              cg = cg + 1
                              ImpostaGiocata cg,a2,ruote,pt1,clp
                              a3(1) = 35
                              a3(2) = 11
                              cg = cg + 1
                              ImpostaGiocata cg,a3,ruote,pt1,clp
                              a4(1) = 35
                              a4(2) = 47
                              cg = cg + 1
                              ImpostaGiocata cg,a4,ruote,pt1,clp
                              T(1) = 27
                              T(2) = 72
                              T(3) = 89
                              cg = cg + 1
                              ImpostaGiocata cg,T,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
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Ambi vertibili su BA
metodo Statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-TO
Codice: 
Sub Main()
   ColoreTesto 1 :Scrivi "-----------------Ambi vertibili su BA   ",1
   ColoreTesto 1 :Scrivi "------------------- Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
   pt1(1) = 1
   pt2(2) = 1
   clp = 12
   co = 0
   ini = 9200
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 1
         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)
               ok = 0
               If a = Vert(b) Or b = Vert(a) Then
                  :ok = 1
                  If ok = 1 Then
                     ColoreTesto 2
                     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) = 1
                     ruote(2) = 9
                     nu(1) = 66
                     ImpostaGiocata 1,nu,ruote,pt1,clp
                     nu1(1) = 66
                     nu1(2) = 16
                     ImpostaGiocata 2,nu1,ruote,pt2,clp
                     nu2(1) = 66
                     nu2(2) = 38
                     ImpostaGiocata 3,nu2,ruote,pt2,clp
                     nu3(1) = 66
                     nu3(2) = 39
                     ImpostaGiocata 4,nu3,ruote,pt2,clp
                     nu4(1) = 66
                     nu4(2) = 78
                     ImpostaGiocata 5,nu4,ruote,pt2,clp
                     nu5(1) = 4
                     nu5(2) = 16
                     nu5(3) = 29
                     nu5(4) = 66
                     nu5(5) = 68
                     ImpostaGiocata 6,nu5,ruote,pt2,clp
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Ambi Diametrali in Decina sulla NZ
Metodo statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-MI
Codice: 
Sub Main()
   ColoreTesto 1 :Scrivi "----------------->Ambi Diametrali in Decina sulla NZ   ",1
   ColoreTesto 1 :Scrivi "------------------->Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
   pt1(1) = 1
   pt2(2) = 1
   clp = 12
   co = 0
   ini = 9400
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 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)
               ok = 0
               If a = DiametraleD(b) Or b = DiametraleD(a) 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) = 1
                     ruote(2) = 5
                     nu(1) = 13
                     ImpostaGiocata 1,nu,ruote,pt1,clp
                     nu1(1) = 13
                     nu1(2) = 21
                     ImpostaGiocata 2,nu1,ruote,pt2,clp
                     nu2(1) = 13
                     nu2(2) = 58
                     ImpostaGiocata 3,nu2,ruote,pt2,clp
                     nu3(1) = 13
                     nu3(2) = 67
                     ImpostaGiocata 4,nu3,ruote,pt2,clp
                     nu4(1) = 13
                     nu4(2) = 84
                     ImpostaGiocata 5,nu4,ruote,pt2,clp
                     nu5(1) = 13
                     nu5(2) = 15
                     nu5(3) = 58
                     nu5(4) = 67
                     nu5(5) = 84
                     ImpostaGiocata 6,nu5,ruote,pt2,clp
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Piccola premessa,questi metodi vengono inseriti per aiutare le persone indecise
e soprattutto nel fare evitare spese inutili di metodi venduti dagli urlatori telesivisi
che si spacciano per ingegneri in matematica applicata al Lotto, spero di rendere
la cosa gradita altrimenti,senza nessun problema,posso anche fermarmi.

Metodo ambo in cadenza nelle prime 2 caselle di NA,dove il primo estratto
deve essere necessariamente un numeretto,L'output è epocale,quindi
l'elaborazione risulta lenta ma dopo aver visto l'efficacia della statistica,
si può variare l'inizio del calcolo a piacere.

Gioca 1 ambata (facoltativa)
4 ambi
1 cinquina
sulle ruote di FI-VE
Codice: 
Sub Main()
   ColoreTesto 1 :Scrivi "Numeretto  su NA in 1° posizione   ",1
   ColoreTesto 1 :Scrivi "che forma ambo in cadenza  ",1
   ColoreTesto 1 :Scrivi "con il 2° estratto di NA   ",1
   ColoreTesto 1 :Scrivi "Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
   pt1(1) = 1
   pt2(2) = 1
   clp = 12
   co = 0
   ini = 1
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 6 To 6
         a = Estratto(es,r,1)
         b = Estratto(es,r,2)
         ok = 0
         If a < 10 And a = Cadenza(b) 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
               nu(1) = 63
               ImpostaGiocata 1,nu,ruote,pt1,clp
               nu1(1) = 63
               nu1(2) = 18
               ImpostaGiocata 2,nu1,ruote,pt2,clp
               nu2(1) = 63
               nu2(2) = 21
               ImpostaGiocata 3,nu2,ruote,pt2,clp
               nu3(1) = 63
               nu3(2) = 22
               ImpostaGiocata 4,nu3,ruote,pt2,clp
               nu4(1) = 63
               nu4(2) = 69
               ImpostaGiocata 5,nu4,ruote,pt2,clp
               nu5(1) = 18
               nu5(2) = 22
               nu5(3) = 35
               nu5(4) = 40
               nu5(5) = 63
               ImpostaGiocata 6,nu5,ruote,pt2,clp
               Gioca es,1
            End If
         End If
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Ambi simmetrici su TT nelle prime 2 posizioni
Metodo statistico che ricava
1 ambata(facoltativa)
4 ambi
1 cinquina
su MI-NA
Codice: 
Sub Main()
   ColoreTesto 1 :Scrivi "Ambi simmetrici su TT  ",1
   ColoreTesto 1 :Scrivi "nelle prime 2 posizioni  ",1
   ColoreTesto 1 :Scrivi "a favore di MI-NA   ",1
   ColoreTesto 1 :Scrivi "Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
   pt1(1) = 1
   pt2(2) = 1
   clp = 12
   co = 0
   ini = 9200
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 10
         a = Estratto(es,r,1)
         b = Estratto(es,r,2)
         ok = 0
         If Abs(a - b) = 30 Then
            :ok = 1
            If ok = 1 Then
               ColoreTesto 2
               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) = 5
               ruote(2) = 6
               nu(1) = 15
               ImpostaGiocata 1,nu,ruote,pt1,clp
               nu1(1) = 15
               nu1(2) = 29
               ImpostaGiocata 2,nu1,ruote,pt2,clp
               nu2(1) = 15
               nu2(2) = 32
               ImpostaGiocata 3,nu2,ruote,pt2,clp
               nu3(1) = 15
               nu3(2) = 61
               ImpostaGiocata 4,nu3,ruote,pt2,clp
               nu4(1) = 15
               nu4(2) = 88
               ImpostaGiocata 5,nu4,ruote,pt2,clp
               nu5(1) = 15
               nu5(2) = 29
               nu5(3) = 32
               nu5(4) = 53
               nu5(5) = 66
               ImpostaGiocata 6,nu5,ruote,pt2,clp
               Gioca es,1
            End If
         End If
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Ambi con i numeretti su PA in 1° e 5° posizione
metodo statistico che gioca:
1 ambata (facoltativa
4 ambi
1 quartina
su GE-MI
Codice: 
Sub Main()
   ColoreTesto 2
   Scrivi "Ambo con i numeretti in 1° e 5° posizione su PA "
   Scrivi "Gioca previsione su GE-MI "
   Scrivi "Metodo e List  by Marco"
   ColoreTesto 0
   Dim posta(1)
   Dim poste(2)
   Dim ruota(2)
   Dim am(1)
   Dim a1(2)
   Dim a2(4)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 4000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 7 To 7
         For p1 = 1 To 1
            For p2 = 5 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If a =< 10 And b =< 10 Then
                  ruota(1) = 4
                  ruota(2) = 5
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"^") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & "   ambo spia sortito su PA   " & a & " - " & b,1
                  Scrivi String(80,"^"),1
                  ColoreTesto 0
                  am(1) = 11
                  ImpostaGiocata 1,am,ruota,posta,clp
                  a1(1) = 11
                  a1(2) = 27
                  ImpostaGiocata 2,a1,ruota,poste,clp
                  a1(1) = 11
                  a1(2) = 52
                  ImpostaGiocata 3,a1,ruota,poste,clp
                  a1(1) = 11
                  a1(2) = 69
                  ImpostaGiocata 4,a1,ruota,poste,clp
                  a1(1) = 11
                  a1(2) = 71
                  ImpostaGiocata 5,a1,ruota,poste,clp
                  a2(1) = 2
                  a2(2) = 11
                  a2(3) = 25
                  a2(4) = 69
                  ImpostaGiocata 6,a2,ruota,poste,clp
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
mina10

mina10

Advanced Member >PLATINUM PLUS<
Anche se non ci capisco una cippa 😂passo per salutare il mio amico MARCO e per
dire che questa foto è bellissima fatto bene a rimetterla 😊tanto non sei cambiato
di molto solo i capelli più biondi e più corti 😉un saluto a tutti
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Metodo "IL CAVALLO (1° parte)"
metodo statistico che gioca:
1 quartina x ambo
su ruote congeniali
Codice: 
Sub Main()
   ColoreTesto 2
   Scrivi "IL CAVALLO (1* parte) "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(10)
   Dim n1(4)
   poste(2) = 1
 
   clp = 12
   ini = EstrazioneFin - 1000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r = 1 To 1
         For r1 = 2 To 2
            'For p2 = p1 + 1 To 4
            'For p3 = p2 + 1 To 5
            a = Estratto(es,r,1)
            b = Estratto(es,r1,3)
            ok = 0
            If Fuori90(a + b) = 1 Then
               n1(1) = 8
               n1(2) = 15
               n1(3) = 56
               n1(4) = 65
               ruota(1) = 4
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 2 Then
               n1(1) = 12
               n1(2) = 15
               n1(3) = 38
               n1(4) = 75
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 3 Then
               n1(1) = 6
               n1(2) = 17
               n1(3) = 19
               n1(4) = 40
               ruota(1) = 2
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 4 Then
               n1(1) = 1
               n1(2) = 9
               n1(3) = 35
               n1(4) = 46
               ruota(1) = 1
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 5 Then
               n1(1) = 8
               n1(2) = 10
               n1(3) = 11
               n1(4) = 39
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 6 Then
               n1(1) = 2
               n1(2) = 5
               n1(3) = 69
               n1(4) = 74
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 7 Then
               n1(1) = 24
               n1(2) = 71
               n1(3) = 75
               n1(4) = 89
               ruota(1) = 3
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 8 Then
               n1(1) = 2
               n1(2) = 9
               n1(3) = 74
               n1(4) = 86
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 9 Then
               n1(1) = 25
               n1(2) = 39
               n1(3) = 40
               n1(4) = 62
               ruota(1) = 4
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 10 Then
               n1(1) = 4
               n1(2) = 6
               n1(3) = 8
               n1(4) = 38
               ruota(1) = 3
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 11 Then
               n1(1) = 6
               n1(2) = 25
               n1(3) = 30
               n1(4) = 54
               ruota(1) = 5
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 12 Then
               n1(1) = 25
               n1(2) = 33
               n1(3) = 82
               n1(4) = 86
               ruota(1) = 3
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 13 Then
               n1(1) = 2
               n1(2) = 32
               n1(3) = 61
               n1(4) = 79
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 14 Then
               n1(1) = 1
               n1(2) = 6
               n1(3) = 14
               n1(4) = 20
               ruota(1) = 6
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 15 Then
               n1(1) = 13
               n1(2) = 20
               n1(3) = 23
               n1(4) = 69
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 16 Then
               n1(1) = 30
               n1(2) = 31
               n1(3) = 32
               n1(4) = 66
               ruota(1) = 2
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 17 Then
               n1(1) = 19
               n1(2) = 28
               n1(3) = 34
               n1(4) = 53
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 18 Then
               n1(1) = 35
               n1(2) = 56
               n1(3) = 70
               n1(4) = 73
               ruota(1) = 2
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 19 Then
               n1(1) = 1
               n1(2) = 10
               n1(3) = 35
               n1(4) = 62
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 20 Then
               n1(1) = 4
               n1(2) = 15
               n1(3) = 55
               n1(4) = 79
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 21 Then
               n1(1) = 56
               n1(2) = 68
               n1(3) = 69
               n1(4) = 81
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 22 Then
               n1(1) = 1
               n1(2) = 7
               n1(3) = 9
               n1(4) = 56
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 23 Then
               n1(1) = 1
               n1(2) = 16
               n1(3) = 22
               n1(4) = 89
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 24 Then
               n1(1) = 10
               n1(2) = 15
               n1(3) = 33
               n1(4) = 76
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 25 Then
               n1(1) = 28
               n1(2) = 30
               n1(3) = 44
               n1(4) = 70
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 26 Then
               n1(1) = 16
               n1(2) = 60
               n1(3) = 61
               n1(4) = 76
               ruota(1) = 2
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 27 Then
               n1(1) = 1
               n1(2) = 2
               n1(3) = 19
               n1(4) = 34
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 28 Then
               n1(1) = 10
               n1(2) = 28
               n1(3) = 58
               n1(4) = 82
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 29 Then
               n1(1) = 10
               n1(2) = 22
               n1(3) = 35
               n1(4) = 36
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 30 Then
               n1(1) = 4
               n1(2) = 13
               n1(3) = 73
               n1(4) = 74
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 31 Then
               n1(1) = 10
               n1(2) = 31
               n1(3) = 47
               n1(4) = 80
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 32 Then
               n1(1) = 6
               n1(2) = 34
               n1(3) = 61
               n1(4) = 78
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 33 Then
               n1(1) = 25
               n1(2) = 35
               n1(3) = 61
               n1(4) = 75
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 34 Then
               n1(1) = 16
               n1(2) = 34
               n1(3) = 39
               n1(4) = 79
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 35 Then
               n1(1) = 5
               n1(2) = 22
               n1(3) = 34
               n1(4) = 65
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 36 Then
               n1(1) = 13
               n1(2) = 15
               n1(3) = 35
               n1(4) = 39
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 37 Then
               n1(1) = 7
               n1(2) = 22
               n1(3) = 29
               n1(4) = 51
               ruota(1) = 5
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 38 Then
               n1(1) = 18
               n1(2) = 56
               n1(3) = 60
               n1(4) = 63
               ruota(1) = 2
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 39 Then
               n1(1) = 44
               n1(2) = 46
               n1(3) = 71
               n1(4) = 76
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 40 Then
               n1(1) = 24
               n1(2) = 31
               n1(3) = 32
               n1(4) = 54
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 41 Then
               n1(1) = 6
               n1(2) = 44
               n1(3) = 61
               n1(4) = 80
               ruota(1) = 2
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 42 Then
               n1(1) = 59
               n1(2) = 64
               n1(3) = 73
               n1(4) = 77
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 43 Then
               n1(1) = 6
               n1(2) = 15
               n1(3) = 37
               n1(4) = 60
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 44 Then
               n1(1) = 3
               n1(2) = 28
               n1(3) = 32
               n1(4) = 78
               ruota(1) = 3
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 45 Then
               n1(1) = 4
               n1(2) = 7
               n1(3) = 31
               n1(4) = 35
               ruota(1) = 4
               ruota(2) = 8
               ok = 1
            End If
            If OK = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"°") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "  Cavallo BA-CA    " & a & " - " & b & c,1
               Scrivi String(80,"°"),1
               ColoreTesto 0
               ImpostaGiocata 1,n1,ruota,poste,clp,2
               Gioca es,1
            End If
            ' Next
            ' Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
T

Tessa23

Member
Marco-elle ha scritto:
Ambi Diametrali in Decina sulla NZ
Metodo statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-MI
Codice: 
Sub Main()
   ColoreTesto 1 :Scrivi "----------------->Ambi Diametrali in Decina sulla NZ   ",1
   ColoreTesto 1 :Scrivi "------------------->Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
   pt1(1) = 1
   pt2(2) = 1
   clp = 12
   co = 0
   ini = 9400
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 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)
               ok = 0
               If a = DiametraleD(b) Or b = DiametraleD(a) 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) = 1
                     ruote(2) = 5
                     nu(1) = 13
                     ImpostaGiocata 1,nu,ruote,pt1,clp
                     nu1(1) = 13
                     nu1(2) = 21
                     ImpostaGiocata 2,nu1,ruote,pt2,clp
                     nu2(1) = 13
                     nu2(2) = 58
                     ImpostaGiocata 3,nu2,ruote,pt2,clp
                     nu3(1) = 13
                     nu3(2) = 67
                     ImpostaGiocata 4,nu3,ruote,pt2,clp
                     nu4(1) = 13
                     nu4(2) = 84
                     ImpostaGiocata 5,nu4,ruote,pt2,clp
                     nu5(1) = 13
                     nu5(2) = 15
                     nu5(3) = 58
                     nu5(4) = 67
                     nu5(5) = 84
                     ImpostaGiocata 6,nu5,ruote,pt2,clp
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub
Clicca per espandere...
 
T

Tessa23

Member
Marco-elle ha scritto:
Ambi Diametrali in Decina sulla NZ
Metodo statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-MI
Codice: 
Sub Main()
   ColoreTesto 1 :Scrivi "----------------->Ambi Diametrali in Decina sulla NZ   ",1
   ColoreTesto 1 :Scrivi "------------------->Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
   pt1(1) = 1
   pt2(2) = 1
   clp = 12
   co = 0
   ini = 9400
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 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)
               ok = 0
               If a = DiametraleD(b) Or b = DiametraleD(a) 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) = 1
                     ruote(2) = 5
                     nu(1) = 13
                     ImpostaGiocata 1,nu,ruote,pt1,clp
                     nu1(1) = 13
                     nu1(2) = 21
                     ImpostaGiocata 2,nu1,ruote,pt2,clp
                     nu2(1) = 13
                     nu2(2) = 58
                     ImpostaGiocata 3,nu2,ruote,pt2,clp
                     nu3(1) = 13
                     nu3(2) = 67
                     ImpostaGiocata 4,nu3,ruote,pt2,clp
                     nu4(1) = 13
                     nu4(2) = 84
                     ImpostaGiocata 5,nu4,ruote,pt2,clp
                     nu5(1) = 13
                     nu5(2) = 15
                     nu5(3) = 58
                     nu5(4) = 67
                     nu5(5) = 84
                     ImpostaGiocata 6,nu5,ruote,pt2,clp
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub
Clicca per espandere...
Ciao Marco puoi per favore scrivere ambi a Ba To grazie mille
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 maggio 2024
    Bari
    63
    35
    59
    12
    69
    Cagliari
    13
    07
    23
    24
    38
    Firenze
    35
    80
    90
    76
    73
    Genova
    11
    54
    27
    06
    20
    Milano
    07
    72
    48
    37
    15
    Napoli
    65
    87
    82
    50
    35
    Palermo
    13
    88
    44
    67
    24
    Roma
    31
    05
    47
    33
    46
    Torino
    39
    57
    84
    82
    09
    Venezia
    09
    23
    49
    53
    63
    Nazionale
    37
    43
    26
    48
    81
    Estrazione Simbolotto
    Milano
    26
    07
    17
    44
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto