Şimdi Ara

Vb.Net Üçgen Kodlamada Hata

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

POWERTEC TR-250 Günlük Sakal Ve Burun Kili Makinesi : Amazon.com.tr: Kişisel Bakım ve Kozmetik https://www.amazon.com.tr/POWERTEC-TR-250-G%C3%BCnl%C3%BCk-Sakal-Makinesi/dp/B0C6H651RL 11 sa. önce paylaşıldı

Polaroid Erkek PLD 4129/S/X Güneş Gözlüğü, Gri, 51 : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0BS73HHRC 18 sa. önce paylaşıldı

Süvari Erkek Polo Yaka Regular Kalıp Armürlü Tişört Ts1014000271-S09 Fiyatları ve Özellikleri https://www.n11.com/urun/suvari-erkek-polo-yaka-regular-kalip-armurlu-tisort-ts1014000271-s09-37247374 19 sa. önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

1
Cevap

0
Favori

124
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Merhaba arkadaşlar , ben matematik proje ödevi olarak üçgen birim hesaplama programı geliştiriyorum.Ancak 2 konuda işin içinden çıkamadım.Kodlama dilini tam olarak bilmiyorum o yüzden yazdığım kodların düzgün olmadığını düşünüyorum. Göndereceğim kodları düzenleyebilecek birisi varsa çok memnun olurum.Resimler:

bu resimde öklit kuralını yapmaya çalıştım. (h² = p.k)
http://i.hizliresim.com/g87NER.png
Kodlar:

Public Class Form5 
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          Dim posta As String 
          Dim kutusu As String 
          Dim output As String = "" 
          Dim sonuc As Double 
   
          posta = Convert.ToDouble(TextBox2.Text) 
          kutusu = Convert.ToDouble(TextBox3.Text) 
          sonuc = Math.Pow(posta * kutusu, 2) 
          output = Convert.ToString(sonuc) 
   
          TextBox3.Text = output 
      End Sub 
   
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
          Form3.Show() 
          Me.Hide() 
      End Sub 
  End Class

bu resimde ise kosinüs teoremi yapmaya çalıştım ama başarılı olamadım bunun formulü ise şöyle olacak (a² = b² + c² - 2.a.b.cosa)
http://i.hizliresim.com/6Po4OP.png

Kodlar:

Public Class Form8 
   
      Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click 
   
      End Sub 
   
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
          Form3.Show() 
          Me.Hide() 
      End Sub 
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          Dim sonuc As String 
          Dim output As String = "" 
   
          sonuc = Math.Pow(TextBox1.Text, 2) + Math.Pow(TextBox2.Text, 2) - 2 * TextBox1.Text * TextBox2.Text * TextBox4.Text 
          output = Convert.ToString(sonuc) 
          TextBox3.Text = output 
   
      End Sub 
  End Class