Konu: Ustaların Önerileri Olabilir mi?
Sevgili Arkadaşlar,
Öncelikle kodları ne yaptıysam sizin yaptığınız gibi göstermeyi başaramadım. Bu konuda yardımlarınızı bekliyorum
Daha önce yaptığım bir formda telefon numaralarını gösteren 20 kadar label kutusu vardı. Nette dolaşırken bulduğum (çalıntı değil) bir ufak programdan da faydalanarak şöyle bir şey yaptım.
Label ların DblClick lerine şu kodu ekledim:
TelNo = this.Caption
WITH thisform
.visible = .f.
DO FORM FrmTel WITH TelNo
.visible = .T.
ENDWITH ]
Daha sonra üzerinde bir textbox ve bir Command button olan bir form yapıp command buttonun da koduna şu programı yazdım ve forma "mscomm32.ocx" i bağladım.
WITH THISFORM.oleControl1
.Enabled = .T.
.sThreshold = 1
.rThreshold = 1
.CommPort = 3
.PortOpen = .T.
.Output = [ATDT]+ALLT(THISFORM.text1.Value)+CHR(13)
SET BELL TO [sounds\ringin.wav],0
?? CHR(7)
SET BELL TO
WAIT WINDOW ;
[Konuşmayı veya Aramayı Bitirmek İçin];
+CHR(13);
+[Lütfen Bir Tuşa Basınız Veya Mousu Sol Tıklayınız.] &&;timeout 30
.output = [ATH0Z]+CHR(13)
.sThreshold = 0
.rThreshold = 0
.PortOpen = .f.
.CommPort = 1
.Enabled = .f.
ENDWITH
Thisform.Visible = .f.
THISFORM.Release
Şimdi ana formdaki telefon numaralarının üzerini çift tıklayınca telefon o numarayı çeviriyor ve konuşma sağlanıyor.
Program güzel çalışmasına ramen sanki biryerlerde birşeyleri eksik veya yanlış yapmış gibi bir duyguya kapıldım.
Bana önerilerinizi bildirirseniz çok sevinirim.
İlgi gösterecek arkadaşlara çok teşekkür ederim
Sevgilerimle.
Erdal