Scripts di esempio

[Francario Massimiliano]

Salve,

Un saluto a tutti... ed eccomi di nuovo. Mi scuso se posso sembrare un pò noioso, sempre qui a chiedere aiuto, ma sto cercando di capire le potenzialità degli script e mi sono reso conto di esseremi arruginito più di quanto pensavo sull lato programmazione.
Diciamo che ovviamente potrò arrivare a trovarmi le soluzioni anche da solo, ma naturalmente se per caso qualcuno ha già affrontato i vari problemi e mi da una manina, potrò concentrarmi di più e meglio sul lato trading, che dovrebbe effettivamente essere il mio primo "dovere"...
Vabbè, veniamo al punto. Mi trovo ora a cercare un modo di crearmi qualcosa che mi consenta di visualizzare il risultato di alcuni calcoli fatti nello script in tempo reale (e magari darmi anche degli avvisi sonori).
L'ideale sarebbe una finestra sempre attiva in cui poter inserire delle forme (o pulsanti) a cui variare i colori. Qualcosa che però una volta creata sia visibile, modificabile da script e non richieda interventi utente. Al limite anche una finestra in cui poter solo scrivere dei testi come fosse quella del comando ShowMessage, che però ha l'inconviente di fermare lo script in attesa della pressione di un pulsante. Per intenderci, finestre tipo quelle dei TTS Meter, anche se non mi serve siano così elaborate come tipo di indicatori.
Anche la possibilità di eseguire dei file sonori da script sarebbe cosa utile.
Io sono riuscito solo a trovare delle istruzioni di questo tipo :
'*******************************
USES
Classes, Graphics, Controls, Forms, Dialogs, Unit2
DIM MainForm AS TForm
MainForm = TForm.Create(Application)
MainForm.Show
'*******************************
che ho visto che creano una finestra "application" che potrebbe andare bene come base, però poi non trovo nulla su cosa sia possibile inserirci dentro ne come su come farlo...
Io per ora sto scrivendo in basic, ma se sarà necessario passerò anche al pascal style.

Spero di aver indicato al meglio su cosa chiedo i vostri pareri e supporti, e resto in attesa di eventuali consigli che potrete darmi. Nel caso non ce ne siano, se scoprirò qualcosa saro io stesso a darvi tutte le indicazioni che potrò riguardo questa tematica.

Ciao e buona giornata.

Renato.

p.s. aggiungo altra piccola domanda : sapete se è possibile disegnare delle linee sulle finestre dove ci sono i grafici del sottostante e degli indicatori? (sempre da script ovviamente)

rispondo prima all'ultima domanda: no, non è possibile intervenire sulle finestre di FiutoPRO tramite script.

Veniamo ora alla prima domanda.
Per prima cosa bisogna creare una finestra per lo script, come ha già visto.
Nello script editor, nella parte bassa, è presente una selezione a schede per ogni file relativo ad una finestra, che permette di passare dalla modalità "codice" alla modalità di modifica visuale. Quando si è in modalità di modifica visuale, nella parte di destra della finestra appare una toolbox dove si trovano tutti i controlli visuali che si possono aggiungere alla finestra stessa, mentre nella parte sinistra si troverà l'Object Inspector, che permette di impostare le proprietà dell'oggetto visuale selezionato (testi, colori, ecc) e di assegnarne gli eventi.
Tra i controlli visuali che si possono aggiungere, c'è anche un controllo "Timer", invisibile durante l'esecuzione dello script, che può essere utilizzato per eseguire i calcoli ad intervalli regolari di tempo e scrivere i risultati sulla finestra.

Prima di avviare l'esecuzione dello script, consiglio vivamente di impostare nelle proprietà dello stesso che lo script deve essere avviato una sola volta all'avvio della strategia.

Max Francario

[Smash]

Mi trovo ora a cercare un modo di crearmi qualcosa che mi consenta di visualizzare il risultato di alcuni calcoli fatti nello script in tempo reale (e magari darmi anche degli avvisi sonori).
L'ideale sarebbe una finestra sempre attiva in cui poter inserire delle forme (o pulsanti) a cui variare i colori. Qualcosa che però una volta creata sia visibile, modificabile da script e non richieda interventi utente. Al limite anche una finestra in cui poter solo scrivere dei testi come fosse quella del comando ShowMessage, che però ha l'inconviente di fermare lo script in attesa della pressione di un pulsante. Per intenderci, finestre tipo quelle dei TTS Meter, anche se non mi serve siano così elaborate come tipo di indicatori.
Anche la possibilità di eseguire dei file sonori da script sarebbe cosa utile.

Ciao,
in aggiunta alla risposta di Max ti posto questo semplice esempio.

Dopo avere aperto l'editor dello script, metti il seguente codice nella MainUnit:

Uses  Unit1                   
        
Dim myForm as TForm1


myForm = New TForm1(Null)        
myForm.Show

Quindi vai a creare una finestra mediante il comando New Form (dal menu File), la quale si dovrà trovare nella Unit1.


La Form ha 2 sezioni:

- una sezione "Code" dove si inserisce il codice
- ed una sezione "Design" dove invece si gestisce la parte grafica

Nella sezione "Design" aggiungi un controllo Timer1 (come ha fatto vedere Max), un controllo Button1 e due controlli Label1 e Label2.

Nella sezione "Code" invece inserisci il seguente codice:

#FORM TForm1, Unit1.sfm                                                         

uses
  Classes, Graphics, Controls, Forms, Dialogs, StdCtrls
          
SUB Button1Click(Sender AS TObject)
 POPlaySound("C:\\Users\Administr\Documenti\PlayOptions.it\Sounds\telephone_2.WAV")
END SUB  




SUB Timer1Timer(Sender AS TObject)
    dim mainUnderlying as TUnderlying
    mainUnderlying = CurrentStrategy.GetMainUnderlying()
    Label1.Caption = mainUnderlying.Name   
    Label2.Caption = mainUnderlying.Last   
END SUB

A questo punto, mandando in esecuzione lo script:

- le due Label indicheranno il nome ed il prezzo last del sottostante, aggiornandoli ad intervalli regolari di 1 secondo
- dopo aver fatto click sul pulsante Button1 verrà eseguito il file sonoro, che nell'esempio sopra è un file WAV presente nella cartella Sound installata da Fiuto PRO.

[chrisbasetta]

Ciao,
in aggiunta alla risposta di Max ti posto questo semplice esempio.

Dopo avere aperto l'editor dello script, metti il seguente codice nella MainUnit:

Uses  Unit1                   
        
Dim myForm as TForm1


myForm = New TForm1(Null)        
myForm.Show

Quindi vai a creare una finestra mediante il comando New Form (dal menu File), la quale si dovrà trovare nella Unit1.


La Form ha 2 sezioni:

- una sezione "Code" dove si inserisce il codice
- ed una sezione "Design" dove invece si gestisce la parte grafica

Nella sezione "Design" aggiungi un controllo Timer1 (come ha fatto vedere Max), un controllo Button1 e due controlli Label1 e Label2.

Nella sezione "Code" invece inserisci il seguente codice:

#FORM TForm1, Unit1.sfm                                                         

uses
  Classes, Graphics, Controls, Forms, Dialogs, StdCtrls
          
SUB Button1Click(Sender AS TObject)
 POPlaySound("C:\\Users\Administr\Documenti\PlayOptions.it\Sounds\telephone_2.WAV")
END SUB  




SUB Timer1Timer(Sender AS TObject)
    dim mainUnderlying as TUnderlying
    mainUnderlying = CurrentStrategy.GetMainUnderlying()
    Label1.Caption = mainUnderlying.Name   
    Label2.Caption = mainUnderlying.Last   
END SUB

A questo punto, mandando in esecuzione lo script:

- le due Label indicheranno il nome ed il prezzo last del sottostante, aggiornandoli ad intervalli regolari di 1 secondo
- dopo aver fatto click sul pulsante Button1 verrà eseguito il file sonoro, che nell'esempio sopra è un file WAV presente nella cartella Sound installata da Fiuto PRO.

Ottimo! Questa cosa serviva anche a me...
Per il momento avevo risolto creando un file di testo che si aggiornava con tutte le variabili che volevo da monitorare...

[nevada]

Ragazzi... siete fantastici.
GRAZIE davvero, sia per la velocità di risposta sia per le ottime spiegazioni.
Mi avete dato da lavorare per qualche giorno :-)
Spero di farmi sentire presto per confermarvi di essere riuscito nei miei intenti!

Buona Giornata!

Renato.

[chrisbasetta]

Nella sezione "Code" invece inserisci il seguente codice:

#FORM TForm1, Unit1.sfm                                                         

uses
  Classes, Graphics, Controls, Forms, Dialogs, StdCtrls
          
SUB Button1Click(Sender AS TObject)
 POPlaySound("C:\\Users\Administr\Documenti\PlayOptions.it\Sounds\telephone_2.WAV")
END SUB  




SUB Timer1Timer(Sender AS TObject)
    dim mainUnderlying as TUnderlying
    mainUnderlying = CurrentStrategy.GetMainUnderlying()
    Label1.Caption = mainUnderlying.Name   
    Label2.Caption = mainUnderlying.Last   
END SUB

Ciao Smash...ho provato a seguire le tue istruzioni ma mi restituisce sempre un errore sulla Library ExtCtrls
Se la tolgo da Uses funziona, ma appena salvo la Unit mi rimette in automatico ExtCtrls

Inoltre la finestra si apre ma le Caption delle Label non si modificano...visualizzo Label1 e Label2... può dipendere da ExtCtrl? Oppure è semplicemente perché il mercato è chiuso?

Grazie

[Smash]

Ciao Smash...ho provato a seguire le tue istruzioni ma mi restituisce sempre un errore sulla Library ExtCtrls
Se la tolgo da Uses funziona, ma appena salvo la Unit mi rimette in automatico ExtCtrls

Sì, lo fa anche a me: il compilatore automatico rimette sempre ExtCtrls tra le Uses, ma poi non trova la libreria e si verifica l'errore... vedo se riesco a capirci meglio, altrimenti bisogna attendere Max.

Per il momento per farlo funzionare bisogna mandare in esecuzione lo script manualmente, dopo avere cancellato ExtCtrls e senza salvare (come hai fatto te del resto !)

Inoltre la finestra si apre ma le Caption delle Label non si modificano...visualizzo Label1 e Label2... può dipendere da ExtCtrl? Oppure è semplicemente perché il mercato è chiuso?

Grazie

Questo invece a me funziona correttamente: non dipende da ExtCtrls!

Che broker usi per il collegamento dati?

Al limite prova a verificare che la proprietà Interval del controllo Timer non sia uguale a zero.

[chrisbasetta]

Questo invece a me funziona correttamente: non dipende da ExtCtrls!

Che broker usi per il collegamento dati?

Al limite prova a verificare che la proprietà Interval del controllo Timer non sia uguale a zero.

Utilizzo IW... ma ti funziona anche a mercato chiuso?
Non vorrei che fosse perché nel weekend IW comunque non passa i dati a Fiuto...

[Smash]

Utilizzo IW... ma ti funziona anche a mercato chiuso?
Non vorrei che fosse perché nel weekend IW comunque non passa i dati a Fiuto...

A me sì, anche con IW!

[chrisbasetta]

A me sì, anche con IW!

Mistero....

[chrisbasetta]

Ho trovato l'errore!!

Nelle proprietà del Timer non avevo abilitato l'evento "OnTimer"
...ora pare funzioni...
rimane il problema ExtCtrl...