- Group:
- Fan
- Posts:
- 2
- Status:
| |
| Ciao Fata,spero sia giusto ********************************************************
Sub Main() Dim ruote(3) Dim numeri0(5) Dim numeri1(10) Dim numeri3(10) Dim numeri2(10) Dim numeri4(10) Dim posta(5) Dim posta1(5) Dim poste(5) ruote(1) = 1 ruote(2) = 0 ruote(3) = 0 posta(2) = 1 posta1(2) = 0.5 posta1(3) = 0.4 posta1(4) = 0.1 poste(1) = 1 k = 9 y = 2 For n = 8460 To EstrazioneFin If IndiceMensile(n) = 1 Then co = co + 1 Scrivi ColoreTesto 1 Scrivi String(106,"§") & " Caso n°" & co,1 ColoreTesto 2 Scrivi String(20," ") & " " & DataEstrazione(es) & " <> " & SiglaRuota(ruo) & " <> " & StringaEstratti(es,ruo) & " <> 1'MESE <> " & a & " - " & b,1 ColoreTesto 1 Scrivi String(106,"§"),1 ColoreTesto 0 numeri0(1) = Fuori90(Estratto(n,1,3) + 9) numeri0(2) = Fuori90((91 - numeri0(1))) numeri0(3) = Fuori90(Estratto(n,5,1)) + 20 numeri0(4) = Vert(numeri0(3)) '--------------------------------------- numeri1(1) = Fuori90(Estratto(n,9,2) + Estratto(n,10,3) + 77) numeri1(2) = Fuori90(Estratto(n,1,1) + 57) ImpostaGiocata 1,numeri1,ruote,posta,k,2 numeri2(1) = numeri1(1) numeri2(2) = numeri0(2) ImpostaGiocata 2,numeri2,ruote,posta,k,2 numeri3(1) = numeri1(1) numeri3(2) = numeri0(4) ImpostaGiocata 3,numeri3,ruote,posta,k,2 numeri4(1) = numeri1(2) numeri4(2) = numeri2(2) numeri4(3) = numeri3(2) numeri4(4) = numeri1(1) ImpostaGiocata 4,numeri4,ruote,posta,k,3 Gioca n End If Next ScriviResoconto End Sub
|