www.semih71.com  
Forum  |  Yardım  |  Üyeler  |  Giriş  |  Kayıt
 
Bilgi Paylaştıkca Değerlidir...
Bir Milletin Kalkınmışlığı ve Zenginliği Bilgi Birikimiyle Orantılıdır...
Forum Ana Sayfası  »  Programlama  »  visual basic
 »  Hesap makinesi. toplama çıkarma çarpma bölme karekök kök alma işlemleri yapabili

Yeni Başlık  Cevap Yaz
Hesap makinesi. toplama çıkarma çarpma bölme karekök kök alma işlemleri yapabili           (gösterim sayısı: 1.203)
Yazan Konu içeriği

boşluk

herkese_adalet
[Site Kurucusu]
herkese_adalet

Kullanıcı Resmi

Kayıt Tarihi: 12.01.2011
İleti Sayısı: 858
Şehir: Kırıkkale
Durum: Forumda Değil

E-Posta Gönder
Web Adresi
Özel ileti Gönder

Konu Tarihi: 07.02.2011- 04:58


Hesap makinesi. toplama çıkarma çarpma bölme karekök kök alma işlemleri yapabiliyor.


 Kod Çizelgesi     Kod Dili: phpHepsini Seç
Dim koyaabfmkka

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

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

Private Sub Command1_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command1.BackColor = &H80000000
End Sub

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

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

Private Sub Command10_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command10.BackColor = &H80000000
End Sub

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

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

Private Sub Command11_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command11.BackColor = &H80000000
End Sub

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

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

Private Sub Command12_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command12.BackColor = &H80000000
End Sub

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

Private Sub Command13_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command13.BackColor = &H80000000
End Sub

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

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

Private Sub Command14_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command14.BackColor = &H80000000
End Sub

Private Sub Command15_Click()
Val(Text1.Text)
    If (
1Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    If (
2Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    If (
3Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    If (
4Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    
0
    Command11
.Enabled True
    Command12
.Enabled True
    Command13
.Enabled True
    Command14
.Enabled True
End Sub

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

Private Sub Command15_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command15.BackColor = &H80000000
End Sub

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

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

Private Sub Command16_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command16.BackColor = &H80000000
End Sub

Private Sub Command17_Click()
End
End Sub

Private Sub Command17_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command17.BackColor = &H80000000
End Sub

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

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

Private Sub Command18_MouseMove(Button As IntegerShift As IntegerAs SingleAs 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 27Then
    End
End 
If
End Sub

Private Sub Command19_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command19.BackColor = &H80000000
End Sub

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

Private Sub Command2_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command2.BackColor = &H80000000
End Sub

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

Private Sub Command3_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command3.BackColor = &H80000000
End Sub

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

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

Private Sub Command4_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command4.BackColor = &H80000000
End Sub

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

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

Private Sub Command5_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command5.BackColor = &H80000000
End Sub

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

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

Private Sub Command6_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command6.BackColor = &H80000000
End Sub

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


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

Private Sub Command7_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command7.BackColor = &H80000000
End Sub

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


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

Private Sub Command8_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command8.BackColor = &H80000000
End Sub

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


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

Private Sub Command9_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
Command9.BackColor = &H80000000
End Sub

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

Private Sub Form_Load()
1
0
End Sub

Private Sub Form_MouseMove(Button As IntegerShift As IntegerAs SingleAs 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 27Then
    End
End 
If
If (
0Then
    Text1
.Text " "
    
1
End 
If
If (
KeyAscii 43Then
    a 
Val(Text1.Text)
    
Text1.Text " "
    
0
    m 
1
End 
If
If (
KeyAscii 45Then
    a 
Val(Text1.Text)
    
Text1.Text " "
    
0
    m 
2
End 
If
If (
KeyAscii 42Then
    a 
Val(Text1.Text)
    
Text1.Text " "
    
0
    m 
3
End 
If
If (
KeyAscii 47Then
    a 
Val(Text1.Text)
    
Text1.Text " "
    
0
    m 
4
End 
If
If (
KeyAscii 13Then
    b 
Val(Text1.Text)
    If (
1Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    If (
2Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    If (
3Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    If (
4Then
        Text1
.Text " "
        
Text1.Text b
    End 
If
    
0
End 
If
If (
Text1.Text "+"Then
    Text1
.Text " "
End If
If (
KeyAscii 25Then
    Text1
.Text " "
End If
End Sub


zeki yılmaz
d_3vil
@hotmail.com




Sen yoksun artık anla yeryüzünde bir o var
Onun elleri var, gözleri, dudakları
Anlarsın tenin beslediği zaman toprakları
Ve hala seversin zaman bitinceye kadar

Yeniden var oluştur ya da bir başka türlü oluştur bu
Nice aldanmalardan sonra bir aşka dönüştür bu.
Yeni Başlık  Cevap Yaz



Forum Ana Sayfası  »  Programlama  »  visual basic
 »  Hesap makinesi. toplama çıkarma çarpma bölme karekök kök alma işlemleri yapabili

Forum Ana Sayfası


 


 Bu konuyu 1 kişi görüntülüyor:  1 Misafir, 0 Üye
 Bu konuyu görüntüleyen üye yok.

Benzer konular
Başlık Yazan Cevap Gösterim Son ileti
Konu Klasör Hesap makinesi programı mavibisiklet 0 497 07.02.2011- 03:50
Konu Klasör Hesap makinesi -çok gelismis- herkese_adalet 0 375 07.02.2011- 05:16
Konu Klasör EDİLLE-İ ŞER'İYYE - Şer'î deliller, şer'î hükümleri çıkarma yolları. furkan34 0 268 10.05.2013- 19:30
Konu Klasör Karekök Lys Geometri 1 ve 2 Soru Bankası (Renkli Tarama) esra5372 0 625 25.02.2011- 23:53
Konu Klasör Dosya Upload Bilgi Alma herkese_adalet 0 336 05.09.2011- 14:48

Etiketler   Hesap,   makinesi.,   toplama,   çıkarma,   çarpma,   bölme,   karekök,   alma,   işlemleri,   yapabili


Forum Yazılımı:   php Kolay Forum (phpKF)  ©  2007 - 2014   phpKF Ekibi

Bilginin Adresi.semih71.com


Portal Mobil RSS