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 - Diakrufus

Pagine: [1] 2
1
Domande tecniche (Gambas 2) / Come installare un componente?
« il: 23 Gennaio 2011, 23:13:12 »
Salve ho visto nel forum che molti creano componenti. Mi spiegate come posso installarli nella mia Gambas 2.7 che ho nella mia Debian 5.0.7 ?
Basta solo mettere il componente nella directory /usr/lib/gambas2 ? Si fa così ?

Poi come me li ritrovo sono nella ToolBox quando avvio gambas ? :rolleyes:

2
Programmazione (Gambas 2) / Re: Avere in label il nome dell' USER
« il: 23 Gennaio 2011, 22:16:48 »
Citazione da: milio - 23 Gennaio 2011, 20:46:32
Label.Text = "Benvenuto " & User.Name
Molte grazie per l'aiuto :2birre:

3
Programmazione (Gambas 2) / [RISOLTO]Avere in label il nome dell' USER
« il: 23 Gennaio 2011, 19:04:30 »
Salve. Mi sapete dire come far vedere il nome dell' utente  che sta usando il programma in una label?
 Esempio: " Benvenuto Giuseppe "  :hard:

4
Programmazione (Gambas 2) / Re: Validazione email dentro una TextBox
« il: 23 Gennaio 2011, 18:55:54 »
Ho Risolto così:
Codice: [Seleziona]
 Risultato["email"] = TextMail.Text
 ' inizio la validazione della TextMail
  IF NOT TextMail.Text THEN
     Risultato["uff"] = TextUff.Text 
      Risultato.Update
      Connessione.Commit
      Connessione.CLOSE
 RETURN
  END IF

myemail = TextMail.Text
  
  re = NEW RegExp(myemail, "(?i)\\b[a-z0-9._%\\-]+@[a-z0-9._%\\-]+\\.[A-Z]{2,4}\\b")   
  
  validemail = re.Text
  
    IF NOT validemail THEN
        Message.Info(myemail & "   Email non valida", "Controlla")
    ELSE
        myemail = TextMail.Text
 
        Risultato.Update
        Connessione.Commit
        Connessione.CLOSE
 ENDIF
Grazie  tante milio  :)

5
Programmazione (Gambas 2) / [Risolto] Validazione email dentro una TextBox
« il: 22 Gennaio 2011, 21:04:54 »
Ciao come da oggetto ho creato una Textbox con un Button dove inserire l'indirizzo email, con il codice che ho prelevato da questo forum. Funziona tutto, ma se la textbox contiene un campo vuoto  la validazione da questo errore "No subject provider" ecco il codice
Codice: [Seleziona]
PUBLIC SUB Button1_Click()

  DIM myemail AS String
  DIM validemail AS String
  DIM re AS RegExp
  
  myemail = TextBox1.Text
  
  re = NEW RegExp(myemail, "(?i)\\b[a-z0-9._%\\-]+@[a-z0-9._%\\-]+\\.[A-Z]{2,4}\\b")   
  
  validemail = re.Text
  
  IF NOT validemail THEN
    Message.Info(myemail & " is not a legal email address", "OK")
    
  ELSE
    myemail = TextBox1.Text 
  END IF 

END
:hatecomputer:

6
Programmazione (Gambas 2) / Re: Andare a capo TextArea
« il: 13 Gennaio 2011, 14:58:42 »
Citazione da: leo72 - 13 Gennaio 2011, 09:12:53
Ricordatevi che Gambas di default adatta le grafiche delle finestre e di tutti i widget in esse contenute scalandoli in base ad una formuletta che rapporta il tutto alle dimensioni del font del carattere usato per la scrivania/dekstop.

In questo modo basta variare tale font che su altri sistemi con dimensioni del font differenti tutto appare "sballato". La soluzione è creare le finestre impostando la proprietà "(Scaled)" su False dall'editor grafico.
Grazie per il chiarimento, mi sa che farò molti programmi sotto linux grazie a gambas. Stavo studiando le Qt ma non trovavo un forum come questo per chiarimenti e poi bisognava conoscere bene il C++. L'unico handicap e che non so creare il pacchetto, perchè se lo creo per esempio per debian, mi cerca tante dipendenze la setssa cosa per ubuntu, ma ho ovviato mettendo il programma come sorgente con il file eseguibile.

7
Programmazione (Gambas 2) / Re: Andare a capo TextArea
« il: 12 Gennaio 2011, 19:25:20 »
Citazione da: Taurus dei miracoli - 12 Gennaio 2011, 18:53:09
Se fai una rubrica telefonica mi interessa poi provarla, se tu vuoi.
Il pacchetto di installazione è una cavolata:
sotto il menù c'è una serie di icone, una lancia il creatore di pacchetti di installazione. Tu scegli le distro per la quale lo vuoi creare (scegline una per provare), rispondi alle diverse domande e ti fa il pacchetto.
Se commenti le diverse versioni con i cambiamenti ti fa già il changelog.
 :ok:

Se hai problemi dimmi...
...e se vuoi farmi provare la rubrica dimmi. :2birre:
La Rubrica è pronta funziona ma la grafica forse nel tuo pc sarà sballata, perchè ho provato con altro pc che ha ubuntu è ho notato che un form quello delle ricerche è più grande e i font cambiano il size cioè sono diversi da quelli in cui creo il programma .

8
Programmazione (Gambas 2) / Re: Aggiungere fonts a gambas
« il: 12 Gennaio 2011, 18:44:56 »
Ciao da quello che mi ricordo di un programma che ho fatto in Vb, credo di aver messo il font nella cartella e poi quando volevo il font in questione lo chiamavo utilizzando il percorso, prova a mette il font nella cartella dati e magari fai delle prove. Io sono un novizio con Gambas, magari sto sparando qualche fesseria ma fammi sapere.

9
Programmazione (Gambas 2) / Re: Andare a capo TextArea
« il: 12 Gennaio 2011, 17:40:17 »
Citazione da: Taurus dei miracoli - 12 Gennaio 2011, 15:27:09
la variabile MyRS è una variabile di risposta ad una connessione con un database.
Mi spiego meglio:
per la connessione al database utilizzo una routine definita come PUBLIC. La risposta della connessione la inserisco nella variabile MyRS che, seguita dal campo dopo il punto esclamativo, permette di interrogare i singoli campi.

Pertanto, per rispondere alla tua domanda, la variabile te la crei tu con il tipo RESULT e quindi MyRS!testo si riferisce al campo testo del mio database in mysql che, nell'esempio, inserisco nella variabile stringa sStr che poi valorizza la mia TextArea.

Il mio motto è: "mi spezzo ma non mi spiego" per cui se hai altre domande in relazione a questo fammi sapere. ;)

Ok  infatti lo avevo capito che il punto esclamativo associava i campi, adesso che mi sto chiarendo le idee con questo tipo di programmazione, per allenarmi faccio una rubrica telefonica e la collego al sqlite3, poi magari mi spieghi come posso creare il pacchetto di installazione.

10
Programmazione (Gambas 2) / Re: Andare a capo TextArea
« il: 12 Gennaio 2011, 12:40:32 »
Citazione da: Taurus dei miracoli - 25 Dicembre 2010, 20:52:14
Per andare a capo puoi usare anche la funzione Char$(13)

Nell'esempio che ti allego io verifico se la frase finisce con un punto (.): se si mando a capo con Chr$(13) se no metto uno spazio con Chr$(32).


      sStr = sStr & "[" & MyRS!versetto & "]"
      sStr = sStr & MyRS!testo
      IF Right(MyRS!testo, 1) = "." THEN
        sStr = sStr & Chr$(13)
      ELSE
        sStr = sStr & Chr$(32)
      ENDIF
      TextArea1.Text = sStr

Vedi se capisci e se ti piace.
Ciao Taurus dei miracoli, entro in questo post per sapere una cosa in alcuni esempi anche in PdfWriter vedo la varialbile MyRs!. Vorrei sapere se è una variabile che creo io o si trova già negli oggetti di Gambas? Poi il punto esclamativo associa il valore in questo caso MyRS!testo al testo che si scrive dentro la TextArea?

11
Programmazione (Gambas 2) / Re: Info TCP server
« il: 12 Gennaio 2011, 11:28:24 »
Citazione da: El Berto - 10 Gennaio 2011, 12:02:35
Allora, io uso l'ultima di Slackware (mi sembra la 13).

Il codice l'ho copiato direttamente da una pagina web dove parlava di Server/Client in Gambas.

Ci sono esempi di Gambas da vedere/scaricare da qualche parte?

Che la classe ClsServer non è creata lo sospettavo anch'io, come faccio?

Ciao El Berto, un consiglio da uno che usa come distro Debian da moltissimi anni, ma ha usato quasi tutte le distro più famose in linux Gentoo, Red Hat,Slackware, Mandrake  ed altre. Cercati una distro che si avvicina di più al tuo mondo cioè più simile a windows, che ti carichi già inpartenza quasi tutto anche Firefox. Perchè non per offenderti la Slackware è un po ostica per un principiante che si avvicina a Gnu-Linux. Ti consiglio l'ultima realise di Ubuntu.

12
Programmazione (Gambas 2) / Re: Problema con PdfWriter errore alle linea 3143
« il: 10 Gennaio 2011, 19:50:13 »
Rifatto il progetto con lo steso codice adesso funziona Ok Grazie a tutti per l'aiuto adesso  posso esercitarmi con questa ottima classe.Però che strano ho dovuto rifare il progetto ma!!!!

13
Programmazione (Gambas 2) / Re: Problema con PdfWriter errore alle linea 3143
« il: 10 Gennaio 2011, 18:28:06 »
Citazione da: Golia - 10 Gennaio 2011, 17:51:43
L'esempio l'ho fatto io...prenditela con me  ;D
Ho provato il tuo codice e funziona.
Pdfwriter non manda niente in stampa, crea solo un file pdf.
Con la shell usando il comando lpr si manda in stampa il file pdf.
Ti mando un esempio di pdfwriter casomai stasera provo a guardare meglio. Ho riportato nell'esempio il tuo codice e funziona. vedi bottone diakrufus
ciao fammi sapere

l'esempio è per G2

Grazie il tuo esempio e ottimo mi piace tanto è ho visto che il codice nel bottone diakrufus funziona bene. Sai una cosa se lo ricopio  nel mio esempio mi da sempre l'errore Too many argumentes. strano vero? Comunque adesso che ho il tuo esempio rifaccio tutto, ma prima mi studio il tuo sorgente Ciao  :2birre:

14
Programmazione (Gambas 2) / Re: Problema con PdfWriter errore alle linea 3143
« il: 10 Gennaio 2011, 15:04:21 »
Citazione da: doublemm - 10 Gennaio 2011, 00:17:46
hStampa = SHELL ("lpr " & User.Home "/report.pdf") WAIT  ' qua lo mandiamo in stampa

è sbagliata de mettere una &

hStampa = SHELL ("lpr " & User.Home & "/report.pdf") WAIT  ' qua lo mandiamo in stampa
Ok ho messo la & al suo posto, compila ma quando cerco di mandare in stampa alla riga 8 ed esattamente qua
Codice: [Seleziona]
pdf = NEW FTest("Portrait", "mm", "A4")
mi da questo errore
Too many argumentes.
Io sto seguendo l'esempio che c' è sul WIKI Guida al Report. Evidentemente chi ha creato l'esempio   ha commesso qualche svista. Per capire come funziona questa classe PdfWrite. Puoi postarmi qualche esempio, per capire come diavolo mandare in stampa qualcosa. visto che nell'esempio che c'è sulla classe va tutto in stampa sul monitor e non sulla stampate.

15
Programmazione (Gambas 2) / Re: Problema con PdfWriter errore alle linea 3143
« il: 10 Gennaio 2011, 00:05:41 »
Citazione da: Golia - 09 Gennaio 2011, 23:19:08
Puoi postare il modulo Ftest?
Eccolo
Codice: [Seleziona]
PUBLIC SUB stampa()
  DIM hStampa AS Process
  DIM pdf AS FTest
  RANDOMIZE 
  pdf = NEW FTest("Portrait", "mm", "A4")
  pdf.Open()
  pdf.AliasNbPages()
  pdf.Data
  pdf.Output(User.Home & "/report.pdf", FALSE) ' qua viene creato il file pdf
  hStampa = SHELL ("lpr " & User.Home "/report.pdf") WAIT  ' qua lo mandiamo in stampa
 ' hStampa = SHELL ("acroread " & User.Home & "/report.pdf")

END





PUBLIC SUB Button1_Click()

  stampa

END
Metto pure la sottoclasse
Codice: [Seleziona]
' Gambas class file

INHERITS PdfWriter
PUBLIC SUB Header()
  ME.SetX(0)
  ME.SetY(5)
  ME.SetFont("Arial", "BI", 20)
  ME.Cell(160, 6, "Rubrica", FALSE, 0, "L", FALSE)
  ME.SetLineWidth(0.2)      
  ME.Line(10, 17, 200, 17)
END


PUBLIC SUB _free()
END



'Page footer
PUBLIC SUB Footer()
  
END
 
 PUBLIC SUB Data()
  
  
  
  
END

Pagine: [1] 2