cerco programma 10 e lotto o programmatore che e in grado di crearlo

[mar]

salve a tutti, qualcuno di voi sa se esiste un programma in rete in grado di sommare un estrazione singola con il fuori 90 del 10 e lotto serale e cinque min , o qualche programmatore che sia in grado di crearlo. grazie

 

[Membro cancellato 16574]

Buongiorno ,
Se le puo' servire le postiamo il seguente listato ,
Da usare con il programma Spaziometria di LuigiB .

Option Explicit
'cerco programma 10 e lotto o programmatore che e In grado di crearlo di mar
'http://forum.lottoced.com/forum/lottoced/metodi/2057527-cerco-programma-10-e-lotto-o-programmatore-che-e-in-grado-di-crearlo
Sub Main()
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim co
co = 00
Dim esc
esc = CInt(InputBox("Quante Estrazioni vuoi Visualizzare "," ESTRAZIONI VISUALIZZATE ",20))
Dim Ini,Fin,Es
Ini = EstrazioneFinDL - esc + 01
Fin = EstrazioneFinDL
For Es = Ini To Fin
co = co + 01
Call Scrivi(Format2(co) & " - " & DataEstrazioneDL(Es) & " - " & StringaEstrattiDL(Es) & " - " & FormatSpace(SommaEstrattiDL(Es),05) & " - " & Fuori90(SommaEstrattiDL(Es)),01)
Next
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function

Controllare Sempre .
Salvo Errori ed Omissis .