Novità

CIAO MIKE O SLVO50

Ciao Adispo,io di tempo ne ho ho poco,e purtroppo vedo che anche chi si occupa di mettere a disposizione script , sono assenti.

Metti pure la tua ricerca chissà che possa stimolare qualcuno.

Chiaro tutto dipende sempre dagli stimoli che si hanno e dal tempo che ognuno di noi ha a disposizione per questa passione comune.

Ciao
 
Mike58;n2098564 ha scritto:
Ciao Adispo,io di tempo ne ho ho poco,e purtroppo vedo che anche chi si occupa di mettere a disposizione script , sono assenti.

Metti pure la tua ricerca chissà che possa stimolare qualcuno.

Chiaro tutto dipende sempre dagli stimoli che si hanno e dal tempo che ognuno di noi ha a disposizione per questa passione comune.

Ciao

Idem
 
SCUSATE RAGAZZI, SICURAMENTE SARA' UNO SCRIPT FACILE....VEDIAMO SE MI SO' SPIEGARE;
PRIMA DI TUTTO MI VADO A CREARE UN FILE DI TESTO DOVE INSERISCO LE COLONNE 10ELOTTO IN ORDINE DI USCITA, E TRAMITE UNO SCRIPT..CHE SICURAMENTE SARETE CAPACI DI CREARE RICERCARE I NUMERI CHE ANCORA NON SONO USCITI NELLA PRIMA COLONNA (O POSIZIONE), NELLA SECONDA (O POSIZIONE) ECC......SEMPRE IN BASE AL FILE CHE VADO A CARICARE E POI RIPILOGARE PER POSIZIONE I NUMERI CHE RITARDANO O CHE NON SONO USCITI.
COME VEDETE DALFILE LA PRIMA COLONNA E 21-79-17--37 ECC, SECONDA 41-17-77-45 ECC E COSI VIA
INVIO UN FILE:
 

Allegati

  • photo16765.jpg
    photo16765.jpg
    62,9 KB · Visite: 8
Ultima modifica:
SCUSATE RAGAZZI, SICURAMENTE SARA' UNO SCRIPT FACILE....VEDIAMO SE MI SO' SPIEGARE;
PRIMA DI TUTTO MI VADO A CREARE UN FILE DI TESTO DOVE INSERISCO LE COLONNE 10ELOTTO IN ORDINE DI USCITA, E TRAMITE UNO SCRIPT..CHE SICURAMENTE SARETE CAPACI DI CREARE RICERCARE I NUMERI CHE ANCORA NON SONO USCITI NELLA PRIMA COLONNA (O POSIZIONE), NELLA SECONDA (O POSIZIONE) ECC......SEMPRE IN BASE AL FILE CHE VADO A CARICARE E POI RIPILOGARE PER POSIZIONE I NUMERI CHE RITARDANO O CHE NON SONO USCITI.
COME VEDETE DALFILE LA PRIMA COLONNA E 21-79-17--37 ECC, SECONDA 41-17-77-45 ECC E COSI VIA
INVIO UN FILE:
fetch

1 Photo
Last edited by adispo2000; 30-01-2018, 16:08.
 
Ciao Adispo, per ora non saprei come impostare il tutto, sicuramente da quello che capisco è fattibile, però dovresti fare un file di testo contenente i seguenti dati necessari per la lettura dei vari codici FT (File Testo)

tipo
1 = estrazione progressiva
2 = data separata da barra
3 = le colonne separate da un carattere "," "." "-"

esempio 1,10/01/2018,1,2,3,4,5,6,7,8,9,10 etc.
2,
17/01/2018,21,34,55,66,77, etch

con questa situazione vedo cosa è possibile fare.

Ciao
 
buonasera a chi mi legge stocercando un programma chiamato ciclometria 2.0.1 di antonio fiacco ormai non più in rete ce qualcuno che mi puo dare qualche informazione in meritp grazie a chi mi riosponde
 
Seve come file di testo e con le caratteristiche che ho detto sopra, anche con poche righe (almeno un campione valido di 20 estraz per fare verifiche).

Anche se per ora non saprei l'impostazione da dargli ma solo facendo alcune prove possiamo vedere se raggiungiamo lo scopo.

Ciao
 
Ciao Mike..invio file che e' un po diverso da quello che tu mi hai richiesto...vedi se va' bene

23/2018.(01:55).31.gen.53.67.22.23.32.52.73.55.05.48.84.82.85.79.14.59.30.03.21.65
22/2018.(01:50).31.gen.15.64.36.38.90.02.32.04.18.03.57.34.30.09.82.01.37.06.61.68
21/2018.(01:45).31.gen.32.01.36.23.35.51.12.44.30.78.65.70.33.61.54.60.69.08.57.09
20/2018.(01:40).31.gen.01.76.34.86.74.48.42.82.35.71.66.70.90.38.89.72.45.10.44.46
19/2018.(01:35).31.gen.13.30.46.81.64.51.10.79.65.08.23.86.09.26.25.87.39.04.67.45
18/2018.(01:30).31.gen.64.03.84.87.59.37.20.18.08.09.01.06.45.50.53.33.46.02.38.14
17/2018.(01:25).31.gen.28.31.18.25.59.87.10.84.46.35.48.17.76.16.79.37.03.71.49.64
16/2018.(01:20).31.gen.74.43.08.41.77.71.09.22.19.65.16.46.44.32.23.29.82.40.84.21
15/2018.(01:15).31.gen.44.86.20.78.77.69.60.04.50.76.48.79.07.17.90.81.57.09.39.28
14/2018.(01:10).31.gen.29.06.55.03.54.05.67.27.13.33.64.07.78.08.68.46.85.21.58.25
13/2018.(01:05).31.gen.14.89.31.73.43.05.76.25.87.18.50.11.22.06.71.36.12.26.70.04
12/2018.(01:00).31.gen.08.71.37.80.32.49.58.60.31.59.74.23.77.72.03.35.54.64.12.43
11/2018.(00:55).31.gen.68.76.82.16.33.39.62.15.69.63.24.55.17.07.90.11.14.46.29.25
10/2018.(00:50).31.gen.65.53.47.48.56.01.14.37.42.63.35.41.28.81.76.74.60.13.15.84
09/2018.(00:45).31.gen.89.27.46.58.21.12.37.72.48.42.87.25.11.02.32.18.61.55.70.52
08/2018.(00:40).31.gen.40.65.08.37.19.01.25.36.31.34.46.89.42.21.74.52.54.81.41.30
07/2018.(00:35).31.gen.03.88.09.57.83.20.10.47.43.07.54.69.64.41.78.70.60.31.45.01
06/2018.(00:30).31.gen.77.88.41.01.89.70.10.68.46.35.04.38.06.32.42.25.40.87.73.19
05/2018.(00:25).31.gen.09.70.42.73.14.74.88.59.52.25.75.71.19.86.58.34.48.51.38.80
04/2018.(00:20).31.gen.72.24.31.20.06.11.16.67.79.75.33.09.32.53.29.52.69.81.10.25
03/2018.(00:15).31.gen.64.08.87.04.83.45.21.75.60.46.53.47.26.65.49.50.38.71.23.55
02/2018.(00:10).31.gen.52.79.25.57.69.86.71.54.51.10.43.45.38.16.34.76.05.22.77.29
01/2018.(00:05).31.gen.16.29.83.27.06.30.75.78.50.39.15.04.79.48.53.73.65.63.21.64
 
Ciao Adispo, chiaro che così non andava bene, l'ho modificato ad oc con il formato necessario per la lettura dei codici FT.

ti allego il file di testo modificato

Poi invece dei numeri non usciti per posizione ti metto i numeri usciti cosi da valutare la scrittura script, poi se proprio ti interessano vediamo di immetterli ma la visione in tabella risulterebbe troppo lunga.

Intanto vediamo se siamo sulla strada giusta per continuare.

Codice:
Sub Main
 Dim sFile
 Ini = 1'EstrazioniArchivio - 72
 fin = EstrazioniArchivioFT - 1
 fine = EstrazioniArchivioFT
 sFile = ScegliFile("C:\Mike58\Desktop\.txt")

 Call ApriBaseDatiFT(sFile,20,".",90)
 SetColorSezione(6)
 Scrivi "F R E Q U E N T I in Posizione 5Min",1,,,1,4,,1
 EndColorSezione
 'Scrivi "S U P E R . . . .  F R E Q U E N T I ",1,,,1,4,,1
 t = Array(t,"Ruota","Numeri","Q.tà","Verifica","Esito")
 Call InitTabella(t)
 'For r = 1 To 12
  'If r = 11 Then r = 12
  'ru(1) = r
  For p = 1 To 20
  For n = 1 To 90
   'For p = 1 To 5
   'a = Estratto(es,r,p)

   ReDim pos(p)
   pos(p) = True
   b = EstrattoFrequenzaFT(n,Ini,fin,pos)
   c = EstrattoRitardoFT(n,Ini,fin,pos)
   d = EstrattoStoricoFT(n,Ini,fin,pos)
   If b > 0 Then
    k = k + 1
    ReDim Preserve aNum(k)
    aNum(k) = n
    ReDim Preserve fre(k)
    fre(k) = b
    'ReDim Preserve rit(k)
    'rit(k) = c
    riga = riga & Format2(c) & " "
    rigast = rigast & Format2(d) & " "
   End If
   Next
  'Next
  Call VerificaEsitoFT(aNum,EstrazioniArchivioFT,1,1,esito,,es1)
  v = Array(v,"Pos "& p,StringaNumeri(aNum,,1),k,es1,esito)
  vv = Array(vv,"Freq",StringaNumeri(fre,,1),"-","--","--")

  vvv = Array(vvv,"Rit",riga,"-","--","--")
  vvs = Array(vvs,"Sto",rigast,"-","--","--")
  vuoto = Array(vuoto,"","","","","","")
  Call AddRigaTabella(v)
  Call AddRigaTabella(vv,,,,1)
  Call AddRigaTabella(vvv,,,,2)
  Call AddRigaTabella(vvs,,,,7)
  Call AddRigaTabella(vuoto,3,,1)
  'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(aNum,,1) & vbTab & k
  k = 0
  riga = ""
  rigast = ""
      Next
 CreaTabella
End Sub
 

Allegati

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto