arayan numaranın gözükmesi sayesinde Access programlarında çok güzel şeyler yapılabilir
usta arkadaşlarımız bir el atsalar

---

bu adresin faydası olabilir mi acaba

http://www.tech-archive.net/Archive/Deve...00016.html

yardım eden yokmu

---

laptoplarda fax modem olmadığı için arayan numarayı görme ( callerID ) olayının olamayacağını söylüyorlar bana saçma geldi ama bu konuda bilgisi olan arkadaşların düşüncelerini merak ediyorum

çok acele ediyorsun öncelikle dialup modeminin caller id özlleği olması gerekiyor ben elimdeki kodlardan bir örnek yaomaya çalışıyorum bitince ekleyeceğim

hürmetler esrefigit
teşekkürler

ö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.

günceleme