Novità

PER ESSELOTTO o PER CHI VUOLE

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao.
Chiedo: potresti scrivere uno script che facesse vedere un
determinato numero</u>:(che io vado a scrivere) quante volte è
uscito nel mese</u>:(che io vado a scrivere)e a quale Ruota</u>:
(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
 
quote:Originally posted by joi_lotto

Ciao.
Chiedo: potresti scrivere uno script che facesse vedere un
determinato numero</u>:(che io vado a scrivere) quante volte è
uscito nel mese</u>:(che io vado a scrivere)e a quale Ruota</u>:
(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


appena trovo tempo libero ci posso provare io.
esselotto
 
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









La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb
distanza doppia forza=1/4 distanza tripla forza 1/9

°°°esselotto°°°
 
Ciao.
GRAZIE MOLTO.
Cerco di capire quello che mi hai scritto per quanto riguarda il mese
e la ruota non riesco a capire.
Potresti sottolinearmi le righe,
ripeto sono completamente incompetente.
Grazie.

Cisono riuscito dopo tanto sudore,ora ti chiedo: se correggo la parola controlla numero in (controlla numeri es.1-2 posso farlo)?
cosa succede? mando tutto a pallino?
Grazie.
Ciao.
 
quote:Originally posted by 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









La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb
distanza doppia forza=1/4 distanza tripla forza 1/9

°°°esselotto°°°


ind = 1 <---- sono i mesi vale come sopra se cambi solo il numero. cambia il mese
1=Gennaio 2= Febbraio 3=Marzo 4=aprile 5=maggio 6=giugno 7=luglio
8 =agosto 9=settembe 10=ottobre 11=novembre 12=dicembre


rx=2 <--- sono le ruote in gioco se cambi numero (solo numero), cambia la ruota.
ti riporto i numeri delle ruote
1=Bari 2=Cagliari 3=firenze 4=Genova 5=milano
6=napoli 7=palermo 8=roma 9=torino 10=vanezia 11=Tutte 12=Nazionale




ini=EstrazioneFin -1700 <--- se qui invece di -1700 provi a mettere
-2000 va a ritroso indietro di 2000 estrazioni
-4000 indietro di 4000 ecc ecc
come vedi preceduto da segno meno.
 
Spero di essere stato chiaro.
ciao esselotto


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
dalla Fisica
°°°esselotto°°°
 
Spero di essere stato chiaro.
ciao esselotto


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
dalla Fisica
°°°esselotto°°°
 
Ciao.
Non avevo capito la parte del numero delle estrazioni,
ma dopo un po cisono arrivato.
Grazie ancora.
Ciao.
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto