Bu konudaki kullanıcılar: 1 misafir
6
Cevap
150
Tıklama
0
Öne Çıkarma
Visual Basic Not programı yardim.

H Hawkerman Konu Sahibi
6 yıl (208 mesaj)
Ö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.



< Bu ileti mobil sürüm kullanılarak atıldı >


S selsam69
6 yıl (89 mesaj)
Harflendirme sistemi neye göre çan mı ağırlıklı not ortalaması mi Yoksa belirli puan aralığı mi



< Bu ileti mini sürüm kullanılarak atıldı >


Bu mesajda bahsedilenler: @Hawkerman

H Hawkerman Konu Sahibi
6 yıl (208 mesaj)
Belirli puan aralığı var



< Bu ileti mobil sürüm kullanılarak atıldı >


P PcCopat
6 yıl (1325 mesaj)
Kodları buraya koymanda bir sakınca yoksa daha kolay yardım bulursun diye düşünüyorum.




H Hawkerman Konu Sahibi
6 yıl (208 mesaj)
Public Class Form1

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.




G Gökşen PASLI
6 yıl (3947 mesaj)
 
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Linq

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

textBox.Text = "100"
End If

End If
Next
End Sub

End Class







H Hawkerman Konu Sahibi
6 yıl (208 mesaj)
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.



< Bu ileti mobil sürüm kullanılarak atıldı >

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.