Arama butonu
Bu konudaki kullanıcılar: 1 misafir
6
Cevap
786
Tıklama
0
Öne Çıkarma
Visual Basic Not programı yardim.
H
10 yıl
Teğmen
Konu Sahibi

Ö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.

Üye Ol Şimdi Değil



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

S
10 yıl
Çavuş

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
10 yıl
Teğmen
Konu Sahibi

Belirli puan aralığı var



< Bu ileti mobil sürüm kullanılarak atıldı >
Bu mesaja 1 cevap geldi.
P
10 yıl
Binbaşı

Kodları buraya koymanda bir sakınca yoksa daha kolay yardım bulursun diye düşünüyorum.


Bu mesaja 1 cevap geldi.
H
10 yıl
Teğmen
Konu Sahibi

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.


Bu mesaja 1 cevap geldi.
G
10 yıl
Yarbay

 
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
10 yıl
Teğmen
Konu Sahibi

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.