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

Pagine: [1] 2
1
Programmazione / [risolto] barcode scanner
« il: 17 Luglio 2017, 19:23:02 »
Ciao a tutti. Ho un lettore di barcode USB collegato in emulazione di tastiera, per acquisire i dati letti ed elaborarli ho pensato di utilizzare una textbox e al momento che prende il focus mi visualizza il barcode numerico, però non mi piace perché implica una casella di testo attiva con possibilità di inserimento casuale da tastiera. Allora ho pensato di usare il Keypress del form :
Codice: [Seleziona]
Private a As String
Private b As String

Public Sub form_KeyPress()
   a = Key.Text
   b = b & a
   Label1.Text = b
End

ma non mi entusiasma molto
domanda: esiste la possibilità di inserire il barcode numerico letto in una variabile String senza dover usare i metodi indicati? oppure esiste un metodo che mi sfugge?
Grazie  :-[     

2
Programmazione / [RISOLTO]TableView con CheckBox
« il: 03 Giugno 2017, 15:10:50 »
Ciao a tutti, sono nuovamente a chiedere aiuto, dopo varie ricerche, ma non ne vengo a capo:
Ho una TableView popolata con 5 CheckBox con il seguente metodo:
Codice: [Seleziona]

Private kb As CheckBox
Private sa As ScrollArea

Public Sub Form_Open()
Dim obs As Observer
Dim i As Integer


  sa = TableView2.Children[0]

  obs = New Observer(sa) As "Scroll"
 
   With TableView2
    .W = 882
    .H = 280
    .Columns.Count = 3
    .Rows.Count = 30
  End With
   
  TableView2.Columns[0].W = 70
  TableView2.Columns[1].W = 110
  TableView2.Columns[2].W = 120

For i = 1 To 5
  With kb = New CheckBox(sa) As "CheckBox"
    .X = TableView2.Columns[2].X
    .Y = TableView2.Rows[i].Y
    .W = TableView2[i, 0].W
    .H = TableView2[i, 0].H
    .Text = "Prova" 
    .Name = "CheckBox"
  End With
Next 
End


e fino a qui tutto ok , applico il metodi Edit e Save per editare nelle celle:

Codice: [Seleziona]
Public Sub TableView2_Click()
  TableView2.Edit
 End

Public Sub TableView2_Save(Row As Integer, Column As Integer, Value As String)
TableView2[row, column].Text = Value
Print Value
End
 
Quando però vado a leggere il contenuto delle celle:

Codice: [Seleziona]
Public Sub Button1_Click()
Dim i As Integer
Dim a As Boolean
Dim b As String

  For i = 0 To 5
    a = TableView2[i, 2].Text  ' CheckBox.Value?? '
    b = TableView2[i, 0].Text
  Print b, a
  Next

End
non viene restituito il valore della CheckBox ( ottengo sempre 'False') mentre negli altri casi tutto ok. Dove sbaglio? Grazie :ciao:
 

3
Programmazione / [RISOLTO]formattazione data
« il: 06 Maggio 2017, 20:02:00 »
Ciao a tutti, il componente maskbox con proprietà impostata su 99/99/9999 viene gestita la data, usando gli eventi:

Codice: [Seleziona]
Public Sub MaskBox1_GotFocus()
  MaskBox1.Text = ""
  MaskBox1.Pos = 0
End

Public Sub MaskBox1_LostFocus()
Dim a1 As String
a1 = CDate(Replace(MaskBox1.Text, " ", "0"))
Print a1
Print Format(CDate(a1), "dd/mm/yyyy")
MaskBox1.Text = a1
End
   
e posso gestire l'inserimento dell'anno a due cifre.
il problema e che non riesco a formattare la data in gg/mm/aaaa, ovvero la data che inserisco nella maskbox viene riconosciuta sempre come mm/gg/aaaa.
utilizzando il componente Valuebox viene restituita la data gg/mm/aaaa ma non riesco a gestire l'inserimento dell'anno a due cifre.
dove sbaglio?
 

4
Progetti degli utenti / gestionale
« il: 18 Febbraio 2017, 21:38:28 »
Ciao lista, voglio condividere questo progetto di un piccolo gestionale che ho realizzato per la mia ditta che comincerò ad utilizzare e testare, non ancora definitivo, ma per la prima parte abbiamo:
- generazione dei database al primo avvio ( ho utilizzato sqlite3 )
   - form di setup per la gestione per i dati principali
- gestione anagrafica clienti
     - verifica della p.iva
    - cap collegato a databse dei comuni
    - invio mail cliente
- Gestione scadenze misuratori fiscali
    - inserimento, cancellazione, modifica
    - report di stampa delle scadenze
- Fatture
    - emissione fattura per cliente
    - selezione scadenze
    - selezione imposta iva
    - inserimento ddt
    - visualizzazione prestampa con possibilità di aggiungere dati prima della stampa
    - gestione modifica fattura
- Gestione fatture
    - lista fatture emesse
    - gestione pagamento rateizzato fatture
    - report lista fatture non pagate
     
non è sicuramente un prodotto professionale,  ma può essere un buon punto di partenza
 :) :)

5
Programmazione / [RISOLTO] textbox clear
« il: 26 Novembre 2016, 15:29:57 »
Ciao a tutti  :ciao:, sono nuovamente con dei quesiti 'strani', ho una serie di textbox ( textbox1, textbox2 etc), la domanda: è possibile cancellare il contenuto in un solo colpo senza utilizzare :
TextBox1.text =""
TextBox2.text=""
.........
ect
 o, come ho letto nei vari post devo creare un array di oggetti?
Grazie

6
Programmazione / scrollview
« il: 03 Ottobre 2016, 21:28:52 »
Ciao sono alle solite con una delle mie domande, non riesco a capire il comportamento della scrollview nel seguente codice creo una DrawingArea e viene numerata, ma quando le DrawingArea superano i margini della Scrollview tutte le DrawingArea cambiano numerazione.
Codice: [Seleziona]
Public Sub nuovo_pic()
Dim area As DrawingArea
  area = New DrawingArea(Scr) As "HPic"
  Pic.Add(area)
  Pic[Pic.Max].Move(40, 5 + (50 * Pic.Max), 595, 40)
  Pic[Pic.Max].X = (Scr.Width - Pic[Pic.Max].W) / 2
  Pic[Pic.Max].Background = &00FFFFFF 
  Pic[Pic.Max].Border = Border.Plain
  Pic[Pic.Max].Tag = Pic.Max
 
  page = Pic.Count
End

Public Sub HPic_Draw()
Paint.Begin(Last)

    Paint.Font.Name = "Arial"
    Paint.Font.Size = 16
    Paint.DrawText("Pagina N°" & page, 300, 20)

Paint.Fill()
Paint.End()

End


grazie  ;D ;D

7
Programmazione / classe Printer (gb.qt4 )
« il: 20 Settembre 2016, 13:36:20 »
Buongiorno una domanda sulla classe Printer : nel caso di stampare il contenuto di una gridview o una tabella di un dbase le pagine vengono calcolate direttamente o si deve usare in qualche modo Printer1.Count ?
grazie  :)

8
Programmazione / [RISOLTO] file di testo per windows
« il: 11 Maggio 2016, 14:52:20 »
Ciao a tutti, ho un quesito a cui non ne vengo a capo, ho realizzato un programmino di conversione dati , vi allego i file sorgente, cosa fa': legge un file di testo ( dati di rilevo ), salva in un database sqlite, vengono estratti alcuni dati e crea un file *.csv (regolarmente leggibile anche in ambiente win ) e un *.dat, quest'ultimo deve essere letto da un programma di restituzione 3D che gira sotto windows, ora il problema e che il file generato dal mio programma, se viene letto in ambiente linux risulta regolare, quando vado a leggerlo in ambiente Win con notepad è scritto senza ritorni a capo, ho letto che vanno usati i caratteri speciali per gestire la fine di una riga e il ritorno a capo \n e \r.
ma non so proprio come vanno usati nel codice, mi restituisce sempre errore.
Grazie mille

     

9
Programmazione / [RISOLTO]inputbox maxlength
« il: 02 Aprile 2016, 22:37:22 »
Buonasera è possibile impostare il numero di caratteri digitabili in una inputbox?
Grazie

10
Ciao a tutti, sono alle prese con i report di stampa e sto usando la la classe gb.report2 e fino a qui tutto ok anche il codice allegato funziona
Codice: [Seleziona]
Private rsquote As Result

Public Sub Report_Open()

Dim sql As String
Mod_Conn.db_apro

sql = "SELECT * FROM soci INNER JOIN quote ON soci.idsoci = quote.idsoci WHERE Anno = '" & FrmSoci.TextBox4.Text & "' ORDER BY soci.Cognome "
    rsquote = Mod_Conn.$conn.Exec(sql)
    ReportHBox1.DataCount = rsquote.Count
    reportlabel5.Text = FrmSoci.Label10.Text
End

Public Sub ReportLabel1_Data(Index As Integer)

  rsquote.MoveTo(Index)
  Last.Data = rsquote!Cognome

End

Public Sub ReportLabel2_Data(Index As Integer)

  rsquote.MoveTo(Index)
  Last.Data = rsquote!Anno

End

Public Sub ReportLabel3_Data(Index As Integer)

  rsquote.MoveTo(index)
  Last.data = Format$(rsquote!Importo, "$$0.#0")

End

ora esiste la possibiltà di chiudere il collegamento al database, in questo caso con "Mod_Conn.$conn.Close",  quando viene chiuso il report?
Grazie

11
Programmazione / [RISOLTO] Delete record in tabella collegata
« il: 02 Maggio 2015, 08:41:14 »
Ciao a tutti, sono nuovamente a porre un quesito: ho due tabelle TAB1 e TAB2, in TAB1 ho un campo IDindex (Primary Key) i record di questa tabella non possono essere cancellati ma solamente modificati; in tabella TAB2 riporto il campo IDindex per poter collegare le tabelle. I record di TAB1 e TAB2 vengono visualizzati : TAB1 in GridView1 e con una query visualizzo in GridView2 i record della TAB2 collegati a un record di TAB1. E fino a questo punto tutto fila liscio. Ora il quesito:come posso eliminare un record di TAB2, tenendo presente che: il database viene aperto e chiuso di volta in volta, che in TAB2 non è presente una primary key e che i valori dei campi per record possono essere uguali. Ho pensato di utilizzare le istruzioni MoveTo, MoveLast ma non so se sono sulla strada giusta ho cercato anche nel forum ma non ho trovato molto.
Grazie

12
Programmazione / [RISOLTO]gestione valuta
« il: 24 Aprile 2015, 22:33:47 »
Ciao a tutti dopo aver letto diverse discussioni sull'argomento sono riuscito a scrivere un piccolo codice per la gestione della valuta, ovvero inserendo un qualunque valore numerico, all'evento lostfocus() viene inserita, in automatico la virgola per indicare i centesimi.

Codice: [Seleziona]
Public Sub TextBox1_LostFocus()

Dim a As Float
a = Val(TextBox1.Text) / 100
TextBox1.text = Format$(a, "0.#0")
TextBox2.Text = Val(TextBox1.Text)

End


a questo punto vorrei utilizzare l'evento Change(), e qui mi sono bloccato........ ???  

13
Programmazione / codice fiscale
« il: 07 Febbraio 2015, 14:52:30 »
Ciao a tutti  :D
a titolo di studio, ho realizzato un prg per il calcolo del codice fiscale, utilizzando un database dei comuni da me convertito, il tutto è funzionante ma sarebbe da migliorare, tipo la ricerca nella combobox del comune quando digito la lettera e qualche controllo in più nell'inserimento dei dati. Per chi ha voglia allego il tutto.
a presto  :2birre:
   

14
Programmazione / [RISOLTO]SQLite3 record null
« il: 30 Novembre 2014, 10:57:01 »
Ciao
vi pongo il seguente quesito, a cui non riesco a venirne a capo,:
Ho un database regolarmnete creato, e non ancora popolato, e fino qui tutto ok, quanto vado a leggere i record con il seguente codice mi da errore.
Codice: [Seleziona]
Public Sub Button4_Click()

Dim db_anagrafica As New Connection
Dim rs_soci As Result  
Dim sql As String
Dim codice As Integer

With db_anagrafica
  .Type = "sqlite3"
  .Host = Application.Path
  .Name = "anagrafica"
  .Open
 
End With
rs_soci = db_anagrafica.Exec("SELECT * FROM soci") ' query di selezione
rs_soci.MoveLast ' ultimo record

Label10.text = rs_soci!idsoci ' leggo il valore

End

questo è solamente di prova, ma se nel database inserisco almeno un record il tutto funziona, la mia domanda:
esiste un'istruzione che mi riconosca il campo nullo e mi restituisca un valore che io possa gestire, senza dover per forza scrivere il primo record nel database?

grazie

15
Programmazione / [RISOLTO]ricerca in GridView
« il: 14 Aprile 2013, 15:26:03 »
Buongiorno a tutti
Avrei un quesito a cui non riesco venirne a capo: ho una gridview popolata, vorrei, al momento che riceve il setfocus inserire da tastiera ( evento keypress?) il dato da cercare e posizionarmi sul record che più si avvicina al dato inserito. Se qulcuno può aiutarmi. Grazie

Pagine: [1] 2