Qualcun puo' fare questo listato?Grazie

« Older Newer »

sean69

Posted on 30/6/2016, 11:56

sean69

Group: Administrator

Posts: 5,897

Location: Provincia di Roma..

Status: Offline

Sale,un utente mi ha chiesto questo listato:

il calcolo si basa alla 1° estrazione del mese sula ruota nazionale .....

vorrei che lo script mi moltiplicasse il primo estratto ( es. 25 ) in questo modo ( 2x5) e così anche con il 5° estratto

io non ho il tempo per farlo,qualcuno puo' aiutarlo?grazie

Web

DjNomade

Posted on 20/7/2016, 21:21

Senior Member

Group: Member

Posts: 10,952

Location: MARCHE

Status: Offline

Controlla se puo andar bene

ciauz

SPOILER (clicca per visualizzare)

Sub main()
Dim ruota(3)
Dim n1(10)
Dim poste(5)

ruota(1)=12
'ruota(2)=12

poste(1)=1 : poste(2)=0.5
clp=12
y=1
casi=0
ini=7530
fin=EstrazioneFin

For es=ini To fin
AvanzamentoElab ini,fin,es

If IndiceMensile (es)=1 Then

n1(1)= Fuori90 (Decina(Estratto (es,12,1))*Cadenza(Estratto (es,12,1)))
n1(2)= Fuori90 (Decina(Estratto (es,12,5))*Cadenza(Estratto (es,12,5)))
Scrivi String (65,"="),1
Scrivi DataEstrazione(es)& " "& NomeRuota(12)&" "&StringaEstratti(es,12),1
Scrivi "1° estratto "& Decina(Estratto (es,12,1))& " X "& Cadenza(Estratto (es,12,1))& " = "&n1(1),1
Scrivi "5° estratto "& Decina(Estratto (es,12,5))& " X "& Cadenza(Estratto (es,12,5))& " = "&n1(2),1

ImpostaGiocata 1,n1,ruota,poste,clp,y

Gioca es
casi=casi+1

End If

Next
Scrivi
Scrivi "Casi analizzati "&cint(casi)

ScriviResoconto
End Sub

1 replies since 30/6/2016, 11:56 386 views