Visualizzazione dei risultati da 1 a 8 su 8

Discussione: seriali e baudrate

  1. #1

    seriali e baudrate

    ho provato altrove e mi hanno consigliato di vedere qui:
    ho la necessità di riconoscere il baudrate di una seriale in automatico poichè mi dovrò interfacciare con dispositivi di diverse generazioni, esiste un modo per farlo? qualcuno ha qualche idea?

    grazie fin da subito
    palmiro scitti

  2. #2
    Utente di HTML.it L'avatar di vonkranz
    Registrato dal
    Sep 2001
    Messaggi
    1,387
    La seriale viene aperta con il baudrate che ti pare (1200,2400,4800,9600 ecc..), non e' configurata a priori...quindi, sapendo la velocita' del dispositivo che vuoi controllare, la apri con i parametri che ti servono.
    ...and I miss you...like the deserts miss the rain...

  3. #3
    intanto grazie,
    palmiro scitti

  4. #4
    scusa ma mi è partita la risposta involontariamente, dicevo..intanto grazie,ma la mia esigenza è interfacciarmi con 2 generazioni (2 baudarate)differenti di dispositivo , e poichè l'utenza non è molto "sveglia" dovrei riuscire a far fare un detect in maniera "automatica". La mia idea sarebbe quella di fare un check ad una velocità (1200), se l'interfacciamento non va a buon fine allora significa che la velocità è l'altra (9600)...

    solo che tra dire e il fare c'è di mezzo l'esperienza...che tradotto significa che non sono capace...aiuto



    umilmente saluti...
    palmiro scitti

  5. #5
    pronto...c'è nessuno?
    palmiro scitti

  6. #6
    Utente di HTML.it L'avatar di darkblOOd
    Registrato dal
    Jul 2001
    Messaggi
    2,212
    Originariamente inviato da palmiro
    pronto...c'è nessuno?
    click!... tu tu tu tu tu tu













    a parte gli scherzi:
    codice:
    pseudocodice:
    
    Sub Testa_e_Connetti
    On Error GoTo ControllaErrore
    
    Lancia_Collegamento:
    MiaSeriale.ProvaCollegamentoConBaudRateX
    msgbox "Collegato!"
    Exit sub
    
    Controlla_Errore:
    If MiaSeriale.Errore = TroppoVeloce Then
       X = 1200
       MiaSeriale.BaudRate = 1200
       GoTo Lancia_Collegamento
    ElseIf MiaSeriale. Errore = TroppoLento Then
       X = 9600
       MiaSeriale.BaudRate = 9600
       GoTo Lancia_Collegamento
    End If
    End Sub

  7. #7
    abbi pietà...un pò meno pseudo e un pò più codice?...:master:
    palmiro scitti

  8. #8
    nessuno in aiuto???
    palmiro scitti

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.