Se non hai ancora deciso il da farsi, devi specificare che processore hai e quanto hai di memoria ram.
Il windows 10 è una palla pesante ed ha bisogna dei almeno 2 Giga di ram per applicativi e servizi quindi devi avere almeno 4Giga di Ram per evitare che sia lento. Esso oltre a condizionarti la vita per i vari aggiormenti continui, implica anche controlli sui programmi che utilizzi con verifiche di Genuinità.
Il windows 7 va sufficentemente bene e non ha bisogno di eccesiva memoria.
Salve a tutti,
volevo chiedervi una cosa, ho visto che cliccando su metodi sommativi il programma calcola degli ambi e dei terni sommando ad alcuni numeri estratti (es. terzo estratto di Bari) dei numeri a caso e infine fa vedere tutti gli esiti. Ora vi chiedo ma c'è qualche modo per cui il programma potrebbe sommare soltanto i numeri estratti es. 1 di Bari + 3 di Roma e non aggiungere numeri a caso ?
Grazie in anticipo
volevo chiedervi una cosa, ho visto che cliccando su metodi sommativi il programma calcola degli ambi e dei terni sommando ad alcuni numeri estratti (es. terzo estratto di Bari) dei numeri a caso e infine fa vedere tutti gli esiti. Ora vi chiedo ma c'è qualche modo per cui il programma potrebbe sommare soltanto i numeri estratti es. 1 di Bari + 3 di Roma e non aggiungere numeri a caso ?
Grazie in anticipo
non lo fa,
per fare quanto hai scritto, devi creare/usare gli script
bubù
Advanced Member >PLATINUM PLUS<
Grazie joe , prima di aggiornare manualmente o da altre fonti, volevo capire se è un problema mio aggiornare da "Aggiornamenti archivi via web" o se devo solo aspettare che qualcuno finisce di sistemare qualcosa .Attualmente ...
Mancano i dati in alcuni siti.
Sono presenti quelli del televideo.
👋 Buona Giornata
silop2005
Advanced Member >PLATINUM<
ATTENZIONE
COMUNICAZIONE A TUTTI GLI AMICI CHE UTILIZZANO
Aggiornamento archivi via web
Dallo spazio/web di Silop
NON POSSONO UTILIZZARE TALE FUNZIONE
Perché da ieri il mio
pc/portatile non si accende più, pertanto consiglio a TUTTI di fare gli aggiornamenti degli archivi (lotto e superenalotto) o manualmente o tramite script.
Mi dispiace per l'interruzione.
Sto scrivendo dal mio cellulare.
A presto
Silop
COMUNICAZIONE A TUTTI GLI AMICI CHE UTILIZZANO
Aggiornamento archivi via web
Dallo spazio/web di Silop
NON POSSONO UTILIZZARE TALE FUNZIONE
Perché da ieri il mio
pc/portatile non si accende più, pertanto consiglio a TUTTI di fare gli aggiornamenti degli archivi (lotto e superenalotto) o manualmente o tramite script.
Mi dispiace per l'interruzione.
Sto scrivendo dal mio cellulare.
A presto
Silop
bubù
Advanced Member >PLATINUM PLUS<
Grazie silop2005, mi dispiace per il pc, è capitato la stessa cosa un paio di mesi fa, mi hanno detto che è la scheda madre che è andata, per fortuna ho un vecchio pc fisso, quello con cui adesso sto scrivendo, che ogni tanto con le mie forze cerco di tenerlo in vita e così mi sono salvato. Perdonami se ti ho costretto a scrivere, volevo essere sicuro prima di stravolgere l'archivio con altro aggiornamento automatico visto che dallo stop durato alcuni mesi la numerazione delle estrazioni sono diverse . Grazie e in bocca al lupo per il pc 👋
Vincenzo74
Junior Member
mi associo a Sergio581 non si aggiorna ultima estrazione utile 26/06/2021
joe
Advanced Member >PLATINUM PLUS<
Provate con questo "mio" script.
Utilizza l'archivio messo a disposizione da GAM
è praticamente identico a quello di Silop, che come come ha scritto,
ha temporaneamente sospeso l'aggiornamento, per problemi al computer.
Utilizza l'archivio messo a disposizione da GAM
è praticamente identico a quello di Silop, che come come ha scritto,
ha temporaneamente sospeso l'aggiornamento, per problemi al computer.
Codice:
Option Explicit
Sub Main
'Script By Joe & LuigiB
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r,e
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
Dim Ia,N,sVV,x
Dim CfrData
sLink = "http://www.lottogam.it/ArchivioTelevideo1945test.txt"
b = False : N = False
nSalvate = 0
sFileBd = GetDirectoryAppData & "BaseDati.dat"
sFileLoc = GetDirectoryAppData & "temp\"
If CreaDirectory(sFileLoc) Then
sFileLoc = sFileLoc & "Estrazioni.txt"
If DownloadFromWeb(sLink,sFileLoc) Then
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
Ia = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
For k = 0 To UBound(aRighe) 'To 0 Step - 1
ReDim aV(0)
Call SplitByChar(aRighe(k),"-",aV)
If Len(aRighe(k)) = 120 Then
If UBound(aV) = 2 Then
sDataEstr = Replace(Left(aRighe(k),10),"-","/")
sVV = Right(aRighe(k),110)
If b Then
If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True
If Left(sDataEstr,4) <> Left(sDataLastEstr,4) Then
Ia = Ia + 1
nNumEstr =(Ia)
'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
If nNumEstr > 0 And IsDate(sDataEstr) Then
ReDim aEstr(11,5)
r = 1 : e = 0
For x = 1 To 110 Step 2
e = e + 1
'Scrivi Mid(sVV,x,2) & " ",0,0
aEstr(r,e) = Mid(sVV,x,2)
If e = 5 Then r = r + 1 : e = 0 ': Scrivi
Next
'ScriviMatrice(aEstr)
If CfrData <> Left(sDataEstr,5) Then
If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
CfrData = Left(sDataEstr,5)
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
Else
ColoreTesto 2
Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
ColoreTesto 0
End If
End If
End If
End If
If sDataEstr = sDataLastEstr Then b = True
End If
End If
Next
If nSalvate > 0 Then AllineaArchivi
Else
MsgBox "Errore download verificare il link con il browser"
End If
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("")
Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
Call Scrivi("")
Call Scrivi("Utilizzato archivio del sito " & Left(sLink,23))
Call Scrivi("")
'For k = 0 To UBound(aRighe)
'Call Scrivi(aRighe(k))
'Next
End If
End Sub
Vincenzo74
Junior Member
joe buongiorno e grazie volevo approfittare per chiederti se potresti darmi una mano per uno script. grazie ancora
bubù
Advanced Member >PLATINUM PLUS<
scusa Joe, ma cosa fa aggiorna in automatico l'archivio di Spaziometria o ??????Provate con questo "mio" script.
Utilizza l'archivio messo a disposizione da GAM
è praticamente identico a quello di Silop, che come come ha scritto,
ha temporaneamente sospeso l'aggiornamento, per problemi al computer.
Codice:Option Explicit Sub Main 'Script By Joe & LuigiB Dim sFileLoc Dim nEstrTot,sDataLastEstr,k,r,e Dim sDataEstr,nNumEstr,nSalvate Dim b Dim sFileBd Dim sLink Dim Ia,N,sVV,x Dim CfrData sLink = "http://www.lottogam.it/ArchivioTelevideo1945test.txt" b = False : N = False nSalvate = 0 sFileBd = GetDirectoryAppData & "BaseDati.dat" sFileLoc = GetDirectoryAppData & "temp\" If CreaDirectory(sFileLoc) Then sFileLoc = sFileLoc & "Estrazioni.txt" If DownloadFromWeb(sLink,sFileLoc) Then nEstrTot = EstrazioniArchivio sDataLastEstr = DataEstrazione(nEstrTot,,,"/") Ia = IndiceAnnuale(nEstrTot) ReDim aRighe(0) Call LeggiRigheFileDiTesto(sFileLoc,aRighe) For k = 0 To UBound(aRighe) 'To 0 Step - 1 ReDim aV(0) Call SplitByChar(aRighe(k),"-",aV) If Len(aRighe(k)) = 120 Then If UBound(aV) = 2 Then sDataEstr = Replace(Left(aRighe(k),10),"-","/") sVV = Right(aRighe(k),110) If b Then If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True If Left(sDataEstr,4) <> Left(sDataLastEstr,4) Then Ia = Ia + 1 nNumEstr =(Ia) 'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0 'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0 'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0 If nNumEstr > 0 And IsDate(sDataEstr) Then ReDim aEstr(11,5) r = 1 : e = 0 For x = 1 To 110 Step 2 e = e + 1 'Scrivi Mid(sVV,x,2) & " ",0,0 aEstr(r,e) = Mid(sVV,x,2) If e = 5 Then r = r + 1 : e = 0 ': Scrivi Next 'ScriviMatrice(aEstr) If CfrData <> Left(sDataEstr,5) Then If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then CfrData = Left(sDataEstr,5) nSalvate = nSalvate + 1 Call Messaggio(nSalvate) End If Else ColoreTesto 2 Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True ColoreTesto 0 End If End If End If End If If sDataEstr = sDataLastEstr Then b = True End If End If Next If nSalvate > 0 Then AllineaArchivi Else MsgBox "Errore download verificare il link con il browser" End If Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni") Call Scrivi("") Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd)) Call Scrivi("") Call Scrivi("Utilizzato archivio del sito " & Left(sLink,23)) Call Scrivi("") 'For k = 0 To UBound(aRighe) 'Call Scrivi(aRighe(k)) 'Next End If End Sub
joe
Advanced Member >PLATINUM PLUS<
AGGIORNA L' ARCHIVIO LOTTO DI SPAZIOMETRIA,
e gli archivi derivati (L1,L2,Ecc)
Ho visto la tua richiesta di uno script per le somme degli estratti.
Ne sono già stati fatti tantissimi compreso uno molto recente che fa la stessa cosa che hai chiesto tu.
Basta cambiare ruote e posizioni.
Per me è una noia mortale fare sempre le stesse cose, specie quando si sono dimostrate inutili.
Essendo però molto semplice sommare 2 estratti, se è questo quanto chiedi, e se posso,
vacanze permettendo, vedrò se riesco a farlo.
Fammi sapere.
ppaaoolloo
Super Member >PLATINUM<
ciao joe
con lo script ha scaricato dei dati
ma non sono esatti
con lo script ha scaricato dei dati
ma non sono esatti
joe
Advanced Member >PLATINUM PLUS<
Può essere che tu abbia ragione.
L'archivio sul sito di Gam se ricordo bene si aggiorna in automatico, (con un programma php)
scaricando i dati da Televideo appena questi sono disponibili (cioè cambiano).
Però negli ultimi anni e nel periodo estivo sono successi cambiamenti e pasticci vari.
Dunque gli errori sono sempre possibili anche se indesiderabili.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 20 aprile 2024Bari0862228212Cagliari8644193172Firenze3870313326Genova8471655575Milano6132481524Napoli2455491237Palermo8714521843Roma0188165063Torino1570526255Venezia1583491844Nazionale1022687806Estrazione Simbolotto
Genova
2731153204
