thesergio752
Member
3°estratto cagliari - 1°estratto di bari = 1°ambata
3°estratto cagliari - 5°estratto di bari = 2°ambata
calcolo deve essere effettuato ad ogni estrazioni
Il listato che ho sotto mano non restituisce la differenza esatta infatti nell'ultima estrazione dice che 70-1=68 e 23-1=21
************************************************** Caso n°263
29.10.2013 BA 23.14.29.49.70
29.10.2013 CA 66.51.01.20.71
Estrazione generatrice del pronostico 08762 [130 - 29/10/2013]
G 0001 Numeri in gioco : 68 su BA CA per Estratto
Interrotta per raggiunta durata
G 0002 Numeri in gioco : 21 su BA CA per Estratto
Interrotta per raggiunta durata
Inserisco il Listato:
Sub Main()
Dim ruote(10),num(1),posta(1)
posta(1) = 1
ini = InputBox("INIZIO",,8500)
k = InputBox("COLPI",,1)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
co = co + 1
ruote(1) = CA_ : ruote(2) = BA_: ruote(3) = BA_
Scrivi String(50,"*") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
Scrivi DataEstrazione(es) & " " & SiglaRuota(CA_) & " " & StringaEstratti(es,CA_)
num(1) = Fuori90(Estratto(es,CA_,3) - Estratto(es,BA_,1))
ImpostaGiocata 1,num,ruote,posta,k,1
num(1) = Fuori90(Estratto(es,CA_,3) - Estratto(es,BA_,5))
ImpostaGiocata 2,num,ruote,posta,k,1
Gioca es,1
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub
Grazie anticipatamente.ciao ciao
3°estratto cagliari - 5°estratto di bari = 2°ambata
calcolo deve essere effettuato ad ogni estrazioni
Il listato che ho sotto mano non restituisce la differenza esatta infatti nell'ultima estrazione dice che 70-1=68 e 23-1=21
************************************************** Caso n°263
29.10.2013 BA 23.14.29.49.70
29.10.2013 CA 66.51.01.20.71
Estrazione generatrice del pronostico 08762 [130 - 29/10/2013]
G 0001 Numeri in gioco : 68 su BA CA per Estratto
Interrotta per raggiunta durata
G 0002 Numeri in gioco : 21 su BA CA per Estratto
Interrotta per raggiunta durata
Inserisco il Listato:
Sub Main()
Dim ruote(10),num(1),posta(1)
posta(1) = 1
ini = InputBox("INIZIO",,8500)
k = InputBox("COLPI",,1)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
co = co + 1
ruote(1) = CA_ : ruote(2) = BA_: ruote(3) = BA_
Scrivi String(50,"*") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
Scrivi DataEstrazione(es) & " " & SiglaRuota(CA_) & " " & StringaEstratti(es,CA_)
num(1) = Fuori90(Estratto(es,CA_,3) - Estratto(es,BA_,1))
ImpostaGiocata 1,num,ruote,posta,k,1
num(1) = Fuori90(Estratto(es,CA_,3) - Estratto(es,BA_,5))
ImpostaGiocata 2,num,ruote,posta,k,1
Gioca es,1
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub
Grazie anticipatamente.ciao ciao
Ultima modifica: