DownLoad iki
Zamansız Tartışma Platform Bilgisayar ve Internet Bilgisayar Programlama
Cevapla
 
Konu Seçenekleri
Eski 06-03-08, 10:10 Çevrimdışı   #1
Öğrenci
 
serpil_papatya - ait Avatar
Genel Mesajlar: 5
Teşekkür etti: 1
Teşekkür edildi: 2
RepForum Gücü: 0
Forum Puanı:1
serpil_papatya Herkese mesafeli
visual basic
arkadaşlar ben bi konuda yardım almak istiyorum ...
visual basicden hesap makinesi yapmam gerekiyo kodlarını ve nasıl yapabileceğimi bilmiyorum yardım ederseniz sevinirim....
  Alıntı ile Cevapla
Eski 06-03-08, 11:06 Çevrimdışı   #2
Rektör
Düşünürler grubu
 
storm_fatih - ait Avatar
Genel Mesajlar: 10.323
Teşekkür etti: 1.278
Teşekkür edildi: 2.447
RepForum Gücü: 142
Forum Puanı:52528
storm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymazstorm_fatih tanımayanı zamansız forum da kimse adam yerine koymaz
Ruhsal Durumum:
Alıntı:
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
Arayınca Bu Kodu Buldum Ama Calısır Mı Bilmem Bir Dene Istersen
Imza Arıyorum (: Rep Ödüllü :p



Figüranlar Liderlik Başvurusu


- Gök Taşı Yağıoo Kaçııııınnnnnn
- Yok Lo O Bizim Götü Sülüman Özlemiş Yanıma Gelio
  Alıntı ile Cevapla
Eski 06-03-08, 16:22 Çevrimdışı   #3
Dekan
Huzur Pınarı
 
Yσкє∂!¢! - ait Avatar
Genel Mesajlar: 5.514
Teşekkür etti: 1.462
Teşekkür edildi: 2.042
RepForum Gücü: 66
Forum Puanı:23493
Yσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymazYσкє∂!¢! tanımayanı zamansız forum da kimse adam yerine koymaz
Ruhsal Durumum:
fatih yavf 112 yanında 0 kalıyor
delilerin medarı iftiharı...

Şahit olsun Kainat, Alemler şahit olsun .
Titreyen sesin ile Yüregin şahit olsun.
Çok Yakın Güzel Günler,Bir Kez Daha Ufka Bak,
Hep Semaya Açtıgın,Ellerin Şahit Olsun.

Ö(lürsem)S(ebebi)S(ensin)


Deli Var YakalaYın
  Alıntı ile Cevapla
Eski 15-03-08, 14:55 Çevrimdışı   #4
Öğrenci
 
serpil_papatya - ait Avatar
Genel Mesajlar: 5
Teşekkür etti: 1
Teşekkür edildi: 2
RepForum Gücü: 0
Forum Puanı:1
serpil_papatya Herkese mesafeli
kahkaha
Alıntı:
storm_fatih´isimli üyeden Alıntı Mesajı Göster
Arayınca Bu Kodu Buldum Ama Calısır Mı Bilmem Bir Dene Istersen
teşekür ederim ama nasıl yapacagım konuda bilgim yok
hangi proğramdan yapacagımı biliyorum ....yapılış şekli lazım birde kodlar laazım...
  Alıntı ile Cevapla
Eski 15-03-08, 15:40 Çevrimiçi   #5

 
ares - ait Avatar
Genel Mesajlar: 6.380
Teşekkür etti: 764
Teşekkür edildi: 2.102
RepForum Gücü: 500
Forum Puanı:43217
ares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymazares tanımayanı zamansız forum da kimse adam yerine koymaz
Visual Basic bilginizin ne seviyede olduğundan ve tasarımını düşündüğünüz hesap makinasının ana hatlarının nasıl olcağından bahsetmemişsiniz.
1) Sayı girişleri için bir TextBoxmı kullanacaksınız, yoksa iki TextBoxmı kullanacaksınız?
3) Sonucu girişi yaptığınız TextBoxa mı yazdıracaksınız yoksa extra bir Label yada TextBox kullanacakmısınız?
2) Sayı girişleri için klavyeyimi kullanacaksınız yoksa tuşlar için extra bir panel hazırlamanız gerekiyormu?

Kısacası tasarlamayı düşündüğünüz hesap makinası nasıl olcak? Bütün bu saydıklarım için programın zorluk derecesi değişir.

Bu soruları cevalarsanız yardımcı olmaya çalışırım...
  Alıntı ile Cevapla
Cevapla

« Önceki Konu | Sonraki Konu »
Konu Seçenekleri

Yetkileriniz
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı

DownLoad iki Gizlilik Policesi
Powered by vBulletin Copyright © 2000-2008 Jelsoft Enterprises Limited.
SEO by vBSEO 3.2.0 ©2008, Crawlability, Inc.
http://www.zamansiz.com

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

Zamansız Tartışma Platform - Arşiv - Yukarı Git