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

Pagine: 1 ... 12 13 [14] 15 16 ... 278
196
Germania / Re:Visualizzare il testo in colori diversi all'interno di un ComboBox
« il: 30 Luglio 2023, 17:47:28 »
Meglio ancora:

Codice: [Seleziona]
Public Sub Form_Open()

  ''Buchungsbeispiele
    
   ComboBox4.Sorted = True
   ComboBox4.add(" ")
   ComboBox4.add(("Bezahlt Stromrechnung"))
   ComboBox4.add(("Bezahlt Zeitschrift / Bücher"))
   ComboBox4.add(("Bezahlt Königin")) ' Etc...
   ComboBox4.add(("Bezahlt Hilfsmittel Königinenzucht"))
   ComboBox4.add(("Bezahlt Bienen"))
   ComboBox4.add(("Bezahlt Hilfsmittel Bienen"))
   ComboBox4.add(("Bezahlt Beute"))
   ComboBox4.add(("Bezahlt Rähmchen"))
   ComboBox4.add(("Bezahlt Beuten Zubehör"))
   ComboBox4.add(("Bezahlt Begattungk ästchen"))
   ComboBox4.add(("Bezahlt Futter "))
   ComboBox4.add(("Bezahlt Behandlung") & " TAMG")''
   ComboBox4.add(("Bezahlt Telefon"))
   ComboBox4.add(("Bezahlt Porto"))
   ComboBox4.add(("Bezahlt Verpackung"))
   ComboBox4.add(("Bezahlt Porto und Verpackung"))''
   ComboBox4.add(("Bezahlt Werkstatt Auto"))
   ComboBox4.add(("Bezahlt Miete Werkstatt"))
   ComboBox4.add(("Bezahlt Pacht Bienenstand"))
   ComboBox4.add(("Bezahlt Wasser"))
   ComboBox4.add(("Bezahlt Maschine"))
   ComboBox4.add(("Bezahlt Werkzeug Werkstatt"))
   ComboBox4.add(("Bezahlt Werkzeug Bienen"))
   ComboBox4.add(("Bezahlt Kleidung"))
   ComboBox4.add(("Bezahlt Werbung"))
   ComboBox4.add(("Bezahlt Honiggläser"))
   ComboBox4.add(("Bezahlt Etiketten"))
   ComboBox4.add(("Bezahlt BSV"))
   ComboBox4.add(("Bezahlt Labor"))
   ComboBox4.add(("Bezahlt Verein"))
   ComboBox4.add(("Bezahlt Berufsgenossenschaft"))
   ComboBox4.add(("Bezahlt Versicherungen"))
   ComboBox4.add(("Bezahlt Landwirtschaftskasse"))
   ComboBox4.add(("Bezahlt Gas"))
   ComboBox4.add(("Bezahlt Platzmiete Verkaufsstand"))
   ComboBox4.add(("Bezahlt Zubehör Honigproduktion"))
   ComboBox4.add(("Bezahlt Instandhaltung Gebäude"))
   ComboBox4.add(("Bezahlt Renovierung / Umbau Gebäude"))
   ComboBox4.add(("Bezahlt Privatentnahme"))
   ComboBox4.add(("Bezahlt sonstige Betriebsmittel"))
 
   'ComboBox4.Foreground = Color.Green
   ComboBox4.add((" Verkauf Privateinlage"))
   ComboBox4.add((" Verkauf Honig") & " …")
   ComboBox4.add((" Verkauf Honig 1 x 250 g Glas") & " …")
   ComboBox4.add((" Verkauf Honig 1 X 500 g Glas") & " …") 
   ComboBox4.add((" Verkauf Bienen"))
   ComboBox4.add((" Verkauf Königin"))
   
End


Public Sub ComboBox4_Click()

  Dim iColor As Integer
  Dim sText As String = ComboBox4.Text

  If Left(sText) = " " Then 
    iColor = 32768 '65280
  Else 
    iColor = 16711680
  Endif
  ComboBox4.Foreground = iColor
  ComboBox4.Text = LTrim(sText)

End

Naturalmente occorre stare attenti quando si riceve i dati che questi siano puliti da eventuali spazi iniziali e aggiungere uno spazio solo al dato "verde"

Direi che può andare, cosa ne dici?

197
Domande tecniche / Re:link all'eseguibile
« il: 30 Luglio 2023, 16:32:30 »
Che io sappia non è cambiato nulla, Linux non ha bisogno di estensioni per riconoscere i file.
Piuttosto potrebbe trattarsi di qualche altra ragione, sei sicuro che il programma, una volta che è partito con ".gambas" e funziona, se cancelli ".gambas" smetta di funzionare?
Potresti provare a rifare l'eseguibile e togliere l'estensione, oppure apri un terminale nella stessa cartella e scrivi:
Codice: [Seleziona]
$ chmod +x <NomeProgramma>
e vedi se cambia qualcosa

 :ciao:

198
Germania / Re:Visualizzare il testo in colori diversi all'interno di un ComboBox
« il: 30 Luglio 2023, 15:48:50 »
Non so se qualcosa del genere potrebbe servire, altrimenti occorre creare un proprio componente, come ha fatto shordi qui:
https://gitlab.com/shordi/ComboSeek

Codice: [Seleziona]
Public Sub Form_Open()

  ''Buchungsbeispiele
    
   ComboBox4.Sorted = True
   ComboBox4.add(" ")
   ComboBox4.add(("Bezahlt Stromrechnung|Red"))
   ComboBox4.add(("Bezahlt Zeitschrift / Bücher|Red"))
   ComboBox4.add(("Bezahlt Königin|Red")) ' Etc...
   ' ComboBox4.add(("Bezahlt Hilfsmittel Königinenzucht"))
   ' ComboBox4.add(("Bezahlt Bienen"))
   ' ComboBox4.add(("Bezahlt Hilfsmittel Bienen"))
   ' ComboBox4.add(("Bezahlt Beute"))
   ' ComboBox4.add(("Bezahlt Rähmchen"))
   ' ComboBox4.add(("Bezahlt Beuten Zubehör"))
   ' ComboBox4.add(("Bezahlt Begattungk ästchen"))
   ' ComboBox4.add(("Bezahlt Futter "))
   ' ComboBox4.add(("Bezahlt Behandlung") & " TAMG")''
   ' ComboBox4.add(("Bezahlt Telefon"))
   ' ComboBox4.add(("Bezahlt Porto"))
   ' ComboBox4.add(("Bezahlt Verpackung"))
   ' ComboBox4.add(("Bezahlt Porto und Verpackung"))''
   ' ComboBox4.add(("Bezahlt Werkstatt Auto"))
   ' ComboBox4.add(("Bezahlt Miete Werkstatt"))
   ' ComboBox4.add(("Bezahlt Pacht Bienenstand"))
   ' ComboBox4.add(("Bezahlt Wasser"))
   ' ComboBox4.add(("Bezahlt Maschine"))
   ' ComboBox4.add(("Bezahlt Werkzeug Werkstatt"))
   ' ComboBox4.add(("Bezahlt Werkzeug Bienen"))
   ' ComboBox4.add(("Bezahlt Kleidung"))
   ' ComboBox4.add(("Bezahlt Werbung"))
   ' ComboBox4.add(("Bezahlt Honiggläser"))
   ' ComboBox4.add(("Bezahlt Etiketten"))
   ' ComboBox4.add(("Bezahlt BSV"))
   ' ComboBox4.add(("Bezahlt Labor"))
   ' ComboBox4.add(("Bezahlt Verein"))
   ' ComboBox4.add(("Bezahlt Berufsgenossenschaft"))
   ' ComboBox4.add(("Bezahlt Versicherungen"))
   ' ComboBox4.add(("Bezahlt Landwirtschaftskasse"))
   ' ComboBox4.add(("Bezahlt Gas"))
   ' ComboBox4.add(("Bezahlt Platzmiete Verkaufsstand"))
   ' ComboBox4.add(("Bezahlt Zubehör Honigproduktion"))
   ' ComboBox4.add(("Bezahlt Instandhaltung Gebäude"))
   ' ComboBox4.add(("Bezahlt Renovierung / Umbau Gebäude"))
   ' ComboBox4.add(("Bezahlt Privatentnahme"))
   ' ComboBox4.add(("Bezahlt sonstige Betriebsmittel"))
 
   'ComboBox4.Foreground = Color.Green
   ComboBox4.add(("Verkauf Privateinlage|Green"))
   ComboBox4.add(("Verkauf Honig") & " …|Green")
   ComboBox4.add(("Verkauf Honig 1 x 250 g Glas") & " …|Green")
   ' ComboBox4.add(("Verkauf Honig 1 X 500 g Glas") & " …") 
   ComboBox4.add(("Verkauf Bienen|Green"))
   ' ComboBox4.add(("Verkauf Königin"))
   
End


Public Sub ComboBox4_Click()

  Dim iColor As Integer
  Dim s, sText, sColor As String = ComboBox4.Text
  Dim iPos As Integer = String.InStr(s, "|")

  sText = String.Mid(s, 1, iPos - 1)
  sColor = String.Mid(s, iPos + 1)
  If sColor = "Red" Then 
    iColor = 16711680
  Else 
    iColor = 32768 '65280
  Endif
  ComboBox4.Foreground = iColor
  ComboBox4.Text = sText

End

199
Domande tecniche / Re:link all'eseguibile
« il: 30 Luglio 2023, 14:20:40 »
Per quanto mi riguarda, non sono in grado di risponderti perché non ho capito la domanda.
Intendiamoci, magari anche se capivo non ero in grado ugualmente di aiutare...

 :ciao:

Nota Bene: Per quanto riguarda il collegamento di un eseguibile, consiglio di vedere la risposta appropriata di kicco qui :  https://www.gambas-it.org/smf/index.php?topic=9839.msg52805#msg52805

200
Database / Re:Modifiche in DataView
« il: 30 Luglio 2023, 14:12:49 »
Citazione da: kicco - 19 Luglio 2023, 07:23:59

Penso faccia parte del gioco, non credi?
Grazie invece!
 ;)

E infatti c'era un altro malfunzionamento.  :)

Se si interrompeva il salvataggio per colpa di un record non completo di tutti i dati, poi il progetto dimenticava l'indice.

Ora ho spostato il controllo da BeforeSaving a Save e tutto funziona a dovere, almeno fino a quando non scovo un altro errore  :P

Allego la versione 7

 :ciao:

201
Progetti degli utenti / Re:Invertitore di frasi
« il: 26 Luglio 2023, 22:52:01 »
Citazione da: vuott - 26 Luglio 2023, 18:42:38
Citazione da: Gianluigi - 24 Luglio 2023, 13:35:55
Questo è solo un codice basico, se volete migliorarlo...
Non so se comporta un miglioramento, ma si potrebbe usare un vettore di stringhe:

Codice: [Seleziona]
Private caratteri As String[] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "h", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " ", "(", "+", ",", "-", ".", "/", "\\", "<", ">", "=", ")", "?", "!", "'", ";", "&#xA4EF;", "&#xA4ED;", "&#xA4DB;", "&#xA4F7;", "&#xA4F1;", "&#xA4DE;", "&#xA4E8;", "&#x0048;", "&#x0049;", "&#xA4E9;", "&#xA4D8;", "&#xA4F6;", "&#x019C;", "&#x004E;", "&#x004F;", "&#x0500;", "&#xA779;", "&#xA4E4;", "&#x0053;", "&#xA4D5;", "&#xA4F5;", "&#xA4E5;", "&#x004D;", "&#x0058;", "&#x2144;", "&#x005A;", "&#x0250;", "&#x071;", "&#x0254;", "&#x0070;", "&#x01DD;", "&#x025F;", "&#x0253;", "&#x0265;", "&#x1D09;", "&#x017F;", "&#x029E;", "&#xA781;", "&#x026F;", "&#x0075;", "&#x006F;", "&#x0064;", "&#x0062;", "&#x0279;", "&#x0073;", "&#x0287;", "&#x006E;", "&#x028C;", "&#x028D;", "&#x0078;", "&#x028E;", "&#x007A;", "&#x0020;", "&#x0029;", "&#x002B;", "&#x0027;", "&#x002D;", "&#x16eb;", "&#x005C;", "&#x002F;", "&#x003E;", "&#x003C;", "&#x003D;", "&#x0028;", "&#x00BF;", "&#x00A1;", "&#x060C;", "&#x061B;"]


Public Sub Form_Open()

  TextEdit1.Text = "www.gambas-it.org e' la Comunita' dei programmatori Gambas!"

End


Public Sub Button1_Click()

  Dim s As String

  For c As Short = (TextEdit1.Text.Len - 1) To 0 Step -1
    s &= caratteri[caratteri.Find(TextEdit1.Text[c, 1]) + 68]
  Next 
  
  TextEdit2.RichText = s
  
End

Se lo testo con le scritte di prova del mio progetto, ottengo dei risultati differenti es. k e lettere accentate, select case inoltre permette in modo più semplice di provare nuovi codici, aggiunte...
 :ciao:

202
Progetti degli utenti / Re:Invertitore di frasi
« il: 26 Luglio 2023, 18:23:05 »
Secondo voi a cosa potrebbe servire, oltre al cazzeggio?
Magari scrivere mail senza farsi capire dalla AI ?

 :ciao:

203
Progetti degli utenti / Invertitore di frasi
« il: 24 Luglio 2023, 13:35:55 »
Ho visto una mail di Benoit (purtroppo l'ho cancellata involontariamente) che rispondeva con una frase capovolta e mi ha ispirato.
Questo è solo un codice basico, se volete migliorarlo...
Scrivete la frase che volete (numeri arabi esclusi più altre cose, se il carattere non è previsto appare un cancelletto), poi agite sul pulsante.
Potete copiare la frase capovolta e incollarla in qualunque posto che supporti il richtext (editor di testo, e-mail ecc.)

 :ciao:

204
Intelligenza artificiale / Per chi ama Gambas
« il: 20 Luglio 2023, 23:03:05 »
Bene io di intelligenza umana so poco e nulla di quella artificiale, però ho scoperto che attraverso di essa anche gli ignorantoni come me possono, attraverso i sottotitoli tradotti da essa nella nostra lingua, usufruire su Google di filmati tecnici prodotti in altre lingue.
Ad esempio ora possiamo godere appieno dei filmati di quel guru di Jorge Carrion detto Shordi qui il link:
https://www.youtube.com/@pelandogambas3
Ci sono un mare di cose interessanti là fuori e grazie alla AI ora possiamo goderne, bun studio

 :ciao:

205
Database / Re:Modifiche in DataView
« il: 19 Luglio 2023, 00:12:22 »
Questa spero sia davvero l'ultima modifica:
https://paste.c-net.org/HerbalCarlo

e se vi siete rotti, vi capisco

 :ciao:

206
Database / Re:Modifiche in DataView
« il: 18 Luglio 2023, 16:42:39 »
 :-[
Nella versione allegata prima c'erano degli errori che dovrebbero essere risolti nella versione 0.0.5 a questo link:
https://paste.c-net.org/BrushCahill

 :ciao:

207
Database / Modifiche in DataView
« il: 17 Luglio 2023, 22:42:46 »
Nell'ultima versione Master di Gambas, prima di andare in ferie, Benoit, pressato insistentemente dal sottoscritto, ha apportato delle modifiche a gb.db.form più precisamente a DataView e di conseguenza a DataBrowser che lo usa.
A questo limk: https://paste.c-net.org/BarksRenfro  potete scaricare un esempio funzionante.
Attenzione: per ora funziona solo con l'ultima versione Master di Gambas

Naturalmente l'esempio è stringato ma aiuta a capire molte cose, spero lo apprezziate e se avete domande...

 :ciao:

208
Programmazione / Re:Traduzione software gambas
« il: 11 Luglio 2023, 17:36:41 »
Citazione da: Gratisweb - 11 Luglio 2023, 17:02:10
Io sto cercando di capire come mettere la traduzione multilingue su software fatto in gambas, anche se fornisco il codice sorgente mica risolve la cosa riguardo le traduzioni ?, io volevo sapere un modo più veloce di inserire la traduzione invece di farlo ad ogni singola voce. Se il software ha moltissime stringhe a tradurlo ci vorrebbe non so quando

http://gambaswiki.org/wiki/howto/translate

209
Programmazione / Re:Traduzione software gambas
« il: 11 Luglio 2023, 10:45:23 »
Citazione da: kicco - 11 Luglio 2023, 09:47:23
Mi fai un esempio di programma che permette una cosa simile perchè credo di non averne mai incontrati! :rolleyes:
 :ciao:

Scusa kicco, stiamo rischiando di confondere le idee, io suggerisco una cosa e tu la smonti.
Gambas è l'esempio di programma che permette quello, se Gratisweb vuole mettere a disposizione un traduttore si studia bene il traduttore di Gambas, ne copia le parti che gli interessano e ottiene ciò che vuole.
Ricordo che se un suo utente chiede il codice sorgente lui è obbligato a fornirlo con l'eseguibile.

Questa è l'ultima volta che intervengo sulla questione

 :ciao:

210
Programmazione / Re:Traduzione software gambas
« il: 10 Luglio 2023, 22:57:59 »
Citazione da: Gratisweb - 10 Luglio 2023, 20:49:38
C'è qualche modo per tradurre in automatico tutte le stringhe di un software creato con Gambas ?, è una cosa lunga tradurre lle voci singolamente con Progretto/traduci....

Come ti è già stato detto, devi tradurre voce per voce, ma con l'aiuto del traduttore della IDE la cosa è abbastanza veloce.
Naturalmente devi predisporre le stringhe inserendole fra le parentesi () tonde.
Ti era stato anche suggerito di inserire un traduttore come quello di Gambas nel tuo programma, dando così la possibilità di essere tradotto dalle persone di madrelingua.
Non esiste altro modo, comunque qualunque automatismo (che ribadisco non esiste) andrebbe comunque controllato voce per voce.
Normalmente si scrive il programma in inglese (USA) poi visto che siamo italiani lo traduciamo in italiano, se distribuisci il codice sorgente gli altri hanno la possibilità di tradurre nella loro lingua, altrimenti doti il programma di un traduttore come detto prima.

Spero tanto di non dover più ritornare sull'argomento

Pagine: 1 ... 12 13 [14] 15 16 ... 278