Convergenze BA-CA alla 10° del mese

Da Blackmore Sab 28 Giu - 11:04:50

Codice:: Sub Main() 'Ambate Blackmore BA-CA alla 10° del mese" Dim ruote(2),ambata(4),posta(3) posta(1) = 1 :posta(2) = 1:posta(3) = 1 ini = CInt(InputBox("INZIO RICERCA ?","Blackmore",7500)) r1 = CInt(InputBox("RUOTA N°1 ?","Blackmore",1)) r2 = CInt(InputBox("RUOTA N°2 ?","Blackmore",2)) im = CInt(InputBox("INDICE MENSILE ?","Blackmore",10)) kl = CInt(InputBox("COLPI DI GIOCO ?","Blackmore",6)) fin = EstrazioneFin : For es = ini To fin AvanzamentoElab ini,fin,es If IndiceMensile(es) = im Then cont = cont + 1:Scrivi String(99,"=") & " Caso n°" & Format2(cont),1 Scrivi "[" & es & " ] " & DataEstrazione(es) & " " & im & "°Estrazione Mensile : " & SiglaRuota(r1) & "-" & SiglaRuota(r2),1 ruote(1) = r1 : ruote(2) = r2 ambata(1) = Fuori90(Estratto(es,BA_,2) + Estratto(es,TO_,1) + Estratto(es,TO_,2) + 72) ambata(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,TO_,1) + Estratto(es,TO_,2) + 74) ambata(3) = Fuori90(90 +(Estratto(es,BA_,1)) - Estratto(es,BA_,4) + Estratto(es,NA_,3) + 58) ambata(4) = Fuori90(Estratto(es,BA_,2) + Estratto(es,BA_,3) + Estratto(es,RO_,2) + 23) ImpostaGiocata 1,ambata,ruote,posta,kl Gioca es End If Next Scrivi:Scrivi:ScriviResoconto End Sub