Ödev için vize final notunu girince ortalamayı bulacak ve harf notu yazacak bir program yazmam lazim.1.ve 2.kısmı ayrı ayrı yazdım simdi bunları nasıl tek hale getirebilirim.bide notların 0dan küçük 100 denir büyük olmaması için İF mi yoksa başka birşey mi kullanmam lazim.cevap yazan arkadaşlara tesekkur ederim şimdiden.
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.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = TextBox1.Text * 0.2 + TextBox2.Text * 0.8
vizenin %20 sini Finalin %80 nini alıp hesaplayan kod. 1-0'dan küçük 100 'den büyük sayı girilmesini engelleyen kod. 2-sadece sayı girişi olacak harf girişini engelleyen kod. 3-bunları yazdıktan sonra exe olarak kaydetme nasıl yapılır.
Public Partial Class MainForm Inherits Form Public Sub New()
InitializeComponent() End Sub
Private Shared Sub Yalnızsayı(sender As Object, e As KeyPressEventArgs)
If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) AndAlso (e.KeyChar <> "."C) Then e.Handled = True End If
End Sub
Private Sub Button1Click(sender As Object, e As EventArgs) textBox3.Text = (Convert.ToDouble(textBox1.Text) * 0.2 + Convert.ToDouble(textBox2.Text) * 0.8).ToString() End Sub
Private Sub MainFormLoad(sender As Object, e As EventArgs) For Each textBox As TextBox In Controls.OfType(Of TextBox)() AddHandler textBox.KeyPress, AddressOf Yalnızsayı AddHandler textBox.TextChanged, AddressOf sayı Next End Sub
Private Sub sayı(sender As Object, e As EventArgs)
For Each textBox As TextBox In Controls.OfType(Of TextBox)()
If textBox.Text <> "" Then If Convert.ToDouble(textBox.Text) > 100 Then
En son case dizisinde Case 90 to 100 : textbox4.text="AA" Case else :textbox4.text="hata" yazım ancak 90 ile 100 arası not girince AA değilde hata yazıyor. Nefesini yanlış yapmıştım.
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜ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.
< Bu ileti mobil sürüm kullanılarak atıldı >