Başlangıç > Kodlar > VB.NET ile Sayının üssünü bulan program

VB.NET ile Sayının üssünü bulan program





Girdiğiniz sayının üssünü bulan program





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim i, x, y As Integer
  Dim sonuc As Double
  x = Int(TextBox1.Text)
  y = Int(TextBox2.Text)
  sonuc = 1

  If y > 0 Then
    For i = 1 To y
      sonuc = sonuc * x
    Next
  End If

  If y = 0 Then sonuc = 1

  If y < 0 Then
    y = -y
    For i = 1 To y
      sonuc = sonuc * x
    Next
    sonuc = 1 / sonuc
  End If

  MsgBox("sonuc=" & Str(sonuc))


"inşalla işinize yarar"

 

TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s