Questo è il listato
Ciauz
'08-05-2020
ColoreTesto 2 :Scrivi String(34,30)&" DA SOMMA 30 ISOTOPA BARI-GENOVA by DjNomade",1
ColoreTesto 0
Sub Main()
Dim am1(10)
Dim am2(10),amb(4)
Dim m(10)
Dim ambo(2)
Dim cou1(6) ,cou2(6),cou3(7)
Dim ruote(10),ruota(1),ruota1(1)
Dim poste(5),poste1(5),poste2(4),poste3(4)
poste(1) = 1
poste2(2) = 1
poste3(2) = 2
poste3(3) = 1.7
poste3(4) = .3
fin = EstrazioneFin
ini = 9446
k=10 'colpi di gioco
For es = ini To fin
co = 0
Messaggio DataEstrazione(es)
r = 1
If r=11 Then r=12
For p = 1 To 5
a = Estratto(es,r,p)
r2 = 4
aa = Estratto(es,r2,p)
c= Fuori90(aa+a)
If c = 30 Then
nw1 = Fuori90(90-Estratto(es,1,2)+Estratto(es,1,3)+1) 'ambata
ra=Estratto(es,2,5)
nx1= Round(Sqr(ra),2)
nx2=Fuori90(Int(nx1))'radice
nw11 = Fuori90(nx2+Estratto(es,3,1)+58)'abb
nw111 = Fuori90(90-Estratto(es,5,2)+Estratto(es,8,2)+48)'abb
nw222 = Fuori90(90-Estratto(es,9,2)+Estratto(es,10,5)+36)'abb
amb(1)= nw1
amb(2)= nw11
amb(3)= nw111
amb(4)= nw222
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 3
For y = x + 1 To 4
If amb(x) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " < Estratti isotopi - SOMMA " & CInt(c),1
ColoreTesto 0
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)& "...SOMMA " & CInt(c) ,1
ruote(1) = 1
ruote(2) = 4
Messaggio " elaboro " & es
: co = 0
Scrivi String(85,"-") & Chr(10)
cou1(1) =amb(1)
ImpostaGiocata 1,cou1,ruote,poste,k
cou2(1) = amb(1)
cou2(2) = amb(2)
ImpostaGiocata 2,cou2,ruote,poste2,k
cou2(1) = amb(1)
cou2(2) = amb(3)
ImpostaGiocata 3,cou2,ruote,poste2,k
cou2(1) = amb(1)
cou2(2) = amb(4)
ImpostaGiocata 4,cou2,ruote,poste2,k
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
