Sn Yakupkiris mesajın altında düzenle tıkla tam düzenleyi seç eklentiyi kaldır ı tıkla.İşlem tamam, eklentiyi düzenle sonra tekrar ekle. Bu şekilde yapabilirsin. Eklentini zaten kaldırılmış. Bilgi için yazdım.
Kolay gelsin. Saygılar...
Firdevs hanım söylediğiniz gibi ben daha önce alan kodu yazdım ama hat almak için bir numara belirtmedim. neyse artık böylede kullanabiliyorum. Ayrıca düğmeye tasarım modunda tıklanınca, olaylar sekmesinde "tıkladığında" ifadesinde kod penceresi açınca burada "dim " ile açılan değişken için alttarafına bir satır daha açıp telefonların kayıtlı olduğu alana eşitledim. Artık düğmeye tıkladığımda alandaki telefon otamatik çevriliyor. Neyse bakalımkaendimizi daha da geliştirmeliyiz.
sayın benremix
mesaja geç cevap verdim kusura bakmayın dediğinizi şimdi yapacağım teşekkürler
Merhaba arkadaşlar,
bu olayı hallettiyseniz programın son halini buraya eklerseniz,
sayenizde bizde yararlanırız.
Selamlar...
Arkadaşlar konu hakkında hiç bir fikrim yok ama eşrefigit hocamın aşağıdaki mesajının faydası olabilir.
(05/06/2009, 10:42)esrefigit yazdı: öncelikle dialup modemin caller id destekleyip desteklemediğini bilmen lazım bende iki tane conexant modem vardı ikiside desteklemiyordu neyse bunu kullanabilmen için mscomm.ocx ie ihtiyacın var bunu sistem32 içine atacaksın ve Access de ekleyeceksin çalışmazsa çalıştırdan
regsvr32.exe mscomm.ocx
yapacaksın sonra formuna bir adet microsoft communications control versiyon 6.0 activex i ekleyeceksin
adınını MSComm1 diye değiştireceksin
sonrada denetim masası telefon modemler açıp ordan modemler sekmesine tıklayarak modemin hangi portu kullandığına bakacaksın
şimdi kodlara geçelim
Private Sub Form_Load()
modemin bağlı olduğu portu gösteririz benimki 4.portdu
MSComm1.CommPort = 4
modemin bağlantı hızı bit değeri vs vs
MSComm1.Settings = "9600,N,8,1"
modemin okuma tipi
MSComm1.RThreshold = 1
modemden gelen veri tipi 1 yada 0 olur modemin marka ve tipine göre değişir
MSComm1.InputLen = "0"
portu açarız
MSComm1.PortOpen = True
modeme daha önce gönderilmiş komutları temizler
MSComm1.Output = "ATZ" & Chr$(13)
modemin caller id sini açar bu komut (AT+VCID=1)modemin marka ve modeline göre değişir
MSComm1.Output = "AT+VCID=1" & Chr$(13)
End Sub
ben diğer caller id açma kodlarını da ekliyorum şayet şu an girili kodla metin kutusuna ok kelimesi gelirse doğru kod
eğer açmazsa diğerlerini denersin
AT#CID=1
AT%CCID=1
AT+VCID=1
AT#CC1
AT*ID1
buraya comm nesnesini açma ve ona caller id yükleme işini yaptık şimdi telefon çaldımı bunu farkedip numarayı getirme olayına bakacağız
Private Sub MSComm1_OnComm()
Dim hadinumaragel
Select Case MSComm1.CommEvent
Case comEvReceive
While MSComm1.InBufferCount
hadinumaragel = MSComm1.Input
txtname1.Value = txtname1.Value & hadinumaragel
Wend
End Select
End Sub
telefon çaldığında metin kutusunda
RING
DATE ......
TIME......
NUMBER ......
RING
diye bir sonuç vermesi gerekiyor yod eğere sadece
RİNG
RİNG
RİNG
diye devamlı ring ring yazıyorsa modeminiz CALLER İD desteklemiyordur
şayet numara ve tarihi görebiliyorsanız tarih numara saat diye ayırmasını sanırım yapabilirsiniz
örneğiniz ve active x ektedir
http://www.tolgasoft.com/?ts=download&id=494
burada usb caller id cihazı var sanırım sen başkalarınıda bulabilirsin ayrıca bazı cep telefonlarının da modem özelliği var
diğer gereksiz konuların fazla uzamasından dolayı bu konu geride kalmasın diye bu güncelleme yapılmıştır.
Teşekkürler sn.Sledgeab...
sayın Sledgeab
teşekkür ederim kodları müsait anımda deneyeceğim inş.