Somma 45 ISOTOPA (BA-CA...+VE)

[Blackmore]

Codice: Seleziona tutto

'SE USATE L8 O LOTTODESK TOGLIETE LA VIRGOLA E L'1 DOPO GIOCA ES
Sub main()
scrivi:Scrivi String(8," ")&"SOMMA 45 ISOTOPA TRA 2 ESTRATTI SU BARI E CAGLIARI CON IL RISULTATO DELLA SOMMA PRESENTE SU VENEZIA",1
Scrivi String(41," ")&"METODO E LISTATO BY BLACKMORE",1: Scrivi 
Dim ruote(10)
Dim ambata(1)
Dim a1(2)
Dim a2(2)
Dim a3(2)
Dim q(4)
Dim posta(1)
Dim poste(2)
Dim posteq(3)
posta(1)=1
poste(2)=1
posteq(2)=1
posteq(3)=0.50
ns = CInt(InputBox("INSERISCI SOMMA:",, 45))
ini = InputBox("ESTRAZIONE INIZIO:",, 3862) '5 GENNAIO 1945
fin = InputBox("ESTRAZIONE FINALE:",, EstrazioneFin)
cdg = InputBox("COLPI DI GIOCO:",, 9)
For es = ini To fin
AvanzamentoElab ini,fin,es
r1 = 1 'BARI
r2 = 2 'CAGLIARI
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If Fuori90(a+b) = ns Then
r3 = 10 'VENEZIA(RUOTA DI RISCONTRO DELLA SOMMA)
For p2 = 1 To 5
c = Estratto(es,r3,p2)
If c = ns Then
casi=casi+1
ruote(1)= r1 : ruote(2)= r2
Scrivi String(50,">")&" Caso n°"& Format2(casi)& " " & String(50,"<"),1:coloretesto 2
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&" : "& Format2(a) &" in "& p1 & "°Posizione"
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&" : "& Format2(b) &" in "& p1 & "°Posizione":coloretesto 1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r3)&"  "& StringaEstratti(es,r3)&" : "& Format2(c) &" in "& p2 & "°Posizione [Somma dei 2 estratti]"
ColoreTesto 0
ambata(1)= Fuori90(Estratto(es,NA_,5)+Estratto(es,RO_,2)+ 1)
ImpostaGiocata 1,ambata,ruote,posta,cdg,1
a1(1) = ambata(1)
a1(2) = Fuori90(Estratto(es,GE_,2)+ Estratto(es,TO_,4)+ 27)
ImpostaGiocata 2,a1,ruote,poste,cdg,2
a2(1) = ambata(1)
a2(2) =Fuori90(90+(Estratto(es,PA_,2))- Estratto(es,RO_,1)+ 13)
ImpostaGiocata 3,a2,ruote,poste,cdg,2
a3(1) = ambata(1)
a3(2) =Fuori90(Estratto(es,CA_,1)+ Estratto(es,RO_,3)+ 11)
ImpostaGiocata 4,a3,ruote,poste,cdg,2
'QUARTINA AL POSTO DEGLI AMBI SECCHI
q(1) = ambata(1)
q(2) = a1(2)
q(3) = a2(2)
q(4) = a3(2)
ImpostaGiocata 5,q,ruote,posteq,cdg,2
Gioca es,1
End If
Next
End If
Next
Next
scrivi:scrivi:scriviresoconto 
End Sub

[rodolfo]

Grazie Black