Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
ciao mi potete fare un esempio di come utilizare quste function
Codice: 
If c.Init(sFile, 8, 1, 90) Then
Call EditEstrazione()
Call SalvaModifiche()
grazie
 
Tom per favore mi potresti postare un esempio di lettura di file di testo e scrittura sempre su txt?
In pratica leggo poi faccio un filtro e scrivo.
Ho un idea che vorrei sviluppare.
Un esempio easy silo lettura e scrittura.
Grazie. :)
 
i legend ha scritto:
Tom per favore mi potresti postare un esempio di lettura di file di testo e scrittura sempre su txt?
In pratica leggo poi faccio un filtro e scrivo.
Ho un idea che vorrei sviluppare.
Un esempio easy silo lettura e scrittura.
Grazie. :)
Clicca per espandere...

lettura

Codice: 
    Dim sfile As String
    Dim f As String
    Dim sbuf As String
    sfile = ".\solonumeri-52446-21g6-by90.txt"
       
                    f = FreeFile
                 
                    Open sfile For Input As f
                   
                    Do Until EOF(f)
                   
                    Line Input #f, sbuf
                   
                    Print sbuf
                                                     
                    Loop
                   
                    Close f

scrittura

Codice: 
Dim f As Integer
Dim sriga As String = "prova scrittura file"
f = FreeFile
Open ".\gruppipossibilidiruoteunite.txt" For Append As f
Print #f, sriga
Close f



ps: per vedere il print su form devi abilitare la proprietà autoredraw e complimenti per essere entrato per primo nello smess di luigi e rookie :)
 
Grazie Rookie:) , grazie Tom:)
Per i complimenti:)
Speriamo che sia ok.
È un ottimo esercizio ora si prosegue:)
Non vedo l ora di testare il nuovo giocattolo :)
Tom grazie per il codice.
Ho un file di 24.000.000 di quindicina da testare :)
 
Buongiorno, I-Legend
Come Vedi Ti Sei Migliorato ampliando il tuo sapere anche in questo progetto, Complimenti e sono contento anche per Luigi che ha trovato in alcuni di Voi un ottimo aiuto per continuare il progetto che sicuramente avrebbe potuto fare da solo , ma con il vostro appoggio è un altra cosa in fin dei conti era il suo obbiettivo fin dall'inizio. Complimenti anche a Rookie e Lotto_Tom75, ottimi anche Voi.
 
giomi ha scritto:
ciao mi potete fare un esempio di come utilizare quste function
Codice: 
If c.Init(sFile, 8, 1, 90) Then
Call EditEstrazione()
Call SalvaModifiche()
grazie
Clicca per espandere...
è difficile da spiegare qui in un post ma per vederl obasta che apri isorgenti del tempalter dello script , la procedura che dici viene richiamata nella funzione InizializzaScript
 
Ciao a tutti e complimenti della vostra bravura nel portare avanti un progetto così importante.
Chiedo, non essendo esperto di script: è possibile scaricare questo programma ? dove lo trovo ?
Grazie
 
i legend ha scritto:
Ho un file di 24.000.000 di quindicina da testare :)
Clicca per espandere...

:eek: ho letto bene 24 mln legend? 🙀
Se si pensi di riuscire ad analizzarlo con la tua nuova idea e risorse in pochi minuti? 😮
Se così fosse la trovo una notizia spettacolare e ti faccio già i complimenti al buio! 💪👋🤖🤩

ps: Se non sono troppo indiscreto che caratteristica hanno queste 15ine? Visto che con 90 elementi si generano ben 4.57956739644608E+16 formazioni di classe 15 penso che siano originate almeno da un gruppo ristretto doc rispetto i 90... giusto? Se ho ipotizzato correttamente... di che classe è questo tuo gruppo base? :unsure: Per curiosità ho cercato di capire la classe del gruppo base di sviluppo delle tue 15ine ipotizzandone uno sviluppo integrale.. e a 24 mln non arrivo in nessun modo..

x classe 15 : 17383860 formazioni x gruppo base di 27 elementi
x classe 15 : 37442160 formazioni x gruppo base di 28 elementi

in pratica il tuo 24 mln di formazioni starebbe tra la classe 27 e 28 del rispettivo gruppo base 👁️
quindi ne deduco.., forse comunque erroneamente, che si tratti di un gruppo di formazioni con qualche grado di presenza voluto e originato a sua volta dai 90 (con grado di presenza basso... o da un gruppo + ristretto con grado di presenza maggiore...).
 
Ultima modifica:
Tom non so se riesco ad elaborare. E in che tempi . Con spaziometria neanche si apriva.
Le lunghette sono formate da gruppi di consecutivi a girare.
Non è un sistema, volevo ottenere tante formazioni.
Non mi ricordo come ho fatto ma se trovo li script se non l ho cancellato te lo posto.
Oggi vedo se riesco a farlo.il mio pc doveva andare in pensione, ma con i tempi che corrono e cose vari non credo che la vedrà, è più facile che schiatti compiendo il suo dovere.🤣🤣🤣🤣🤣👍
 
i legend ha scritto:
Tom non so se riesco ad elaborare. E in che tempi . Con spaziometria neanche si apriva.
Le lunghette sono formate da gruppi di consecutivi a girare.
Non è un sistema, volevo ottenere tante formazioni.
Non mi ricordo come ho fatto ma se trovo li script se non l ho cancellato te lo posto.
Oggi vedo se riesco a farlo.il mio pc doveva andare in pensione, ma con i tempi che corrono e cose vari non credo che la vedrà, è più facile che schiatti compiendo il suo dovere.🤣🤣🤣🤣🤣👍
Clicca per espandere...

Ok quindi mi sembra di capire che sia una sorta di file txt per benchmark test e che non preveda nè grado di presenza determinato nè uno sviluppo con termine prefissato di righe giusto? Ottima idea comunque quella di formarlo con dei consecutivi in classe medio ampia a girare! 💪👋 ;)

La ricerca della classe del tuo gruppo base ipotetico me ne ha stuzzicata un'altra... ovvero il trovare quante formazioni di classe 15 si svilupperebbero in modo integrale da una classe abs molto ridotta (es. quella 22 di Cinzia, che saluto, x A su TTeNZ dalla es 7440)...

con 22 elementi si generano in modo integrale

x classe 1 : 22 formazioni
x classe 2 : 231 formazioni
x classe 3 : 1540 formazioni
x classe 4 : 7315 formazioni
x classe 5 : 26334 formazioni
x classe 6 : 74613 formazioni
x classe 7 : 170544 formazioni
x classe 8 : 319770 formazioni
x classe 9 : 497420 formazioni
x classe 10 : 646646 formazioni
x classe 11 : 705432 formazioni
x classe 12 : 646646 formazioni
x classe 13 : 497420 formazioni
x classe 14 : 319770 formazioni
x classe 15 : 170544 formazioni SOLO... 170k ca :)
x classe 16 : 74613 formazioni
x classe 17 : 26334 formazioni
x classe 18 : 7315 formazioni
x classe 19 : 1540 formazioni
x classe 20 : 231 formazioni
x classe 21 : 22 formazioni
x classe 22 : 1 formazioni

e ti faccio un'altra pregunta... Why proprio c15?

Adesso torno a cercare di sviluppare il mio primo grafico twinbasic statico... x provare ad implementarne poi uno dinamico in robot boss 😜🤖🤡😸 👋:)
 
Ultima modifica:
15 perché volevo avere una base su cui lavorare .
Cmq per cominciare bene la giornata ho scaricato la versione 267.
L antivirus non mi fa più aprire nulla , neanche i mie script .ho provato a cancellare l ultimo aggiornamento ma non mi fa fare neanche quello.

P.s: dopo 3 riavvii è andata.
 
Ultima modifica:
i legend ha scritto:
15 perché volevo avere una base su cui lavorare .
Clicca per espandere...

Ok

i legend ha scritto:
Cmq per cominciare bene la giornata ho scaricato la versione 267.
L antivirus non mi fa più aprire nulla , neanche i mie script .ho provato a cancellare l ultimo aggiornamento ma non mi fa fare neanche quello.

P.s: dopo 3 riavvii è andata.
Clicca per espandere...

Sono felice che ti sia ripartito tutto (y)😜


Riguardo questo grafico statico invece io sono ancora in alto mare... 😬🥴


' r Firenze n 04.19.27 c 3- s 2- clp 1- r ra 360 rs 278 fq 20 incmax 82
' RITARDI .151.93.84.30.171.3.15.116.278.165.21.29.3.48.25.13.273.52.43.100.360
' INCREMENTI .-58.-9.-54.141.-168.12.101.162.-113.-144.8.-26.45.-23.-12.260.-221.-9.57.260

Credevo che con l'esempio seguente presente nel file help della dllgiochi di luigi potessi ricostruirne un altro... analogo...

Codice: 
'      Dim aValue (3, 1) As Long
   
' aValue(0, 0) = 0  ' x
' aValue(0, 1) = 0  ' y
' aValue(1, 0) = 10 ' x
' aValue(1, 1) = 10 ' y
' aValue(2, 0) = 20 ' x
' aValue(2, 1) = 20 ' y
' aValue(3, 0) = 30 ' x
' aValue(3, 1) = 30 ' y   
' Call AddSerieGrafico("RITARDI", aValue, vbBlue)
' Call DisegnaGrafico("test grafico statico")


così...

Codice: 
     Dim aValue (20, 1) As Long
   
aValue(0, 0) = 151  ' x
aValue(0, 1) = 151  ' y
aValue(1, 0) = 93 ' x
aValue(1, 1) = 93 ' y
aValue(2, 0) = 84 ' x
aValue(2, 1) = 84 ' y
aValue(3, 0) = 30 ' x
aValue(3, 1) = 30 ' y
'-- -- -- -- -- -- -- -- -- -- -
aValue(4, 0) = 171  ' x
aValue(4, 1) = 171  ' y
aValue(5, 0) = 3 ' x
aValue(5, 1) = 3 ' y
aValue(6, 0) = 15 ' x
aValue(6, 1) = 15 ' y
aValue(7, 0) = 116 ' x
aValue(7, 1) = 116 ' y
'-- -- -- -- -- -- -- -- -- -- -- -- -- --
aValue(8, 0) = 278  ' x
aValue(8, 1) = 278  ' y
aValue(9, 0) = 165 ' x
aValue(9, 1) = 165 ' y
aValue(10, 0) = 21 ' x
aValue(10, 1) = 21 ' y
aValue(11, 0) = 29 ' x
aValue(11, 1) = 29 ' y
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -
aValue(12, 0) = 3  ' x
aValue(12, 1) = 3  ' y
aValue(13, 0) = 48 ' x
aValue(13, 1) = 48 ' y
aValue(14, 0) = 25 ' x
aValue(14, 1) = 25 ' y
aValue(15, 0) = 13 ' x
aValue(15, 1) = 13 ' y
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
aValue(16, 0) = 273  ' x
aValue(16, 1) = 273  ' y
aValue(17, 0) = 52 ' x
aValue(17, 1) = 52 ' y
aValue(18, 0) = 43 ' x
aValue(18, 1) = 43 ' y
aValue(19, 0) = 100 ' x
aValue(19, 1) = 100 ' y
aValue(20, 0) = 360 ' x
aValue(20, 1) = 360 ' y
'-------------------------------------------------

     
Call AddSerieGrafico("RITARDI", aValue, vbBlue)
Call DisegnaGrafico("test grafico statico")

Ma invece, non avendo assolutamente chiaro nè il concetto di matrice multidimensionale nè come si programma un grafico in vb o twinbasic o in altro modo... mi viene solo questo... 👇😑:LOL:

graficoerrato.jpg
 
Al grafico non mi sono dedicato ancora, mi spiace tom.
P.s
Il file lo legge fino ad un certo punto. Poi mi dice memoria piena. E non mi salva neanche le formazioni xhe aveva trovato.
Ho provato a dichiarare f as long e va avanti un po di più. Long long non me lo accetta.
ma credo che sia normale il file pesa quasi 2 giga🤣
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto