Arama butonu
Bu konudaki kullanıcılar: 1 misafir
4
Cevap
740
Tıklama
0
Öne Çıkarma
vb ondalıklı sayı tanımlamak
F
14 yıl (29 mesaj)
Onbaşı
Konu Sahibi

küçük bi program yaptım. 7-8 veri girişi yapıp tanımladığım matematiksel denklemle bi sonuca ulaşmasını istiyorum. ulaşıyorum da. fakat ondalık sayılarla veri girdiğimde tam kısımlarını alarak işlem yapıyor. yapmasını istediğim işlemde onladıklı, virgüllü sayıları kullanarak işlem yapmasını nasıl sağlarım?

yazdıgım kod bu;

Private Sub Command1_Click()

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = Val(Text5.Text)
f = Val(Text6.Text)
m = Val(Text7.Text)
Text8.Text = ((m * e * (a - c)) + (f * (c - a)) + (a * (d - b)) + (b * (a - c))) / ((d - b) + (m * (a - c)))
Text9.Text = ((f * (b - d)) + (m * e * (d - b)) + (m * b * (c - a)) + (m * a * (b - d))) / ((m * (c - a)) + b - d)

End Sub

yardımcı olursanız cok sevınırım..

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil





< Bu mesaj bu kişi tarafından değiştirildi fktgn -- 15 Aralık 2011; 23:31:46 >

F
14 yıl (29 mesaj)
Onbaşı
Konu Sahibi

kafam patladı saatlerdir. bulamıyorum bi türlü.

her türlü sayı tüm sayılarla bu işlemin yapılabilmesi için napmam gerekiyor bilen yok mu ?


Bu mesaja 1 cevap geldi.
P
14 yıl (4313 mesaj)
Yarbay

double tanımlasan olur herhalde.
değişkenleri double tanımla çalışacakmı bakalım


Bu mesaja 1 cevap geldi.
F
14 yıl (29 mesaj)
Onbaşı
Konu Sahibi

Dim a, b, c, d, e, f, m As Double

ekledim. fakat aynı sonuç.


Bu mesaja 1 cevap geldi.
P
14 yıl (4313 mesaj)
Yarbay

visual studio kurulu değil yoksa daha net cevap verirdim. Şöyle değiştir ;

Dim a, b, c, d, e, f, m As Double
a = Convert.ToDouble(TextBox1.Text)
b = Convert.ToDouble(TextBox2.Text)
c = Convert.ToDouble(TextBox3.Text)
d = Convert.ToDouble(TextBox4.Text)
e= Convert.ToDouble(TextBox5.Text)
f= Convert.ToDouble(TextBox6.Text)
m= Convert.ToDouble(TextBox7.Text)

Text8.Text =convert.tostring( ((m * e * (a - c)) + (f * (c - a)) + (a * (d - b)) + (b * (a - c))) / ((d - b) + (m * (a - c))))
Text9.Text =convert.tostring ((f * (b - d)) + (m * e * (d - b)) + (m * b * (c - a)) + (m * a * (b - d))) / ((m * (c - a)) + b - d))



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.