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?
Problem sa mscomm1 ?
Zaključano
Zakačeno
Ajde lepo procitaj FAQ. Kako sad neko da zna sta tebi ne valja ako nisi postovao kod?
Sledeci put ce ovakva poruka biti obrisana.
Sledeci put ce ovakva poruka biti obrisana.
Potpis
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!
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
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
Kad postujes kod, koristi code tag.
Pogledaj, na primer, ovo ili potrazi na googleu - ima koda koliko hoces.
Problem moze da bude attention string.
Pogledaj, na primer, ovo ili potrazi na googleu - ima koda koliko hoces.
Problem moze da bude attention string.
Potpis
EVo tu ti je uplodano to što ti treba.
PoZdRaV
PoZdRaV
Hvala ti!