THT DUYURU

THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Hesap makinesi yapma

yigitcan575 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2012
Mesajlar:
265
Konular:
59
Teşekkür (Etti):
28
Teşekkür (Aldı):
39
Ticaret:
(0) %
8
487
16-11-2012 22:19
#1
Hesap makinesi nasıl yapabilirim?
-SiPaHi- - ait Kullanıcı Resmi (Avatar)
Yardımsever
Üyelik tarihi:
01/2012
Nereden:
İstanbul
Mesajlar:
12.866
Konular:
1289
Teşekkür (Etti):
656
Teşekkür (Aldı):
3088
Ticaret:
(0) %
16-11-2012 22:25
#2
yardım merkezine taşındı..
--------------------- ............

Hayat bu, bir bakarsın her şey bir anda son bulur. Hayat bu, son dediğin an her şey yeniden can bulur.

......
yigitcan575 Teşekkür etti.
Fixicon - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Ankara
Mesajlar:
758
Konular:
59
Teşekkür (Etti):
23
Teşekkür (Aldı):
73
Ticaret:
(0) %
16-11-2012 22:27
#3
Kod:
	
Dim geçici As Integer
    Dim geçici1 As String
    
    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 Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        
            TextBox1.Text = TextBox1.Text & "3"

    End Sub

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

    End Sub

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

    End Sub

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

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text & "7"

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text & "8"


    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text & "9"

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        TextBox1.Text = TextBox1.Text & "0"

    End Sub

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

        TextBox1.Text = TextBox1.Text & "00"

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        geçici = TextBox1.Text
        geçici1 = "topla"
        TextBox1.Text = ""

    End Sub

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

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        geçici = TextBox1.Text
        geçici1 = "çarp"
        TextBox1.Text = ""
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        geçici = TextBox1.Text
        geçici1 = "çıkart"
        TextBox1.Text = ""
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        geçici = TextBox1.Text
        geçici1 = "böl"
        TextBox1.Text = ""
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        geçici = TextBox1.Text
        geçici1 = "yüzde"
        TextBox1.Text = ""
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        TextBox1.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "HESAP MAKİNASI"
    End Sub
yigitcan575 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2012
Mesajlar:
265
Konular:
59
Teşekkür (Etti):
28
Teşekkür (Aldı):
39
Ticaret:
(0) %
16-11-2012 22:30
#4
Bunu nereye yazıcam pek bilgim yok da
Fixicon - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Ankara
Mesajlar:
758
Konular:
59
Teşekkür (Etti):
23
Teşekkür (Aldı):
73
Ticaret:
(0) %
16-11-2012 22:31
#5
vb.net
yigitcan575 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2012
Mesajlar:
265
Konular:
59
Teşekkür (Etti):
28
Teşekkür (Aldı):
39
Ticaret:
(0) %
16-11-2012 22:40
#6
kardeşim daha çok acemiyim biraz daha açabilirmisin konuyu?(yani nasıl indiricem ne yapıcam )
Fixicon - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Ankara
Mesajlar:
758
Konular:
59
Teşekkür (Etti):
23
Teşekkür (Aldı):
73
Ticaret:
(0) %
16-11-2012 22:43
#7
Bu kadar acemiysen hemen hesap makinesine başlama thtnin ana sayfasından aşağıya in vb.net (.net dilleri) var tıkla nasıl başlaman gerektiği yazar orda.Biraz ilerledikçe bunlara geç.
--------------------- -----------------Tekrardan ve bomba gibi geldim.--------------------
yigitcan575 Teşekkür etti.
yigitcan575 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2012
Mesajlar:
265
Konular:
59
Teşekkür (Etti):
28
Teşekkür (Aldı):
39
Ticaret:
(0) %
16-11-2012 22:53
#8
Kardeşim ilk olarak neyle başlamalıyım birkaç konuya baktım bi sana da danışıyım dedim yani hackerliğin ilk adımını nasıl atayım
Fixicon - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Ankara
Mesajlar:
758
Konular:
59
Teşekkür (Etti):
23
Teşekkür (Aldı):
73
Ticaret:
(0) %
16-11-2012 22:56
#9
http://www.turkhackteam.net/c-c/7193...ar-icin-c.html

Burdan başla yapılmış şeyleri yapmaya çalış fln.Biraz burda ilerlet kendini
--------------------- -----------------Tekrardan ve bomba gibi geldim.--------------------

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler