Accesteki telefon numaralarımın modem ile otomatik çevrilmesi

1 2 3
30/12/2009, 22:27

benremix

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...
03/01/2010, 18:31

yakupkiris

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
17/01/2010, 01:12

akd

Merhaba arkadaşlar,
bu olayı hallettiyseniz programın son halini buraya eklerseniz,
sayenizde bizde yararlanırız.
Selamlar...
17/01/2010, 03:54

ozanakkaya

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.
17/01/2010, 10:26

akd

Teşekkürler sn.Sledgeab...
17/01/2010, 14:58

yakupkiris

sayın Sledgeab
teşekkür ederim kodları müsait anımda deneyeceğim inş.
1 2 3