visual basic aritmetik ortalama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

azatin

Yeni üye
26 May 2012
28
0
arkadaşlar visual basici yeni yeni kullanmaya başladım ve bi hesap makinesi yaptım(çok hoç bir duyguydu :d) ve şimdi aritmetik ortalamayı hesaplayan bir program yapmayı düşünüyorum kodlar bu şekilde fakat çalışmadı ve 3 text 1 button 1 label açtım :)


Private Sub Hesapla_Click()
Dim yazili1, yazili2, yazili3, Ortalamaniz As Integer
yazili1 = Val(Text1.Text)
yazili2 = Val(Text2.Text)
yazili3 = Val(Text3.Text)
Ortalamaniz = (yazili1 + yazili2 + yazili3) / 3
Label1 = Ortalamaniz
End Sub
 

azatin

Yeni üye
26 May 2012
28
0
arkadaşlar spam yapmak istemem ama bu başlığın altından sormak daha uygun geldi visual basic ile tv programı yapmaya çalışıyorum fakat kodlarda bir yanlışlık var diyor sürekli sarı çıkıyor anlamış değilim bi siz incelerseniz sevinirim :)

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "mms://95.0.159.138/TV1"
End Sub

Private Sub Command10_Click()
WindowsMediaPlayer1.URL = "mms://yayin2.canlitv.com/kanald"
End Sub

Private Sub Command11_Click()
WindowsMediaPlayer1.URL = "mms://85.111.3.55/cnbce"
End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.URL = "mms://yayin.canlitv.com/showtv"
End Sub

Private Sub Command3_Click()
WindowsMediaPlayer1.URL = ("mms://yayin2.canlitv.com/atv")
End Sub

Private Sub Command5_Click()
WindowsMediaPlayer1.URL = "mms://95.0.159.138/TV2"
End Sub

Private Sub Command6_Click()
WindowsMediaPlayer1.URL = "mms://yayin.canlitv.com/foxtv"
End Sub

Private Sub Command7_Click()
WindowsMediaPlayer1.URL = "mms://yayin2.canlitv.com/tnt"
End Sub

Private Sub Command8_Click()
WindowsMediaPlayer1.URL = "mms://85.111.3.55/ntv"
End Sub

Private Sub Command9_Click()
WindowsMediaPlayer1.URL = "mms://yayin2.canlitv.com/startv"
End Sub

ve aritmetik ortalama yı hallettim o sorun çözüldü bunada el atarsanız çok iyi olur şimdiden teşekkürler
 

sezgin1444

Kıdemli Üye
3 Şub 2012
3,061
4
f3nr1r@R00T
Kodlarıda al bunu dene birde olcakmı ama ben vb 2010 kullanıyorum kodları 2010 a göre düzenledim

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim yazili1, yazili2, yazili3, Ortalamaniz
yazili1 = Val(TextBox1.Text)
yazili2 = Val(TextBox2.Text)
yazili3 = Val(TextBox3.Text)
Ortalamaniz = (yazili1 + yazili2 + yazili3) / 3
MsgBox(Ortalamaniz)
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.