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 - Taurus dei miracoli

Pagine: 1 [2] 3 4
16
Programmazione / [RISOLTO] gb.gridbox Errore in update
« il: 09 Marzo 2011, 12:44:57 »
Ho installato gb.gridbox grazie all'aiuto di Golia prendendo i sorgenti inseriti pochi giorni fa nella discussione da milio.

Sono riuscito a creare correttamente la gridbox anche grazie alla guida presente in Wiki.
Ho inserito i pulsanti "Salva", "Annulla", "Elimina".

Quando schiaccio il pulsante Elimina la riga si colora di azzurro, il codice inserito è:

Codice: gambas [Seleziona]

Public Sub btElimina_Click()
  
  GridBox1.DeleteRecord(GridBox1.Row)
  
End


Per rendere definitiva l'eliminazione schiaccio il pulsante Salva che ha il seguente codice:

Codice: gambas [Seleziona]

Public Sub btSalva_Click()
  
  GridBox1.Update()
  
End


A questo punto ricevo un errore:

Citazione
Query failed: SQL error or missing database

 :'( :'( :'( :'( :'(

17
Programmazione / [RISOLTO] Aiuto gb.gridbox
« il: 09 Marzo 2011, 10:16:47 »
Io ho sempre usato i controlli standard di Gambas ma vorrei utilizzare anche il lavoro fatto, soprattutto da milio, su altri componenti.
In particolare vorrei usare la gridbox ma ho un problema:

non so come fare ad implementare il componente.

Cosa devo scaricare, dove devo mettere i file binari o i file sorgenti, cosa devo abilitare...
...insomma la procedura per poter accedere al componente nella mia applicazione.

Aiuto :'(

18
Programmazione / [RISOLTO] Errore in chiusura applicazione
« il: 08 Marzo 2011, 17:41:52 »
Sto scrivendo un'applicazione e quando provo a chiudere da codice

Codice: gambas [Seleziona]
Quit


oppure

Codice: gambas [Seleziona]
Me.Close


mi restituisce un errore:
Codice: [Seleziona]
Il programma si è bloccato inaspettatamente con un segnale #11. 
Per favore riportare l'errore a gambas@users.sourceforge.net o supporto@gambas.it per un supporto in italiano.

E' normale secondo voi???? ???

19
Programmazione / Maschera inserimento utente
« il: 06 Marzo 2011, 10:12:38 »
Per un'applicazione dovrei generare una form iniziale che permetta di inserire la ditta, proponga nei combo gli utenti associati e permetta di inserire la password.
Il cuore di tutto sta nella criptazione della password:
ho sentito che le funzioni di criptazione di Gambas sono potenti e valide.
Mi date 2 dritte?

 ??? :2birre:

20
OpenBar / Gambas3 quando verrà rilasciato?
« il: 06 Marzo 2011, 10:08:07 »
Giusto per fare quattro chiacchiere all'OpenBar:
proviamo a fare un po' di previsioni sul rilascio di Gambas3?
Sarebbe bello provare a mettere insieme delle previsioni anche solo per giocare un po'...
...e poi vedremo!!!

 :2birre:

21
Segnalazione bug / make code pretty con sovrascrittura attivata
« il: 12 Febbraio 2011, 10:18:22 »
Ho provato a fare make code pretty mentre avevo la sovrascrittura attivata.
Invece di riformattare il codice aggiunge, al di sotto del cursore altrettanto codice (questa volta formattato) senza modificare il codice precedente al cursore. :o :o :o

22
Programmazione / [RISOLTO] ComboBox.Index
« il: 12 Febbraio 2011, 09:46:16 »
Ho valorizzato dei combo con questa funzione

Codice: gambas [Seleziona]
Public Function FCaricaCombo()
  
  Dim sql As String
  Dim hres As Result
  Dim hret As Result
  Dim hreu As Result
  
  With MSysCont.$hConn
    .Type = "sqlite3"
    .Host = MSysCont.sPercorso
    MSysCont.pConnetti()
    sql = "SELECT id, ragsociale FROM fornitori ORDER BY ragsociale;"
    hres = .Exec(sql)
    ComboBox1.Clear
    For Each hres
      ComboBox1.Add(hres!ragsociale, hres!id)
    Next
    MSysCont.pDisconnetti()
    .Type = "sqlite3"
    .Host = MSysCont.sPercorso
    MSysCont.pConnetti()
    sql = "SELECT id, codice, descrizione FROM codiva ORDER BY codice;"
    hret = .Exec(sql)
    ComboBox2.Clear
    ComboBox4.Clear
    ComboBox6.Clear
    ComboBox8.Clear
    For Each hret
      ComboBox2.Add(hret!codice & " - " & hret!descrizione, hret!id)
      ComboBox4.Add(hret!codice & " - " & hret!descrizione, hret!id)
      ComboBox6.Add(hret!codice & " - " & hret!descrizione, hret!id)
      ComboBox8.Add(hret!codice & " - " & hret!descrizione, hret!id)
    Next
    MSysCont.pDisconnetti()
    .Type = "sqlite3"
    .Host = MSysCont.sPercorso
    MSysCont.pConnetti()
    sql = "SELECT id, codice, conto FROM conti WHERE livello = 3 AND tipo = 2 ORDER BY codice;"
    hreu = .Exec(sql)
    ComboBox3.Clear
    ComboBox5.Clear
    ComboBox7.Clear
    ComboBox9.Clear
    For Each hreu
      ComboBox3.Add(hreu!codice & " - " & hreu!conto, hreu!id)
      ComboBox5.Add(hreu!codice & " - " & hreu!conto, hreu!id)
      ComboBox7.Add(hreu!codice & " - " & hreu!conto, hreu!id)
      ComboBox9.Add(hreu!codice & " - " & hreu!conto, hreu!id)
    Next
    MSysCont.pDisconnetti()
  End With  
  
End


Come potete vedere definisco sia il text che l'index, quando poi faccio la lettura con questo codice:

Codice: gambas [Seleziona]
Public Sub ComboBox3_Click()
  
  Dim sql As String
  Dim hres As Result
  Dim iRis As Integer
  
  If bOp > 0 Then  
    With MSysCont.$hConn
      .Type = "sqlite3"
      .Host = MSysCont.sPercorso
      MSysCont.pConnetti()
      sql = "SELECT * FROM conti WHERE id = " & ComboBox3.Index & ";"
      hres = .Exec(sql)
      If hres.Available = True Then
        Message.Info(hres.conto)
        Label15.Text = hres!conto
      Endif
      MSysCont.pDisconnetti()
    End With  
    dTotPar = dTotPar + fTot[0]
    TextBox24.Text = Format(dTotPar, "#.#0")
    If dTotDoc = dTotPar Then
      iRis = Message.Question("Il totale del documento è stato raggiunto. Chiudo il documento?", "Si", "No")
      If iRis = 1 Then
'        fSalvaDoc()
      Else
        TextBox15.SetFocus
      Endif
    Else
      TextBox15.SetFocus
    Endif
  Endif
  
End


non mi trova niente.
Perchè??? :hatecomputer:

23
Programmazione / Allineamento ComboBox
« il: 11 Febbraio 2011, 18:32:32 »
Ho creato 2 ComboBox con la proprietà Text molto lunga (composta da codice - descrizione).
La width delle ComboBox è pari a 70 (quindi non adatta a contenere tutto il testo).
Io non vorrei allargare le ComboBox, ma avrei piacere ad averle allineate a sinistra e non vedere la parte destra finale della proprietà Text.
Ho visto che non è presente la proprietà Alignment.
Come posso fare? :hard:

24
Programmazione / [RISOLTO] Non valorizza in modo corretto file SQLite3
« il: 04 Febbraio 2011, 15:47:54 »
Ho un problemino con G3:

valorizzo una serie di campi in questo modo:
Codice: [Seleziona]
With MSysCont.$hConn
  .Type = "sqlite3"
  .Host = MSysCont.sPercorso
  MSysCont.pConnetti()
  .Begin
  hres = .Create("conti")
  If rbAP.Value = True Then
    hres!tipo = 1
  Else
    hres!tipo = 2
  Endif
  If rbGruppo.value = True Then
    hres!livello = 1
  Else
    If rbSottogruppo.Value = True Then
      hres!livello = 2
    Else
      hres!livello = 3
    Endif
  Endif
  hres!codice = TextBox1.Text
  hres!conto = TextBox2.Text
  hres.Update
  .Commit
  MSysCont.pDisconnetti()
End With

Benissimo i campi "codice" e "conto", nonchè "id" che è intero autoincrementante vengono valorizzati in modo corretto, mentre i dati relativi ai campi "tipo" e "livello" che vengono valorizzati nelle if con dei radiobutton (rbAP, rbCR, rbGruppo, rbSottogruppo, rbConto) vengono immessi come nulli.
Dove sbaglio?

25
Segnalazione bug / Frame senza bordi (non dipende dal tema)
« il: 04 Febbraio 2011, 14:41:26 »
Premesso che ho visto una discussione con lo stesso titolo (senza il contenuto tra parentesi), ma nn arrivava da nessuna parte.
Ho convertito il mio progetto da G2 a G3 ed i frame sono senza bordi.
Alla luce del citato post di cui parlo sopra ho provato a smanettare con i temi di Ubuntu... :hatecomputer:
...ma non ha portato a nessun risultato. :bad:

Io l'ho identificato (forse erroneamente) come un bug. :hard:

26
Sportello assistenza / Orario del forum
« il: 29 Gennaio 2011, 11:52:04 »
Ho notato che l'orario della barra sotto i tag Blog/Wiki/Download/Il resto del pinguino ha l'ora sbagliata (indietro di un'ora) forse ancora sincronizzata con l'ora legale.
Di conseguente i messaggi vengono inseriti un'ora indietro.
 :(

27
Programmazione (Gambas 2) / [RISOLTO] leggere textarea riga a riga
« il: 29 Gennaio 2011, 08:43:25 »
Ho la necessità di leggere una textarea che ho valorizzato in multiriga (tramite \n) riga a riga.
quale ciclo posso creare per farlo?
esiste una proprietà della textarea che mi restituisce le righe valorizzate?
 :hatecomputer:

28
Programmazione (Gambas 2) / [RISOLTO] Drawingarea: ritorno delle coordinate
« il: 28 Gennaio 2011, 18:11:39 »
Ho la necessità di scrivere in una drawingArea del testo mediante una for... next che scriva lettera per lettera e, nel caso trovi dei caratteri, scrivere alla riga sopra altre cose.

Io ho utilizzato il draw.fillX e draw.fillY ma non ritorna i valori dopo la scrittura.
Il mio codice è:
Codice: [Seleziona]
FOR a = 1 TO Len(sLine)
  IF cnt = 0 THEN
    IF Mid(sLine, a, 1) <> "[" THEN 
      Draw.Text(Mid(sLine, a, 1), lX, lY)
      lY = Draw.FillY
      lX = Draw.FillX
    ELSE 
      cnt = 1
      acc = ""
    ENDIF 
  ELSE 
    IF Mid(sline, a, 1) <> "]" THEN 
      acc = acc & Mid(sLine, a, 1)
    ELSE 
      IF Len(acc) > 1 THEN 
        IF Left(acc, 1) = "A" THEN 
          acc = "La" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "B" THEN 
          acc = "Si" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "C" THEN 
          acc = "Do" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "D" THEN 
          acc = "Re" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "E" THEN 
          acc = "Mi" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "F" THEN 
          acc = "Fa" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "G" THEN 
          acc = "Sol" & Right(acc, Len(acc) - 1)
        ENDIF 
      ELSE 
        IF Left(acc, 1) = "A" THEN 
          acc = "La"
        ENDIF 
        IF Left(acc, 1) = "B" THEN 
          acc = "Si"
        ENDIF 
        IF Left(acc, 1) = "C" THEN 
          acc = "Do"
        ENDIF 
        IF Left(acc, 1) = "D" THEN 
          acc = "Re"
        ENDIF 
        IF Left(acc, 1) = "E" THEN 
          acc = "Mi"
        ENDIF 
        IF Left(acc, 1) = "F" THEN 
          acc = "Fa"
        ENDIF 
        IF Left(acc, 1) = "G" THEN 
          acc = "Sol"
        ENDIF 
      ENDIF 
      draw.Text(acc, lX - 15, lY)
    ENDIF 
    acc = ""
    cnt = 0
  ENDIF 
NEXT

Cosa sbaglio nella gestione di FillX e FillY?
 :hatecomputer:

29
Programmazione (Gambas 2) / [RISOLTO] Drawingarea: disegnare testo
« il: 28 Gennaio 2011, 16:48:47 »
Aiuto.

Mi trovo per la prima volta a utilizzare il controllo DrawingArea e vorrei utilizzarla per disegnare un testo.
Non riesco ad uscirne.

Questa è la prima prova che ho fatto:
Codice: [Seleziona]
PUBLIC SUB Form_Open()
  Draw.Begin(DrawingArea1)
  Draw.ForeColor = Color.Black
  Draw.FillColor = Color.Black
  Draw.BackColor = Color.White
  Draw.Text("prova e riprova", 10, 10)
  Draw.Rect(5, 185, 10, 40)
  Draw.End()
END

Il risultato è il nulla...

...mi date 2 dritte.

@chesko:
prima di aprire il post ho effettuato numerose ricerche...
...giuro!!!

30
Programmazione (Gambas 2) / Gestione testo in TextEdit o TextArea
« il: 17 Gennaio 2011, 20:04:26 »
Vorrei generare un programma che permetta di scrivere un testo di una canzone e associare gli accordi della chitarra sopra.
Con un file di testo di questo tipo:

Codice: [Seleziona]
testo [C]testo [G]testo
dove  [C] e [G] sono gli accordi in formato inglese.

Secondo voi come posso mettere in una TextEdit o TextArea il testo con sopra gli accordi?
 :hatecomputer:

Pagine: 1 [2] 3 4