Geri git   Van.GEN.TR Forum | Yerel Van Forumu > Bilgisayar > Programlama > Visual Basic, Delphi, C++ Ve Diğer Diller

Cevapla
 
Konu Araçları Stil
Alt 23/03/07, 13:11   #1
erham
Yarbay
 
erham - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Dec 2006
Yaş: 39
Mesajlar: 361
Tecrübe Puanı: 0 erham will become famous soon enough
Standart Kendi Hesap Makinanı Yapp(vb ile)

Dim koya, a, b, f, m, k, ka

Private Sub Command1_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H80000000
End Sub

Private Sub Command10_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command10_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command10.BackColor = &H80000000
End Sub

Private Sub Command11_Click()
a = Val(Text1.Text)
Text1.Text = " "
m = 1
f = 0
Command12.Enabled = False
Command13.Enabled = False
Command14.Enabled = False
End Sub

Private Sub Command11_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command11.BackColor = &H80000000
End Sub

Private Sub Command12_Click()
a = Val(Text1.Text)
Text1.Text = " "
m = 2
f = 0
Command11.Enabled = False
Command13.Enabled = False
Command14.Enabled = False
End Sub

Private Sub Command12_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command12.BackColor = &H80000000
End Sub

Private Sub Command13_Click()
a = Val(Text1.Text)
Text1.Text = " "
m = 3
f = 0
Command11.Enabled = False
Command12.Enabled = False
Command14.Enabled = False
End Sub

Private Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command13.BackColor = &H80000000
End Sub

Private Sub Command14_Click()
a = Val(Text1.Text)
Text1.Text = " "
m = 4
f = 0
Command12.Enabled = False
Command13.Enabled = False
Command11.Enabled = False
End Sub

Private Sub Command14_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command14.BackColor = &H80000000
End Sub

Private Sub Command15_Click()
b = Val(Text1.Text)
If (m = 1) Then
Text1.Text = " "
Text1.Text = a + b
End If
If (m = 2) Then
Text1.Text = " "
Text1.Text = a - b
End If
If (m = 3) Then
Text1.Text = " "
Text1.Text = a * b
End If
If (m = 4) Then
Text1.Text = " "
Text1.Text = a / b
End If
m = 0
Command11.Enabled = True
Command12.Enabled = True
Command13.Enabled = True
Command14.Enabled = True
End Sub

Private Sub Command15_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command15.BackColor = &H80000000
End Sub

Private Sub Command16_Click()
Text1.Text = " "
End Sub

Private Sub Command16_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command16.BackColor = &H80000000
End Sub

Private Sub Command17_Click()
End
End Sub

Private Sub Command17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command17.BackColor = &H80000000
End Sub

Private Sub Command18_Click()
k = Val(Text1.Text)
Text1.Text = Sqr(k)
End Sub

Private Sub Command18_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command18.BackColor = &H80000000
End Sub

Private Sub Command19_Click()
ka = Val(Text1.Text)
Text1.Text = ka * ka
End Sub

Private Sub Command19_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command19.BackColor = &H80000000
End Sub

Private Sub Command2_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.BackColor = &H80000000
End Sub

Private Sub Command3_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.BackColor = &H80000000
End Sub

Private Sub Command4_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command4_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command4.BackColor = &H80000000
End Sub

Private Sub Command5_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "5"
End Sub

Private Sub Command5_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command5.BackColor = &H80000000
End Sub

Private Sub Command6_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command6_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command6.BackColor = &H80000000
End Sub

Private Sub Command7_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "7"
End Sub


Private Sub Command7_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command7.BackColor = &H80000000
End Sub

Private Sub Command8_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "8"
End Sub


Private Sub Command8_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command8.BackColor = &H80000000
End Sub

Private Sub Command9_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "9"
End Sub


Private Sub Command9_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command9.BackColor = &H80000000
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub

Private Sub Form_Load()
f = 1
m = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
Command2.BackColor = &H8000000F
Command3.BackColor = &H8000000F
Command4.BackColor = &H8000000F
Command5.BackColor = &H8000000F
Command6.BackColor = &H8000000F
Command7.BackColor = &H8000000F
Command8.BackColor = &H8000000F
Command9.BackColor = &H8000000F
Command10.BackColor = &H8000000F
Command11.BackColor = &H8000000F
Command12.BackColor = &H8000000F
Command13.BackColor = &H8000000F
Command14.BackColor = &H8000000F
Command15.BackColor = &H8000000F
Command16.BackColor = &H8000000F
Command18.BackColor = &H8000000F
Command19.BackColor = &H8000000F
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
If (f = 0) Then
Text1.Text = " "
f = 1
End If
If (KeyAscii = 43) Then
a = Val(Text1.Text)
Text1.Text = " "
f = 0
m = 1
End If
If (KeyAscii = 45) Then
a = Val(Text1.Text)
Text1.Text = " "
f = 0
m = 2
End If
If (KeyAscii = 42) Then
a = Val(Text1.Text)
Text1.Text = " "
f = 0
m = 3
End If
If (KeyAscii = 47) Then
a = Val(Text1.Text)
Text1.Text = " "
f = 0
m = 4
End If
If (KeyAscii = 13) Then
b = Val(Text1.Text)
If (m = 1) Then
Text1.Text = " "
Text1.Text = a + b
End If
If (m = 2) Then
Text1.Text = " "
Text1.Text = a - b
End If
If (m = 3) Then
Text1.Text = " "
Text1.Text = a * b
End If
If (m = 4) Then
Text1.Text = " "
Text1.Text = a / b
End If
m = 0
End If
If (Text1.Text = "+") Then
Text1.Text = " "
End If
If (KeyAscii = 25) Then
Text1.Text = " "
End If
End Sub

Konu erham tarafından (23/03/07 Saat 13:14 ) değiştirilmiştir..
erham isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 25
Alt 10/04/07, 19:14   #2
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart

Sanırım kodlar hata veriyo bende...
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 16/06/07, 13:43   #3
LastDesiqner
Super Moderator
 
LastDesiqner - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Jan 2007
Bulunduğu yer: ναη
Mesajlar: 8.060
Tecrübe Puanı: 56 LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute
Standart

emeğine sağlık kardeş... teşekkürler....
__________________
[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]
[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]


[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]
LastDesiqner isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 488
Takımınız:
Alt 08/09/07, 20:52   #4
erham
Yarbay
 
erham - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Dec 2006
Yaş: 39
Mesajlar: 361
Tecrübe Puanı: 0 erham will become famous soon enough
Standart

Alıntı:
gokhanaygun´isimli üyeden Alıntı Mesajı göster
Sanırım kodlar hata veriyo bende...
direk kodu yapışıtırıp kullanma once ordaki butunları vs.. onları ekle sonra kodu yapıştır çalışır çalışmasada biraz uğraş
__________________
"Bu Millet Ölmeyecekse, Bu Fatih Dirilecektir"

[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]
erham isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 25
Alt 10/09/07, 10:20   #5
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart

gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 31/07/08, 15:31   #6
Neutralizer
Yasaklı kullanıcı
 
Neutralizer - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.883
Tecrübe Puanı: 0 Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute
Standart

paylaşım için tşkrlr
Neutralizer isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 316
Takımınız:
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Gitmek istediğiniz klasörü seçiniz


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 22:59 .


Powered by vBulletin
Copyright © 2000-2007 Jelsoft Enterprises Limited.
Sitemap
6, 5, 3, 7, 8, 9, 10, 11, 12, 13, 14, 15, 113, 16, 17, 18, 19, 81, 20, 27, 22, 23, 24, 25, 26, 48, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 43, 136, 40, 58, 45, 42, 44, 46, 47, 53, 54, 55, 56, 57, 59, 60, 70, 61, 62, 63, 64, 65, 66, 68, 69, 71, 72, 74, 75, 76, 77, 78, 79, 80, 82, 83, 96, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 98, 97, 100, 101, 102, 103, 106, 104, 105, 112, 109, 108, 107, 110, 111, 114, 115, 118, 116, 117, 119, 148, 154, 124, 165, 122, 120, 123, 121, 150, 153, 125, 128, 129, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 151, 149, 202, 175, 164, 152, 167, 155, 156, 157, 158, 159, 160, 161, 162, 163, 195, 169, 166, 168, 170, 171, 172, 199, 174, 173, 196, 200, 176, 177, 180, 178, 179, 182, 189, 187, 184, 186, 191, 192, 193, 194, 197, 198, 201, 203, 229, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 236, 231, 232, 233, 234, 235, 237, 240, 239, 241, 243, 242, 244,