Reklamı Kapat


Reklamı Kapat

HHportal Reklam Vermek İçin: admin@hhportal.com

Etiketlenen üyelerin listesi

+ Yeni Konu aç
3 sonuçtan 1 ile 3 arası

Konu: hesap makinası programı kodları (visual.studio

  1. #1
    Eski Üye murat335 - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    09.09.2005
    Yer
    SqlConnection con=new SqlConnection("data source="+SunucuAdi+";initial catalog="+VeritabaniAdi+";
    Yaş
    33
    Mesajlar
    734
    Konular
    127

    hesap makinası programı kodları (visual.studio

    biraz gec oldu ama yazdım en sonunda

    PHP- Kodu:
    Geri Dön Private Sub Command1_Click()
    Text1.Text Text1.Text 1
    End Sub
    Private Sub Command10_Click()
    Text1.Text
    Text1
    .Text ""
    Label1.Caption "/"
    End Sub
    Private Sub Command11_Click()
    Text1.Text
    Text1
    .Text ""
    Label1.Caption "*"
    End Sub
    Private Sub Command12_Click()
    Text1.Text
    Text1
    .Text ""
    Label1.Caption "-"
    End Sub
    Private Sub Command13_Click()
    Text1.Text
    Text1
    .Text ""
    Label1.Caption "+"
    End Sub
    Private Sub Command14_Click()
    'alanları temizle
    Text1.Text = " "
    Label1.Caption = ""
    Beep
    End Sub
    Private Sub Command15_Click()
    b = Text1.Text
    If Label1.Caption = "+" Then Text1.Text = a + b
    If Label1.Caption = "-" Then Text1.Text = a - b
    If Label1.Caption = "*" Then Text1.Text = a * b
    If Label1.Caption = "/" Then Text1.Text = a / b
    Beep
    End Sub
    Private Sub Command16_Click()
    Text1.Text = Text1.Text & 0
    End Sub
    Private Sub Command18_Click()
    MsgBox "Bu program Emin Özcan Eğitimci Mavii tarafından yapılmıştır. (c).| Özcan Software | 2004-2005", 64, "Program Hakkında"
    End Sub
    Private Sub Command2_Click()
    Text1.Text = Text1.Text & 2
    End Sub
    Private Sub Command3_Click()
    Text1.Text = Text1.Text & 3
    End Sub
    Private Sub Command4_Click()
    Text1.Text = Text1.Text & 4
    End Sub
    Private Sub Command5_Click()
    Text1.Text = Text1.Text & 5
    End Sub
    Private Sub Command6_Click()
    Text1.Text = Text1.Text & 6
    End Sub
    Private Sub Command7_Click()
    Text1.Text = Text1.Text & 7
    End Sub
    Private Sub Command8_Click()
    Text1.Text = Text1.Text & 8
    End Sub
    Private Sub Command9_Click()
    Text1.Text = Text1.Text & 9
    End Sub
    Private Sub Off_Click()
    mesaj = MsgBox("Şu anda programdan çıkıyorsunuz...", 7, "Program Çıkışı")
    End
    End Sub 
    heralde bir teşşekkürü cok görmezsiniz
    Konu murat335 tarafından (17.06.2006 Saat 04:11 ) değiştirilmiştir.

  2. #2
    Geçerken Uğradım nailgulmez38 - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    01.12.2005
    Mesajlar
    85
    Konular
    0
    cok sagol ya

  3. #3
    Misafir
    Üyelik tarihi
    13.04.2009
    Mesajlar
    1
    Konular
    0
    arkadasım saol tm da ınsan resmınıde kor buraya

Konu Bilgileri

Users Browsing this Thread

Şu an 1 kullanıcı var. (0 üye ve 1 konuk)

Bu Konudaki Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •  
Yukarı Çık
RSS RSS 2.0 XML MAP HTML
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz.

Search Engine Optimization by vBSEO 3.6.1