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

Pagine: 1 2 3 [4] 5 6
46
Programmazione / Stampa con versione 2.99
« il: 14 Settembre 2010, 17:55:34 »
Ho provato a stampare con questa versione ma mi sono subito stoppato. L'istruzione :
Codice: [Seleziona]

public stampante as new printer

stampante.configure     ' per scegliere la stampante
stampante.name           ' il nome è corretto
Paint.Begin(stampante)                                       

mi evidenzia l'errore : printer is not printing.
Qualcuno ne sa qualcosa ?

47
Programmazione / Re: Errore con VAL(stringa) e CInt(stringa)
« il: 29 Agosto 2010, 12:48:18 »
Indubbiamente la tua soluzione è molto + elegante, e credo proprio che la adotterò. Comunque il problema a cui tu facevi riferimento non mi si è mai posto perchè stranamente i caratteri strani stavano sempre davanti. E ciò si verificava porincipalmente nel caso di importazione dati.
E grazie del suggerimento.

48
Spesso e volentieri mi ritornavano degli errori utilizzando le funzioni VAL(stringa) e CINT(stringa). Ovviamente i valori di stringa sono numerici tipo "123". Ho cercato di scoprire la causa e ho visto che gambas va in errore quando nella stringa ci sono caratteri particolari. Ho allora fatto questa funzioncina che sostituisce il valore "0" al posto dei caratteri strani. E' corretto così o c'è qualcosa che mi sfugge ? Utilizzo Gambas 3 e Ubuntu 10.4
Codice: [Seleziona]
Public Sub ControlloSTR()
Dim i As Integer
For i = 0 To Len(sStringa)
  If Asc(sStringa, i) > 57 Or Asc(sStringa, i) < 48 Then
     Mid$(sStringa, i, 1) = 0
  Endif
Next  
End

49
Programmazione (Gambas 2) / [RISOLTO] Re: Help on line
« il: 03 Agosto 2010, 10:13:32 »
Ho fatto una cosa forse non molto bella, ma credo abbastanza efficace.
Scrivo gli help in files di testo.
Ho creato una form con una TextArea.
Leggo il file di teso e lo butto dentro la textarea.
Eppur funziona. Con 2 semplici istruzioni me la sono cavata.
C'è qualche controindicazione??
Codice: [Seleziona]
 FileHelp = File.Load(Me.PathFile)
  TextArea1.Text = FileHelp

50
Programmazione (Gambas 2) / [RISOLTO] Help on line
« il: 02 Agosto 2010, 18:44:52 »
Anche se siamo in agosto posto comunque questa domanda. Non sarete mica tutti al mare ....
Vorrei gestire degli help on line ad un applicativo Gambas? Ad esempio per spiegare con l'help le peculiarità dell'applicativo .
Quale potrebbe essere il metodo migliore ? Vorrei evitare di fare tante form.  saluti.



51
Grazie. Era proprio la soluzione che cercavo.

52
Programmazione / Re: Eliminare CASE da chiamate ripetitive
« il: 30 Giugno 2010, 13:56:14 »
ObElencoProgetti.Destinazione="ObVisProgAzioni.TB_CodiceProgetto"  - Messaggio di errore: Type mismatch : wanted Object, got string instead.
 

53
Programmazione / Re: Eliminare CASE da chiamate ripetitive
« il: 30 Giugno 2010, 08:38:52 »
Scusami se rispondo con ritardo , ma ho capito il concetto ma mi risulta difficile l'applicazione. Non riesco a inserire opportunamente nel programma esistente le semplici istruzioni che hai postato.
il programma chiamante :
Codice: [Seleziona]
Public Sub BTN_SceltaProgetto_Click()
          ObElencoProgetti.Show
End

Public Sub TB_CodiceProgetto_Change()
Dim sTabella, sWhere, sCondizione As String
  ConnettiDB   
            sTabella = sFileProgetti
            sWhere = "prog_codice=&1"
            sCondizione = Trim(TB_CodiceProgetto.Text)
            hRecProg = $hConn.Find(sTabella, sWhere, sCondizione)
            Visualizza_Progetto()
            Visualizza_Azioni()
End



tramite il BTN_SceltaProgetto  richiama un programma che visualizza i progetti presenti in un DB, questo programma ripassa al programma chiamante il codice del progetto con Obxxxxx.TB_CodiceProgetto.Text(l'insieme delle CASE )  e a questo punto a fronte dell'evento change il programma chiamante mi visualizza i dati del Progetto. Dove inserire la chiamata alla funzione che mi dovrebbe ridare il codice del progetto? Il programma che mi visualizza l'elenco dei progetto devo sempre chiamarlo. Scusatemi ma la programmazione ad oggetti non è il mio forte.



54
Programmazione / [RISOLTO] Eliminare CASE da chiamate ripetitive
« il: 28 Giugno 2010, 19:53:33 »
Codice: [Seleziona]
 Select Case ModComune.FormChiamante
                      Case "ObArchProgettiMod"
                                               ObArchProgettiMod.TB_CodiceProgetto.Text = Trim$(hRecProg!prog_codice)
                      Case "ObVisProgetti"
                                               ObVisProgetti.TB_CodiceProgetto.Text = Trim$(hRecProg!prog_codice)
                      Case "ObInsAzioni"
                                               ObInsAzioni.TB_CodiceProgetto.Text = Trim$(hRecProg!prog_codice)
                      Case "ObAnnAzioni"
                                               ObAnnAzioni.TB_CodiceProgetto.Text = Trim$(hRecProg!prog_codice)
                      Case "ObInsDatiMensili"
                                               ObInsDatiMensili.TB_CodiceProgetto.Text = Trim$(hRecProg!prog_codice)
                      Case "ObVisProgDati"
                                               ObVisProgDati.TB_CodiceProgetto.Text = Trim$(hRecProg!prog_codice)
                      Case "ObVisProgAzione"
                                               ObVisProgAzione.TB_CodiceProgetto.Text = Trim$(hRecProg!prog_codice)
               End Select
Avevo già postato la domanda formulata in maniera diversa.
Questa parte di codice viene richiamata da vari programmi/form.
Ogni programma chiamante ha una  textbox denominata TB_CodiceProgetto dove viene passato un codice letto da un db.
Esiste una formulazione elegante per eliminare questa sfilza di condizioni case.
Il nome del Form chiamante sta in un modulo comune ModComune.FormChiamante. E' possibile ?


55
Diciamo però che su g2 non dava problemi.

56
Programmazione / Re: Aprire form non associata ad evento
« il: 25 Giugno 2010, 22:47:06 »
Efettivamente lo shomodal risolve. Grazie.

57
Programmazione / Re: Aprire form non associata ad evento
« il: 25 Giugno 2010, 19:23:41 »
Aggiungo per precisare . Normalmente se ho spazio sul video faccio tutto con una gridview, ma questa volta non ho spazio sul video.
L'l'unica soluzione è il Panel ?

58
Programmazione / [RISOLTO] Aprire form non associata ad evento
« il: 25 Giugno 2010, 19:21:27 »
Cerco un suggerimento. Ho una form1 che tramite un bottone (un evento click) apre un'altra form2 su cui si fanno delle scelte. Tutto Ok.
Se però lancio direttamente l'apertura della form2 inserendo Form2.show nella Form_open succede che la form2 si apre ma resta sotto la form1 chiamante.
Come faccio a farla aprire sopra la Form1 chiamante??

59
per quanto strano, tolta l'istruzione tutto ok.

60
PUBLIC ID as STRING

Pagine: 1 2 3 [4] 5 6