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

Pagine: [1]
1
Programmazione (Gambas 2) / estrapolare dati da file Bitmap.. (10 piccoli endian)
« il: 05 Giugno 2015, 11:46:25 »
Salve amici!
Avrei bisogno di riuscire ad estrapolare dei dati da un file bitmap /(24 bit) 10 per 10 pixels (per ora) e cioè:
     Aprire
     Scartare Header
     Tenere il descrittore dei colori
Per ogni pixel scrivere una stringa che descriva posizione x e y e "on" se il colore di questo è diverso da 0 (nero)
In poche parole fare un semplice Per chi lo sa fare..) parsing e dalla tripletta rgb
tipo:
Codice: [Seleziona]
...
Pixel 12 x2 y1 on
Pixel 13 x3 y1 on
Pixel 14 x4 y1 off
...
Pixel 46 x6 y4 on
...


il problema è la codifica che non è ascii
leggendo un po' su google ho letto di questo littel.endian che incasinano su tutto
Se solo riscissi a modificare il contenuto binario in una stringa dopo saprei cosa fare..

pensate sia possibile?  ???
Masiddai!

2
Programmazione / Pc > Sd file transfer (Arduino)
« il: 23 Maggio 2015, 06:43:28 »
Buongiorno a tutti!
Mi piacerebbe sapere se c'è la possibilità o se esiste già
un codice per trasferire dei file .bmp su di una Sd alloggiata
in un display tft montato su Arduino..
Al momento non ho trovato nulla ma credo si possa fare.
che ne dite?  :o ??? :rolleyes:

3
Programmazione / [Risolto] che strano..Type mismatch: wanted Integer got Null instead
« il: 29 Luglio 2014, 09:18:03 »
Non capisco.. devo estrarre da una stringa una parte (numero) e convertirla in valore numerico.
Son bloccato da due ore:
Codice: [Seleziona]
Dim aa As String[]
Dim escludi As String
Dim esclusivo As Integer
Dim Sline as String

' per esempio  Sline = "14.6504 31.8927 14.3198 153 155 152"

  
     a = Replace(Sline, "\n", " ")
     aa = Split(a, " ", "", True)
     escludi = aa[1]
     esclusivo = Val(escludi)
                             |Type mismatch: wanted Integer got Null instead in FMain:295|
' mi servirebbe estrarre 31.8927 e farci un calcolo
E' impossibile o sbaglio qualcosa? esiste un altro sistema per estrarre i primi due numeri?
Grazie a chi mi aiuterà.. ;)

4
Programmazione / Gambas3 + Arduino e plot dei dati..
« il: 23 Ottobre 2013, 14:37:55 »
Buongiorno amici!

Ho acquistato Arduini Uno e con un pò di delusione ho visto che posso leggere i dati degli ingressi analogici
dal monitor seriale..
cercando qua e la ho trovato varie soluzioni in C++ (ma non ci capisco un H++...)
in Visual Basic che però funziona su xp ma non ne voglio più sapere..
Ho trovato su questo forum
http://www.gambas-it.org/smf/index.php?topic=2485.msg26660;topicseen#msg26660

compersi
* leggi_ingressi-3.0.tar.gz

* lettura_ingressi_analogici.zip
che ho installato e funzionano. :D
ora vorrei un plot grafico che mi disegni ogni secondo il valore preso dal pin A1


tipo:
dato = valore preso da A1
punto (valore di x , dato)
valore di x = valore di x +1
Sembra facile e in Vb lo saprei fare ma modificando così:

Codice: [Seleziona]
Public Sub SPort_Read()
  Dim s, $s As String
  Dim i As Integer
  Dim incr As Integer
  
    Read #Sport, s, Lof(Sport) 
   
   
    s = Replace(s, "\r\n", "")
    s = Replace(s, "\n", "")
    s = Replace(s, "\r", "")
    Print s
  For i = 1 To Len(s)
    $s = Mid(s, i, 1)
   
    If $s = "#" Then
      sbuf = ""
    Else If $s = "!" Then
      
      textbox1.text = sbuf
      analizza(sbuf)
      
      


incr = incr + 1 

    Else
      sbuf &= $s
    Endif
  Next

  Catch
  Timer1.Stop
  Wait 0.1
  connetti
   
  Draw.Begin(DrawingArea1)
   Draw.point(100 + incr, 100)
    Draw.End
  
End

non vedo risultati.. ???

Sono certo che è semplice e col vostro aiuto funzionerà!



5
Programmazione (Gambas 2) / Presentazione..
« il: 05 Ottobre 2013, 14:11:35 »
Buon giorno a tutti! mi sono appena iscritto a questo forum..
Alberto

Pagine: [1]