Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: Mefrio - 02 Novembre 2010, 16:37:05

Titolo: Splash Screen
Inserito da: Mefrio - 02 Novembre 2010, 16:37:05
Ragazzi mi sono visti vari esempi, in particolare Sottofondo presente sul sito, ma non sono riuscito a capire come inserire uno splash screen ad un programma...ho provato a mettere in PUBLIC SUB Form_Open() un comando che mi facesse comparire un altro form e quando avesse finito alcune operazioni chiudeva quel form ma, naturalmente, non ha funzionato perchè, che io sappia, il form main è necessariamente quello che va eseguito per primo! Non vorrei trasportare tutto il form main in un altro secondario ed impostare il main come splash screen...vorrei quindi chiedere come fare a inserire in un programma uno splash screen simile a quello dell'esempio Sottofondo
Titolo: Re: Splash Screen
Inserito da: Ceskho - 02 Novembre 2010, 16:45:08
Il fatto che FMain sia il form principale di default non deve essere visto un obbligo. In realtà gambas termina il programma quando il primo form lanciato viene chiuso....ti basta creare un form FSplash e renderlo form di avvio....poi invece di chiuderlo lo nascondi e lo chiudi effettivamente solo quando il tuo software viene chiuso....
Titolo: Re: Splash Screen
Inserito da: Mefrio - 02 Novembre 2010, 16:49:18
come faccio a nasconderlo e a renderlo form di avvio?
Titolo: Re: Splash Screen
Inserito da: Mefrio - 02 Novembre 2010, 16:52:54
Sono riuscito a farlo da solo però ho un altro problema! Volevo uno splash perchè il programma ci mette un po a partire in quanto ha da fare alcuni controlli! I controlli sono legati a variabili, anch'essi legati ad una combobox del form main e se metto quei comandi nel form splash il programma non si avvia
Titolo: Re: Splash Screen
Inserito da: Mefrio - 02 Novembre 2010, 17:07:57
ecco come ho fatto ma, il programma si pianto sullo splash, non va avanti e non svolge le istruzioni date
Codice: gambas [Seleziona]
' Gambas class file

PUBLIC SUB _new()
  ME.Show
  ME.Center
END



PUBLIC SUB Form_Open()
  
  BLOCCO DI ISTRUZIONI DA ESEGUIRE PRIMA DEL FMAIN

  FMain.Show
  FSplash.Visible = FALSE
END

Titolo: Re: Splash Screen
Inserito da: Ceskho - 02 Novembre 2010, 17:58:33
Citazione da: Mefrio - 02 Novembre 2010, 17:07:57
ecco come ho fatto ma, il programma si pianto sullo splash, non va avanti e non svolge le istruzioni date
Codice: gambas [Seleziona]
' Gambas class file

PUBLIC SUB _new()
  ME.Show
  ME.Center
END



PUBLIC SUB Form_Open()
  
  BLOCCO DI ISTRUZIONI DA ESEGUIRE PRIMA DEL FMAIN

  FMain.Show
  FSplash.Visible = FALSE
END



Purtroppo con due righe di codice non posso capire il tuo problema....tuttavia la logica è questa

Avvio FMain
All'interno di FMain_open lancio FSplash e nascondo FMain
FMain continua a fare i suoi controlli
Quando ha finito mostro FMain e nascondo FSplash
Titolo: Re: Splash Screen
Inserito da: Mefrio - 02 Novembre 2010, 20:52:31
ok grazie mi funziona...per far durare di più lo splash esiste una funzione di "tempo"?
Titolo: Re: Splash Screen
Inserito da: Ceskho - 02 Novembre 2010, 20:55:58
Citazione da: Mefrio - 02 Novembre 2010, 20:52:31
ok grazie mi funziona...per far durare di più lo splash esiste una funzione di "tempo"?

Il timer
Titolo: Re: Splash Screen
Inserito da: Mefrio - 02 Novembre 2010, 21:09:31
Si sapevo che bisognava usare quello ma non capisco come...
Titolo: Re: Splash Screen
Inserito da: Ceskho - 02 Novembre 2010, 21:15:20
Citazione da: Mefrio - 02 Novembre 2010, 21:09:31
Si sapevo che bisognava usare quello ma non capisco come...

Se ad esempio devi aspettare 10 secondi fai così:

Codice: gambas [Seleziona]
i AS Integer = 0

PUBLIC SUB Time1_Timer()

   IF i = 10 THEN
      'FAI CHE DEVI FARE
      Timer1.Stop
   ELSE
      INC i
   END IF

END


Ricordati di far partire il timer con Timer1.Start() e sopratutto che la proprietà Delay dello stesso sia settata a 1000
Titolo: Re: Splash Screen
Inserito da: Mefrio - 02 Novembre 2010, 21:23:00
ok grazie