Script

[scarfacetony]

Spakkiusu

 

[DjNomade]

Sempre da controllare 😊
Ciauz

'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

'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

'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]

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

 

[franca46]

buon pomeriggio a Voi
il metodo spakka si applica in un unica estrazione tipo cosi'

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]

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]

Vi posto anche il metodo Uranus di Ranisio