Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Topics - Francoiky

Pagine: [1]
1
Programmazione / Problema nel salvare uno screenshot in gif
« il: 20 Agosto 2011, 19:18:22 »
Salve a tutti! Ho riscontrato un problema nel salvare una screenshot in formato gif
Codice: gambas [Seleziona]
$Screenshot = Desktop.Screenshot()
$Screenshot.Save("a.gif")

Eseguendo il programma mi restituisce l'errore "Unable to save picture". Ci tengo a precisare che salvando lo screenshot in altri formati funziona tutto perfettamente :-\. Anche se lo vedo difficile, esiste un modo per ovviare a questo problema???

Grazie in anticipo.

2
Programmazione / [RISOLTO] Problema con Dialog.Path
« il: 19 Agosto 2011, 15:56:29 »
Salve a tutti! Ho un problema che, per quanto scemo possa essere, non riesco a risolvere. In poche parole, quando imposto il path predefinito tramite Dialog.Path e poi apro il Dialog stesso, è come se non avessi cambiato nulla e mi apre la directory del progetto.

Per capire meglio:
Dialog.Path = "~/Scrivania"

 | |
 \ /

Apro il Dialog tramite un bottone nel form e il Dialog si apre su /directory/esempio/progetto .

Non capisco dove sbaglio :-\

3
Programmazione / Spiegazioni Cairo cercasi
« il: 18 Agosto 2011, 15:21:28 »
Salve a tutti! Avrei bisogno di una guida o di spiegazioni riguardo all'utilizzo del componente cairo :mad:. Per esempio, come attivo l'antialiasing su di una drawingarea? ??? (Sempre se questo sia possibile) Grazie in anticipo.

4
Slave; sto cercando un modo per rendere più pulito il mio codice semplificando una cosa del genere:
Codice: gambas [Seleziona]
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
Label5.Text = ""
Label6.Text = ""
Label7.Text = ""
Label8.Text = ""
Label9.Text = ""
Label10.Text = ""
Label11.Text = ""
Label12.Text = ""
Label13.Text = ""
Label14.Text = ""
Label15.Text = ""
Label16.Text = ""
Label17.Text = ""
Label18.Text = ""
Label19.Text = ""
Label20.Text = ""


Esiste un modo per automatizzare questa cosa senza dover ripetere ogni riga? (Concettualmente vorrei dire al programma: assegna ai Label dal 1 al 20 il Text "bla, bla , bla") ???

5
Salve a tutti!
Mi servirebbe un aiuto per comprendere il mio errore in queste righe di codice:
Codice: [Seleziona]
PUBLIC SUB Button1_Click()
IF RadioButton1.Value = TRUE THEN
  Estratti[0] = Int(Rnd(1, 91))
  Label1.Text = Estratti[0]
ELSE IF RadioButton2.Value = TRUE THEN
  DO
    Estratti[0] = Int(Rnd(1, 91))
    Estratti[1] = Int(Rnd(1, 91))
  LOOP UNTIL Estratti[0] <> Estratti[1]
  Label1.Text = Estratti[0]
  Label2.Text = Estratti[1]
ENDIF
END

Sto cercando di creare un programma il quale, se il RadioButton1 è selezionato estrae a caso un numero e lo "stampa" nel Label1, mentre se invece è il RadioButton2 ad essere selezionato estrae due numeri (che devono essere differenti) e li "stampa" rispettivamente nel Label1 e nel Label2. Quando però vado ad eseguire il programma, premendo il Button1 (per innescare la funzione) con il RadioButton2 selezionato, mi restituisce un messaggio di errore con scritto "Null Object" (In basso a destra: "Stato dello stack: FMain.Button1_Click.498"; la riga 498 è quella immediatamente sotto al DO).

Grazie in anticipo :hatecomputer:

6
Dopo aver recentemente superato alcuni problemi :P ho deciso di avviare un mio progetto personale: un Pong in Gambas.
Ora però mi ritrovo di nuovo a sbattere la testa contro la mia ignoranza :hard:.

Vi posto quel poco codice che ho scritto fin ora:

http://img233.imageshack.us/img233/7786/schermatak.png

Codice: [Seleziona]
' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
ME.Text = "PonGambas"
ME.Width = 800
ME.Height = 450
ME.Border = Window.Fixed
ME.X = ((Desktop.Width) / 2) - ((ME.Width) / 2)
ME.Y = ((Desktop.Height) / 2) - ((ME.Height) / 2)
ME.Background = Color.Black
DrawingArea1.Height = ME.Height
DrawingArea1.Width = ME.Width
DrawingArea1.X = 0
DrawingArea1.Y = 0
Draw.Begin(DrawingArea1)
Draw.ForeColor = Color.White
Draw.FillColor = Color.White
Draw.FillStyle = 1
Draw.Rect(5, 185, 10, 40)
Draw.End()
END

Ora il problema è che rimane una "macchia" nel programma (non so spiegarvi, ora posto un'immagine)
Edit: eccola http://img816.imageshack.us/img816/201/schermata1n.png

7
Salve a tutti! Sono nuovo del Forum e ho appena cominciato ad avvicinarmi al Gambas2 ma già ho un dubbio:
come rendo un form non ridimensionabile? :rolleyes:

Grazie a tutti in anticipo  ;)

Pagine: [1]