Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Una BuonaGiornata a tutti gli amici del forum.
Grazie a Luigi e Rookie per L'apprezzamento, anche se l'ammirazione maggiore debba andare ad i Legend che finora è stato quello che maggiormente è andato più vicino al progetto che si vorrebbe realizzare come insegnamento.

Ho cominciato tardi a studiare questo ambiente e mi sono perso qualche passaggio( che sicuramente esiste in qualche passaggio di questo TD) pertanto mi auguro che l'amico ILegend ci aiuti con qualche buon esempio.

Ciao a Tutti.
 
qualcuno che può sapere qualcosa. grazie

qualcuno sa perchè con v.254 appare un messaggio che indica email x KEY LICENZA?

ma se è Licenza community perchè?
è solo per OLE O è anche per TwinBasic ?
 
edesimone ha scritto:
qualcuno che può sapere qualcosa. grazie

qualcuno sa perchè con v.254 appare un messaggio che indica email x KEY LICENZA?

ma se è Licenza community perchè?
è solo per OLE O è anche per TwinBasic ?
Clicca per espandere...
Io uso la beta 254, ho provato a usare OLE ieri, puoi vedere il post qui, ma per ora non si puo’ usare dato che non é ancora stato implementato. Tuttavia, per il resto, inerente all’IDE e al compilatore, 32-bit edition, finora non ho rilevato nulla di ciò che hai descritto. Se hai un account discord, puoi chiedere agli sviluppatori del progetto tB!

Buona giornata
 
Ultima modifica:
Prima che durante la pausa impazzisca del tutto e cancelli tween basic :D qualcuno mi può dire perchè questa sub di esempio per generare una pausa :D continua a dirmi Object required? Grazie :D

Codice: 
Class Form1

Dim OrarioFinePausa As Date
    
    Private Sub Form_Load()
        Call Pausa(3000)
    End Sub
    
    
    Private Sub Pausa(DurataPausa As Integer)
 ' Questa procedura è chiamata in causa dai tre pulsanti:
 ' ognuno dei tre pulsanti passa a questa procedura la sua durata della Pausa
 ' espressa in millisecondi:
 
 Print DurataPausa
 
 Dim OrarioFinePausa As Date
 
 OrarioFinePausa = Date.Now.AddMilliseconds(DurataPausa)
  
 Do Until Date.Now > OrarioFinePausa
 
 ' Il ciclo non contiene alcun comando: 
 ' esso ruota semplicemente su se stesso sino a quando la data 
'corrente è maggiore della variabile OrarioFinePausa.
 
 DoEvents()
 Loop
 
 End Sub

End Class
 
LuigiB ha scritto:
semplice scoprendo quali sono le istruzioni per fare la stessa cosa ma in vb6 .. studiare che la vacanza è finita !
Clicca per espandere...

Forse prima soluzione...

Codice: 
  Private Sub Form_Load()

   Call Pause(10)
       
       Print "OK FORSE CI SIAMO!"

End sub

    Sub Pause(ByVal sec As Single)
   
   Dim t As Single

   t = Timer + sec
   If t >= 100000 Then t = 0 
   Do
        DoEvents        

         'sleep 50
    
Loop While Timer < t
End Sub

O almeno questo code vb6 sembra funzionare... anche commentando sleep (comando vb6 non riconosciuto in tb...) :unsure:
 
Rookie ha scritto:
Caro Joe, questa "vista" che hai presentato ispira qualcosa da emulare con tb+excel... devo dire che la trovo assai efficace e selettiva, due sole nuances di un tono tra l'arancione e il marrone chiaro (da quello che vedo col mio monitor, spero non sia daltonismo incipiente). Complimenti!
Clicca per espandere...

Si certo "ripulire i risultati" è tra gli scopi principali.

Le linee guida sono più o meno queste e coincidono in buona parte con quanto già fatto, detto e proposto.

Innanzi tutto Vi ringrazio per la pazienza, l’attenzione e l’interesse e sarà possibile l'aiuto.

La prima parte del programma che ho immaginato riguarda i pronostici.

Sono formati direttamente con scelte proprie, o con risultati di altri programmi, o da ricerche statistiche, cabalistiche ecc.

Come si è fatto ad esempio nella proposta precedente dove erano la ricerca di Ambi Bivalenti.

Dunque per sommi capi si dovrebbe poter prevedere la possibilità di poter scegliere 10 pronostici di 10 colori.

Colori diversi, come default, e con la possibilità di poterli cambiare.

Perché essendo attribuiti a sorti diverse, potrebbero anche essere diversi e contemporaneamente riferiti ad una sola ruota.

Es: 1 a Milano per Estratto / 2.3 a Milano per Ambo / 4.5.6 a Milano per Terno

Dunque potrebbe essere utile “uniformarli” ed assimilarli nello stesso colore.

Diciamo che si dovrebbe anche poter scegliere tra 5 Sorti = Colori = Pronostici.

Inserendo da 1 a 10 numeri (come massimo giocabile) per ogni pronostico.

Tra 10/11 Ruote scelte singolarmente e/o a gruppi di 2 o più, nelle quali verificare l’esito del pronostico.

Eventualmente prevedere la possibilità di salvare e poi recuperare, la tabella completa dei pronostici.

Descritta la maschera di input del programma, rimangono, i test condizionali che sono il corpo

vero e proprio del progetto (di cui ho mostrato una parte dei calcoli) ed in ultimo c’è la flexgrid in cui evidenziare il tutto.

Per ora c’è questo progetto o poco più e so di non avere la bacchetta magica di Luigi (tanto proficua nel realizzare,

quanto attiva nel colpire le nocche e le fantasie poco corrette degli scapestrati).

Proverò a mettere giù una manciata di bottoni per descrivere meglio l’interfaccia grafica di questo.

Poi si vedrà … non ultimo quali scelte saranno possibili ed impossibili.

:)
 
LuigiB ha scritto:
non è un comando di vb6 ma un api di windows che deve essere dichiarata

Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Clicca per espandere...

Grazie luì ma ce l'ho fatta senza sleep... :D

Codice: 
 Private Sub Rallenta()
 Dim secondidipausavoluti As Integer
 secondidipausavoluti = 1
 Dim Pausa As Long
 Dim Controllo As Long
 Pausa = Timer + secondidipausavoluti '0.1
  Do While Controllo < Pausa
  Controllo = Timer
  Loop
 End Sub

Solo ho scoperto, dopo diversi tentativi, che molto probabilmente la sub soprastante viene correttamente interpretata in tween basic solo con il controllo picturebox e non con il controllo image... :unsure:

in altre parole...

questo non funzia...

Codice: 
    Image1.Picture = LoadPicture(File1.Path & File1.List(y))
    
call rallenta

ma questo si!

Codice: 
    Picture1.Picture = LoadPicture(File1.Path & File1.List(y))

call rallenta

👋:)
 
nuovo aggiornament , ho inserito alcume funzioni con lo stesso nome che hanno i nspaziometria per facilitare le cose

www.mediafire.com

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com

la dll non è necessario registrarla se avete gia l'ultima versione è rimasta la stessa , è cambiato il progetto twinbasic di base.



per lottootm vedi bene se il percorso è corretto o se hai una versione vecchia di twinbasic perche con image loadpicture mi risulti funzioni . qantomen con le bmp non so altri formati... non ho provato.
 
LuigiB ha scritto:
per lottootm vedi bene se il percorso è corretto o se hai una versione vecchia di twinbasic perche con image loadpicture mi risulti funzioni . qantomen con le bmp non so altri formati... non ho provato.
Clicca per espandere...

No no loadpicture con image funziona anche a me . E' solo la sequenza temporizzata e automatica con timer che sembra funzionare solo con picturebox e non con image luigi (y) :)
 
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