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
 
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
 
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
Ciauz

Codice: 
'
'16-07-2024


ColoreTesto 2 :Scrivi String(17,32)&"  LA MUMMIA Vers. 2.0  by Salvo Badessa",1



ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am1(2),am2(5),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(10),poste2(5),poste3(5)

poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",100))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",9))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&"  LA MUMMIA Vers. 2.0  by Salvo Badessa   "


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

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n11=Estratto(es,r1,p1+1)
If (Distanza(n1,n2)=30 ) And  Distanza(p1,p2)=2 Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If ((Distanza(n3,n1)=30 And Distanza(n3,n2)=30)) And n3<>n1 And n3<>n2 And (p3=p1+1)Then

n4=Diametrale(n11)'82+45  37 A
n5=DiametraleD(n11)'82+5  87 B
n6=DiametraleD(n4)'37-5  32 C








casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "       "&Format2(n3),1

Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11:ruota(4)=12
ruote(1)=r1:ruote(2)=r2:co=0

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



am(1)=n11

ImpostaGiocata 1,am,ruote,posta,k
am1(1)=n11
am1(2)=n6
ImpostaGiocata 2,am1,ruota,poste,k
am2(1)=n11
am2(2)=n4
am2(3)=n5
am2(4)=n6
ImpostaGiocata 3,am2,ruota,poste2,k

Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
scarfacetony

scarfacetony

Member
Buonaseri,vi allego altri 2 metodi di Ranisio,per chi puo' fare degli script.
grazie mille
 

Allegati

  • ABC.jpeg
    ABC.jpeg
    64,5 KB · Visite: 3
  • ABC2.jpeg
    ABC2.jpeg
    49,5 KB · Visite: 3
  • SATURNO.jpeg
    SATURNO.jpeg
    154,7 KB · Visite: 2
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
Salvo errori.....


Codice: 
'https://www.facebook.com/rainisiochristian/
'17/07/2024
 ColoreTesto 1 :Scrivi String(37,32)&"1° del mese METODO SATURNO by Christian Rainisio",1


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

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

a=abs(Estratto(es,1,4)-Estratto(es,6,4)) ' 76-63 13 ambata
b=Fuori90(Estratto(es,1,4)+Estratto(es,6,4))'49  abb
If a=b Then b=Fuori90(a+1)
c=vert(b) '44

 ColoreTesto 2 :Scrivi "--1°estrazione del mese---------------------------",1

k=13
ruota(1)=1
ruota(2)=6 
ruote(1)=1
ruote(2)=6
ruote(3)=11
ruote(4)=12

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

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

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

am2(1)=a
am2(2)=b
am2(3)=c
ImpostaGiocata 4,am2,ruote,postee,k
Gioca es
casi=casi+1
End If

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



ColoreTesto 0
End Sub
Codice: 
'https://www.facebook.com/rainisiochristian/
'17/07/2024
 ColoreTesto 1 :Scrivi String(37,32)&"1° del mese METODO A.B.C 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=Vert(Estratto(es,1,1)) ' 60 ambata
b=Diametrale(Estratto(es,1,5))'69  abb
c=Estratto(es-1,2,5) '71

 ColoreTesto 2 :Scrivi "--1°estrazione del mese---------------------------",1

k=13
ruota(1)=1
ruota(2)=2 
ruote(1)=1
ruote(2)=2
ruote(3)=11
ruote(4)=12

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

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

am1(1)=a
am1(2)=c
ImpostaGiocata 3,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
    martedì 16 luglio 2024
    Bari
    33
    58
    77
    37
    53
    Cagliari
    60
    50
    17
    12
    84
    Firenze
    10
    48
    70
    07
    38
    Genova
    69
    73
    41
    44
    36
    Milano
    22
    43
    11
    37
    27
    Napoli
    26
    39
    31
    60
    80
    Palermo
    29
    14
    63
    18
    11
    Roma
    37
    20
    77
    22
    03
    Torino
    89
    21
    55
    66
    24
    Venezia
    36
    32
    51
    26
    23
    Nazionale
    07
    09
    84
    58
    13
    Estrazione Simbolotto
    Nazionale
    11
    27
    18
    20
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto