[ filipc @ 24.05.2004. 14:25 ] @
Imam jedan problem:
Kad postavim mscomm1 na formu ja bi da pomocu njega napravim dial-up vezu t.j da mogu da se konektujem sa bilo kim naprimer da zovem nekoga ali nece da se otvori port za zvanje .

U cemu je problem?
[ mladenovicz @ 24.05.2004. 14:58 ] @
Ajde lepo procitaj FAQ. Kako sad neko da zna sta tebi ne valja ako nisi postovao kod?
Sledeci put ce ovakva poruka biti obrisana.
[ filipc @ 24.05.2004. 15:02 ] @
Ovo je source cod od onog clana Luke nije moj ali nece da pozove broj to mi je problem da bi prepravio program.

Znaci imam 2 textbox-a , 2 command button-a , 1 mscomm i jedan timer , to je sve!

Code:

Private Sub Command1_Click()
On Error Resume Next

Dim BROJTELEFONA As String
BROJTELEFONA = InputBox("Enter Phone Number ", "Phone Number")
Form1.MSComm1.Output = "ATDT " & BROJTELEFONA & vbCr
End Sub

Private Sub Command2_Click()
If ioport = True Then
    Command2.Caption = "Open Port"
    MSComm1.Output = "ATH" + vbCr
    MSComm1.PortOpen = False
    ioport = Not ioport
Else
    Command2.Caption = "Close Port"
    MSComm1.PortOpen = True
    ioport = Not ioport
End If
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()
Text2.SetFocus
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
    If ioport = True Then
        Form1.MSComm1.Output = Text2.Text & Chr$(13) + Chr(10)
    Text2.SetFocus
End If
        Text2.Text = vbNullString
End If
End Sub

Private Sub Timer1_Timer()
If ioport = True Then
Text1.Text = Text1.Text & MSComm1.Input
End If
End Sub
[ mladenovicz @ 24.05.2004. 15:08 ] @
Kad postujes kod, koristi code tag.
Pogledaj, na primer, ovo ili potrazi na googleu - ima koda koliko hoces.

Problem moze da bude attention string.
[ VRKY @ 24.05.2004. 16:38 ] @
EVo tu ti je uplodano to što ti treba.
PoZdRaV
[ filipc @ 24.05.2004. 17:49 ] @
Hvala ti!