1 Konuyu açan erdal1941

  • erdal1941
  • erdal1941
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 15.07.2009
  • İleti: 225

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

2 Cevaplayan erdal1941

  • erdal1941
  • erdal1941
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 15.07.2009
  • İleti: 225

Re: Ustaların Önerileri Olabilir mi?

Sevgili Arkadaşlar,
Dün yazdığım mesajda kodları sizler gibi yazmayı başaramadığımı söylemiştim. Ama uğraşınca başardım. Bir deneme olması için mesajımı tekrar ve gerektiği gibi gönderiyorum.Umarım vaktinizi aldığım için beni bağışlarsınız.
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:

Visual Fox Pro
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.

Visual Fox Pro
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

3 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Ustaların Önerileri Olabilir mi?

Bana duzgun gorunuyor. Baska bir yol daha istersen (Ole yerine windows API):

Visual Fox Pro
telefonNo = trim(THISFORM.text1.Value)

Declare long tapiRequestMakeCall IN "tapi32.dll" ;

                string lpszDestAddress, ;

                string lpszAppName, ;

                string lpszCalledParty, ;

                string lpszComment

tapiRequestMakeCall(m.telefonNo, 0,0,0)

cetinbasoz's Website

4 Cevaplayan erdal1941

  • erdal1941
  • erdal1941
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 15.07.2009
  • İleti: 225

Re: Ustaların Önerileri Olabilir mi?

Sevgili Çetin,
Gönderdiğin kodu denedim. O da çok güzel çalıştı. Yanlız
tapiRequestMakeCall(m.telefonNo, 0,0,0)
komutunu
tapiRequestMakeCall(m.telefonNo)
olarak değiştirmem gerekti. 0 olan parametrelerde hata verdi. (Nedenini anlayamadım)
Sayende windows API nin de ne demek olduğunu iyi-kötü anlamış oldum.
Sarfettiğin zaman ve emek için çok teşekkür ederim.
Sevgilerimle.
Erdal

5 Cevaplayan aydinufuk

  • aydinufuk
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 24.09.2007
  • İleti: 2,212

Re: Ustaların Önerileri Olabilir mi?

telefon santrala bağlı ise gönderme şekli nasıl ? telefonun başına 9, 0, gibi şeyler mi ekleniyor?