Visual, basic, ile, hesap, makinası, programı, hakkında, Visual, basic, ile, hesap, makinası, programı, nedir, Visual, basic, ile, hesap, makinası, programı, resimleri, ile ilgili, detayları, ayrıntıları, izle,indir,download,son bölüm,youtube, Sondakika Haberleri, Siyaset Haberleri, Türkiye Basınından Haberler, Dünya Basınından Haberler, Bilim & Teknoloji Haberleri, Ekonomi ve Para Piyasaları, Hava ve Yol Durumu, Spor Haberleri, Bilgisayar ve Donanım,Visual, basic, ile, hesap, makinası, programı Anakart, İşlemciler, Ekran Kartı, C ve C++, C#, Visual Basic, Java, Pascal, Delphi, Bilgisayar Yazılım ve Programlama, 3D Tasarım & Modelleme, Adobe Photoshop ve Dreamweaver Kullanımı ve Dersleri, Anti-Virus Programları İndir, kurtlarvadisi Pusu, Flash & Resim & Grafik Programları, Ses & Görüntü & Video Programları İndir, Visual, basic, ile, hesap, makinası, programı Sistem ve İnternet Programları, Program Yama ve Eklentileri İndir, Download, Yükle, Oyun, Visual, basic, ile, hesap, makinası, programı indir, download, yükle, oyun hileleri, playstation2 ve oyun konsolları, Online Oyunlar, Mu Online,World of Warcraft, Ogame, Counter Strike, Knight Online, Ogame, Güzellik & Bakım ve Makyaj, Giyim ve Moda, Alışveriş ve Ev Dekorasyonu, Anne ve Çocuk, Koç, Boğa, İkizler, Yengeç, Aslan, Başak, Terazi, Akrep, Yay, Oğlak, Kova, Balık, Burcu, www.masterforums.net Çorba Tarifleri, Sebze Yemekler, Et Yemekleri ve Köfteler, Pilav & Makarna ve Matı Tarifleri, Deniz Ürünleri ve Balık Yemekleri, Tatlı Tarifleri, Tuzlu Tarifleri, Marmelat ve Reçel Tarfileri, Salata ve Meze Tarifleri, Sos Tarifleri ve Terbiyeler, İçecekler, Mutfak Araç ve Gereçleri, Genel Sağlık ve Sağlık Sorunları, Ağız ve Dil, Göz Sağlığı, Bağımlılık ve Tedavi Yöntemleri, Kanser ve Türleri, Alternatif Tıp, Beslenme ve Diyet, Spor ve Sağlık, İlk Yardım Bilgileri, Dini Bilgiler ve Sohbet, Din Büyükleri, Kuran-ı Kerim ve Türkçe Meali, Ayet ve Hadisler, Dini Dökümanlar - Multimedya, e-Devlet, Hukuk ve Haklar, Visual, basic, ile, hesap, makinası, programı Ekonomi ve Borsa, Bilim ve Teknoloji Dünyası, Nano Teknoloji, Nükleer Teknoloji, İnsan Bilimi, Astronomi (Uzay Bilimi), Diğer Bilim Dalları, Sanat Makaleleri, Türk Süsleme Sanatı, Heykel ve Resim Sanatı, Opera & Bale Sanatı, Siyaset & Politika & Asker, Bilim Adamları, Edebiyat & Müzik & Sanat & Ünlüler, Sporcu Biyografileri, İslam Tarihi, Genel Tarih, Türk & Osmanlı Tarihi, İslam Tarihi, Biyografi, kimdir, nedir, Edebiyat ve edebi yazılar Atasözleri , Deyimler, Edebi Yazı, Deneme ve Şiir, Eğitim & Öğretim Kitapları, Roman ve Hikaye Kitapları, Şiir Kitapları, Matematik Dersleri, Geometri Dersleri, Fizik Dersleri, Kimya Dersleri, Biyoloji Dersleri, Edebiyat & Türkçe Dersleri, Tarih Dersleri, Coğrafya Dersleri, Yabancı Dil Dersleri, Bilgisayar Dersleri, Sağlık Bilgisi Dersleri, Din Bilgisi Dersleri, Felsefe Dersleri, Psikoloji Dersleri,Mühendislik Bilgileri, Mimarlık Bilgileri, Ekonomi & İktisat & İşletme Bilgileri, Tıp Bilgileri, Jeoloji & Jeofizik, Arkeoloji Bilgileri, Visual, basic, ile, hesap, makinası, programı Turizm ve İnsan Kaynakları Bilgileri, Dallas Mavericks Genel Resimler, Komik Resimler, Duvar Kağıdı (Walpaper), Ünlüler & Top Modeller, Kendi Çekimleriniz, Korkunç Resimler (+18), Genel Videolar, Komik Videolar, Korkunç Videolar (+18), Motorlu Araç Videoları, Kendi Çekimleriniz, Video Download, Yerli, yabancı, şarkılar, videolar, video klipler, sanatçı biyografileri, şarkı sözü oku, müzik dinle, video klip, izle, youtube, metecafe, Nokia, Siemens, Motorola, Wallpaper,Logo,Melodi,Tema,oyun,program, Arçelik - Beko Uydu, Amstrad Uydu, Goldmaster Uydu, Next Uydu, Sunny Uydu, Topfield Uydu, Yumatu Uydu, Vestel Uydu, Diğer Uydu Cihazları, Matrix Cam, Xcam - Ultra Cam, IceCrypt / Joker / Sky / Zeta, Dragon Cam, Diğer Modüller, Sinema Haberleri, Fragmanlar ve Film Tanıtımları, Galatasaray, Fenerbahçe, Beşiktaş, Visual, basic, ile, hesap, makinası, programı Trabzonspor, futbol, basketbol, voleybol, hentbol, nba, Genel Askeri Konular, Kara Kuvvetleri Komutanlığı, Hava Kuvvetleri Komutanlığı, Deniz Kuvvetleri Komutanlığı, Özel Birlikler, İstihbarat Birlikleri & Kuruluşları, Makinalı Silahlar Visual, basic, ile, hesap, makinası, programı
+ Dostluk ve Paylaşım Forumu - Kültür & Sanat & Edebiyat & Tarih & Bilim & Teknoloji » Yazılım & Programlama ve Tasarım » Bilgisayar Yazılım ve Programlama » Visual Basic 
 Visual basic ile hesap makinası programı
Kullanıcı Adı: Beni Hatırla
Şifre:
Ana Sayfa Yardım Üyeler      Giriş Yap Kayıt

Reklam


Sayfa: [1]   Yukarı git
Konu: Visual basic ile hesap makinası programı  (Okunma Sayısı 109 defa) Seçenekler Arama
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
« : Şubat 11, 2008, 10:09:27 ÖS »
LoVeLY
Master Üye
****

Tesekkür
-Verilmis: 0
-Kaldirilan: 0


Karma: 310
Offline Offline

Mesaj Sayısı: 813


Üyelik Bilgileri

Visual basic ile hesap makinası programı
Visual basic ile hesap makinası programı

Kod:
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
Moderatöre Bildir   Logged
Etiket:
Reklam
Sayfa: [1]   Yukarı git
« önceki sonraki »
  Seçilenleri sil  
Gitmek istediğiniz yer:  

Benzer İçerikli Konular
Konu Başlığı Başlatan Yanıtlar Görüntülenme Son Mesaj
Visual basic ile seri e-posta gönderme Visual Basic LoVeLY 1 153 Son Mesaj Kasım 24, 2008, 11:54:01 ÖS
Gönderen: Son_durak
Visual basic Not girişi programı Visual Basic LoVeLY 1 104 Son Mesaj Kasım 24, 2008, 11:54:09 ÖS
Gönderen: Son_durak
Visual basic nedir, ne işe yarar, nasıl kullanılır? Visual Basic LoVeLY 1 113 Son Mesaj Kasım 24, 2008, 11:55:53 ÖS
Gönderen: Son_durak
Visual basic kodlamaya girişi Visual Basic LoVeLY 1 128 Son Mesaj Kasım 24, 2008, 11:56:35 ÖS
Gönderen: Son_durak
Visual basic mantığı nedir? Visual Basic LoVeLY 1 139 Son Mesaj Kasım 24, 2008, 11:57:21 ÖS
Gönderen: Son_durak
Visual Basic için 25 kural Visual Basic Derdest 0 34 Son Mesaj Ekim 18, 2008, 04:53:04 ÖS
Gönderen: Derdest
Visual Basic de WebBrowser yapımı Visual Basic Derdest 0 26 Son Mesaj Ekim 18, 2008, 04:54:08 ÖS
Gönderen: Derdest

Önemli Sayfalar
|Kurtlar Vadisi Pusu Yeni ve Eski Bölümleri ve Fragmanları İzle-İndir-Download-Özet Indexi - Kurtlar Vadisi Pusu Yeni 44. Bölüm İzle - Kurtlar Vadisi Pusu Yeni 45. Bölüm İzle | Arka Sokaklar | Avrupa Yakası Özet, Fragman, Resim, Videoları | 99 Esma-ul Hüsna (Allah'ın 99 İsmi)'nden 99 Güzel Dua | Geniş Çanakkale Savaşı Bütün Bilgileri | Aşk & Romantizm ve Duygusallık | Kuran-ı Kerim Türkçe Meali ve Tefsiri | Rüya ve Tabirleri | Biraz Tebessüm - Komik Diyaloglar ve Yazılar | Padişahlar ve Hükümdarlar | Yerli Yabancı Şarkı Sözleri | Oyun Hileleri Arşivi | İslam Tarihi | Film Afişleri | İngilizce Almanca Dil Dersleri | Windows Tema Arşivi | Üniversite Dersler & Ödevleri ve Notları | Lise Dersler & Ödevleri ve Notları | Bir Yudum İnsan - Biyografi | Yaşam ve Sağlık | Astroloji ve Fal | Program İndir Download | Adobe Photoshop Kullanımı ve Dersleri | Driver Kullanım Download | Sıcak Haber
Link Değişimi & Banner Değişimi & Dost Siteler
Dost Siteler: TRSohbetMekan | Fenerbahçe | Link Değişim Zinciri | TRSohbetMekan | Betül-FM

| Site Map | Arşiv | Google Tags | Page's Tags | Url List | Wap | Wap2 | Wap Forum | XML | Rss |
MySQL ile Güçlendirildi PHP ile Güçlendirildi Powered by SMF 1.1.4 | SMF © 2006, Simple Machines LLC
Seo4Smf v0.2 © Webmaster's Talks
vBulletin Theme Design by TurkloRD 		XHTML 1.0 Geçerli! CSS Geçerli!
Bu Sayfa 0.131 Saniyede 46 Sorgu ile Oluşturuldu