tel cevirme

Anonymous · 6 Ağustos 2002

slm arkadaşlar benim sorum şu diyelim cevir diye bir command butonum ve içerisinde alan kodu ile birlikte telefon numarası yazan bir textbox ım var. yapmak istediğim şu cevir butonuna basınca textbox daki numarayı cevirsin?

Anonymous · 6 Ağustos 2002

Private Sub Dial(num As String)

Communications.PortOpen = True

Communications.Output = "AT" + Chr$(13)
Do

DoEvents
Loop Until Communications.InBufferCount >= 2

Communications.Output = "ATDT " + num + Chr$(13)
wait = Timer + 47

Do

DoEvents
Loop While Timer <= wait

End Sub
bunu biraz daha süsliyebilirsin ama bunuda kendin arastirmalisin mesela mesgul tonunda ise tekrar aratabilirsin felan burdaki beklenen deger num gordugun gibi kolay gele...

tel cevirme

Anonymous

Anonymous

Çevrimiçi üyeler

Botlar