callerID - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: callerID (/konu-callerid.html) |
Cvp: callerID - accessman - 04/06/2009 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/Development/microsoft.public.win32.programmer.tapi/2007-09/msg00016.html Cvp: callerID - accessman - 04/06/2009 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 Cvp: callerID - esrefigit - 04/06/2009 çok acele ediyorsun öncelikle dialup modeminin caller id özlleği olması gerekiyor ben elimdeki kodlardan bir örnek yaomaya çalışıyorum bitince ekleyeceğim Cvp: callerID - accessman - 04/06/2009 hürmetler esrefigit teşekkürler Cvp: callerID - esrefigit - 05/06/2009 ö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. Cvp: callerID - esrefigit - 05/06/2009 günceleme |