Script

scarfacetony · 14 Luglio 2024

Spakkiusu

DjNomade · 14 Luglio 2024

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

franca46 · 15 Luglio 2024

Buongiorno a tutti voi, grande dj , grazie del tuo tempo.
E grazie a scarfacetony per averli postati

franca46 · 15 Luglio 2024

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 · 15 Luglio 2024

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

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 · 15 Luglio 2024

Vi posto anche il metodo Uranus di Ranisio

DjNomade · 15 Luglio 2024

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

scarfacetony · 15 Luglio 2024

Mille grazie

scarfacetony · 16 Luglio 2024

La Mummia....

franca46 · 16 Luglio 2024

Buongiorno, grazie

DjNomade · 16 Luglio 2024

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 · 17 Luglio 2024

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

DjNomade · 17 Luglio 2024

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

margot · 19 Luglio 2024

buongiorno, chi ha altri pdf o script di Salvo Badessa? grazie a chi mi risponderà. buona giornata

scarfacetony · 20 Luglio 2024

Bentrovati,metodi di Gargiulo,ritrovati su una vecchia chiavetta

AMBO_D.O.C._fascicolo lotto semplice ANGELO GARGIULO

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 · 20 Luglio 2024

margot ha scritto:
buongiorno, chi ha altri pdf o script di Salvo Badessa? grazie a chi mi risponderà. buona giornata

Ciao altri due metodi di Badessa da fare script

FEBBRAIO 2023

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

PALERMO

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

domenico@32 · 20 Luglio 2024

tecnica NUMERETTI PASSO 3?

scarfacetony · 20 Luglio 2024

domenico@32 ha scritto:
tecnica NUMERETTI PASSO 3?

Se cerchi su youtube ti trovi il video

DjNomade · 21 Luglio 2024

Salvo errori.....
Ciauz

Codice:

'https://www.youtube.com/watch?v=-q-MWLHFqcE


Scrivi "             SPAKKA BY SALVO BADESSA",1
Sub main()
Dim num1(2),num(2), num3(5),ruota(10),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste3(5)
poste3(2)=1
poste3(3)=1
poste(2)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10032)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin
Scrivi "somma uguale su 2 numeri isotopi su 2 estrazioni successive su 1 ruota",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r1=1 To 9
r2=r1+1
For p1=1 To 5

a=Estratto(es,r1,p1)
b=Estratto(es,r2,p1)

If  a=b Then 'iso
c=Fuori90(a+b)'87+87  84
d=Diametrale(c)'84+45  39 ambata
e=Vert(d)'33 ambata


casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota(1)=r1:
ruota(2)=r2
ruota2(1)=r1:
ruota2(2)=r2
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1
posta(6)=1
posta(p1+5)=1
num1(1)=a
cg=cg+1
ImpostaGiocata cg,num1,ruota,posta,k
num(1)=d
num(2)=a
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=e
num(2)=a
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k

num3(1)=d
num3(2)=a
num3(3)=e
'num3(4)=c
cg=cg+1
ImpostaGiocata cg,num3,ruota2,poste3,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'21-07-2024

 ColoreTesto 2 :Scrivi "-- 12° del mese LE 3 TERZINE MAGICHE PALERMO by Badessa Lotto ---------------------------",1
Scrivi
Scrivi Date &_
Chr (32),1 : ColoreTesto 1
 ColoreTesto 0
Scrivi
Sub main()
Dim posta(5),postee(5)
Dim poste(5)
Dim ruote(5),ruota(5)
Dim am(10)
Dim n1(10),n2(10),n3(10)
poste(2)=1
poste(3)=1

postee(2)=1.2
postee(3)=1.5
postee(4)=.2
postee(5)=.1
casi=0
k=6
fin=EstrazioneFin
ini=10113
For es=ini To fin
If IndiceMensile(es)=12 Then

a1=Fuori90(Estratto(es,5,2)+Estratto(es,6,2))
a2=Abs(Estratto(es,7,2)-Estratto(es,12,4))
a3=Fuori90(Estratto(es,8,1)+81)

a4=Abs(Estratto(es,1,1)-Estratto(es,9,4))
a5=Abs(Estratto(es,3,5)-Estratto(es,8,2))
a6=Fuori90(Estratto(es,9,4)+2)


a7=Abs(Estratto(es,6,2)-Estratto(es,10,1))
a8=Fuori90(Estratto(es,3,3)+60)
a9=Fuori90(Estratto(es,10,3)+39)

 ColoreTesto 2 :Scrivi "---------------------------",1


 ColoreTesto 0
ruote(1)=7
ruote(2)=11
ruote(3)=12


n2(1)=a1
n2(2)=a2
n2(3)=a3
ImpostaGiocata 1,n2,ruote,poste,k

n2(1)=a4
n2(2)=a5
n2(3)=a6
ImpostaGiocata 2,n2,ruote,poste,k

n2(1)=a7
n2(2)=a8
n2(3)=a9
ImpostaGiocata 3,n2,ruote,poste,k


n3(1)=a1
n3(2)=a2
n3(3)=a3
n3(4)=a4
n3(5)=a5
n3(6)=a6
n3(7)=a7
n3(8)=a8
n3(9)=a9
EliminaRipetuti n3
ImpostaGiocata 4,n3,ruote,postee,k




Gioca es
casi=casi+1
End If

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

scarfacetony · 21 Luglio 2024

Buonasera,la Mummia 3 per chi interessa

THE MUMMY 3_240721_145052

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

Script

Senior Member

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Senior Member

Allegati

Advanced Member >PLATINUM PLUS<

Senior Member

Senior Member

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Allegati

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Senior Member

Senior Member

domenico@32

Guest

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member