Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Ciao Luigi Scaricato SMESS e cercato di capire come inserire script ( devo prima leggere bene il pdf).
Sicuramente Interessante per nuovi e successivi sviluppi.

Lo script di Legend purtroppo la pagina non avendo la scrool bar laterale non arriva al bottone Run e quindi non eseguibile.
Potreste far in modo per correggere questo punto.

Per il Resto aspettiamo sviluppi e suggerimenti dei 2 (Legend e Tom) più esperti.

Io ho perso qualche passaggio e circa la creazione dei form sono indietro.
Spero di Recuperare.

Ciao a Tutti.
Ciao Mike , hai i sorgenti ,pure per fare pratica apri il form di lagend e cambia il layout in modo che sia piu piccolo oppure prendi il pulsante e spostalo su magari abbassa le altre cose ..hai problemi anche con le altre funzioni ?


1678557748107.png
 
Ultima modifica di un moderatore:
No non c'è e ancora , comunque non è una funzione da implentare nelal dll in quanto non ha niente a che vedere con l'archivio , si deve implementare dentro TwinBasic , tu probabilmente ti riferisci a GetColonnaCasuale di spaziometira mi pare si chiamasse cosi ...

ebben compito in classe come si fa ad implementare una funzioen che ritorni un array di classe X composto da X numeri diversi ?

così a pelle... e di primo acchito.. proff ti direi che in qualche modo va moltiplicata.. x la classe voluta e senza multipli un'unità numerica random sfruttando la funzione random del timer... ma anche se il ragionamento fosse corretto... non saprei come fare in modo pratico 🤪
 
così a pelle... e di primo acchito.. proff ti direi che in qualche modo va moltiplicata.. x la classe voluta e senza multipli un'unità numerica random sfruttando la funzione random del timer... ma anche se il ragionamento fosse corretto... non saprei come fare in modo pratico 🤪
poche chiacchiere ... fuori la funzione
 
Mi sembrava interessante perchè la formazione dell integrale in cinquine e decine da lo stesso numeo di colonne, ovviamente la resa è favorevole in cinquina.
lo studio l ho fatto nelle ultime 100 estrazioni.
avevo fatto alcuni txt con raggruppamenti dai terni i alle decine consecutive , per ottenere 15,e oltre .
poi combinazioni pari dispari e somme , ma non mi ricordo come ho chiamato gli script, non so neanche se li ho conservati. di tutti i txt ho conservato solo questo,anche perchè erano pesanti, cmq era solo curiosita.
ora so che è possibile leggere file grandi, e, l interesse è scemato.
come nell altro post ( non ricordo come si chiamava, quello dove abbiamo scritto tu ,io e rookie, tu ti eri ammalato) vorrei partire da lunghette di 40-45 numeri e stabilire come ridurli,
ora mi concentrerò solo su questo.

per il gioco online non saprei come fare in realtà , ci avevo pensato ,ma proprio sono troppo imbranato:(
non è che ci faccio, sono proprio cosi :ROFLMAO: :ROFLMAO: :ROFLMAO: :ROFLMAO: :ROFLMAO: :ROFLMAO:

cmq nei prossimi tre colpi secondo me qualcosina dovrebbe dare.
sempre che la venere non mi smentisca alla grandissima

Non è nulla di trascendentale legend 🙂 Basta registrarsi e ricaricare il proprio conto dell'importo voluto. Addirittura puoi aspettare a dare loro i documenti richiesti per un periodo di prova mi pare di 30 giorni o +. Credo che tu possa addirittura non darglieli se non vuoi prelevare. Non ricordo esattamente. Io mi sono registrato oltre 3 anni fa...
 
questo era il mio cruccio.
speravo che Luigi lo risolvesse per capire come fare nei prossimi moduli.
deco ancora capire come ha fatto ad inserire la barra di progressione,un conto è adattare i controlli alla pagina un altor è quando i controlli son

c'è l'evento resize dei form , durante quell'evento devi riposizionare i controlli usando le loro prprietà left (la x) Top (la y) , Width (base) , Height (Altezza) , le dimensioni interne del form si hanno con le proprietà scalewidth e scaleheight
 
ho scaricato lo smess poi ci guardo.

ma volevo sapere, forse perchè non ho seguito tutto fin dall'inizio.
ho 2 problemini:
il primo stringanumeri(nr,".") continua a darmi un errore, una volta su spaziometria, una arrays
si poteva decidere se tra un numero e l'altro si poteva mettere uno spazio o un punto p un trattino)
cosa bisogna usare ora con twinBasic?

il secondo con ordinamatrice
ho visto diversi ordinamatrice, ma a cosa si riferiscono?
l'ordine logico dei parametri, sono

matrice(x), decrescente = 0 o -1 , colonna da ordinare

oppure è stabilito in modo diverso? prima colonna da ordinare poi se ascendente o decrescente?

ma quelle con L,I,S etc. a cosa si riferiscono?


grazie per qualche dritta
 
stringanumeri è strano che ti dia errore , fammi vedere il pezzo dovela usi.

ordinamatrice torna una matrice ordinata per le colonne volute , in input puo ricevere una matrice di qualsiasi tipologia di dati string/long/ecc

quelel che finiscono con L ,I ecc invece ordiano la matrice che viene passata nel parametro ed è quelal che viene riordinata, la L si riferisce a matrici di tipo Long , la I ad integer e cosi via.
 
ciao se non ci sono orrori , e non lo garantisco
questa potrebbe essere un modo
ora scrivi la tua supervelox
Codice:
Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
' NON MODIFICARE IL NOME DI QUESTA SUB
Dim i As Long
Dim nClasse As Long = 25
For i = 1 To 10
    Scrivi GetColonnaCasuale(nClasse)
Next
End Sub
Function GetColonnaCasuale(nClasse As Long,Optional MaxNum As Long = 90,Optional sCharSep As String = ".") As String
    Dim i As Long,nTro As Long,n As long
    ReDim aN(MaxNum) As Long
    ReDim aTro(nClasse) As Long
    ' aZzero il vettore
    For i = 1 To MaxNum
        aN(i) = 0
    Next
    nTro = 0
   
    Do While nTro < nClasse
        n = NumeroCasuale(1,MaxNum)
        If aN(n) = 0 Then
            nTro + = 1
            aTro(nTro) = n
            aN(n) = 1
        End If
    Loop
    Call OrdinaVettoreL(aTro,1,1)
    Return StringaNumeri(aTro,sCharSep,True)
End Function
 
Ultima modifica:
Ok ci provo sergente Hartman 👍 🤠😂

Forse qualcosa del genere? 🤔

Codice:
 Function generaformazionerandom(num)

Dim i As Long

Const LimiteInf= 0
Const LimiteSup= 90
Dim NumGenerato As Integer
Dim VNumeri() As Integer

ReDim VNumeri(num)

For i = 0 To num
  NumGenerato = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
  VNumeri(i) = NumGenerato
Next

Return VNumeri

'VNumeri dovrebbe avere  i valori ricercati x la classe num desiderata...
 
 End Function
 
Ciao Luigi,

nel 2° esempio di griglia hai inserito dei numeri casuali.

ReDim aDati(1000, 55)

For k = 0 To 1000
aDati(k, 0) = k
For j = 1 To 55
aDati(k, j) = Int((90 * Rnd) + 1)
Next
Next
VScroll1.Min = 1
VScroll1.Max = 1000
VScroll1.Value = 1

AlimentaGrid

Se volessi usare un mio script per linserirci parte dell'archivio e poi evidenziare su essoi risultati di altri calcoli,

quali componenti si devono aggiungere per avere tutto funzionante ?

:) GRAZIE.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 ottobre 2024
    Bari
    05
    14
    84
    85
    75
    Cagliari
    24
    51
    75
    17
    46
    Firenze
    54
    63
    14
    33
    17
    Genova
    37
    26
    23
    25
    49
    Milano
    22
    70
    67
    05
    89
    Napoli
    03
    18
    12
    45
    76
    Palermo
    19
    56
    41
    88
    04
    Roma
    81
    29
    54
    60
    77
    Torino
    70
    37
    44
    60
    01
    Venezia
    20
    89
    45
    30
    22
    Nazionale
    64
    38
    49
    22
    61
    Estrazione Simbolotto
    32
    39
    14
    27
    29

Ultimi Messaggi

Indietro
Alto