İPUCU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

Seçenekler

Hep Birlikde hesap Makınesi Yapak :)

30-09-2011 02:14
#1
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
Windows ta kullanılan hesap makinesini VB.Net te yapalım..
Windowsta Kullanılan hesap makinesi yapımına geçelim..
Programda 27 tane Button, 1 Textbox,1 MenuStrip ve 1 tane label bulunuyor
Yapılışı;
Öncelikle Forma Değişken Tanımlıyoruz;
Alıntı:
Dim a, b, hafıza As Decimal Dim işlem As Char Dim durum, durum2, sayı As Boolean
Alıntı:
Private Sub C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C.Click a = 0 b = 0 TextBox1.Text = 0 End Sub</span></div> <span style="color: #000000;">Private Sub sifir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sifir.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click, Button11.Click, Button12.Click If durum = True Then a = CDec(TextBox1.Text) TextBox1.Text = sender.text durum = False durum2 = True Else TextBox1.Text = TextBox1.Text + sender.text End If sayı = True End Sub Private Sub bol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bol.Click If durum2 = True Then b = CDec(TextBox1.Text) End If If işlem = "+" Then TextBox1.Text = a + b If işlem = "-" Then TextBox1.Text = a - b If işlem = "*" Then TextBox1.Text = a * b If işlem = "/" Then TextBox1.Text = a / b işlem = "/" durum = True End Sub Private Sub carp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles carp.Click If durum2 = True Then b = CDec(TextBox1.Text) End If If işlem = "+" Then TextBox1.Text = a + b If işlem = "-" Then TextBox1.Text = a - b If işlem = "*" Then TextBox1.Text = a * b If işlem = "/" Then TextBox1.Text = a / b işlem = "*" durum = True End Sub Private Sub cikar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cikar.Click If durum2 = True Then b = CDec(TextBox1.Text) End If If işlem = "+" Then TextBox1.Text = a + b If işlem = "-" Then TextBox1.Text = a - b If işlem = "*" Then TextBox1.Text = a * b If işlem = "/" Then TextBox1.Text = a / b işlem = "-" durum = True End Sub Private Sub topla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles topla.Click If durum2 = True Then b = CDec(TextBox1.Text) End If If işlem = "+" Then TextBox1.Text = a + b If işlem = "-" Then TextBox1.Text = a - b If işlem = "*" Then TextBox1.Text = a * b If işlem = "/" Then TextBox1.Text = a / b işlem = "+" durum = True End Sub Private Sub esittir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles esittir.Click If durum2 = True Then b = CDec(TextBox1.Text) If işlem = "+" Then TextBox1.Text = a + b If işlem = "-" Then TextBox1.Text = a - b If işlem = "*" Then TextBox1.Text = a * b If işlem = "/" Then TextBox1.Text = a / b End If durum2 = False işlem = "" End Sub Private Sub Geri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Geri.Click On Error Resume Next TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1) End Sub Private Sub CE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CE.Click TextBox1.Text = 0 End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If sayı = True Then TextBox1.Text = CDec(TextBox1.Text) End If End Sub Private Sub Kok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kok.Click TextBox1.Text = Math.Sqrt(TextBox1.Text) End Sub Private Sub Yuzde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yuzde.Click If durum2 = True Then b = CDec(TextBox1.Text) TextBox1.Text = a * b / 100 End If End Sub Private Sub virgul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles virgul.Click sayı = False If TextBox1.Text.IndexOf(",") = -1 Then TextBox1.Text = TextBox1.Text + "," Else Exit Sub End If End Sub Private Sub MC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MC.Click hafıza = "0" Label1.Text = " " End Sub Private Sub MR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MR.Click TextBox1.Text = hafıza End Sub Private Sub MS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MS.Click hafıza = TextBox1.Text Label1.Text = "M" End Sub Private Sub martı_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles martı.Click TextBox1.Text = Val(TextBox1.Text) + hafıza End Sub Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click TextBox1.Text = 1 / TextBox1.Text End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = -1 * TextBox1.Text End Sub Private Sub KopyalaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KopyalaToolStripMenuItem.Click Clipboard.SetText(TextBox1.Text) End Sub Private Sub YapıştırToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YapıştırToolStripMenuItem.Click TextBox1.Text = Clipboard.GetText End Sub
Kullanıcı İmzası

03-10-2011 21:46
#2
drkhcker - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2011
Nereden:
Bakırköy
Mesajlar:
337
Teşekkür (Etti):
46
Teşekkür (Aldı):
87
Konular:
25
Ticaret:
(0) %
Kodlara bakmadım suan mobilimde label sadece gösterişmi yoksa işe yarıyormu?
Kullanıcı İmzası
kişisel sitenizin yada iletişim bilgilerinizin imzanızda bulunması yasaktır.
04-10-2011 01:35
#3
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
o label yok orda normalde fotoyu netten aldm
Kullanıcı İmzası
04-10-2011 17:32
#4
drkhcker - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2011
Nereden:
Bakırköy
Mesajlar:
337
Teşekkür (Etti):
46
Teşekkür (Aldı):
87
Konular:
25
Ticaret:
(0) %
"Windowsta Kullanılan hesap makinesi yapımına geçelim..
Programda 27 tane Button, 1 Textbox,1 MenuStrip ve 1 tane label bulunuyor
Yapılışı;
Öncelikle Forma Değişken Tanımlıyoruz;

"


Burada label demşsın :S
Kullanıcı İmzası
kişisel sitenizin yada iletişim bilgilerinizin imzanızda bulunması yasaktır.
04-10-2011 19:10
#5
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
off ne anlısan onu yap sabah git aksam gel ıs eve gel ıs kafa Kalmıor
Kullanıcı İmzası
04-10-2011 19:12
#6
drkhcker - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2011
Nereden:
Bakırköy
Mesajlar:
337
Teşekkür (Etti):
46
Teşekkür (Aldı):
87
Konular:
25
Ticaret:
(0) %
Doğrudur yok zaten ben bunları geçeli aylar olduda sadece merak ettım
Kullanıcı İmzası
kişisel sitenizin yada iletişim bilgilerinizin imzanızda bulunması yasaktır.
06-10-2011 19:57
#7
QaPiTaLl - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2011
Nereden:
Ankara
Mesajlar:
454
Teşekkür (Etti):
27
Teşekkür (Aldı):
92
Konular:
35
Ticaret:
(0) %
Ellerine Sağlık
07-10-2011 17:31
#8
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
Saolasin Kardesım buqun Arsivi Hazırladım En Ksa Zamanda Fll Yadpıklarımı paylasıcam
Kullanıcı İmzası
07-10-2011 18:04
#9
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
o1 label Duzen dıe bısı var bak o
Kullanıcı İmzası

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
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ı