.
ÜYE OLDUKTAN SONRA REKLAM KALKACAKTIR !!!



 
AnasayfaSSSAramaÜye ListesiKayıt OlGiriş yapİletişim
Reklam Alanı
Reklam Vermek İçin Tıklayınız
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
En son konular
» Headquarters Gaming PRO [sXe] - 178.211.51.12
Ptsi Ara. 15, 2014 1:31 pm tarafından nonofthem

» Çok Uzun Zaman Aradan Sonra Geri Dönüş : mem1998
Çarş. Mayıs 23, 2012 7:37 pm tarafından mem1998

» Moderatör Alımı
C.tesi Mart 10, 2012 6:11 pm tarafından Pyrokinezi

» Gold k1 kodu :)
C.tesi Tem. 02, 2011 3:35 pm tarafından Reis61

» Warrock Bedava K1 İlk Kapan Alır ArkadaşLar Yöneticiler Lütfen Siz Almayın Kodu...
C.tesi Mayıs 21, 2011 9:16 pm tarafından darkus2

» Muhteşem bir forum
Cuma Şub. 25, 2011 11:35 pm tarafından apachibebetto

En iyi yollayıcılar
★ÅDMÌN★ (702)
 
kadirselen (550)
 
★Mǿяpнiпé★ (355)
 
ByCeo35 (314)
 
Darth Vader (286)
 
KaRaeL (197)
 
NharkoZ (185)
 
samsafi (174)
 
Lucho~ (101)
 
bucalii35 (97)
 
Kimler hatta?
Toplam 4 kullanıcı online :: 0 Kayıtlı, 0 Gizli ve 4 Misafir :: 1 Arama motorları

Yok

Sitede bugüne kadar en çok 221 kişi Ptsi Eyl. 06, 2010 1:15 pm tarihinde online oldu.

Online Sayaç
Anahtar-kelime

Paylaş | 
 

 Vısual Studio 2005 İle Hesap Makinası Yapma

Aşağa gitmek 
YazarMesaj
kadirselen
[By_Admin İyi Forumlar Diler]
[By_Admin İyi Forumlar Diler]
avatar


<b>Mesaj Sayısı</b> Mesaj Sayısı : 550
<b>Kayıt tarihi</b> Kayıt tarihi : 15/08/10
<b>Yaş</b> Yaş : 27
<b>Nerden</b> Nerden : Denizli
<b>Cinsiyet</b> Cinsiyet : Erkek


MesajKonu: Vısual Studio 2005 İle Hesap Makinası Yapma    Salı Ağus. 17, 2010 1:02 pm



FORMUMUZA 17 BUTTON Bİr tane Textbox Koyuyoruz...
Kod:
Public Class Form1
    Dim a As Integer
    Dim b As String


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        a = TextBox1.Text
        b = "topla"
        TextBox1.Text = ""



    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        a = TextBox1.Text
        b = "çıkart"
        TextBox1.Text = ""

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        a = TextBox1.Text
        b = "çarp"
        TextBox1.Text = ""

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        a = TextBox1.Text
        b = "böl"
        TextBox1.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = TextBox1.Text & "1"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text & "2"


    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Text = " "
        TextBox1.Text = " "

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If b = "topla" Then
            TextBox1.Text = a + TextBox1.Text
        ElseIf b = "çarp" Then
            TextBox1.Text = a * TextBox1.Text
        ElseIf b = "çıkart" Then
            TextBox1.Text = a - TextBox1.Text
        ElseIf b = "böl" Then
            TextBox1.Text = a / TextBox1.Text
        ElseIf b = "yüzde" Then
            TextBox1.Text = a * TextBox1.Text / 100
        ElseIf TextBox1.Text = "" Then
            MsgBox("lütfen rakam giriniz")
        End If

    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text & "3"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text & "4"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text & "5"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text & "6"
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text & "7"
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox1.Text = TextBox1.Text & "8"
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox1.Text = TextBox1.Text & "9"
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox1.Text = TextBox1.Text & "0"
    End Sub

    Private Sub Button17_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
        BackColor = Color.Gold


    End Sub

    Private Sub Button17_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button17.MouseMove
        BackColor = Color.Red
    End Sub

    Private Sub Button4_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseUp
        BackColor = Color.Gold

    End Sub

    Private Sub Form1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.MouseHover


    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        a = TextBox1.Text
        b = "yüzde"
        TextBox1.Text = ""
    End Sub
End Class


|KADİR SELEN - HAKAN ŞEN |
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://tazeforum.123.st
★ÅDMÌN★
[By_Admin İyi Forumlar Diler]
[By_Admin İyi Forumlar Diler]
avatar


<b>Mesaj Sayısı</b> Mesaj Sayısı : 702
<b>Kayıt tarihi</b> Kayıt tarihi : 14/08/10
<b>Yaş</b> Yaş : 27
<b>Nerden</b> Nerden : İzmir
<b>Cinsiyet</b> Cinsiyet : Erkek


MesajKonu: Geri: Vısual Studio 2005 İle Hesap Makinası Yapma    Salı Ağus. 17, 2010 1:04 pm

Ellerine Sağlık Güzel Paylaşım Very Happy
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://tazeforum.ile.biz
kadirselen
[By_Admin İyi Forumlar Diler]
[By_Admin İyi Forumlar Diler]
avatar


<b>Mesaj Sayısı</b> Mesaj Sayısı : 550
<b>Kayıt tarihi</b> Kayıt tarihi : 15/08/10
<b>Yaş</b> Yaş : 27
<b>Nerden</b> Nerden : Denizli
<b>Cinsiyet</b> Cinsiyet : Erkek


MesajKonu: Geri: Vısual Studio 2005 İle Hesap Makinası Yapma    Salı Ağus. 17, 2010 1:06 pm

Sagol PAtron Very Happy
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://tazeforum.123.st
 
Vısual Studio 2005 İle Hesap Makinası Yapma
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Farmville 30x30 Tarlası Yakında..!!
» Iatkos V7 (intel-amd) X86, Normal Bilgisayarlar Icin
» serverinizdeki lvl sınırını 120 yapmak

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
 :: Bilgisayar & İnternet :: Web Tasarım ve Programlama :: Visual Basic-
Buraya geçin: