Spaziometria e Superenalotto

[pico2005]

Ancora non è possibile aggiornare Spaziometria.

Luigi scusami ma non possiamo rendere il programma anche un pochino indipendente?

Ti chiedo se è possibile, al pari delle estrazioni del lotto, inserire "Senza l'artificio di introduzione diretta nel file di archivio" le estrazioni del Superenalotto?

Questo al fine di dare longevità al programma anche cambiando le sorgenti dei dati.

Ti ringrazio dell'attenzione che vorrai accordarmi.

 

[LuigiB]

attualmente con questo script si possono inserire a mano le combinazioni

Option Explicit
Sub Main
	Dim sFile
	Dim sNumeri
	Dim sDataLast
	Dim sData
	Dim sNumEst
	sDataLast = Replace(DataEstrazioneSE(EstrazioniArchivioSE),".","/")
	
	If WeekDay(sDataLast) = 3 Then ' martedi
		sData = DateAdd("d",2,sDataLast)
	ElseIf WeekDay(sDataLast) = 5 Then ' giovedi
		sData = DateAdd("d",2,sDataLast)
	ElseIf WeekDay(sDataLast) = 7 Then 'sabato
		sData = DateAdd("d",3,sDataLast)
	End If
	
	If Year(sData) > Year(sDataLast) Then
		sNumEst = 1
	Else
		sNumEst = IndiceAnnualeSE(EstrazioniArchivioSE) + 1
	End If
	
	
	sFile = GetDirectoryAppData & "BaseDatiSuperEna.Dat"
	sData = InputBox("Inserire la data per l'estrazione che si vuole aggiungere (la data proposta è calcolata in automatico)","Data estrazione",sData)
	sNumEst = InputBox("Inserire il numero annuale dell'estrazione (il numero proposto è calcolato in automatico)","Numero estrazione",sNumEst)
	sNumeri = InputBox("inserire i 6 numeri estratti , il jolly e il superstar separando i numeri con la virgola","Inserisci i numeri","1,2,3,4,5,6,7,8")
	ReDim aNumeri(0)
	Call SplitByChar("0," & sNumeri,",",aNumeri)
	If UBound(aNumeri) = 8 Then
		If SalvaEstrazioneSE(aNumeri,sData,sNumEst,sFile) Then
			Call Scrivi("E' stata aggiunta la seguente estrazione")
			Call Scrivi(IndiceAnnualeSE(EstrazioniArchivioSE) & " - " & DataEstrazioneSE(EstrazioniArchivioSE))
			Call ScriviEstrazioneSE(EstrazioniArchivioSE)
		
		End If
	End If
End Sub

 

[pico2005]

GRAZIE

 

[LuigiB]

dalla prossima versione ci sara una funzione apposta per inserire i numeri manualmente, ciao

 

[pico2005]

Ottimo " Un piccolo passo per l'uomo un Grande passo per la comunità " ......degli appassionati del gioco del lotto e Super Enalotto.

 

[keeper]

ciao luigib ma nella sezione sistemi si potrebbe introdurre i sitemi a cruciverba?

 

[LuigiB]

ciao luigib ma nella sezione sistemi si potrebbe introdurre i sitemi a cruciverba?

ciao , no