Aiuto per nuovo utente

[giulio]

Allego esempio. Il programma estrae a caso
tre versi dai primi 50 dell'Inferno e li stampa a video.
Con il tasto Copy li salva nella tua home. Siccome non
avevo tempo, il file viene salvato con data e ora. Metti tu
qualcosa per rendere il file unico.

[giulio]

Allego versione 0.0.2, visto che ti interessa copiare nella clipboard.

[giulio]

Ultima versione 0.0.3. Ho eliminato i comandi SHELL. Ora è tutto puro Gambas.

[borelg]

6 1 GENIO!!!
però ho trovato un piccolo diffetto... scusa se ti faccio lavorare tanto ma credo che non sia difficile das correggere... comuque il problema è che se riclicco start il programma si blocca e in teoria io dovrei poter fare questa operazione all' infinito...
se risolverai anche questo problema ti ringrazierei moltissimo... :-)  :-D

[giulio]

A me non si blocca. Che tipo di messaggio ti dà? Comunque prova la versione 0.0.3 e vedi se si blocca ancora.

[borelg]

con la versione 0.0.3 a volte mi da questo errore:
(trefrasiacaso:6485): Gtk-CRITICAL **: gtk_text_buffer_emit_insert: assertion `g_utf8_validate (text, len, NULL)' failed
e non mi da nessuna frase... ma lo fa ad intervalli irregolari questo errore?
ps. come faccio a sostituire la divina commedia con i 3 documenti di testo?
pps. volendo se è un problema posso mettere tutto in 1 stesso documento e poi modificare il codice in modo che estragga un numero da 1-50 uno da 51-100 e 1 da 101-150... cosa ne dici?

[borelg]

ok ce l' ho fatta non c' è + quel problema ho sostituito la divina commedia con il mio file di testo e ho modificato questo codice:
iFrase1 = Int(Rnd(1, 51))
iFrase2 = Int(Rnd(51, 101))
iFrase3 = Int(Rnd(101, 151))
vanno bene le cifre che ho messo? coprono tutte le possibilità oppure ci sono dei numeri che non potranno mai venire?

[giulio]

I numeri vanno bene. L'errore sembra venire da un componente Gtk. Io uso Qt e perciò non appare. L'errore pare causato dalla fuzione Conv$ che ho messo per visualizzare bene le lettere à ù è ò ì nella textarea. Se hai qualche frase con lettere accentate potrebbe ricapitare. A quel punto prova a togliere la funzione Conv$, cioè:

TextArea1.Text = sVerso1 & "\n" & sVerso2 & "\n" & sVerso3
TextArea1.Text = Conv$(TextArea1.Text, System.Charset, "UTF-8")

elimina la seconda riga e vedi se va.

Altrimenti ti deve aiutare qualcuno che abbia il tuo sistema. Quindi se ricapita fai sapere che sistema operativo usi e che versione di Gambas. Sarà più facile per gli altri aiutarti. Ciao.

[giulio]

Ho provato con le GTK ed in effetti ha un problema
con le lettere accentate, anche togliendo Conv$.
Suggerisco al boss del sito Leonardo di fare una segnalazione a Benoit :-)
con l'esempio 0.0.3. Ciao.

[borelg]

no adesso funzia tutto perfetto grazie mille ancora una volta... :-D  :-D  :-D  :-D

[borelg]

ultima cosa che vi chiedo... ho scoperto che la cosa che volevo fare qui su ubuntu non la posso fare ma obbligatoriamente su windows... non è che ci sarebbe un modo di utilizzare gambas su windows oppure di trasformare il progetto in un eseguibile per windows???
grazie in anticipo

[Lux]

Che io sappia gambas su windows non c'è o se c'è non funziona.
visto che hai usato il basic prova ad utilizzare visual basic express.(anche se non è proprio la stessa cosa, forse dovrai cambiare qualcosa).
ciao.

[Ceskho]

Se vuoi usare gambas sotto winzozz devi necessariamente emulare tutto il sistema ubuntu (o chi per lui)...infatti il programma non gira sotto win....

dovresti provare, per l'appunto, a convertire il tuo codice per visual basic.....i comandi non si differienziano di molto..ma nn tutti sono tali e quali...

comunque devi aggiustare il tuo codice....dovrebbe essere così:

Codice: [Seleziona]

iFrase1 = Int(Rnd(1, 51))
iFrase2 = Int(Rnd(52, 102))
iFrase3 = Int(Rnd(103, 153))

infatti col codice che hai scritto tu potrbbe succedere (raro ma può accadere e quindi sarebbe un bug) che esca 2 volte il numero 51 ad esempio e quindi frase1 e frase2 sarebbero uguali..

[Ceskho]

scusate....mi sa che ho scritto una baggianata...perdonatemi!

comunque per curiosità ho provato il programma...ho ubuntu...e crasha molto spesso....

posso cliccare al massimo 3 volte...dopodichè crasha!

[giulio]

infatti dall'help di gambas:

Codice: [Seleziona]

STATIC PUBLIC SUB Main()

  DIM Dice AS Integer

  Randomize

  Dice = Int(Rnd(1, 7))

  'Throws the dice between 1 and 6
  PRINT "You threw a " & dice

END

i numeri andavano bene. ciao.