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.
quote:Originally posted by rubino
okey scaricato da megaupload
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
Option Explicit
Sub Main
Dim sTest
sTest = "campo1 campo2" ' in questa riga c'è un tab tra campo1 e campo2
ReDim aValori (0)
Call SplitByChar(sTest,vbTab ,aValori) ' il carattere tab è identificato dallla costante predefinita vbTab
Call Scrivi (aValori(0))
Call Scrivi (aValori(1))
End SubSub Main()
''''' ----------------------------------------------------------------------------------------------------------------
''''' apertura Archivio NumbersGBGold.txt
Dim namefile
Dim n(6)
Dim sFile
ReDim aRighe(0)
namefile = "C:\Temp\NumbersGBGold.txt"
sFile = namefile
LeggiRigheFileDiTesto sFile,aRighe
'ricerca last record
ultimo = UBound(aRighe)
ReDim aV(0)
Call SplitByChar(aRighe(ultimo),vbTab,aV) ' scompongo la riga ottenendo i valori separati dalle virgole in un array
n(1) = aV(2)
n(2) = aV(3)
n(3) = aV(4)
n(4) = aV(5)
n(5) = aV(6)
n(6) = aV(7)
snconc = aV(2)
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
Dim asom(6)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,ultimo)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("Somma nr.Consecutivi 2,3",,2)
lis = InputBox("ambata=1, ambo=2, Terno=3",,1)
co = InputBox("verifica riscontri in colpi n...",,9)
fin = storia
Ini = storia - z
Iniz = Ini
Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il LOTTO LIVEGOLD "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Verifica risultati n.colpi " & co
Scrivi "Conc.n. 01 02 03 04 05 06 ........somme......... 01 02 03 04 05 06 "
Scrivi "______________________________________________________________________________________________________________________________________________________"
riga = ""
''''leggo archivio
For ini = ini + 1 To fin
For t = 1 To 6
asom(t) = ""
Next
ReDim aV(0)
Call SplitByChar(aRighe(ini),vbTab,aV) ' scompongo la riga ottenendo i valori separati dalle virgole in un array
n(1) = aV(2)
n(2) = aV(3)
n(3) = aV(4)
n(4) = aV(5)
n(5) = aV(6)
n(6) = aV(7)
snconc = aV(1)
riga = ""
riga = riga & snconc & " " & Format2(n(1)) & " " & Format2(n(2)) & " " & Format2(n(3)) & " " & Format2(n(4)) & " " & Format2(n(5)) & " " & Format2(n(6))
If v = 2 Then
For b = 1 To 5
c = Int(n(b)) + Int(n(b + 1))
If c > 36 Then
c = c - 36
End If
asom(b) = CLng(c)
Next
lim = 5
End If
If v = 3 Then
For b = 1 To 4
c = Int(n(b)) + Int(n(b + 1)) + Int(n(b + 2))
Do While c > 36
If c > 36 Then
c = c - 36
End If
Loop
asom(b) = asom(b) & CLng(c)
Next
lim = 4
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0)
Scrivi riga & "....................... " & rsomme
''''riepilogo combinazioni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(n(r))
t2 = Format2(n(r + 1))
If v = 3 Then
t3 = Format2(n(r + 2))
End If
u1 = Format2(n(r2))
u2 = Format2(n(r2 + 1))
If v = 3 Then
u3 = Format2(n(r2 + 2))
End If
'''elimina numeri doppi
If u1 = t1 Or u1 = t2 Or u1 = t3 Then u1 = "0"
If u2 = t1 Or u2 = t2 Or u2 = t3 Then u2 = "0"
If u3 = t1 Or u3 = t2 Or u3 = t3 Then u3 = "0"
ColoreTesto(1)
ver = ini
Scrivi snconc & "/" & ver & "------ somma.." & Format2(asom(r)) & " ....1(comb.).." & t1 & " " & t2 & " " & t3 & "
Sub Main()
''''' ----------------------------------------------------------------------------------------------------------------
''''' apertura Archivio NumbersGBGold.txt
Dim namefile
Dim n(6)
Dim sFile
ReDim aRighe(0)
namefile = "C:\Temp\NumbersGBGold.txt"
sFile = namefile
LeggiRigheFileDiTesto sFile,aRighe
'ricerca last record
ultimo = UBound(aRighe)
ReDim aV(0)
Call SplitByChar(aRighe(ultimo),vbTab,aV) ' scompongo la riga ottenendo i valori separati dalle virgole in un array
n(1) = aV(2)
n(2) = aV(3)
n(3) = aV(4)
n(4) = aV(5)
n(5) = aV(6)
n(6) = aV(7)
snconc = aV(2)
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
Dim asom(6)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,ultimo)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("Somma nr.Consecutivi 2,3",,2)
lis = InputBox("ambata=1, ambo=2, Terno=3",,1)
co = InputBox("verifica riscontri in colpi n...",,9)
fin = storia
Ini = storia - z
Iniz = Ini
Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il LOTTO LIVEGOLD "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Verifica risultati n.colpi " & co
Scrivi "Conc.n. 01 02 03 04 05 06 ........somme......... 01 02 03 04 05 06 "
Scrivi "______________________________________________________________________________________________________________________________________________________"
riga = ""
''''leggo archivio
For ini = ini + 1 To fin
For t = 1 To 6
asom(t) = ""
Next
ReDim aV(0)
Call SplitByChar(aRighe(ini),vbTab,aV) ' scompongo la riga ottenendo i valori separati dalle virgole in un array
n(1) = aV(2)
n(2) = aV(3)
n(3) = aV(4)
n(4) = aV(5)
n(5) = aV(6)
n(6) = aV(7)
snconc = aV(1)
riga = ""
riga = riga & snconc & " " & Format2(n(1)) & " " & Format2(n(2)) & " " & Format2(n(3)) & " " & Format2(n(4)) & " " & Format2(n(5)) & " " & Format2(n(6))
If v = 2 Then
For b = 1 To 5
c = Int(n(b)) + Int(n(b + 1))
If c > 36 Then
c = c - 36
End If
asom(b) = CLng(c)
Next
lim = 5
End If
If v = 3 Then
For b = 1 To 4
c = Int(n(b)) + Int(n(b + 1)) + Int(n(b + 2))
Do While c > 36
If c > 36 Then
c = c - 36
End If
Loop
asom(b) = asom(b) & CLng(c)
Next
lim = 4
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0)
Scrivi riga & "....................... " & rsomme
''''riepilogo combinazioni con somme uguali
For r = 1 To lim - 1
For r2 = r + 1 To lim
If asom(r) = asom(r2) Then
t1 = Format2(n(r))
t2 = Format2(n(r + 1))
If v = 3 Then
t3 = Format2(n(r + 2))
End If
u1 = Format2(n(r2))
u2 = Format2(n(r2 + 1))
If v = 3 Then
u3 = Format2(n(r2 + 2))
End If
'''elimina numeri doppi
If u1 = t1 Or u1 = t2 Or u1 = t3 Then u1 = "0"
If u2 = t1 Or u2 = t2 Or u2 = t3 Then u2 = "0"
If u3 = t1 Or u3 = t2 Or u3 = t3 Then u3 = "0"
ColoreTesto(1)
ver = ini
Scrivi snconc & "/" & ver & "------ somma.." & Format2(asom(r)) & " ....1(comb.).." & t1 & " " & t2 & " " & t3 & " ....2(comb.).." & u1 & " " & u2 & " " & u3
Totcomb = Totcomb + 1
ReDim tnm(3)
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
ReDim tns(3)
tns(1) = u1
tns(2) = u2
tns(3) = u3
'''riscontri
punti = 0
m = ver
For m = 1 To co
ver = ver + 1
If ver <= ultimo Thenquote:Originally posted by rubino
cebino
per non trafficare tutte le volte per preparare un file LottoLive.txt
dice di averne uno che scarica aggiornato e che contiene però a sx
la data e l'ora in più del tracciato precedente.
quindi ho dovuto adattare e fare uno script che punta a questo nuovo file contenente queste ulteriori informazioni.
il file appunto si chiara NumbersGBGold.txt
ha messo un esempio su megaupload
prova vedere qualche risposta sopra.
comunque sia lo script che puntava al file lottolive.txt è sempre valido.
dipende da voi come fare a scaricare l'aggiornamento di questo gioco.
comunque ora devo uscire.
ci risentiamo.
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
quote:Originally posted by rubino
per Luigi
mi potresti dire dov'è l'errore su questa istruzione, avendo file preparato in questo modo:
961812;20/03/2011;28;16;14;34;36;21
961813;20/03/2011;30;02;33;10;24;29
l'istruzione l'avrei preparata così:
If ApriBaseDatiFT(sFileoutput,8,";",6) Then</u>
mi ritorna un errore:
il testo non contiene colonne uniformi etc.......
</u>
oppure cambiando alcuni dati nell'istruzione sopra
6-overflow</u>
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
ragazzi una volta lanciato il listato ,mi dice indice non inclusoquote:Originally posted by cebino
quote:Originally posted by rubino
cebino
per non trafficare tutte le volte per preparare un file LottoLive.txt
dice di averne uno che scarica aggiornato e che contiene però a sx
la data e l'ora in più del tracciato precedente.
quindi ho dovuto adattare e fare uno script che punta a questo nuovo file contenente queste ulteriori informazioni.
il file appunto si chiara NumbersGBGold.txt
ha messo un esempio su megaupload
prova vedere qualche risposta sopra.
comunque sia lo script che puntava al file lottolive.txt è sempre valido.
dipende da voi come fare a scaricare l'aggiornamento di questo gioco.
comunque ora devo uscire.
ci risentiamo.
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
Rubino tutto ok
Solo qualche regolazione
1° si dovrebbe fermare alla prima vincita
2° statistica dei colpi come hai fatto per il 10elotto
3° conteggiare i negativi
4° si puo avere un imputbox dove posso sceglire non solo le somme consecutive ma anche tutte le somme che generano i 6 numeri
ciao
quote:Originally posted by oruam
ragazzi una volta lanciato il listato ,mi dice indice non inclusoquote:Originally posted by cebino
quote:Originally posted by rubino
cebino
per non trafficare tutte le volte per preparare un file LottoLive.txt
dice di averne uno che scarica aggiornato e che contiene però a sx
la data e l'ora in più del tracciato precedente.
quindi ho dovuto adattare e fare uno script che punta a questo nuovo file contenente queste ulteriori informazioni.
il file appunto si chiara NumbersGBGold.txt
ha messo un esempio su megaupload
prova vedere qualche risposta sopra.
comunque sia lo script che puntava al file lottolive.txt è sempre valido.
dipende da voi come fare a scaricare l'aggiornamento di questo gioco.
comunque ora devo uscire.
ci risentiamo.
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
Rubino tutto ok
Solo qualche regolazione
1° si dovrebbe fermare alla prima vincita
2° statistica dei colpi come hai fatto per il 10elotto
3° conteggiare i negativi
4° si puo avere un imputbox dove posso sceglire non solo le somme consecutive ma anche tutte le somme che generano i 6 numeri
ciao
nell'intervallo number 2,ho sbagliato ad inserire la copia dell'archivio nella cartella temp o è qualcosa che mi sfugge?
