Per Esselotto (correzzione)

Roby · 29 Novembre 2010

Ciao Esselotto.
Il 26.9.2010, mi hai fatto lo script sotto descritto, ho natato che l'archivio parte da 1939, non potresti farlo partire da Gen. 1871?
Io ho provato a cercare di capire come fare ma non ci sono riuscito.
Non vorrei farTi perdere tempo ma io non ci riesco proprio, potresTi
correggermelo Tu.
Grazie !

Rileva solo numeri che in un dato mese, si sono presentati insieme al Capo gioco.

''''''''Ricerca i numeri piu frequenti, con un CapoGioco in un dato mese
'''''''''''''Prelevare solo Testo colorato Blu

Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
If Posizione(es,r1,nn)>0 Then
ru1(1)=r2
If mes1=Mese (es) Then
If SerieFreq(es,es,nn1,ru1,1)=1 Then

ess=es
If ess>fin Then ess=fin
co=0
For i=1 To 90
If i<>nn Then
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
End if
Next
End if
End If
End If
Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)'&" "&FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

oruam · 29 Novembre 2010

strano perchè il mio parte
Dal 17.01.2004(8306) al 27.11.2010 (8305)
digidando 8000 al posto di 1000 estrazioni ottengo
Dal 05.11.1876(8306) al 27.11.2010 (8305)
vedi se ti trovi

joi_lotto · 29 Novembre 2010

Ciao oruam.
Io, dove c'era 1000 ho messo 8306.
Prova con l'ambo 11-70 a RO uscito(da script n.5) da programma di
L. ced uscito n. 7 MESE DICEMBRE.

joi_lotto · 29 Novembre 2010

Ho provato mettendo 8305 e mi da la data 7.1.1871 ma il conteggio non
quadra ho provato con L.ced inserendo la data del 39 e a quel punto mi da lo stesso risultato dello script. (5)

Ciao.

oruam · 29 Novembre 2010

vedi se puo andare
,o ci vuole la mano di esse

Codice:

''''''''Ricerca i numeri piu frequenti, con un CapoGioco in un dato mese
'''''''''''''Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-ee
For es=ini To fin
If Posizione(es,r1,nn)>0 Then

ru1(1)=r2
If mes1=Mese (es) And  SerieFreq(es,es,nn1,ru1,1)>0 Then 


ess=es
If ess>fin Then ess=fin 
casi=casi+1
co=0
For i=1 To 90
If i<>nn Then 
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)
n(co,3)=n(co,3)+fr
End If
Next
End If
End If

Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es-ee&") al "&dataestrazione(fin)&" ("&fin&")si è presentato "&casi&" volte"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

esselotto · 30 Novembre 2010

quote:Originally posted by oruam

vedi se puo andare
,o ci vuole la mano di esse

Codice:

''''''''Ricerca i numeri piu frequenti, con un CapoGioco in un dato mese
'''''''''''''Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
''''ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
''''If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
casi=0
'''''fin=EstrazioneFin
''''ini=EstrazioneFin-ee
fin=EstrazioneFin ' <----- fine archivio
ini=EstrazioneIni '<--- da inizio archivio  
For es=ini To fin
If Posizione(es,r1,nn)>0 Then

ru1(1)=r2
If mes1=Mese (es) And  SerieFreq(es,es,nn1,ru1,1)>0 Then 


ess=es
If ess>fin Then ess=fin 
casi=casi+1
co=0
For i=1 To 90
If i<>nn Then 
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)
n(co,3)=n(co,3)+fr
End If
Next
End If
End If

Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es-ee&") al "&dataestrazione(fin)&" ("&fin&")si è presentato "&casi&" volte"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

Corretto

Scusami oruam se joi lotto chiede dall'inizio archivio.

basta togliere, o mettere apici su questa riga. Tanto non serve più

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub

e Modificare qui
da così
fin=EstrazioneFin
ini=EstrazioneFin-ee

a così
fin=EstrazioneFin ' <----- fine archivio
ini=EstrazioneIni '<--- da inizio archivio

Piccola spiegazione per capire il procedimento.

esselotto

esselotto · 30 Novembre 2010

joi_lotto · 30 Novembre 2010

Ciao ragazzi e SOPRATUTTO GRAZIE.

Ma oggi è una giornata nera. Appena starò meglio proverò a fare la modifica.

Grazie ancora.

Grazie.

esselotto · 1 Dicembre 2010

quote:Originally posted by joi_lotto

Ciao ragazzi e SOPRATUTTO GRAZIE.

Ma oggi è una giornata nera. Appena starò meglio proverò a fare la modifica.

Grazie ancora.

Grazie.

ciao joi lotto

si vede che hai avuto una giornata nera
Lo script sopra e stato già corretto

esselotto · 1 Dicembre 2010

lo colorato in Blu
per capire di quale script parlavo.

joi_lotto · 1 Dicembre 2010

Ciao Esselotto e Oruam.
Ma la mia invalidità quando mi prende con dolori cosi forti non mi permette di poter capire proprio nulla.(già "capisco poco di mio" poi con questi script altro che rompicapo!)
Praticamente per quella/e giornata/e non esisto.

Chiusa parentesi.

Vi RINGRAZIO TANTISSIMO.
Grazie.

Cerca

Cerca

Per Esselotto (correzzione)

Roby

Guest

oruam

Super Member >PLATINUM<

joi_lotto

Super Member >PLATINUM<

joi_lotto

Super Member >PLATINUM<

oruam

Super Member >PLATINUM<

esselotto

Advanced Member >GOLD<

esselotto

Advanced Member >GOLD<

joi_lotto

Super Member >PLATINUM<

esselotto

Advanced Member >GOLD<

esselotto

Advanced Member >GOLD<

joi_lotto

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi