Posizionare testo in TextArea

[vuott]

Ma mi succede soltanto con l'IDE di Gambas.
Iniziò quando fu fatta quella modifica dell'IDE in qt5, in gkt di due o tre mesi fa.
Mah !

[Gianluigi]

Ma mi succede soltanto con l'IDE di Gambas.
Iniziò quando fu fatta quella modifica dell'IDE in qt5, in gkt di due o tre mesi fa.
Mah !

Credo tu abbia ragione, io ce l'ho un po con l'ultimo kernel per via del nuovo pc desktop, comunque funziona bene il fatto è che mi scoccia avere degli warning scritti nel registro.
Lo so che mi basterebbe zittirli, ma non è una soluzione. 

[vir1966]

Tipo una cosa del genere?

Poniamo il caso che si abbia soltanto il dato all'inizio di ogni riga e che il "relativo valore" debba essere posizionato via codice solo successivamente...

Intendi dire qualcosa del genere (rimanendo nell'esempio precedente)?

Codice: [Seleziona]

Public Sub Form_Open()




  Dim aDescrizione As String[] = ["Chiave inglese", "Ferro da stiro a vapore", "Macchinetta da caffè per cialde", "Aermacchi bicilindrica 1953"]

  TextArea1.Font = Font["monospace,11"]
  TextArea1.Text = "DESCRIZIONE" & "\n\n"
  For i As Integer = 0 To aDescrizione.Max
    TextArea1.Text &= aDescrizione[i] & "\n"
  Next

End

Public Sub Button1_Click()

  Dim aStringhe As String[] = ["DESCRIZIONE", "PREZZO", "Chiave inglese", "11,20", "Ferro da stiro a vapore", "32,40", "Macchinetta da caffè per cialde", "112,00", "Aermacchi bicilindrica 1953", "7.500,00"]
  Dim aSplit As String[] = Split(TextArea1.Text, "\n", Null, True)
  Dim iLen1, iLen2, iStart As Integer
  Dim sStringa1, sStringa2, sPrezzo As String

  For i As Integer = 0 To aSplit.Max
    If i > 0 Then
      If Comp(aSplit[i - 1], aSplit[i]) = 1 Then
        sStringa1 = aSplit[i - 1]
      Else
        sStringa1 = aSplit[i]
      Endif
    Endif
  Next
  iLen1 = String.Len(sStringa1) + 4
  For i = 0 To aStringhe.Max
    If i > 1 Then
      If i Mod 2 <> 0 Then
        If Comp(aStringhe[i - 2], aStringhe[i]) = 1 Then
          sStringa2 = aStringhe[i - 2]
        Else
          sStringa2 = aStringhe[i]
        Endif
      Endif
    Endif
  Next
  iLen2 = String.Len(sStringa2)
  For i As Integer = 0 To aSplit.Max
    iStart = String.Instr(TextArea1.text, aSplit[i]) - 1
    sPrezzo = aStringhe[aStringhe.Find(aSplit[i]) + 1]
    TextArea1.Pos = iStart + String.Len(aSplit[i])
    TextArea1.Insert(Space(iLen1 - String.Len(aSplit[i])) & Space(iLen2 - String.Len(sPrezzo)) & sPrezzo)
  Next

End

Molto bella e ben fatta grazie Gianluigi, anche se molto lontana dal mio modo (mooooolto scadente ) di programmare...io sono ancora fermo al

Codice: [Seleziona]

TextArea1.text=TextArea1.text & Chr$(13) & "Aermacchi 350  "& "                "& prezzo

e via di seguito con il problema di posizionare via via il prezzo sempre sulla stessa colonna. Alla fine comunque la TextArea mi serve per poi selezionare e copiare il testo visualizzato per poi trattarlo su LibreO Writer

[kicco]

Ma mi succede soltanto con l'IDE di Gambas.
Iniziò quando fu fatta quella modifica dell'IDE in qt5, in gkt di due o tre mesi fa.
Mah !

...è, si da lì sono iniziati i casini, di ogni genere.
Ho sempre degli starni malfunzionamenti.
Il mouse che seleziona due righe sotto la sua reale posizione.
Non si sposta il prompt nella posizione selezionata dal mouse.
In un nuovo progetto quando clicco su sul Fmain.form non si apre ecc.
 
Spero sia il prezzo da pagare  solo transitoriamente!
 

[Gianluigi]

Molto bella e ben fatta grazie Gianluigi, anche se molto lontana dal mio modo (mooooolto scadente ) di programmare...io sono ancora fermo al

Codice: [Seleziona]

TextArea1.text=TextArea1.text & Chr$(13) & "Aermacchi 350  "& "                "& prezzo

e via di seguito con il problema di posizionare via via il prezzo sempre sulla stessa colonna. Alla fine comunque la TextArea mi serve per poi selezionare e copiare il testo visualizzato per poi trattarlo su LibreO Writer

Prego, piano piano si può anche migliorare il nostro codice. 
Se capisco bene passi a Libre Write per poter stampare, se lo fai solo per quello e magari aggiungere qualcosa di scritto, te lo sconsiglio.

Domani posto un piccolo esempio e poi mi dici se ti piace e se può avvicinarsi ai tuoi interessi.

 

[vuott]

Spero sia il prezzo da pagare  solo transitoriamente!

Con gb.map invece tutto va liscio ! 

[kicco]

Spero sia il prezzo da pagare  solo transitoriamente!

Con gb.map invece tutto va liscio ! 

... come l'olio!

[vir1966]

Molto bella e ben fatta grazie Gianluigi, anche se molto lontana dal mio modo (mooooolto scadente ) di programmare...io sono ancora fermo al

Codice: [Seleziona]

TextArea1.text=TextArea1.text & Chr$(13) & "Aermacchi 350  "& "                "& prezzo

e via di seguito con il problema di posizionare via via il prezzo sempre sulla stessa colonna. Alla fine comunque la TextArea mi serve per poi selezionare e copiare il testo visualizzato per poi trattarlo su LibreO Writer

Prego, piano piano si può anche migliorare il nostro codice. 
Se capisco bene passi a Libre Write per poter stampare, se lo fai solo per quello e magari aggiungere qualcosa di scritto, te lo sconsiglio.

Domani posto un piccolo esempio e poi mi dici se ti piace e se può avvicinarsi ai tuoi interessi.

 

Per essere più precisi il programmino in questione e visto il mio lavoro che ha a che fare con le finestre ma non quelle targate Microsoft ma quelle in legno e pvc, mi serve per calcolarne la trasmittanza termica per poi appunto trasferire i risultati in un documento che andrà poi consegnato al cliente...di seguito l'output visualizzato sulla textarea, comunque grazie per qualsiasi info.
  26/01/2021                     Cliente____________
-
 01 Finestra mm. 1000 x 1000   1 anta/e
-
  Spessore infisso             mm.                                             75
  Altezza nodo inferiore  mm.                                               118
  Altezza nodo Laterale e superiore mm.                               118
  Altezza nodo centrale   mm.                                                0
  Altezza nodo traverso   mm.                                                0
  Tipo legno                                                                       Abete
  PRESTAZIONI:
  Vetrocamera          3+3.1Be/14GasWe/4ExCh/14GasWe/3+3.1Be
  Trasmittanza totale infisso                                 Uw  1.18  W/m2K
  Trasmittanza vetro                                              Ug  0.6  W/m2K
---------------------------------------------------------------------------------------------------------------
 01 PortaFinestra mm. 1000 x 2000   2 anta/e
-
  Spessore infisso             mm.                                             75
  Altezza nodo inferiore  mm.                                              166
  Altezza nodo Laterale e superiore mm.                              118
  Altezza nodo centrale   mm.                                             138
  Altezza nodo traverso   mm.                                               92
  Tipo legno                                                                     Abete
  PRESTAZIONI:
  Vetrocamera          3+3.1Be/14GasWe/4ExCh/14GasWe/3+3.1Be
  Trasmittanza totale infisso                                  Uw  1.32  W/m2K
  Trasmittanza vetro                                              Ug  0.6  W/m2K
---------------------------------------------------------------------------------------------------------------

[Gianluigi]

Per essere più precisi il programmino in questione e visto il mio lavoro che ha a che fare con le finestre ma non quelle targate Microsoft ma quelle in legno e pvc, mi serve per calcolarne la trasmittanza termica per poi appunto trasferire i risultati in un documento che andrà poi consegnato al cliente...di seguito l'output visualizzato sulla textarea, comunque grazie per qualsiasi info.
...

Ah pensavo ad un'altra cosa come vedrai dall'allegato progetto.
Comunque anche se creato per un altro scopo, il progetto allegato può darti uno spunto per crearti direttamente il report e stamparlo o inviarlo in allegato a una mail con il formato pdf.

Funzionamento:

Doppio click sul cliente per inviarne i dati alle proprietà.
Doppio click sui prodotti, dopo averne scelto la quantità, per popolare la TableView (potevo usare anche una gridview ma nella tableview volendo puoi anche scriverci).
Scrivi tutto quello che vuoi e poi crei il report agendo sul pulsante stampa.
Naturalmente è un abbozzo, anche se sufficientemente particolareggiato, che va raffinato

 

P.S. Domani se riesco ti creo un report con i dati che hai postato...

[vir1966]

Gianluigi Intanto grazie...me lo scarico e me lo studio, vediamo se riesco a capirci qualcosa 

[Gianluigi]

Come promesso, anche se in ritardo, allego un programma per la stampa delle schede tecniche.
È un filino complicato ed è creato con l'ultima master.
Dimmi se per caso non riesci a farlo funzionare con il tuo Gambas e chiedi pure lumi riguardo al codice.
Purtroppo non conosco la materia mi sono dovuto basare esclusivamente su quanto hai postato.
Se il tuo programma crea automaticamente i dati devi fare in modo di inviarli alla classe e da li al report.

Ciao

P.S. Report.Path è stata introdotta da poco se hai la stabile oppure una master un po datata devi commentare il codice:

Codice: [Seleziona]

hReport.Path = "/tmp/" & aPanel[0].Cliente & ".pdf"

altrimenti otterrai un errore.

Programma rimosso vedi il post successivo (appena sotto)

[Gianluigi]

C'era un errore su "Tipo legno" scritto in due modi.
C'era un malfunzionamento nell'aggiornamento dei dati immessi ora dando Invio da tastiera si salvano.
Ho aggiunto la possibilità di rimuovere gli ultimi dati aggiunti alla scheda tecnica.
Ho commentato Report.Path se lo si desidera avere basta de-commentarlo.

Ciao

[vir1966]

Ciao Gianluigi...intanto grazie per i tuoi esempi che sono molto utili per imparare cose nuove...allego invece il mio programmino cosi come lo ho concepito io, trasportando i parametri di calcolo da un foglio Excel per il calcolo della trasmittanza, il funzionamento è molto semplice, inserisco le misure faccio delle scelte se non sono quelle di default già preimpostate all'avvio e premo elabora, se tutto ok premo memorizza per tenere in memoria la misurazione e posso fare altre elaborazioni per altre misure di finestre, quando finito di calcolare premo visualizza per avere il report....sul quale appunto avevo delle difficoltà a posizionare i dati

[Gianluigi]

Non ho capito se l'esempio di report che ti ho postato, ti possa andar bene.
Io i calcoli non li ho capiti mi ci sono perso, se ti serve una mano a rifare il tuo programma, sono a disposizione ma occorrerà che tu mi faccia capire quali calcoli servono e dove.

 

[vir1966]

Non ho capito se l'esempio di report che ti ho postato, ti possa andar bene.
Io i calcoli non li ho capiti mi ci sono perso, se ti serve una mano a rifare il tuo programma, sono a disposizione ma occorrerà che tu mi faccia capire quali calcoli servono e dove.

 

Ciao Gianluigi....tranquillo non ti chiedo di rifarmi il programmino, l'ho inserito solo per coerenza visto che ti eri profuso ad aiutarmi, detto questo... si il report mi va benissimo, semmai non mi serve che i campi siano editabili essendo il risultato di un calcolo perché andando a modificare ad esempio un nodo cambierebbe anche la trasmittanza totale che è il fine ultimo per accedere alle detrazioni di legge. Comunque con calma proverò a inserire il report nel mio programma e indirizzare correttamente le variabili nello stesso