Novità

Script

DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
Sempre da controllare 😊
Ciauz


Codice: 
'14.07.2024


ColoreTesto 1
Scrivi String(37,32) & " 1° del mese SPAKKA AMBO by Salvo Badessa  ",1
Scrivi

ColoreTesto 0

Sub main()
Dim ruota(10),ruote(10),ruota1(10),ruote1(10)
Dim numeri1(10),numeri3(10),numeri2(10),numeri5(10)
Dim postee(5),poste(5),posta(5)
postee(3)=1
postee(2)=1
posta(1)=1
poste(2)=1

cp=13'InputBox("Per quanti colpi vuoi giocare?",,7)
ruota(1)=9
ruote(1)=6
ruota1(1)=6
ruote1(1)=3


ini=10311
fin=EstrazioneFin
For n=ini To fin
If IndiceMensile(n)=1 Then
Messaggio DataEstrazione (n)


amb1=Fuori90(Estratto(n,2,1)+30)
amb11=58

amb2=Fuori90(Estratto(n,10,4)+33)
amb22=8

amb3=Fuori90(Estratto(n,5,3)+14)
amb33=8

amb4=Fuori90(Estratto(n,3,2)+72)
amb44=81
ColoreTesto 2 :Scrivi "-- 1° estrazione del mese---------------------------",1
co=0




numeri2(1)=amb1
numeri2(2)=amb11
co=co+1
ImpostaGiocata co,numeri2,ruota,poste,eval(cp)
numeri2(1)=amb2
numeri2(2)=amb22
co=co+1
ImpostaGiocata co,numeri2,ruote,poste,eval(cp)


numeri2(1)=amb3
numeri2(2)=amb33
co=co+1
ImpostaGiocata co,numeri2,ruota1,poste,eval(cp)
numeri2(1)=amb4
numeri2(2)=amb44
co=co+1
ImpostaGiocata co,numeri2,ruote1,poste,eval(cp)

Gioca n
End If
Next
Scrivi

ScriviResoconto
ColoreTesto 2

End Sub







Codice: 
'13.07.2022
ColoreTesto 2

Scrivi String(17,32) & "  SPAKKIUSU  by BadessaLotto ",1

ColoreTesto 0

Sub main()
Dim numeri(2)
Dim numeri1(5)
Dim numeri2(7)
Dim ruota(10),ruote(10) 
Dim poste(2)
Dim postee(5)
postee(2)=1
postee(3)=1
poste(2)=1
k=12
fin=EstrazioneFin  '9494' esempio
ini=9494'fin-380
For es=ini To fin
AvanzamentoElab ini,fin,es

For r=1 To 10
If r=11 Then r=12
For p=1 To 4
For q=p+1 To 5
 For x=1 To 1
ex=es-x
a=Estratto (ex,r,p)
b=Estratto (ex,r,q)



p1=Posizione (es,r,a)
q1=Posizione (es,r,b)
If p1>0 And q1>0  Then



ruote(2)=11
ruote(1)=r
ruote(3)=12

n11 = Fuori90(a + 45)'12
n12 = Fuori90(b + 45)'89
n13 = Fuori90(n11+ n11)'24
n14 = Fuori90(n12+ n12)'88








Scrivi : Scrivi
Scrivi DataEstrazione(ex)&" "& Left(NomeRuota(r),2) & " "& StringaEstratti(ex,r) & "-----> " & Format2(a) &" "& Format2 (b),1
If  p1<q1 Then Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " "& StringaEstratti(es,r) & "-----> "& Format2 (a) &" "& Format2 (b),1 

If  p1>q1 Then Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " "& StringaEstratti(es,r) & "-----> "& Format2 (b) &" "& Format2 (a),1


numeri1(1)=n11
numeri1(2)=n13
ImpostaGiocata 1,numeri1,ruote,poste,k

numeri1(1)=n12
numeri1(2)=n14
ImpostaGiocata 2,numeri1,ruote,poste,k
numeri2(1)=n11
numeri2(2)=n13
numeri2(3)=n12
numeri2(4)=n14
ImpostaGiocata 3,numeri2,ruote,postee,k
Gioca es
End If


 Next : Next

 Next : Next : Next

 ScriviResoconto
 End Sub






Codice: 
'03-09-2022
Sub main()
ColoreTesto 1
Scrivi String(20,"=")&"LA PERLA NERA  by SALVO BADESSA ",1
ColoreTesto 0
Dim ruota(10),ruote(10),num1(3),num2(3),num3(3),num4(4),posta(10),poste(5),postee(5)
:poste(2)=1:postee(2)=1:postee(3)=1
ce=InputBox("Quante estrazione vuoi controllare? ","estrazione",156)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=EstrazioneFin-ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=1 To 12
If r2=11 Then r2=12
b=Estratto(es,r2,p1)

aa=Estratto(es-1,r1,p1)
bb=Estratto(es-1,r2,p1)


If Vert(a)=b And Vert(a)=aa Then

amb1=bb
amb2=Vert(bb)
casi=casi+1:Scrivi String(54,"=")&" LA PERLA NERA  by SALVO BADESSA  caso n°"&casi,1


Scrivi
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&"   ] [ "&format2(a)&" ]    "&DataEstrazione(es-1,1)&" [ "&format2(aa)&" ] in "&(p1)&"^ pos.",1
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&"   ] [ "&format2(b)&" ]    "&DataEstrazione(es-1,1)&" [ "&format2(bb)&" ] in "&(p1)&"^ pos.",1
Scrivi
ruote(1)=r1:ruote(2)=11:ruote(3)=12
ruota(1)=r1

Erase posta
posta(1)=1
posta(p1+5)=1

num1(1)=amb1
num1(2)=amb2
ImpostaGiocata 1,num1,ruota,posta,k
num1(1)=amb1
num1(2)=amb2
ImpostaGiocata 2,num1,ruote,poste,k
Gioca es
ColoreTesto 2
Scrivi "*****  AMBETTI  *****",1

num1(1)=amb1
num1(2)=Fuori90(amb2+1)
ImpostaGiocata 3,num1,ruote,poste,k
num1(1)=amb1
num1(2)=Fuori90(90+amb2-1)
ImpostaGiocata 4,num1,ruote,poste,k
num1(1)=Fuori90(amb1+1)
num1(2)=amb2
ImpostaGiocata 5,num1,ruote,poste,k
num1(1)=Fuori90(90+amb1-1)
num1(2)=amb2
ImpostaGiocata 6,num1,ruote,poste,k


Gioca es
End If
Next
Next:Next:next
ScriviResoconto
End Sub
 
F

franca46

Advanced Member >PLATINUM PLUS<
buon pomeriggio a Voi
il metodo spakka si applica in un unica estrazione tipo cosi'

Codice: 
Na-Pa Numero isotopo 79 estratto al 1° posto
gio 16.05.2024  [10441]
  G  1:  M       23.32.68   Na Pa Nz    12/12    
     M  23               su Na    3° colpo   [10444/21.05.2024]
     M  32.68            su Pa    4° colpo   [10445/23.05.2024]
     M  68               su Na    5° colpo   [10446/24.05.2024]
     M  32               su Na    8° colpo   [10449/30.05.2024]
     M  23               su Nz   10° colpo   [10451/01.06.2024]
     M  68               su Na   11° colpo   [10452/04.06.2024]

  G  2:  AT      23.32.68   Na Pa Nz    12/12    
     A  32.68            su Pa    4° colpo   [10445/23.05.2024]

  G  3:  AT      75.57.30   Tu          12/12    
     A  30.75            su Tu (Ge)   11° colpo   [10452/04.06.2024]

e lo spakka 2 , ha il 4° numero che è il ripetuto
 
scarfacetony

scarfacetony

Member
Grazie mille DJ,qui troverete le 7 Meraviglie,tuca tuca,dammi il 5 etc...

www.mediafire.com

LE 7 MERAVIGLIE

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com
 
scarfacetony

scarfacetony

Member
Vi posto anche il metodo Uranus di Ranisio
 

Allegati

  • URANUS1.jpg
    URANUS1.jpg
    44,4 KB · Visite: 12
  • URANUS2.jpg
    URANUS2.jpg
    43,6 KB · Visite: 12
  • URANUS3.jpg
    URANUS3.jpg
    37 KB · Visite: 12
  • URANUS4.jpg
    URANUS4.jpg
    48,2 KB · Visite: 12
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
SALVO ERRORI.... DA CONTROLLARE
CIAUZ

Codice: 
'31-01-2022
 ColoreTesto 2 :Scrivi String(37,32)&" DIAMETRA 88  by Salvo Badessa ",1


 Scrivi String(45,32)&"",1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(5),amb1(4)
Dim ruote(10),ruota(10)
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(10)
posta(1)=1
posta(7)=1
posta(9)=1
poste(2)=1
poste1(2)=1
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=9915
For es=ini To fin


AvanzamentoElab ini,fin,es
 For r1=1 To 9

For r2=r1+1 To 10
For p=1 To 5
n1=Estratto(es,r1,p)
n2=Estratto(es,r2,p)


n5=Fuori90(n1+n2)

ok=0


If n5=88 And Distanza(r1,r2)=5  Then
n6=Abs(n1-n2)
n7=Vert(n1)
n8=Vert(n2)

casi=casi+1:Scrivi String(75,"=")&" caso n° "&(casi),1 
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" >                     < "&Format2(n1),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)&_
" >         Somma    "&n5&" < "&Format2(n2),1

Scrivi


ruota(1)=r1
ruota(2)=r2

ruote(1)=r1
ruote(2)=r2
ruote(3)=11
ruote(4)=12

k=13
:co=0


nu1(1)=n6
ImpostaGiocata 1 ,nu1,ruota,posta,k

nu2(1)=n6
nu2(2)=n7
ImpostaGiocata 2 ,nu2,ruote,poste,k
nu2(1)=n6
nu2(2)=n8
ImpostaGiocata 3 ,nu2,ruote,poste,k

nu3(1)=n6
nu3(2)=n7
nu3(3)=n8
ImpostaGiocata 4 ,nu3,ruote,poste2,k



Gioca es

End If
Next
Next
Next
Next

ScriviResoconto
End Sub

Codice: 
'21/08/2022


      ColoreTesto 2 :Scrivi String(37,32)&"DAMMI IL  5  BY BADESSA",1

        Scrivi
        ColoreTesto 0
Sub Main()
Dim am1(10)
Dim am2(10)
Dim m(10)
Dim ambo(2)
Dim cou1(6) ,cou2(6),cou3(7)
Dim ruote(10),ruota(1),ruotee(10)
Dim poste(5),poste1(5),poste2(4),poste3(4)

poste(2) = 1

poste(3) = 1
poste1(2) = 1

poste2(2) = 1
poste2(3) = 1
poste3(2) = 2
poste3(3) = 1.7
poste3(4) = .3

'rs = InputBox("Quante estrazioni vuoi controllare?",,456)
fin = EstrazioneFin
ini = 10076
k=12  'colpi di gioco
For es = ini To fin
co = 0
Messaggio DataEstrazione(es)

For r = 1 To 12
If r=11 Then r=12
For i = 1 To 5

a = Estratto(es,r,i)

For r2 =  r+1 To 12
If r2=11 Then r2=12
aa = Estratto(es,r2,i)

c= Distanza(aa,a)

If  Distanza(r,r2)=1 And c=5 And Decina(a)<>Decina(aa)  Then
 nw1 = Fuori90(a+aa) '09+14  23
 nw11 = DiametraleD(nw1)'23+05 28

 nw111 =Diametrale(a) '9+45 54
nw2 = Diametrale(aa) ' 14+45 59
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " < numeri isotopi -  Distanza 5 >",1
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r) & "..." & StringaEstratti(es,r) & "..." & SiglaRuota(r) & "..." & CInt(a),1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r2) & "..." & StringaEstratti(es,r2) & "..." & SiglaRuota(r2) & "..." & CInt(aa) ,1
ruote(1) = r
ruote(2) = r2

ruotee(1) = r
ruotee(2) = r2
ruotee(3) = 11
ruotee(4) = 12

Messaggio " elaboro " & es
: co = 0

Scrivi String(85,"-") & Chr(10)

cou1(1) =nw1
cou1(2) = nw11


ImpostaGiocata 1,cou1,ruote,poste1,k
cou1(1) = nw111
cou1(2) = nw2

ImpostaGiocata 2,cou1,ruote,poste1,k



cou2(1) =nw1
cou2(2) = nw11
cou2(3) = nw111
cou2(4) = nw2
ImpostaGiocata 3,cou2,ruotee,poste2,k



Gioca es

End If
Next
Next
Next
Next

ScriviResoconto
End Sub


Codice: 
'15.07.2024


Scrivi
Scrivi
ColoreTesto 2
Scrivi String(10," ")&"******** FACILE by Salvo Badessa  ** ",1

ColoreTesto 0
Scrivi
Scrivi


Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10),ruotee(10)
Dim posta(2),poste(2),post(5),pos(5)
posta(1)=1:poste(2)=1
post(2)=1
post(3)=1

fin=EstrazioneFin
ini=10020
For es=ini To fin
Messaggio es
For r1=1 To 5

For p=1 To 5
n1=Estratto(es,r1,p)'33

r2= r1+5
n2=Estratto(es,r2,p)'78

n3=Estratto(es,12,p)'45
If n3>45 Then n3=Diametrale(Estratto(es,12,p))

If n3=Distanza(n1,n2) Then

a=Fuori90(n3+ Massimo(n1,n2)) ' 45+78 33
b=vert(a)'abb 39
c=DiametraleD(a)'abb 33+5 38


casi=casi+1:Scrivi String(65,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" Numeri Isotopi> "&Format2(n1)&"."&Format2 (n2)&" >",1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(12)& " "& StringaEstratti(es,12),1

ruote(1)=r1:ruote(2)=r2:ruote(3)=11:ruote(4)=12


:k=13:co=0

ruotee(1)=r1:ruotee(2)=r2





nu3(1)=a
nu3(2)=b
nu3(3)=c
co=co+1
ImpostaGiocata co,nu3,ruote,post,k

Gioca es
End If
Next
Next
Next
'Next
ScriviResoconto
End Sub

Codice: 
'https://www.youtube.com/watch?v=0J5v5WizzCY


Scrivi
Scrivi
ColoreTesto 2
Scrivi String(10," ")&"******** TUCA TUCA by Salvo Badessa  ** ",1

ColoreTesto 0
Scrivi
Scrivi


Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10),ruotee(10)
Dim posta(2),poste(2),post(5),pos(5)
posta(1)=1:poste(2)=1
post(2)=1
post(3)=1

fin=EstrazioneFin
ini=10020
For es=ini To fin
Messaggio es
For r1=1 To 10

For p=1 To 5

n1=Estratto(es,r1,p)

For r2=12 To 12
If r2=11 Then r2=12

n2=Estratto(es,r2,p)

If n1=n2 Then

a=Fuori90(n1*2) ' capogioco23*2=46
b=DiametraleD(a)'abb 41
c=Diametrale(a)'abb 46+45  1
d=DiametraleD(c)'abb 1+5 6

casi=casi+1:Scrivi String(65,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" Numeri Isotopi> "&Format2(n1)&"."&Format2 (n2)&" >",1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2),1


ruote(1)=r1:ruote(2)=r2
If r1<6 Then ruote(3)=r1+5
If r1>5 Then ruote(3)=r1-5
ruote(4)=11
ruote(5)=12
:k=18:co=0

ruotee(1)=r1:ruotee(2)=r2





nu3(1)=a
nu3(2)=b
nu3(3)=c
nu3(4)=d
co=co+1
ImpostaGiocata co,nu3,ruote,post,k

Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Codice: 
'https://www.youtube.com/watch?v=Rb2aA_OY3Vk&feature=emb_logo


      ColoreTesto 2 :Scrivi String(37,32)&"FORZA 5  BY BADESSA'",1

        Scrivi
        ColoreTesto 0
Sub Main()
Dim am1(10)
Dim am2(10)
Dim m(10)
Dim ambo(2)
Dim cou1(6) ,cou2(6),cou3(7)
Dim ruote(10),ruota(1),ruotee(10)
Dim poste(5),poste1(5),poste2(4),poste3(4)

poste(2) = 1

poste(3) = 1
poste1(2) = 1

poste2(2) = 1
poste2(3) = 1
poste3(2) = 2
poste3(3) = 1.7
poste3(4) = .3


fin = EstrazioneFin
ini = 10110
k=12  'colpi di gioco
For es = ini To fin
co = 0
Messaggio DataEstrazione(es)

For r = 1 To 12
If r=11 Then r=12
For i = 1 To 5

a = Estratto(es,r,i)

For r2 =  r+1 To 12
If r2=11 Then r2=12
aa = Estratto(es,r2,i)

c= Distanza(aa,a)

If a = DiametraleD(aa)  And Distanza(r,r2)=5 Then
 nw1 = Diametrale(a) '39+45  84
 nw11 = Diametrale(aa)'34+45 79

 nw111 =DiametraleD(nw1) '84+5 89
nw2 = DiametraleD(nw11) ' 79-5 74
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " < numeri isotopi -  Distanza 5 >",1
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r) & "..." & StringaEstratti(es,r) & "..." & SiglaRuota(r) & "..." & CInt(a),1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r2) & "..." & StringaEstratti(es,r2) & "..." & SiglaRuota(r2) & "..." & CInt(aa) ,1
ruote(1) = r
ruote(2) = r2

ruotee(1) = r
ruotee(2) = r2
ruotee(3) = 11
ruotee(4) = 12

Messaggio " elaboro " & es
: co = 0

Scrivi String(85,"-") & Chr(10)

cou1(1) =nw1
cou1(2) = nw111


ImpostaGiocata 1,cou1,ruote,poste,k
cou1(1) = nw11
cou1(2) = nw2

ImpostaGiocata 2,cou1,ruote,poste,k



cou2(1) =nw1
cou2(2) = nw11
cou2(3) = nw111
cou2(4) = nw2
ImpostaGiocata 3,cou2,ruotee,poste2,k



Gioca es

End If
Next
Next
Next
Next
'Next
ScriviResoconto
End Sub
Codice: 
Sub main()
Dim nu1(2),nu2(4),nu3(6),ruote(2),ruotee(10)
Dim  am(2),am1(2),am2(4),am3(2),am4(2),am5(2),n(5)
Dim posta(1)
Dim poste(2)
Dim postee(4)

posta(1)=1
poste(2)=1
postee(2)=1.50
postee(3)=.50

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10000)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=ce
fin=EstrazioneFin
Scrivi "METODO SPECCHIO by Salvo Badessa ",1
Scrivi String(83,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r1= 1 To 12
If r1=11 Then r1=12
For p1= 1 To 4
For  p2= p1+1 To 5

a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)

If a=Vert(b) Then

'-----------------------

                       n(1)=Fuori90(a+b)'AMBATA
                       n(2)=a
                       n(3)=b
                       n(4)=Vert(n(1))
'-----------------------

casi=casi+1:Scrivi String(65,"=")&" ",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)& "-" & Format2(b)&"] Ambo Vertibile " &(p1)&"^/"&(p2)&"^ pos.",1
ColoreTesto 2
If Distanza(p1,p2)=1 Then Scrivi"AMBI UNITI",1
ColoreTesto 0
Scrivi String(71,"-")&" caso n° "&(casi),1
ruote(1)=r
ruote(2)=r1
ruotee(1)=r
ruotee(2)=r1
ruotee(3)=11
ruotee(4)=12
:co=0
am(1)=n(1)
 ImpostaGiocata 1,am,ruote,posta,k
am1(1)=n(1)
am1(2)=n(2)
 ImpostaGiocata 2,am1,ruote,poste,k
am1(1)=n(1)
am1(2)=n(3)
 ImpostaGiocata 3,am1,ruote,poste,k

am2(1)=n(1)
am2(2)=n(2)
am2(3)=n(3)
am2(4)=n(4)
 ImpostaGiocata 4,am2,ruotee,postee,k

Gioca es
End If

Next:Next:Next:Next
Scrivi String(65,"=")&" ",1
ScriviResoconto

End Sub
Codice: 
'https://www.youtube.com/watch?v=uHL7wYAMnFw
  '18-05-2022
 ColoreTesto 2 :Scrivi String(37,32)&"Ambo  Distanza 27 - by Badessa Lotto ",1

ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)


poste(1)=1

poste1(2)=1
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=9985'fin-60 '7672'
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 5

For p1=1 To 5

For x=0 To 0
ex=es-x
n1=Estratto(ex,r1,p1)

 r2=r1+5

n2=Estratto(ex,r2,p1)
n5=Distanza(n1,n2)
If n5=27 Then




a1=Fuori90(n1+n2)'ambata 73
b1=DiametraleD(a1)'78
c1=Vert(a1)'37
d1=Vert(b1)'87

casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(ex,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(ex,r1)&_
" > < "&Format2(n1)&" > DISTANZA..."&Format2 (n5),1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > < "&Format2(n2),1

Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=12:
k=10:co=0






nu2(1)=a1
nu2(2)=b1

ImpostaGiocata 2 ,nu2,ruote,poste1,k
nu2(1)=c1
nu2(2)=d1

ImpostaGiocata 3 ,nu2,ruote,poste1,k

nu3(1)=a1
nu3(2)=b1
nu3(3)=c1
nu3(4)=d1
ImpostaGiocata 5 ,nu3,ruote,poste2,k


Gioca es



End If

  Next:Next

Next:Next':Next:

ScriviResoconto
End Sub
Codice: 
'https://www.facebook.com/rainisiochristian/
'15/07/2024
 ColoreTesto 1 :Scrivi String(37,32)&"1° del mese  CAGLIARI-FIRENZE METODO URANUS by Christian Rainisio",1


ColoreTesto 0
Sub main()
Dim posta(5),poste(5) 
Dim ruote(5),ruota(5)
 
Dim am(10),am1(10),am2(10)
posta(1)=1
 poste(2)=1
casi=0

fin=EstrazioneFin
ini=9842
For es=ini To fin
If Indicemensile(es)=1 Then

a=Estratto(es,2,1) '44
b=Diametrale(a)    '89  abb
aa=Estratto(es,3,1) '82
bb=Diametrale(aa)   '37  ambata
c= Fuori90(Cadenza(a)&Cadenza(aa)) '42 abb secondari
cc=Fuori90(Cadenza(aa)&Cadenza(a)) '24 abb secondari
 ColoreTesto 2 :Scrivi "--1°estrazione del mese---------------------------",1
 ColoreTesto 0 :Scrivi " "&Left(NomeRuota(2),9)&" "&Cint(a)&"  "&(1)&"° estratto  ",1
 ColoreTesto 0 :Scrivi " "&Left(NomeRuota(3),9)&" "&Cint(aa)&"  "&(1)&"° estratto  ",1
k=13
ruota(1)=2
ruota(2)=3 
ruote(1)=2
ruote(2)=3
ruote(3)=11
ruote(4)=12

am(1)=bb
ImpostaGiocata 1,am,ruota,posta,k

am1(1)=bb
am1(2)=b
ImpostaGiocata 2,am1,ruote,poste,k

am1(1)=bb
am1(2)=c
ImpostaGiocata 3,am1,ruote,poste,k

am1(1)=bb
am1(2)=cc
ImpostaGiocata 4,am1,ruote,poste,k
Gioca es
casi=casi+1
End If

Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto



ColoreTesto 0
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 luglio 2024
    Bari
    16
    18
    30
    06
    10
    Cagliari
    40
    54
    44
    72
    14
    Firenze
    45
    44
    76
    83
    77
    Genova
    74
    81
    09
    54
    26
    Milano
    09
    19
    08
    73
    34
    Napoli
    82
    62
    88
    19
    39
    Palermo
    84
    89
    90
    03
    46
    Roma
    72
    80
    62
    81
    21
    Torino
    43
    64
    76
    32
    89
    Venezia
    25
    77
    87
    24
    84
    Nazionale
    32
    10
    79
    48
    12
    Estrazione Simbolotto
    Nazionale
    03
    13
    14
    18
    06
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto