Hesap Makinesi ve Tuş tanımlama

[gunaygergin]

Merhabalar;

Arkadaşlar Forumda aradım Tuş tanımlama ile ilgili az bir bilgiye ulaştım ama
bana yardımcı olmadı. Kendimi geliştirmek amacı ile bir HESAP MAKİNESİ yapmak istiyorum ve eminim ki bu konuda bana yardımcı olacak ve geliştirecek çok arkadaş olacaktır.

1. Excel aktiken veya deilken kullanılabilecek,
2. Üstünde şerit barındıran,
3. numaratör tuşlardan rahatça kullanılabilecek,
4. Kuruş hanesi artırılabilecek,
5. Birçok Sonucu hafızaya alabilecek,
6. ESC ile kapanacak,
7. SPACE ile ekran temizlenecek,
6. DELETE ile bütün işlemler,hafıza temizlenip ilk hale gelecek,
7. Tuş takımı isteğe bağlı olarak görüntülenecek,
8. Sizin aklınıza gelenler,

ve Kolay hesaplamalar (Faiz, Kredi, Alan, Yüzölçüm, kur, Yüzde v.s) tuşları
olan.

Bu konuda bizi eğitebilecek tük bilenler gurubuna şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Size çalışmanızda fikir verebilir.

 

[gunaygergin]

Hesap Makinesi ve Tuş Tanımlama

sn Korhan Ayhan Çalışmanız gerçekten süper. Heleki 2005 te bu kadarını yapabiliyorduysanız.........

Acizane çalışmanızı inceliyorum.
ilk gördüğüm ve yapmaya çalışacağım şey
+ , - , * , / , gibi tuşlara (klavye üzerinden) basıldığında userformdaki butona basılmış gibi işlem görmesini sağlamaya çalışacağım.
Tabiiki sizin ve diğer arkadaşların yardımlarını da dört gözle bekleyeceğim.

Teşekkürler.

 

[gunaygergin]

OnKey olayını koşula bağlamak

Merhaba

+ , - , * , / , =, %, gibi tuşlara (klavye üzerinden) basıldığında userformdaki butona basılmış gibi işlem görmesini sağlamak için

Onkey olayını if komutuna veya case komutuna nasıl uyarlayabiliriz.
Ya da bu konu ile ilgili komut sendkey mi? bilemiyorum.

Not: Yapmak ve öğrenmek istediğimşey mouse kullanmadan Klavyenin
numaratöründen seri olarak kullanmak

 

[gunaygergin]

Sevgili excel'i iyi bilen arkadaşlar lütfen yardımcı olur musunuz?.

Klavyenin numaratör kısmındaki sayıları ve operatör tuşlarına basıldığını
koşullu olarak nasıl denetleyebiliriz.

yani textbox1 içinde iken 1245+ veya 25455* tuşlarına basıldığında + y da * karakterini göstermeyip texbox1 i temizleyecek

 

[gunaygergin]

sanırım buldum

If KeyAscii.Value = 43 Then şeklinde oluyor galiba

 

[gunaygergin]

+ tuşuna basınca Textboxta gözükmesin.

Arkadaşlar sn Korhan Ayhan' ın çalışmasını affına sığınarak biraz düzenledim.
ancak operatör tuşlarına basınca textbox ta karakter gözükmemesini nasıl sağlarız. yani + ya basınca (Klavye'den) komut çalışsın ama ekrana + yazmasın. yardımlarınızı bekliyorum.

 

[gunaygergin]

Bu konuda fikri olan yok mu acaba.

 

[Korhan Ayhan]

Selamlar,

Txtekran_KeyPress olayındaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Txtekran_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii.Value
        Case Is = 43
        Call CmdTopla_Click  ' +
        SendKeys "{BS}"
        Case Is = 44
        Call CmdÇıkar_Click  ' -
        SendKeys "{BS}"
        Case Is = 45
        Call CmdNokta_Click  ' ,
        SendKeys "{BS}"
        Case Is = vbKeyReturn
        Call CmdEşittir_Click ' =
        SendKeys "{BS}"
    End Select
End Sub

 

[gunaygergin]

teşekkür ederim geliştirmeye devam edeceğim.

 

[gunaygergin]

Hesap Makinesi ve Tuş Tanımlama son

Arkadaşlar gelişmesine yardımcı olur musunuz.

eminim ki gereksiz bir sürü kod kullanmışımdır.

 

[gunaygergin]

hesap makinesi geliştirme

Arkadaşlar acaba operatör tuşlarına basıldığında ekrandaki veriyi seçili vaziyete getirebilir miyiz. ayrıca gereksiz kodlar nelerdir acaba?
Geliştirmek için değerli yardımlarınızı bekliyorum.

son hali ektedir.

 

[gunaygergin]

Esc nin Keykode si nedi acaba

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyadan klavye KeyCode ve KeyAscii tuş kodları öğrenebilirsiniz.

Kullanımı;

Butonlardan birisini seçin ve istediğiniz tuşa basın. Mesaj ile tuşun kodu verilecektir.

Aşağıdaki kodları kullanabilirsiniz.

UserForm üzerine iki adet CommandButton ekleyin ve kodları formun kod bölümüne uygulayın.

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    MsgBox ("BASILAN TUŞUN KeyAscii KODU - ") & KeyAscii
End Sub
 
Private Sub CommandButton2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    MsgBox ("BASILAN TUŞUN KeyKode KODU - ") & KeyCode
End Sub

 

[gunaygergin]

Teşekkür ederim çok faydalandım Korhan Ayhan Konu bu linkte devam ediyor.

http://www.excel.web.tr/showthread.php?p=287644#post287644

 

[carlos4x]

teşekkür edrim

 

[leumruk]

Selamlar,
Korhan hocam, 14 nolu msjdaki dosya elinizde ise güncellerseniz memnun olurum.
Saygılar...

 

[Korhan Ayhan]

Selamlar,

#14 nolu mesajdaki dosya tekrar güncellenmiştir.

 

[leumruk]

Teşekkür ederim, syn. hocam...

 

[leumruk]

Korhan Bey,
Klavye tuşuna tıkladığımızda makro çalışmasını sağlayacak satırı da albilir miyiz? İlk satır.
Örnek: a'ya bastığımda mesaj versin.