Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
C:\Documents and Settings\Administrator\Dati applicazioni\SpazioMetria
quote:Originally posted by LuigiB
ciao Vito , intanto scarica l'ultima versione del programam da link apposito , siamo alla 1.1.78 tu hai una versione preistorica.. poi se hai ancora problemi posta lo script e vediamo ..ciao !
" spazioscript "quote:Originally posted by spilloss
Salve a tutti. MI chiamo Sandra ed hjo scaricato il programma setup Spaziometria.
Quando cerco di decomprimere il file mi chiede la password.
Qualcuno può aiutarmi?
Grazie anticipatamente.
Sfortunata al gioco ed in Amore!!!
Sub Main()
tmp = InputBox("Quante estrazioni controllo?",,10)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
a1 = SommaEstratti(es,1)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(1),3) & " " & StringaEstratti(es,1) & " ---> " & Format2(a1)
Scrivi"***********************************************"
Next
End Sub
07.12.2010 Bar 51.83.60.59.90 ---> 343
***********************************************
09.12.2010 Bar 08.55.77.76.21 ---> 237
***********************************************
11.12.2010 Bar 12.69.47.04.06 ---> 138
***********************************************
14.12.2010 Bar 87.14.53.75.24 ---> 253
***********************************************
16.12.2010 Bar 79.11.76.81.05 ---> 252
***********************************************
18.12.2010 Bar 27.73.05.81.47 ---> 233
***********************************************
21.12.2010 Bar 64.45.67.62.58 ---> 296
***********************************************
23.12.2010 Bar 19.68.90.31.36 ---> 244
***********************************************
27.12.2010 Bar 51.79.20.86.69 ---> 305
***********************************************
28.12.2010 Bar 48.38.24.20.75 ---> 205
***********************************************
30.12.2010 Bar 35.26.48.52.06 ---> 167
***********************************************
07.12.2010 Bar 51.83.60.59.90 ---> 00
***********************************************
09.12.2010 Bar 08.55.77.76.21 ---> 00
***********************************************
11.12.2010 Bar 12.69.47.04.06 ---> 00
***********************************************
14.12.2010 Bar 87.14.53.75.24 ---> 00
***********************************************
16.12.2010 Bar 79.11.76.81.05 ---> 00
***********************************************
18.12.2010 Bar 27.73.05.81.47 ---> 00
***********************************************
21.12.2010 Bar 64.45.67.62.58 ---> 00
***********************************************
23.12.2010 Bar 19.68.90.31.36 ---> 00
***********************************************
27.12.2010 Bar 51.79.20.86.69 ---> 00
***********************************************
28.12.2010 Bar 48.38.24.20.75 ---> 00
***********************************************
30.12.2010 Bar 35.26.48.52.06 ---> 00
***********************************************
quote:Originally posted by LuigiB
per ESSELOTTO
Da qualche parte ho letto che non riuscivi a far funzionare il programam per l'errore numero 380 , ti rispondo qui perche non trovo piu il post.
Devi cancellare la directory (o rinominare se non vuoi perderne il contenuto)
Codice:C:\Documents and Settings\Administrator\Dati applicazioni\SpazioMetria
e poi rifare il setup dell'ultima versione disponibile.
Ciao !
GRAZIE PROBLEMA RISOLTO
ESSELOTTO
Sub Main
Dim sFile
Dim sRecord
ReDim aTitoli(2)
Dim k
Dim idEstr
' scrivo un file che leggero successivamente con le ultime 100 estrazioni di bari
sFile = GetDirectoryTemp & "Estrazioni.txt"
Call ScriviFileEstrazioni(sFile,1)
' da ora in poi tutte le funzioni da utilizzare sono quelle che terminano con FT
' che servono per lavorare su archivi di file di testo
If ApriBaseDatiFT(sFile,7,",") Then
ReDim aN(1)
aN (1) = 2
ReDim aPoste (1)
aPoste(1) =1
Call ImpostaGiocataFT( 1,aN ,aPoste,10,1)
Call GiocaFT(1)
End If
End Sub
Sub ScriviFileEstrazioni(sFile,ruota)
Dim k,e
Dim sRecord
Call EliminaFile(sFile)
For k = EstrazioniArchivio - 99 To EstrazioniArchivio
sRecord = IndiceAnnuale(k) & "," & DataEstrazione(k,,,"/") & ","
For e = 1 To 5
sRecord = sRecord & Format2(Estratto(k,ruota,e)) & ","
Next
sRecord = sRecord & Format2(Estratto(k,ruota+1,1)) & ","
sRecord = sRecord & Format2(Estratto(k,ruota+1,2)) & ","
Call ScriviFile(sFile,Left(sRecord,Len(sRecord) - 1))
Next
End Sub
Sub Main
Dim po(1),gg(3),nu(3)
Call ApriBaseDatiFT("C:\Programmi\SpazioMetria\Archivio LottoUK\archivio Lotto UK 49 Jolly.txt",7,";")
For es = EstrazioniArchivioFT - 150 To EstrazioniArchivioFT
co = 0
For p1 = 1 To 47
nu(1) = p1
nu(2) = p1 + 1
nu(3) = p1 + 2
ff1 = SerieFreqft(CInt(es),CInt(es),nu,1)
ff2 = SerieFreqft(CInt(es - 2),CInt(es - 1),nu,1)
ff3 = SerieFreqft(CInt(es - 3),CInt(es - 3),nu,1)
If ff1 = 1 And ff2 = 0 And ff3 = 1 Then
gg(1) = nu(1)
gg(2) = nu(2)
gg(3) = nu(3)
co = co + 1
End If
Next
If co = 1 Then
ImpostaGiocataFT 1,gg,po,1,1
GiocaFT(es)
End If
Next
ScriviResocontoFT
End Sub