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

Pagine: 1 ... 5 6 [7] 8 9 10
91
Programmazione / Re:[RISOLTO] file di testo per windows
« il: 16 Ottobre 2016, 19:14:47 »
si alla fine ho usato i caratteri speciali Chr(13) & Chr(10), non mi ricordo per quale motivo dissi diversamente  :-[. Hai ragione Gianluigi è un retaggio di VB , come sempre grazie dei suggerimenti  :ciao:

92
Programmazione / Re:[RISOLTO] file di testo per windows
« il: 15 Ottobre 2016, 15:32:36 »
scusate ritardo, ho risolto in questo modo:
Codice: [Seleziona]
Public Sub file_dat()
Dim datfile As Stream
Dim i As Integer
Dim k As Integer

Dim data As String
Dim lng As Variant
Dim alt As Variant
Dim bss As Variant
Dim dst As Variant
Dim snt As Variant
Dim buss As Variant
Dim cli As Variant

data = Format(Now, "mm dd yyyy ") 

 datfile = Open mydir & "/" & Label2.Text & ".dat" For Create
 Write #datfile, label2.Text & Chr(13) & Chr(10)
 Write #datfile, "SURVEY NAME: " & label2.Text & Chr(13) & Chr(10)
 Write #datfile, "SURVEY DATE:" & Space$(12 - Len(data)) & data & "COMMENT:" & Chr(13) & Chr(10)
 Write #datfile, "SURVEY TEAM: " & Chr(13) & Chr(10)
 Write #datfile, "?" & Chr(13) & Chr(10)
 Write #datfile, "DECLINATION:    0.00  FORMAT: DMMDUDRLADLN  CORRECTIONS:  0.00 0.00 0.00" & Chr(13) & Chr(10)
 Write #datfile, Chr(13) & Chr(10)  
 Write #datfile, "        FROM" & "           TO" & "   LENGTH" & "  BEARING" & "      INC" & "     LEFT" & "       UP" & "     DOWN" & "    RIGHT" & "   FLAGS" & "  COMMENTS" & Chr(13) & Chr(10)
 Write #datfile, Chr(13) & Chr(10)
 
 For i = 0 To GridView3.Rows.Count - 1
    k = i
    lng = Replace$(Format(Val(GridView3[k, 2].Text) / 0.3048, "0.00"), ",", ".") 
    buss = Replace$(Format(Val(GridView3[k, 3].Text), "0.00"), ",", ".")
    cli = Replace$(Format(Val(GridView3[k, 4].Text), "0.00"), ",", ".")
    alt = Replace$(Format(Val(GridView3[k, 5].Text) / 0.3048, "0.00"), ",", ".")
    bss = Replace$(Format(Val(GridView3[k, 6].Text) / 0.3048, "0.00"), ",", ".")
    dst = Replace$(Format(Val(GridView3[k, 7].Text) / 0.3048, "0.00"), ",", ".")
    snt = Replace$(Format(Val(GridView3[k, 8].Text) / 0.3048, "0.00"), ",", ".")
          
    
    Write #datfile, Space$(12 - Len(GridView3[k, 0].Text)) & GridView3[k, 0].Text & Space$(13 - Len(GridView3[k, 1].Text)) & GridView3[k, 1].Text & Space$(9 - Len(lng)) & lng & Space$(9 - Len(buss)) & buss & Space$(9 - Len(cli)) & cli & Space$(9 - Len(snt)) & snt & Space$(9 - Len(alt)) & alt & Space$(9 - Len(bss)) & bss & Space$(9 - Len(dst)) & dst & Chr(13) & Chr(10)
 Next
 
 Close #datfile

 Message.Info("file cretato")  

End

 :ciao:

93
Programmazione / Re:scrollview
« il: 05 Ottobre 2016, 20:28:21 »
eeh bhe mi impegno seriamente  ;D ;D ;D :2birre:

94
Programmazione / Re:scrollview
« il: 04 Ottobre 2016, 20:52:04 »
grazie Vuott per la dritta, e grazie a Gianluigi per il suggerimento che ha capito il mio problema ovvero scrivere una serie di dati in una DrawingArea
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 + (850 * Pic.Max), 595, 840)
  Pic[Pic.Max].X = (Scr.Width - Pic[Pic.Max].W) / 2
  Pic[Pic.Max].Background = &00FFFFFF 
  Pic[Pic.Max].Name = Pic.Count
  Pic[Pic.Max].Border = Border.Plain
  Pic[Pic.Max].Tag = Pic.Count
  
  Print Pic[Pic.Max].Name
 
End

Public Sub HPic_Draw()
Dim i As Integer

acapo = 0  

    Paint.Font.Name = "Arial"
    Paint.Font.Size = 8
    Paint.DrawText("Pagina N°" & Last.Tag, 300, 10)
   
 For i = b To 150
      
    Paint.DrawText("CIAO Linea " & i, 40, acapo)
 
    If acapo = 840 Then        ' viene creata nuova pagina quando sono arrivato al margine inferiore'  
      b = i
      nuovo_pic
      acapo = 0
     
    Endif
     
    acapo = acapo + 12

Next
Print b

Paint.Fill()
Paint.End() 

End


infatti in questo codice viene visualizzato solo l'ultima parte del ciclo for/next   :D :D :ciao: :ciao:

95
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

96
Programmazione / Re:classe Printer (gb.qt4 )
« il: 20 Settembre 2016, 20:44:48 »
no, al momento no, ma mi sono posto il quesito nel caso di dover stampare una serie di record senza dovermi preoccupare se un record venga perso tra una pagina e l'altra e senza dover passare per forza da un report di pre stampa.   

97
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  :)

98
Programmazione / Re:file di testo per windows
« il: 11 Maggio 2016, 22:05:17 »
Fantastico funziona
il segreto è stato Write, infatti senza usare i caratteri speciali chr(13) e chr(10) viene visualizzato il testo in Kate come con il blocco note il resto è stato facile e funziona anche il programma di restituzione 3D
Grazie ancora  :ciao:   

99
Programmazione / Re:file di testo per windows
« il: 11 Maggio 2016, 21:20:33 »
benissimo, il codice che mi hai postato viene letto correttamente sia da Kate che dal blocco note di win, ora provo ad applicarlo al mio codice quindi devo applicare ritorno a capo + nuova riga . ti faccio sapere per ora grazie

100
Programmazione / Re:file di testo per windows
« il: 11 Maggio 2016, 21:02:35 »
scusa devi aver pazienza, dove l'hai postato? che non lo vedo  :)

101
Programmazione / Re:file di testo per windows
« il: 11 Maggio 2016, 20:32:30 »
Ciao Gianluigi allego il codice che genera il file.dat, ho provato con chr(10) ed altri metodi come indicato
http://www.gambas-it.org/wiki/index.php?title=%22Andare_a_capo%22_in_un_oggetto_di_testo
ma nulla da fare

Codice: [Seleziona]
Public Sub file_dat()
Dim datfile As Stream
Dim i As Integer
Dim k As Integer

Dim lng As Variant
Dim alt As Variant
Dim bss As Variant
Dim dst As Variant
Dim snt As Variant
Dim buss As Variant
Dim cli As Variant

 datfile = Open mydir & "/" & Label2.Text & ".dat" For Create
 Print #datfile, label2.Text
 Print #datfile, "SURVEY NAME: " & label2.Text
 Print #datfile, "SURVEY DATE: "
 Print #datfile, "SURVEY TEAM: "
 Print #datfile, "?"
 Print #datfile, "DECLINATION:    0.00  FORMAT: DMMDUDRLADLN  CORRECTIONS:  0.00 0.00 0.00"
 Print #datfile, ""  
 Print #datfile, "        FROM" & "           TO" & "   LENGTH" & "  BEARING" & "      INC" & "     LEFT" & "       UP" & "     DOWN" & "    RIGHT" & "   FLAGS" & "  COMMENTS"
 Print #datfile, ""
 
 For i = 0 To GridView3.Rows.Count - 1
    k = i
    lng = Replace$(Format(Val(GridView3[k, 2].Text) / 0.3048, "0.00"), ",", ".") 
    buss = Replace$(Format(Val(GridView3[k, 3].Text), "0.00"), ",", ".")
    cli = Replace$(Format(Val(GridView3[k, 4].Text), "0.00"), ",", ".")
    alt = Replace$(Format(Val(GridView3[k, 5].Text) / 0.3048, "0.00"), ",", ".")
    bss = Replace$(Format(Val(GridView3[k, 6].Text) / 0.3048, "0.00"), ",", ".")
    dst = Replace$(Format(Val(GridView3[k, 7].Text) / 0.3048, "0.00"), ",", ".")
    snt = Replace$(Format(Val(GridView3[k, 8].Text) / 0.3048, "0.00"), ",", ".")
          
    Print #datfile, Space$(12 - Len(GridView3[k, 0].Text)) & GridView3[k, 0].Text & Space$(13 - Len(GridView3[k, 1].Text)) & GridView3[k, 1].Text & Space$(9 - Len(lng)) & lng & Space$(9 - Len(buss)) & buss & Space$(9 - Len(cli)) & cli & Space$(9 - Len(snt)) & snt & Space$(9 - Len(alt)) & alt & Space$(9 - Len(bss)) & bss & Space$(9 - Len(dst)) & dst
 Next
 
 Close #datfile

End


continuo a provare  :hard: :hard:

102
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

     

103
Programmazione / Re:inputbox maxlength
« il: 08 Aprile 2016, 13:04:12 »
grazie mille... è una figata!! :2birre:

104
Programmazione / Re:inputbox maxlength
« il: 07 Aprile 2016, 21:26:50 »
dunque, avrei risolto in questo modo:
Codice: [Seleziona]
Dim valore As String
  valore = InputBox("Nome Corso", "Nuova Tabella") 'inserimento dato"
If Len(valore) > 6 Then
  Message.Error("troppi caratteri", "OK")
Else
  Label1.Text = valore
Endif

non so se è molto elegante  ;D

105
Programmazione / Re:inputbox maxlength
« il: 04 Aprile 2016, 22:15:20 »
Grazie a Tutti, vedo cosa posso inventarmi  :D :D con i vostri suggerimenti

Pagine: 1 ... 5 6 [7] 8 9 10