R
Roby
Guest
Ciao Esselotto.
Ha questa mia richiesta sotto descritta,che Tu mi hai esaudito.
Ora Ti chiedo:se ptresti aggiungergli</u> affianco, il totale </u> delle uscite</u>.
Sò che è per Te è una ulteriore richiesta alle altre magari più importanti, ma questo mese mi sono perso 2 ambi secchi nelle prime 2 estrazioni consecutive del mese per una svista.(il tot. lo facevo a mano).
Grazie.
--------------------------------------------------
Ciao.
Chiedo: potresti scrivere uno script che facesse vedere un
determinato numeroche io vado a scrivere) quante volte è
uscito nel meseche io vado a scrivere)e a quale Ruota:
(che io vado a scrivere)dall'inizio della storia dell'otto,o
negli ultimi 10 anni?
Esempio n. 10 mese agosto anno 1871 2 volte ruota PA
Esempio n. 10 mese agosto anno 1872 0 volte ruota PA
ecc.ecc.
Grazie.
Ciao
--------------------------------------------
per joy ho fatto listato 1 mese a scelta per 10 o quanti anni si vogliano
ho aggiunto qualcosa di mio. Dato che ho capito cosa volevi fare.
Ricercare la frequenza di un numero su una ruota in un dato mese
Mia aggiunta.
Quando avvii lo script ti risulterano data e frequenza di tutti i 90 numeri
cosi puoi fare meglio la casistica.
per altro mese ho ruota leggi commenti sulla sinistra di ogni commando
esselotto
---------------------------------------
Scipt gira su l8 e spaziometria
'programmato da Esselotto
Sub main()
ini=EstrazioneFin-1700 ' cambia - 1700 a - 4000 o piu
fin=EstrazioneFin
For nx= 1 To 90
Scrivi
Scrivi "Controllo numero .......> "& nx,1
ind = 1 ' indica il mese 1 Genn 12 dic
rx=2 ' indica ruota 1 Ba fino a 10 Venezia 11= Tutte 12= naz
For es= ini To fin
inx=Mese(es) ' prendo il numero del mese 2 per febbraio
IdxMese1 =IndiceMensile(es) ' prendo indice mensile
If IdxMese1= 1 And inx=ind Then ' se indice mensile e la prima calcolo
co=0
For j= 0 To 15 ' controllo 16 estrazioni ma esco se fine mese
For p= 1 To 5 ' controllo 5 estratti
If nx=Estratto (es+j,rx,p) Then fre =fre+1
Next
co=co+1 ' conta i cicli partendo da 1
idxmese2=IndiceMensile (es+co)' prendo indici mensili temporali
If idxmese2 =1 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
Next
Scrivi DataEstrazione(es) & " Ruota "& NomeRuota (rx) &" ____Frequenza --->"& fre 'scrivo data e frequenza
fre=0
End If
Next
Next
scrivi "°°°esselotto°°°"
End Sub
---------------------------------------------------------
Ha questa mia richiesta sotto descritta,che Tu mi hai esaudito.
Ora Ti chiedo:se ptresti aggiungergli</u> affianco, il totale </u> delle uscite</u>.
Sò che è per Te è una ulteriore richiesta alle altre magari più importanti, ma questo mese mi sono perso 2 ambi secchi nelle prime 2 estrazioni consecutive del mese per una svista.(il tot. lo facevo a mano).
Grazie.
--------------------------------------------------
Ciao.
Chiedo: potresti scrivere uno script che facesse vedere un
determinato numeroche io vado a scrivere) quante volte è
uscito nel meseche io vado a scrivere)e a quale Ruota:
(che io vado a scrivere)dall'inizio della storia dell'otto,o
negli ultimi 10 anni?
Esempio n. 10 mese agosto anno 1871 2 volte ruota PA
Esempio n. 10 mese agosto anno 1872 0 volte ruota PA
ecc.ecc.
Grazie.
Ciao
--------------------------------------------
per joy ho fatto listato 1 mese a scelta per 10 o quanti anni si vogliano
ho aggiunto qualcosa di mio. Dato che ho capito cosa volevi fare.
Ricercare la frequenza di un numero su una ruota in un dato mese
Mia aggiunta.
Quando avvii lo script ti risulterano data e frequenza di tutti i 90 numeri
cosi puoi fare meglio la casistica.
per altro mese ho ruota leggi commenti sulla sinistra di ogni commando
esselotto
---------------------------------------
Scipt gira su l8 e spaziometria
'programmato da Esselotto
Sub main()
ini=EstrazioneFin-1700 ' cambia - 1700 a - 4000 o piu
fin=EstrazioneFin
For nx= 1 To 90
Scrivi
Scrivi "Controllo numero .......> "& nx,1
ind = 1 ' indica il mese 1 Genn 12 dic
rx=2 ' indica ruota 1 Ba fino a 10 Venezia 11= Tutte 12= naz
For es= ini To fin
inx=Mese(es) ' prendo il numero del mese 2 per febbraio
IdxMese1 =IndiceMensile(es) ' prendo indice mensile
If IdxMese1= 1 And inx=ind Then ' se indice mensile e la prima calcolo
co=0
For j= 0 To 15 ' controllo 16 estrazioni ma esco se fine mese
For p= 1 To 5 ' controllo 5 estratti
If nx=Estratto (es+j,rx,p) Then fre =fre+1
Next
co=co+1 ' conta i cicli partendo da 1
idxmese2=IndiceMensile (es+co)' prendo indici mensili temporali
If idxmese2 =1 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
Next
Scrivi DataEstrazione(es) & " Ruota "& NomeRuota (rx) &" ____Frequenza --->"& fre 'scrivo data e frequenza
fre=0
End If
Next
Next
scrivi "°°°esselotto°°°"
End Sub
---------------------------------------------------------