- 27 Ocak 2007
- 3,178
- 603
F tuşlarıyla işlem yapabilmemiz için key kodlar yer alıyorMerhaba arkadaşlar bu kodlar çoğunuzun bildiği kodlardır muhtemelen ben bu kodları biraz geliştirerek diğer örnekler gibi aklınızı karıştırmadan öğrenmenizi sağlamaya çalıştım...
örnek uygulamamız ufak bi hesap makinası...
gereken nesneler:
3 adet TextBox
4 adet CommandButton
yapacağımız işlem şu text1 ve text2 ye değer girilip sonucu text3'e yazdıracağız.
command1 toplama
command2 çıkarma
command3 çarpma
command4 bölme
işlemini yapacak bunun dışında profesyonel programlarda gördüğümüz o F1,F2,F3'le işlem yaptırmalar var ya işte bunu öğreneceksiniz burada.
Şimdi 3 adet textbox'ı ve 4 tane commandbuton'u ekleyin!!!
şimdi kodlarımız şöyle
Şimdi bu sistemi yeni gören arkadaşlar için şöyle bir açıklama yapayım burada sadece bu tarz aritmatiksel işlemler değil herhangi bir forumun açılıp kapanmasınıda yapabilirsiniz
mesela
Case KEY_F1: form2.show şeklinde de basit bişeyler yapılabilir.
Son söylediğim çok yeni başlayanlar içindi.
örnek uygulamamız ufak bi hesap makinası...
gereken nesneler:
3 adet TextBox
4 adet CommandButton
yapacağımız işlem şu text1 ve text2 ye değer girilip sonucu text3'e yazdıracağız.
command1 toplama
command2 çıkarma
command3 çarpma
command4 bölme
işlemini yapacak bunun dışında profesyonel programlarda gördüğümüz o F1,F2,F3'le işlem yaptırmalar var ya işte bunu öğreneceksiniz burada.
Şimdi 3 adet textbox'ı ve 4 tane commandbuton'u ekleyin!!!
şimdi kodlarımız şöyle
Kod:
[FONT=Arial]Option Explicit ' burada f tuşlarıyla işlem yapabilmemiz için key kodlar yer alıyor
Const KEY_F1 = &H70
Const KEY_F2 = &H71
Const key_f3 = &H72
Const key_f4 = &H73
Const KEY_ESCAPE = &H1B 'esc tuşu ile program kapanır
Private Sub Command1_Click() 'command1 e tıkladığımızda toplama işlemi yapacak
Text3 = Val(Text1) + Val(Text2)
End Sub
Private Sub Command2_Click() 'command1 e tıkladığımızda çıkarma işlemi yapacak
Text3 = Val(Text1) - Val(Text2)
End Sub
Private Sub Command3_Click() 'command1 e tıkladığımızda çarpma işlemi yapacak
Text3 = Val(Text1) * Val(Text2)
End Sub
Private Sub Command4_Click() 'command1 e tıkladığımızda bölme işlemi yapacak
Text3 = Val(Text1) / Val(Text2)
End Sub
' şimdi geldik bizim için en eğlenceli ve ipucumuzdaki amaca.
Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case KEY_F1: Text3 = Val(Text1) + Val(Text2) 'f1 e basıldığı zaman toplama işlemi yapıyor
Case KEY_F2: Text3 = Val(Text1) - Val(Text2) 'f2 e basıldığı zaman çıkarma işlemi yapıyor
Case key_f3: Text3 = Val(Text1) * Val(Text2) 'f3 e basıldığı zaman çarpma işlemi yapıyor
Case KEY_F4: text3= Val(taxt1) / Val(Text2) 'f4 e basıldığı zaman bölme işlemi yapıyor
End Select
End Sub [/FONT]Şimdi bu sistemi yeni gören arkadaşlar için şöyle bir açıklama yapayım burada sadece bu tarz aritmatiksel işlemler değil herhangi bir forumun açılıp kapanmasınıda yapabilirsiniz
mesela
Case KEY_F1: form2.show şeklinde de basit bişeyler yapılabilir.
Son söylediğim çok yeni başlayanlar içindi.
