Novità

SPAZIOMETRIA di Luigi e Baffoblu 14° POST

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

non è che si può avere nella sessione

statistiche - su ambi- filtro ambi</u>


inserire anche dei numeri a richiesta.

esempio
se voglio l'ambo 06 87


inserire solo questi 2 numeri

ed avere la situazione statistica in output a video di tutte le ruote, come già impostata? da bari - nazionale .

e se volessi invece immettere sei numeri a richiesta</u>

avere in output i 15 ambi contenuti nei sei numeri richiesti?


obbligando il limite di numeri da immettere ad un

max dieci numeri, pari a 45 ambi.




:)


yes, we can, we but nobody does
 
quote:Ho modificato così il Programma di Rubino per adattarlo al Superenalotto manca solo la creazione delle directori il resto funziona ma vorrei sapere se è conforme ai dettami di Rubino al riguardo per darlo in pasto a Gannalist e se è possibile aggiungere la creazione delle directori.

I miei dubbi sono rivolti ai risultati che alla sortita azzerano gli incrementi alla estrazione successiva per poi riportarli alla tendenza.

Vi ringrazio della attenzione e vi esorto a non darla vinta alla logica distruttiva perchè anche se nella ricerca amatoriale non vi è mai la perfezione questa, la perfezione, non esiste in alcun posto.

Buon Divertimento.
Clicca per espandere...



[red]ciao Pico
1) è lo script che si riferisce ad 1 capogioco?
2) è lo script che si riferisce ad 2 capogiochi (ambo)?




---------------------------------
Obama,Obama,e la casta italiana
yes, we can, we but nobody does
 
Ad un capogioco, naturalmente......non considerare le note con apici, non le ho toccate in assoluto, dovevo cambiarle o eliminarle completamente ....scusa.
:):)[:I]
 
mi posti il file txt del nr.14 intorno alla data del 21.08.2010

i miei sono:

2010/08/12,26322,26411,26322,26411
2010/08/14,26411,26500,26411,26500
2010/08/17,26500,26589,26500,26589
2010/08/19,26589,26678,26589,26678
2010/08/21,26678,26678,25283,25283
2010/08/24,25283,25372,25283,25372
2010/08/26,25372,25461,25372,25461
2010/08/28,25461,25550,25461,25550
2010/08/31,25550,25639,25550,25639
2010/09/02,25639,25728,25639,25728
2010/09/04,25728,25817,25728,25817
2010/09/07,25817,25906,25817,25906
2010/09/09,25906,25995,25906,25995
2010/09/11,25995,26084,25995,26084
2010/09/14,26084,26173,26084,26173
2010/09/16,26173,26262,26173,26262
2010/09/18,26262,26351,26262,26351
2010/09/21,26351,26440,26351,26440
2010/09/23,26440,26529,26440,26529
2010/09/25,26529,26618,26529,26618
2010/09/28,26618,26707,26618,26707
2010/09/30,26707,26796,26707,26796
2010/10/02,26796,26885,26796,26885
2010/10/05,26885,26974,26885,26974
2010/10/07,26974,27063,26974,27063
2010/10/09,27063,27152,27063,27152
2010/10/12,27152,27241,27152,27241
2010/10/14,27241,27330,27241,27330
2010/10/16,27330,27419,27330,27419
2010/10/19,27419,27508,27419,27508
2010/10/21,27508,27597,27508,27597
2010/10/23,27597,27686,27597,27686
2010/10/26,27686,27775,27686,27775
2010/10/28,27775,27864,27775,27864
2010/10/30,27864,27953,27864,27953
2010/11/02,27953,28042,27953,28042
2010/11/04,28042,28131,28042,28131
2010/11/06,28131,28220,28131,28220
2010/11/09,28220,28309,28220,28309
2010/11/11,28309,28398,28309,28398
2010/11/13,28398,28487,28398,28487
2010/11/16,28487,28576,28487,28576
2010/11/18,28576,28665,28576,28665
2010/11/20,28665,28754,28665,28754
2010/11/23,28754,28843,28754,28843
2010/11/25,28843,28843,27324,27324
2010/11/27,27324,27413,27324,27413
2010/11/30,27413,27502,27413,27502
2010/12/02,27502,27591,27502,27591
2010/12/04,27591,27680,27591,27680
2010/12/07,27680,27769,27680,27769


-------------------------------------
Obama,Obama, e la casta italiana
yes, we can, we but nobody does
 
chi mi posta la situazione dell'ambo 06 87 e mi dice quale procedura ha fatto?




-------------------------------------
Obama,Obama, e la casta italiana
yes, we can, we but nobody does
 
Codice: 
2010/8/14,89,161,89,161
2010/8/17,161,232,161,232
2010/8/19,232,299,232,299
2010/8/21,299,299,0,0
2010/8/24,0,83,0,83
2010/8/26,83,160,83,160
2010/8/28,160,233,160,233
2010/8/31,233,298,233,298
2010/9/2,298,361,298,361
2010/9/4,361,418,361,418
2010/9/7,418,480,418,480
2010/9/9,480,527,480,527
2010/9/11,527,569,527,569
2010/9/14,569,610,569,610
2010/9/16,610,647,610,647
2010/9/18,647,675,647,675
2010/9/21,675,706,675,706
2010/9/23,706,755,706,755
2010/9/25,755,785,755,785
2010/9/28,785,808,785,808
2010/9/30,808,833,808,833
2010/10/2,833,853,833,853
2010/10/5,853,853,837,837
2010/10/7,837,864,837,864
2010/10/9,864,898,864,898
2010/10/12,898,920,898,920
2010/10/14,920,950,920,950
2010/10/16,950,991,950,991
2010/10/19,991,1032,991,1032
2010/10/21,1032,1035,1032,1035
2010/10/23,1035,1035,1034,1034
2010/10/26,1034,1064,1034,1064
2010/10/28,1064,1121,1064,1121
2010/10/30,1121,1133,1121,1133
2010/11/2,1133,1149,1133,1149
2010/11/4,1149,1149,1110,1110
2010/11/6,1110,1110,1085,1085
2010/11/9,1085,1089,1085,1089
2010/11/11,1089,1092,1089,1092
2010/11/13,1092,1092,1081,1081
2010/11/16,1081,1081,1066,1066
2010/11/18,1066,1104,1066,1104
2010/11/20,1104,1104,1050,1050
2010/11/23,1050,1098,1050,1098
2010/11/25,1098,1098,0,0
2010/11/27,0,83,0,83
2010/11/30,83,160,83,160
2010/12/2,160,231,160,231
2010/12/4,231,301,231,301
2010/12/7,301,301,363,363
2010/12/9,363,420,363,420

Molto diversi:)[?]
 
questo è il mio script: se vuoi provarlo
inizia col dicembre 1997

okkio ai percorsi prestabiliti nello script

io ho xp

quindi vanno c:\temp\SuperEnalotto

poi me li copio in gannalyst o indico in gannalyst il percorso dei dati.



Codice: 
Sub Main

	
	
	Dim sDirDestinazione
	Dim idEstr 	
	Dim CG ' capogioco
	Dim R ' ruota
	
	Dim Apertura,Chiusura,Max,Min,DataEst
	Dim sRecord
	Dim sFile
	Dim sRuota
	
	Dim EstrPartenza
	Dim EstrazioniTot
	Dim PrimaEstrazioneDellaStatistica
	
	
	
	
	
	
	
	
	
	sDirDestinazione = ScegliDirectory	
	
	EstrazioniTot = EstrazioniArchivioSE
	PrimaEstrazioneDellaStatistica = 1 ' estrazione del 06/01/1900 la statistica parte dalla prima estrazione del 1900
	 					 	 ' modificare questo valore se si vuole far partire la statistica da una posizione diversa
						 	
						
	
	
	
	
	' lo script legge i file output se essi sono presenti
	' ed esegue la statistica a partire dall'ultima estrazione non presente fino all'ultima disponibile in archivio
	' in pratica devi solo lanciare lo script,dopo la prima volta che gira le altre volte
	' l'esecuzione sara velocissima perche calcolera solo i valori relativi alle ultime estrazioni
	
	
	
	If sDirDestinazione <> "" Then
		If CreaDirectoryRuote(sDirDestinazione) Then
			
				sRuota = "SuperEnalotto"	
				For CG = 1 To 90
					
					EstrPartenza = PrimaEstrazioneDellaStatistica
					sFile = sDirDestinazione & sRuota & "\" & Format2(CG) & ".txt"
					Call PreimpostaValori(Apertura,Chiusura,Min,Max,sFile,EstrPartenza)
					If EstrPartenza > 0 Then
						For idEstr = EstrPartenza + 1 To EstrazioniTot
							
							Call Messaggio(sRuota & " " & idEstr & " Capogioco " & Format2(CG))
							
							Apertura = Chiusura
							Chiusura = GetSommaRitardi(idEstr,R,CG)
							Max = GetValoreMax(Chiusura,Apertura)
							Min = GetValoreMin(Chiusura,Apertura)
							DataEst = AnnoSE(idEstr) & "/" & Format2(MeseSE(idEstr)) & "/" & Format2(GiornoSE(idEstr))
	
							sRecord = DataEst & "," & Apertura & "," & Max & "," & Min & "," & Chiusura
							Call ScriviFile(sFile,sRecord)
							
							
							If ScriptInterrotto Then Exit For
							
						Next
					End If 	
					If ScriptInterrotto Then Exit For
						
					Call AvanzamentoElab(1,90,CG)
				Next ' For CG = 1 To 90...
				
						

			
			
		End If
	End If ' If sDirDestinazione <> "" Then...
	Call Scrivi("Nella directory ")
	Call Scrivi(sDirDestinazione)
	Call Scrivi("sono stati creati gli output in formato testo")

	

	MsgBox "Fine"
	
End Sub
Function GetSommaRitardi(Estrazione,Ruota,CapoGioco)

	Dim idEstr
	Dim k
	Dim R
	
	
	
	For k = 1 To 90
		If k <> CapoGioco Then
			ReDim aNumeri(90)
			aNumeri(1) = CapoGioco
			aNumeri(2) = k
			

			R = R + RitardoCombinazioneSE(aNumeri,2,Estrazione)
		End If
		DoEventsEx	
	Next

	GetSommaRitardi = R
	

End Function
Function GetValoreMax(Chiusura,Apertura)
' - a - valore Massimo è uguale alla Chiusura quando la Chiusura è maggiore dell'apertura
' - b - valore Massimo è uguale all'apertura quando la chiusura è minore della apertura
	If Chiusura >= Apertura Then
		GetValoreMax = Chiusura
	Else
		GetValoreMax = Apertura
	End If
End Function
Function GetValoreMin(Chiusura,Apertura)
' valore Minimo è uguale alla Chiusura quando la Chiusura è minore dell'apertura
' valore Minimo è uguale all'apertura quando la chiusura è maggiore dell'apertura

	If Chiusura <= Apertura Then
		GetValoreMin = Chiusura
	Else
		GetValoreMin = Apertura
	End If
End Function
Sub PreimpostaValori(Apertura,Chiusura,Min,Max,sFile,EstrPartenza)
	
	
	
	ReDim aRighe(0)
	Dim sData
	
	If LeggiRigheFileDiTesto(sFile,aRighe) Then
		' leggo l'ultima riga del file
		
		ReDim aV(0)
		Call SplitByChar(aRighe(UBound(aRighe)),",",aV) ' scompongo la riga ottenendo i valori separati dalle virgole in un array
		
		Apertura = aV(1)
		Chiusura = aV(4)
		Max = aV(2)
		Min = aV(3)
		sData = aV(0)
		
		ReDim aV(0)
		Call SplitByChar(sData
 
PER LUIGI


Ti avevo scritto perché non riuscivo a capire i problemi di connessione
con LOTTOCED
...pensavo a qualche scherzetto

TUTTO CHIARO!

LA DISINFESTAZIONE DI LOTTOCED E'INTERVENUTA ALLA GRANDE!

CASPITA RAGAZZI!
:D:D:D:D:D:D:D:D


Mi spiace solo per le belle poesie di OMERO




I disegni dell'universo nei numeri
 
Ehi Luigi, come al solito Modesto ehh :):)

Ragazzi ,forse, non vi siete accorti che il Nostro FARAONE ha raggiunto quota 2000 post.
Sono d'obbligo gli AUGURI x altri 2000 post
luigi2000post.jpg
 
x Luigi quando puoi e naturalmente se si può bisognerebbe sistemare nel tabellone del cappuccino i numeri di cornice a sinistra 61-58-55 io li vedo male a cavallo tra le righe


easycapture1a.png


quelli a dx vanno bene

ciao e grazie
 
CIAO ALDEBARAN,
IO NON HO QUESTO PROBLEMA CON IMPOSTAZIONE SCHERMO 1024 X 768,
MA AUMENTANDO LA RISOLUZIONE A 1200 X 900
VIENE FUORI IL PROBLEMA.

BUONA SERATA:)
 
Grazie Elefant hai ragione a 1024x768 va bene anche se la mia risoluzione nativa sarebbe 1024x600 è un netbook
quindi niente questo è un bug mioo
 
no no .. è il programma che si deve adattare alla risoluzione , ho gia fatto una modifica che dovrebbe andare .. con la prossima versione il problema si dovrebbe risolvere ciao
 
Ciao Luigi. Non avendo un software appropriato nella ricerca degli
estratti determinati più ritardati, potresti creare una piramide anche per tale gioco come hai già fatto con gli estratti
singoli da aggiungere all'interno di spaziometria?
Grazie miki
 
quote:Originally posted by LuigiB

no no .. è il programma che si deve adattare alla risoluzione , ho gia fatto una modifica che dovrebbe andare .. con la prossima versione il problema si dovrebbe risolvere ciao
Clicca per espandere...

Eh già,se non raggiungi la perfezione non ti arrendi ?!!?? :D:D
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto