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.


Post - nello79

Pagine: 1 [2] 3
16
Programmazione (Gambas 2) / Re: Dimensioni drawing area
« il: 17 Febbraio 2012, 20:28:18 »
Ok ho provato a creare un nuovo progetto selezionando Applicazione Grafica QT nel tipo di progetto e funziona correttamente. Ma il progetto completo l'ho creato selezionando solo Applicazione Grafica ora come faccio a convertirlo? Devo per forza crearne uno nuovo e copiare il vecchio?

17
Programmazione (Gambas 2) / Re: Dimensioni drawing area
« il: 16 Febbraio 2012, 23:14:32 »
allora la tua funziona correttamente però ho notato che è la dimensione della drawingarea che è cambiata. La tua è visualizzata più piccola rispetto alla mia pur rimanendo la dimensione 400*200.
Comunque ora sto compilando gambas3 chissà che non migliorano le cose. Comunque ecco i sorgenti. L'avevo installata dai repo

18
Programmazione (Gambas 2) / Re: Dimensioni drawing area
« il: 16 Febbraio 2012, 22:25:47 »
Ma potrà essere la versione di gambas che uso che ha qualche bug? io ho la 2.21 potrebbe essere questo il problema?

19
Programmazione (Gambas 2) / Re: Dimensioni drawing area
« il: 16 Febbraio 2012, 22:10:51 »
Ma per la miseria ma allora cosa può essere? Il codice che ho messo è quello che ho già scritto prima. Ho creato un progetto nuovo con solo quel codice per capire come funziona. Ho corretto come mi hai detto ma il risultato non cambia, guarda quì ho solo cambiato lo sfondo e il colore delle linee.

20
Programmazione (Gambas 2) / Re: Dimensioni drawing area
« il: 16 Febbraio 2012, 21:52:54 »
Niente non riesco proprio a capire... Allora in un form ho inserito una drawArea di dimensioni 400*200. Ho inserito questo codice:

Codice: [Seleziona]
PUBLIC SUB Form_Open()
Draw.Begin(DrawingArea1)
Draw.LineWidth = 1
Draw.Line(100, 0, 100, 200)
DrawingArea1.Refresh
END
La linea me la disegna da circa x80 y0 fino a x80 y130 all'incirca.. ma dove sbaglio? Di quale contenitore parli?

21
Programmazione (Gambas 2) / Dimensioni drawing area
« il: 16 Febbraio 2012, 00:15:09 »
Salve, nel mio progetto ho inserito una drawing area di dimensioni 600x200. Quello che non capisco è perchè disegnando una linea da x300 y0 a x300 y200, la linea non raggiunge l'estremità della drawing area ed anche la posizione della x non corrisponde.
In pratica è come se disegnassi una linea che parte da circa x200 y0 fino a x200 y150.
Che corrispondenza ha la dimensione della drawing area con la posizione della linea disegnata?

Inoltre in che modo si posso disegnare gli archi? ho provato la funzione draw.circle ma non capisco il significato dei parametri start - end. Qualcuno sa come funzionano?

22
Programmazione (Gambas 2) / Re: Funzione Format$
« il: 13 Febbraio 2012, 00:34:35 »
ok ho risolto con il comando Round

23
Programmazione (Gambas 2) / Funzione Format$
« il: 13 Febbraio 2012, 00:00:21 »
Perché la funzione Format$ mi funziona solo con variabili Variant e non Float?
E sopratutto se ho questo codice:
X0 = Format$(X0, "-#.##")
ottengo il valore di X0 con la virgola " , " invece che con il punto deciimale " . " ?

24
Programmazione (Gambas 2) / Personalizzare dialog.openfile
« il: 12 Febbraio 2012, 12:39:48 »
Salve ragazzi, come da titolo c'è la possibilità di personalizzare la finestra di dialogo openfile? Mi spiego meglio, vorrei che la finestra si aprisse con la visualizzazione dei file e delle cartelle in modalità lista e non come icone. E' possibile eliminare la visualizzazione della funzione showbookmark come per l'oggetto FileChooser?

25
Programmazione (Gambas 2) / Re: Utilizzare array
« il: 07 Febbraio 2012, 00:17:03 »
Esatto era proprio quello l'errore finalmente sono riuscito a venirne fuori yuppiiiii  :rotfl:

26
Programmazione (Gambas 2) / Re: Utilizzare array
« il: 06 Febbraio 2012, 23:43:36 »
Ragazzi ma perchè a questa riga: xp = CFloat(Mid(stringa, px + 1, py - px - 1))
ho sempre lo stesso errore: Type mismatch: wanted float, got string instead
uff.. ma che ho fatto di male...  :'(

27
Programmazione (Gambas 2) / Re: Utilizzare array
« il: 06 Febbraio 2012, 21:50:14 »
Niente da fare fsurfing, ho corretto il codice in questo modo:
Codice: [Seleziona]
PUBLIC SUB Button3_Click()
DIM pg, px, py AS Integer

DIM stringa AS String
DIM k AS Integer
DIM indice AS Integer
 x = NEW Float[1000]
 y = NEW Float[1000]
indice = 0

FOR k = 0 TO Variabili.numeroRighe - 1
  stringa = Variabili.vettore[k]
  stringa = Upper(stringa) 
  pg = InStr(stringa, "G")
  px = InStr(stringa, "X")
  py = InStr(stringa, "Y")
 
 IF pg = 1 THEN 'il carattere G esiste
    
  x.Add(CFloat(Mid(stringa, px + 1, py - px - 1)))
  y.Add(CFloat(Mid(stringa, py + 1))) 
   
  TextArea2.Text = TextArea2.Text & x[indice] & " " & y[indice] & "\n"
  INC indice
  ENDIF
  NEXT 
END

e mi da questo errore: Type mismatch: wanted float, got string instead

28
Programmazione (Gambas 2) / Re: Utilizzare array
« il: 05 Febbraio 2012, 11:23:06 »
Allora ragazzi scusate andiamo con ordine. L'esempio che ho postato prima mi serviva solo per capire come funzionano gli array e solo a scopo didattico, la parte di codice in cui devo implementarlo è questa ed è la continuazione di precedenti miei post:

Codice: [Seleziona]
PUBLIC SUB Button1_Click()
DIM k AS Integer

Variabili.nomeFile = File.Load(FileChooser1.SelectedPath)
Panel1.Visible = FALSE
FileChooser1.Visible = FALSE
Button1.Visible = FALSE
TextArea1.Clear

Variabili.vettore = Split(Variabili.nomeFile, "\n")
Variabili.numeroRighe = CInteger(Variabili.vettore.Length) - 1
FOR k = 0 TO Variabili.numeroRighe
TextArea1.Text = TextArea1.Text & Variabili.vettore[k]
NEXT 

END

PUBLIC SUB Button3_Click()
DIM pg, px, py AS Integer
DIM x AS Float[]
DIM y AS Float[]
DIM stringa AS String
DIM k AS Integer
DIM indice AS Integer

indice = 0

FOR k = 0 TO Variabili.numeroRighe
  stringa = Variabili.vettore[k]
  stringa = Upper(stringa) 
  pg = InStr(stringa, "G")
  px = InStr(stringa, "X")
  py = InStr(stringa, "Y")
 
 IF pg <> 0 THEN 'il carattere G esiste
    
 INC indice
    
  x[indice] = CFloat(Mid(stringa, px + 1, py - px - 1))
  y[indice] = CFloat(Mid(stringa, py + 1)) 
  TextArea2.Text = TextArea2.Text & x[indice] & " " & y[indice] & "\n"
  
  ENDIF
  NEXT 
END

All'interno di un modulo chiamato variabili ho dichiarato le seguenti variabili publiche:

Codice: [Seleziona]
' Gambas module file
PUBLIC nomeFile AS String
PUBLIC vettore AS String[]
PUBLIC numeroRighe AS Integer

Gli array x e y li ho creati dinamici in quanto non so di quante stringhe è formato il mio file txt. Ora il mio intendo è creare un array di punti x e y in modo che x[1] e y[1] corrispondano alle coordinate di un punto, x[2] y[2] alle coordinate del secondo punto e così via per quanti punti ci sono nel file.
Spero di essermi spiegato

29
Programmazione (Gambas 2) / Utilizzare array
« il: 04 Febbraio 2012, 14:52:12 »
uff... Scusate ho girato tutti i post e le varie guide ma non riesco a venirne a capo.
Se scrivo questo codice:

Codice: [Seleziona]
' Gambas module file
PUBLIC x AS Float[]
PUBLIC indice AS Integer

PUBLIC SUB Button1_Click()
  mio.x[mio.indice] = mio.x[mio.indice] + 1
  TextBox1.Text = mio.x[mio.indice]
  INC mio.indice
END

quando faccio click su button_1 mi ritorna:  null object

le variabili x e indice le ho dichiarate in un modulo chiamato mio.

30
Programmazione (Gambas 2) / Re: Ricavare valori da una stringa
« il: 04 Febbraio 2012, 00:38:43 »
No no al momento non è un risultato di un mio processo ma di un altro programma che genera quel file. Teoricamente errori non dovrebbero esserci ma non si sa mai... ho visto spesso programmi che di tanto in tanto davano i numeri ad esempio saltando dei valori o cose del genere e poi comunque serve sempre ad imparare cose nuove :)

Pagine: 1 [2] 3