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

Pagine: [1]
1
Programmazione / interpretazione stringa letta da seriale
« il: 21 Ottobre 2021, 14:53:29 »
Sarà banale, ma non riesco a capire cosa devo fare per "convertire" la stringa che ho e ottenere il dato che voglio.
Ho questo codice:

Codice: [Seleziona]
Dim strDaInviare2 As String = "I2CR" & Chr(30) & Chr(1)
SComm.Begin()
Write #SComm, strDaInviare2
SComm.Send()  
Sleep intervSleep
      
Dim valZoom As String = ""
Try Read #SComm, valZoom, Lof(SComm)
valZoom = Replace(valZoom, "\r", "")

a questo punto, in debug, leggo che "valZoom" contiene \x01 (oppure \x02 oppure \x03)

Qual è il modo corretto per leggere il valore?
Se ho ben capito, "\x" indica che le due successive cifre sono esadecimali (nello specifico, 01, 02 e 03 coincidono in entrambi i sistemi).
Come trasformarle? mi sta bene sia ottenere String che Integer...
lo so, sarà banalissimo, ma vorrei trovare il modo più corretto (e già ho dubbi su quanto ho scritto, tipo il "replace" utilizzato, reperito in rete).

Grazie




*********** EDIT ************
Per adesso avrei risolto così:

Codice: [Seleziona]
Dim valZoom As String = ""
      Try Read #SComm, valZoom, Lof(SComm)
      valZoom = Replace(valZoom, "\r", "")
      Select Case valZoom
        Case "\x01"
          valZoom = "1"
        Case "\x02"
          valZoom = "2"
        Case "\x03"
          valZoom = "3"
      End Select

2
Debian, Ubuntu e derivate / Impostare FORMATO data di sistema su Ubuntu (20)
« il: 19 Ottobre 2021, 12:47:55 »
Salve,
esiste un modo per impostare il formato della data di sistema, come su windows?

esempio: la data breve la voglio in GG/MM/AAAA, con l'anno a 4 cifre....  20/05/2021 (E NON 20/5/21, ad esempio)

3
Programmazione / Message.xxx (o intera applicazione) sempre in primo piano
« il: 15 Ottobre 2021, 17:40:58 »
Salve, ho un'applicazione che lancia via shell una mia applicazione scritta in Gambas.  Vorrei che questa applicazione lanciata venisse mostrata costantemente in primo piano.

Di fatto mi accade che, a volte, per una possibile condizione di errore, venga mostrato un messaggio (Message.Warning) prima ancora della comparsa della finestra principale.  Se per sbaglio si clicca al di fuori della finestra di messaggio, questa va in secondo piano, non si vede più, e l'utente rimane sull'ultima schermata dell'applicazione chiamante. 

Come posso ovviare a questo?

------------------------------------------------------------------------------
EDIT: penso che l'unica soluzione sia quella di riuscire a far visualizzare subito la form principale a tutto schermo prima che venga mostrata la MessageBox.
------------------------------------------------------------------------------

4
Programmazione / Comunicare sulla seriale
« il: 12 Ottobre 2021, 12:13:11 »
Salve,
ho il problema di dover comunicare con un arduino tramite porta seriale.
Ho trovato vari articoletti, ma il tutto è molto frammentato e sconnesso per me.

Qualcuno ha da suggerire una guida, un tutorial, che spieghi tutti i vari step e i passaggi da compiere?

grazie

5
Programmazione / problema in MediaPipeline
« il: 06 Ottobre 2021, 18:01:27 »
Ciao, ho un problema nell'utilizzo di una MediaPipeline.
Ho il seguente codice:

Codice: [Seleziona]
 f.src = New MediaControl(f.pl, "v4l2src")
    'Troviamo il percorso del device!
    Dim pDev As String = Utility.GetPercorsoDevice(ModuloGenerale.settaggioCorrente.FriendlyName, ModuloGenerale.settaggioCorrente.DevPath)
    f.src["device"] = pDev   '"/dev/video2"
  
    'creiamo il MediaFilter usando il formato associato al settaggio
    Dim strFrmt As String = ModuloGenerale.settaggioCorrente.MajorType1
    Dim strWidth As String = Str(ModuloGenerale.settaggioCorrente.Width1)
    Dim strHeight As String = Str(ModuloGenerale.settaggioCorrente.Height1)
    Dim strFramerate As String = Str(ModuloGenerale.settaggioCorrente.BitRate1)
    Dim stringaMediaFilter As String = "video/x-raw, format=" & strFrmt & ", width=" & strWidth & ", height=" & strHeight & ", framerate=" & strFramerate & "/1"
    f.ftr = New MediaFilter(f.pl, stringaMediaFilter)

omissis

Codice: [Seleziona]
f.src.LinkTo(f.ftr) 'here the error!!!

In pratica, all'istruzione "linkTo" ottengo un errore se il formato è diverso da "UYVY" (quindi con MJPEG e YUYV ad esempio).
Cosa sbaglio? Non credo dipenda dalla mancata installazione di codec su ubuntu.

Grazie

Pagine: [1]