x max

[Roby]

ciao max sempre se puoi ti chiedo un favore
ho bisogno di un listato con queste caratteristiche:
mi deve chiedere quante estrazioni voglio esaminare
poi mi deve chiedere quale somma voglio di 2 ambate isotope
tutto qua'

es. voglio sapere se ci sono due ambate isotope di somma 90

tutto qua' ciao

 

[maxma62]

Sub main()
so=CInt(InputBox("somma da ricercare? ","numero somma",88))
p1=CInt(InputBox("posizione? ","posizione",5))
ce=CInt(InputBox("da quale estrazione? ","estrazione",7800))
fin=EstrazioneFin
ini=ce
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 9 
a=Estratto(es,r1,p1)
For r2=r1+1 To 10 
b=Estratto(es,r2,p1)
som=Fuori90(a+b)
If som=so Then
Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&_
StringaEstratti(es,r1)&" ] [ "&Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&_
StringaEstratti(es,r2)&" ] [ "&Format2(b)&" ] in "&(p1)&"^ pos."
Scrivi String(65,"-"),1
End If
Next : Next : Next
End Sub

-------------------------
audaces fortuna iuvat
max

 

[peppe60]

grazie max sei stato gentilissimo grazie ciao

 

[peppe60]

ciao max se puoi un'ultima cosa avrei bisogno di due modifiche del listato la prima in qualunque pos. l'ambata isotopa , la seconda e la somma 9--10 pero' solo dei numeretti

es bari prima pos. 2
venezia prima pos. 7



altro es.
genova torino 6
roma 4

spero di essermi spiegato ciao max

 

[maxma62]

'senza nazionale
Sub main()
'so=CInt(InputBox("somma da ricercare? ","numero somma",88))
'p1=CInt(InputBox("posizione? ","posizione",5))
ce=CInt(InputBox("da quale estrazione? ","estrazione",7800))
fin=EstrazioneFin
ini=ce
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 9 
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 10 
b=Estratto(es,r2,p1)
'som=Fuori90(a+b)
'If som=so Then
If a<10 And b<10 then
Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&_
StringaEstratti(es,r1)&" ] [ "&Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&_
StringaEstratti(es,r2)&" ] [ "&Format2(b)&" ] in "&(p1)&"^ pos."
Scrivi String(65,"-"),1
End If
Next : Next : Next : next
End Sub

-------------------------------------------------------------------------

'con nazionale
Sub main()
'so=CInt(InputBox("somma da ricercare? ","numero somma",88))
'p1=CInt(InputBox("posizione? ","posizione",5))
ce=CInt(InputBox("da quale estrazione? ","estrazione",7800))
fin=EstrazioneFin
ini=ce
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
b=Estratto(es,r2,p1)
'som=Fuori90(a+b)
'If som=so Then
If a<10 And b<10 Then
Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&_
StringaEstratti(es,r1)&" ] [ "&Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&_
StringaEstratti(es,r2)&" ] [ "&Format2(b)&" ] in "&(p1)&"^ pos."
Scrivi String(65,"-"),1
End If
Next : Next : Next : Next
End Sub

-------------------------
audaces fortuna iuvat
max

 

[peppe60]

grazie max gentilissimo ciao