CICLICA ALGORITMICA

[vincenzo57]

 

[vincenzo57]

'20 -12-2023 SCRIPT DEL METODO
'https://enzob-metodieprevisioni.forumfree.it/?t=80034703#newpost
'https://oltreillotto.forumfree.it/?t=80034708#lastpost
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1703088030.jpg
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1703088029.jpg

ColoreTesto 2 :Scrivi String(37,32)&" CICLICA ALGORITMICA 9 ESTRAZIONI X BARI-ROMA by Enzob",1

Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(4),nu(4),nr(5)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),posta(5)
posta(1)=1
poste(2)=1
poste1(2)=1
poste1(3)=1
poste2(3)=1.5
poste2(4)=.3
poste2(5)=.2
fin=EstrazioneFin
ini=10301
For es=ini To fin step 9
AvanzamentoElab ini,fin,es

nr(1)=Fuori90(Estratto(es,1,1)+DiametraleD(Estratto(es,8,5))+0)
nr(2)=31
nr(3)=32
nr(4)=38
nr(5)=35

'**********************************************************


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nr) Then
rip = 1
While NumeriRipetuti(nr)
For x = 1 To 04 ' numeri totali 7-1=6
For y = x + 1 To 5 ' 7 perche i numeri in totale sono 7
If nr(X) = nr Then nr = Fuori90(nr + 1)
Next
Next
Wend
End If
Rem fine formula


'*****************************************************

casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi)

Scrivi
ruote(1)=1:ruote(2)=8:k=9:co=0




nu1(1)=nr(1)
ImpostaGiocata 1 ,nu1,ruote,posta,k

nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(3)
nu3(4)=nr(4)
ImpostaGiocata 2 ,nu3,ruote,poste1,k
nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(3)
nu3(4)=nr(5)
ImpostaGiocata 3 ,nu3,ruote,poste1,k
nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(4)
nu3(4)=nr(5)
ImpostaGiocata 4 ,nu3,ruote,poste1,k
Gioca es

Next

ScriviResoconto
End Sub

 

[vincenzo57]

UN AUGURIO DI BUON NATALE

 

[virtualhuman]

Buon Natale e grazie per il metodo!