hesap makinası programı kodları (visual.studio

'Delphi & Visual basic & C / C++/C#/Java' forumunda murat335 tarafından 17 Haziran 2006 tarihinde açılan konu

  1. murat335

    murat335 New Member

    Katılım:
    10 Eylül 2005
    Mesaj:
    2
    Ödül Puanları:
    0
    Meslek:
    programcııı
    Şehir:
    SqlConnection con=new SqlConnection("data source="

    biraz gec oldu ama yazdım en sonunda

    PHP:
    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
     
    En son bir moderatör tarafından düzenlenmiş: 17 Haziran 2006
  2. nailgulmez38

    nailgulmez38 New Member

    Katılım:
    1 Aralık 2005
    Mesaj:
    0
    Ödül Puanları:
    0

    cok sagol ya
     
  3. Touransht

    Touransht New Member

    Katılım:
    13 Nisan 2009
    Mesaj:
    0
    Ödül Puanları:
    0

    arkadasım saol tm da ınsan resmınıde kor buraya
     

Bu Sayfayı Paylaş