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

Pagine: 1 2 [3] 4 5 ... 10
31
Programmazione / [Risolto] Saper l'editor predefinito
« il: 27 Gennaio 2019, 04:24:34 »
Ciao raga
con Schell devo lanciare l'editor di testo, sul mio pc è Gedit ma altri utenti potrebbero averne uno diverso.
da Gambas è possibile sapere l'editor di testo predefinito?

32
Programmazione / Numero inferiore a O
« il: 27 Gennaio 2019, 00:46:58 »
Ciao raga
mi serve un mano per capire dove toppo
devo fare una divisione con numeri float, ed evitare la divisione se un numero è 0
Codice: [Seleziona]
Public Btc As Float
Dim Opg as Float
Dim Parcella as String
Opg = 85
IF Btc <> 0 Then
Parcella =  (Opg/Btc) * 1.22 
End If


Il problema è che a Volte Btc è inferiore a 0, Tipo 0,852 e non entra nell'IF

33
Programmazione / [Risolto] Datediff
« il: 23 Gennaio 2019, 00:54:48 »
Ciao raga
devo calcolare il giorno di un anno dal 1 gennaio esempio:
Codice: [Seleziona]
10/01/19 = 10
03/02/19 = 34
 

sto usando Datediff ma mi da problemi con il risultato
Codice: [Seleziona]
01/01/19 = 0
02/01/19 = 0
03/01/19 = 1

il codice che uso è:
Codice: [Seleziona]
Anno = Year(ValueBox68.value)
Data1 = "01/01/" & Anno

  Label79.caption = DateDiff(Data1, ValueBox68.value, gb.day)

34
Domande tecniche / Gambas 3 non seleziona evento
« il: 13 Gennaio 2019, 20:18:22 »
Ciao
Ho Gambas 3.12.0 e mi succede una cosa strana, durante la programmazione se clikko su un evento nel codice il cursore non si posiziona sull'evento.
é alquanto fastidiosa in quanto devo ricercare gli eventi con trova.
Questo è successo dopo gli ultimi aggiornamenti.

35
Programmazione / Errore Gambas
« il: 30 Novembre 2018, 23:33:10 »
ciao raga

Gambas mi segnala questi errori
di che si tratta?
Citazione
Gtk:Message: 23:12:06.208: Failed to load module "canbera-gtk-module"
Citazione
gbx3: warning: circular references detected:

36
Programmazione / [Risolto] Anteprima nel dialog
« il: 28 Novembre 2018, 00:38:30 »
Ciao raga
con un Dialog.Path vado a cercare e caricare le immagini, il problema è che non vedo l'anteprima dell'immagine, ogni volta devo aprire prima con nautilus, vedere l'immagine da caricare memorizzare il nome e poi con il cercarla con il dialog.
oppure un sistema drag and drop da una cartella del pc aperta con nautilus e portarla in una picturebox
esiste una libreria un metodo per l'anteprima?
leimmagini sono di vario tipo,jpg,png,gif ecc..

37
Programmazione / [Risolto] problema con TextArea
« il: 18 Novembre 2018, 03:33:10 »
ciao raga
ho un problema con una textarea in un form
cerco di caricare i dati nella textarea
Codice: [Seleziona]
TextArea1.tetx = MyRS!note
mi risponde Null Object
Praticamente non riconosce l'oggetto textarea, nel form ci sono molti altri oggetti come TextBox, Button, Griglie ecc e nessuno mi da problemi, inoltre nel mio programma ci sono molti altri form con texarea che funzionano.
questo è successo all'impovviso, fino a ieri la textarea funzionava.
ho provato a dirottare i dati in una textbox e funziona, praticamente è solo  quella Textarea in quel form, ho anche provato a cancellarla e metterne una nuova, a cambiagli nome ecc..
ma non ne vuol sapere

38
Programmazione / [Risolto] caricare anni in una variabile
« il: 14 Novembre 2018, 20:19:49 »
ciao raga, mi serve una mano
ho ripreso un vecchio progetto e la mia ruggine si fa sentire
devo scaricare da una tabella mysql gli anni presenti, dato che ci sono molti doppioni devo riscaricare in un'altra variabile uno per.

esempio:  2010, 2013, 2013, 2016
nelle variabile devo avere: 2010,2013,2016
ho usato 2 variabili dinamiche, nella prima scarico tutti gli anni nella seconda devo averne uno per eliminando i doppioni

ho fatto del codice ma mi sono incartato, mi date una mano a sistemarlo?
Codice: [Seleziona]
If MyRSRm.Available Then
       MyRSRm.MoveFirst
           insDat.Add(MyRSRm!anno)
    
          For i = 1 To MyRSRm.Count
       
            SetDat.Add(MyRSRm!anno)
         
            MyRSRm.MoveNext
          
          Next
      
   
    
    For i = 1 To SetDat.Count
           
       For x = 1 To insDat.Count 
       
         If SetDat[i - 1] <> insDat[x - 1] Then                  
         insDat.Add(SetDat[i - 1])
       
     Next  
       
    Next

39
Programmazione / [Risolto] errore nel creare tabella mysql
« il: 04 Novembre 2018, 01:40:22 »
Ciao raga
devo rimettere mano a un vecchio progetto e data la mia ruggine ci sto sbattendo la testa  sulla creazione di una tabella.

mi date un'occhiata al seguente codice per capire dove toppa'

Codice: [Seleziona]
If $hconn.Tables.Exist("monete") = True Then
                 Message.info("la tabella monete esiste")
            Else
          sql = "CREATE TABLE monete ("
          sql &= "id INT NOT NULL auto_increment,"
          sql &= "codice VARCHAR(255) DEFAULT NULL,"
          sql &= "moneta VARCHAR(255) DEFAULT NULL,"
          sql &= "nazione VARCHAR(255) DEFAULT NULL,"
          sql &= "gruppo VARCHAR(255) DEFAULT NULL,"
          sql &= "anno INT DEFAULT NULL,"
          sql &= "denominazione VARCHAR(255) DEFAULT NULL,"
          sql &= "inizioproduzione VARCHAR(255) DEFAULT NULL,"
          sql &= "fineproduzione VARCHAR(255) DEFAULT NULL,"
          sql &= "tiratura VARCHAR(255) DEFAULT NULL,"
          sql &= "metallo VARCHAR(255) DEFAULT NULL,"
          sql &= "peso double(7,2) DEFAULT 0,"
          sql &= "titolo double(7,2) DEFAULT 0,"
          sql &= "puro double(7,2) DEFAULT 0,"
          sql &= "ritratto VARCHAR(255) DEFAULT NULL,"
          sql &= "testo VARCHAR(255) DEFAULT NULL,"
          sql &= "autore VARCHAR(255) DEFAULT NULL,"
          sql &= "diametro double(7,2) DEFAULT 0,"
          sql &= "spessore double(7,2) DEFAULT 0,"
          sql &= "conservazione VARCHAR(255) DEFAULT NULL,"
          sql &= "numismatica VARCHAR(255) DEFAULT NULL,"
          sql &= "vietata VARCHAR(255) DEFAULT NULL,"
          sql &= "descrizione TEXT,"
          sql &= "disponibilita VARCHAR(255) DEFAULT NULL,"
          sql &= "magazzino INT DEFAULT NULL,"
          sql &= "sovrapressoacquisto VARCHAR(255) DEFAULT NULL,"
          sql &= "sovraprezzovendita VARCHAR(255) DEFAULT NULL,"
          sql &= "scontocommercianti double(7,2) DEFAULT 0,"
          sql &= "set VARCHAR(255) DEFAULT NULL,"
          sql &= "fotoa TEXT,"
          sql &= "fotob TEXT,"
          sql &= "note TEXT,"
          sql &= "PRIMARY KEY(id)"
          sql &= ")ENGINE = InnoDB AUTO_INCREMENT = 0 DEFAULT CHARSET = latin1;"
          
          hres = $hConn.EXEC(sql)
          $hConn.Commit
        
          
          hres = $hConn.EXEC(sql)
          $hConn.Commit
       
        Endif   

mi ritorna questo errore
Citazione
Codice -1 - Form CreaDatabase - Sub CreaDatabase.creatabella.2638 - Errore Query failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'set VARCHAR(255) DEFAULT NULL,fotoa TEXT,fotob TEXT,note TEXT,PRIMARY KEY(id))EN' at line 1

40
Programmazione / [Risolto] errore dati PRIMARY KEY
« il: 22 Settembre 2015, 14:44:23 »
ciao raga
ho un problema su un database mysql che si è presentato dopo un aggiornamento di gambas.
dalle una delle prime versioni da gambas 3 ho creato un database mysql da codice e usato sempre lo stesso anche con i successivi aggiornamenti di gambas, l database ha sempre funzionato, ora ho aggiornato a gambas 3.8 e nel caricare i dati da quel database i campi id (numerici) delle tabelle diventano booleani.

per creare le tabelle ho usato questo codice :
Codice: [Seleziona]
If $hconn.Tables.Exist("lesenzione") = True Then
                Message.info("la tabella lesenzione esiste")
            Else
        If Message.Question("Creo la Tabella lesenzione?", "Si", "No") = 1 Then
        sql = "CREATE TABLE lesenzione ("
          sql &= "idlesenzione MEDIUMINT NOT NULL auto_increment,"
          sql &= "legge VARCHAR(55) DEFAULT NULL,"
          sql &= "testo VARCHAR(255) DEFAULT NULL,"
          sql &= "PRIMARY KEY(idlesenzione)"
          sql &= ")ENGINE = InnoDB AUTO_INCREMENT = 0 DEFAULT CHARSET = latin1;"
          
          hres = $hConn.EXEC(sql)
          $hConn.Commit
        Message.info("tabella lesenzione creata")
        Endif
      Endif

quando vado a leggere il campo "idlesenzione" mi ritorna un valore booleano, questo succede anche su altre tabelle ma non su tutte quelle che sono presenti nel database.
nel database ho creato tutte le tabelle (circa 60)  da codice come quello riportato sopra ma ora solo quelle meno popolate e che presentano da 1  a 4/5 record m ritornano i dati booleani, le tabelle con centinaia e migliaia di record funzionano.

41
Programmazione / [risolto] Mysql Aggiungere campo a una tabella esistente
« il: 11 Settembre 2013, 22:21:38 »
ciao raga
mi si è presentato un problema, in una tabella stentente devo aggiungere un nuovo campo senza rifare tutta la tabella in quanto perderei i dati.

la tabella l'ho creata da codice

Codice: [Seleziona]
If $hconn.Tables.Exist("tipo") Then
                Message.info("la tabella tipo esiste")
            Else
        If Message.Question("Creo la Tabella tipo?", "Si", "No") = 1 Then
        sql = "CREATE TABLE tipo ("
          sql &= "idtipo MEDIUMINT NOT NULL auto_increment,"
          sql &= "cod VARCHAR(55) DEFAULT NULL,"
          sql &= "gr double(9,2) DEFAULT 0,"
          sql &= "titolo VARCHAR(9) DEFAULT NULL,"
          sql &= "testo VARCHAR(255) DEFAULT NULL,"
          sql &= "PRIMARY KEY(idtipo)"
            sql &= ")ENGINE = InnoDB AUTO_INCREMENT = 0 DEFAULT CHARSET = latin1;"
            
          hres = $hConn.EXEC(sql)
          $hConn.Commit
        Message.info("tabella tipo creata")
        Endif
      Endif

ora dovrei aggiungere un nuovo campo con nome sconto di tipo double, ma come detto sopra non dovrei ne modificare i campi esistenti ne cancellare i dati presenti nei campi.

42
Programmazione / (risolto) dove toppo?
« il: 31 Agosto 2013, 00:18:24 »
ciao raga
sto testando un piccolo codice e non riesco a capire perchè sull'ultima lettera mi da il codice binario 0

codice
Codice: [Seleziona]
  Dim n, i As Integer
  Dim b As String
  Dim testo As String
  
           testo = "prova funzione"
           n = 8
           
       For i = 1 To Len(testo)
           b = Mid(testo, i, 1)
  
           Print b & " code " & Bin(String.Code(b, n))
 
      Next


risultato di print
Codice: [Seleziona]
p code 1110010
r code 1101111
o code 1110110
v code 1100001
a code 100000
  code 1100110
f code 1110101
u code 1101110
n code 1111010
z code 1101001
i code 1101111
o code 1101110
n code 1100101
e code 0


43
Programmazione / Backup parziale
« il: 14 Novembre 2012, 19:32:23 »
Ciao raga

con il seguente codice mi creo un backup del database
Codice: [Seleziona]
Shell ("mysqldump -u " & myuser & " -p" & mypassword & " --opt " & mynomedb & " > " & mypath & "/" & myfile) Wait

Ora mi si è presentato un problema diverso, il database ha circa 80 tabelle ora dovrei fare solo il backup di solo tre tabelle del database e ignorare le altre.

44
Domande tecniche / Rallentameno Programma
« il: 08 Ottobre 2012, 13:20:48 »
Ciao raga
Avevo installato gambas3 seguendo il link in questa sezione aperto da fsurfing.
qualche giorno addietro durante un'aggiornamento mi aggiorna anche gambas 3 (attuale versione 3.3.2).
Dopo l'aggiornamento durante la compilazione di un mio programma mi segnala delle variabili non usate, le cancello e ricompilo.
Sembrava tutto ok, il programma funziona e non invia errori.

Il problema è che ora sulle operazioni con il database Mysql (lo stesso di prima) e molto più lento, spesso si blocca e mi freeza il mio programma.

45
Programmazione / configurare lettore codice a barre
« il: 28 Settembre 2012, 23:18:06 »
ciao raga

con gambas 3 e pdfwriter stampo il seguente codice a barre come imm. allegata.
il carattere è il code39 e il codice scritto è 96/12-VE

il lettore laser legge il codice ma mi ritorna 96-O12'VE0

come posso configurarlo?


Pagine: 1 2 [3] 4 5 ... 10