Matematico
Advanced Member >PLATINUM<
Ciao a tutti, come da titolo , non possedendo L8 , è possibile trasformare il seguente scrpt in un fomato x spaziometria?
Sub main()
'Forum Ambolotto Cinquine formate da Terzine di somma 90 X lotto19642 by Enplein
Dim n(5)
Scrivi "Cinquine con terzine di somma 90",1
Scrivi
For es=i To EstrazioneFin
For r1=1 To 11
If r1=11 Then r1=12
For i=1 To 5
n(i)=Estratto (es,r1,i)
Next
so=Fuori90 (SommaEstratti (es,r1))
If Fuori90 (n(2)+n(3)+n(4))=90 Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaNumeri &" Somma "& Format2 (so),1
End If
Next
Next
End Sub
Sub main()
'Forum Ambolotto Cinquine formate da Terzine di somma 90 X lotto19642 by Enplein
Dim n(5)
Scrivi "Cinquine con terzine di somma 90",1
Scrivi
For es=i To EstrazioneFin
For r1=1 To 11
If r1=11 Then r1=12
For i=1 To 5
n(i)=Estratto (es,r1,i)
Next
so=Fuori90 (SommaEstratti (es,r1))
If Fuori90 (n(2)+n(3)+n(4))=90 Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaNumeri &" Somma "& Format2 (so),1
End If
Next
Next
End Sub