Newsgroup: it.comp.lang.visual-basic
Titolo: TERMINALE MODEM VB6 perchè non va!!!

Ringrazio il lettore e chi potrebbe aiutarmi a risolvere il problema.
Ho trovato questa sorgente per VB4 se non sbaglio e sotto VB6 non vuol
saperne di funzionare, in pratica non dialoga con la porta COM2 che funziona
con qualsiasi altro terminale.
Qualche d'uno ha una semplice sorgente per fare un terminale per VB6?
Dovrei poter dialogare sulla seriale, ricevere e trasmettere dati ma quelle
piccole cose che tento di fare.. vanno a buca...
Premetto che sono multiprincipiante!
GRAZIE PER IL VOSTRO AIUTO!!!
---cut--- quello che non dialoga---cut---
Private Sub Fine_Click()
 'Fine esecuzione
 '---------------
 End
End Sub
Private Sub Form_Load()
 'Dimensionamento e Posizionamento Oggetti
 '----------------------------------------
 'Dimensione Form
 Height = 6400
 Width = 9000
 'Form al centro del video
 Left = (Screen.Width - Width) / 2
 Top = (Screen.Height - Height) / 2
 'Ampiezza della Label del titolo
 Titolo.Width = 2500
 'Posizionamento TextBox e bottoni
 BarraTitolo = 385
 TBox.Width = MyTerm.Width - (9000 - 8895)
 TBox.Height = MyTerm.Height - (6405 - 5475)
 Titolo.Top = MyTerm.Height - Titolo.Height - 60 - BarraTitolo
 Fine.Top = MyTerm.Height - Fine.Height - 60 - BarraTitolo
 Fine.Left = MyTerm.Width - (Fine.Width + 150)
 PulisciVideo.Top = MyTerm.Height - PulisciVideo.Height - 60 - BarraTitolo
 PulisciVideo.Left = MyTerm.Width - (PulisciVideo.Width + 150) * 2
 Inizio.Top = MyTerm.Height - Inizio.Height - 60 - BarraTitolo
 Inizio.Left = MyTerm.Width - (Inizio.Width + 150) * 3
 'Pulizia iniziale del TextBox di RTX
 '-----------------------------------
 TBox.Text = ""
 'Settaggio Porta di Comunicazione
 '---------------------------------
 Com.CommPort = 2
 Com.Settings = "9600,N,8,1"
 Com.PortOpen = True
 Com.InputLen = 0
End Sub
Private Sub Form_Resize()
 'Ridimensionamento TextBox e bottoni
 '-----------------------------------
 BarraTitolo = 385
 TBox.Width = MyTerm.Width - (9000 - 8895)
 TBox.Height = MyTerm.Height - (6405 - 5475)
 Titolo.Top = MyTerm.Height - Titolo.Height - 60 - BarraTitolo
 Fine.Top = MyTerm.Height - Fine.Height - 60 - BarraTitolo
 Fine.Left = MyTerm.Width - (Fine.Width + 150)
 PulisciVideo.Top = MyTerm.Height - PulisciVideo.Height - 60 - BarraTitolo
 PulisciVideo.Left = MyTerm.Width - (PulisciVideo.Width + 150) * 2
 Inizio.Top = MyTerm.Height - Inizio.Height - 60 - BarraTitolo
 Inizio.Left = MyTerm.Width - (Inizio.Width + 150) * 3
End Sub
Private Sub Inizio_Click()
 'Avvio dialogo con il TMC
 '------------------------
 'Abilitazione del timer
 RTX.Enabled = True
 'Cambio del colore da Blů a Rosso della Label
 Titolo.ForeColor = &HFF&
 'Il TextBox diventa l'oggetto attivo
 TBox.SetFocus
End Sub
Private Sub PulisciVideo_Click()
 'Pulizia Video e cancellazione contenuto del TextBox
 '---------------------------------------------------
 TBox.Text = ""
 'Il TextBox diventa di nuovo l'oggetto attivo
 TBox.SetFocus
End Sub
Private Sub RTX_Timer()
 'Routine di Ricezione/Trasmissione
 '---------------------------------
 If Com.InBufferCount > 0 Then
    Car = Com.Input
    TBox.Text = TBox.Text & Car
    'Limitazione ampiezza del TextBox per prevenire l'overflow
    If Len(TBox.Text) > 25000 Then
       TBox.Text = Right(TBox.Text, 20000)
    End If
    'Cursore dopo l'ultimo carattere
    TBox.SelStart = Len(TBox.Text)
  End If
  'Trasferimento controllo al Sistema Opwrativo per
  'l'esecuzione di altri eventi attivi
  x = DoEvents()
End Sub
Private Sub TBox_KeyPress(KeyAscii As Integer)
 If RTX.Enabled = True Then
    CarToSend = Chr(KeyAscii)
    If Com.PortOpen = True Then
       Com.Output = CarToSend
    End If
 End If
 KeyAscii = 0
End Sub

con qualsiasi altro terminale.
Ho provato a caricare il sorgente che hai postato ed a me funziona.
Penso che ti possa mancare il tempo di intervallo sul timer
Prima dell'istruzione
RTX.Enabled = True
prova ad inserire
RTX.interval = 100
Spero che il problema sia questo.
Saluti walter

 wrote in message
7fpl64$760$1...@fe1.cs.interbusiness.it...


Tra gli esempi di VB c'č un progetto che si chiama VBterm e che riguarda
proprio l'utilizzo dell'oggetto MScomm.

 wrote in message
7g15oc$2du$1...@fe2.cs.interbusiness.it...
