AccessTr.neT

sol tarafta Ad soyad numara vize final notları girilerek alt tarafta listte

Ad soyad Bölüm Adı Vize Final Ortalama Gecme notu Harf notu yanyana yazmaktadır. Hesapla butonuna basınca

sag ust kosede giriş butona tıklandığında ınputbox 5 yazdığımızda hesapla butonunda 5 kısının verisini listbox gırılecek we 6 yazılmaya kalktığında hata mesajı gelıcektır msgbox ıle bu konuda yardımcı olurmusunuz.

Hesapla butonunu yaptım Giris butotnunda yardımcı olursanıs cok sevınırım

sol tarafta Ad soyad numara vize final notları girilerek alt tarafta listte

Ad soyad Bölüm Adı Vize Final Ortalama Gecme notu Harf notu yanyana yazmaktadır. Hesapla butonuna basınca

sag ust kosede giriş butona tıklandığında ınputbox 5 yazdığımızda hesapla butonunda 5 kısının verisini listbox gırılecek we 6 yazılmaya kalktığında hata mesajı gelıcektır msgbox ıle bu konuda yardımcı olurmusunuz.

Hesapla butonunu yaptım Giris butotnunda yardımcı olursanıs cok sevınırım

Giris butonu for dongusu ıle olucak

Bu vb.net değil galiba klasik vb ile hazırlanmış bir proje galiba. Sorunuz net değil ayrıca örnek projenizi eklerseniz ilgilenen kişi daha çok olacaktır.

Visual Basic 6.0 da proje dosyası bılgısayarım vırus olarak algıladığı ıcın sılındı bendede kod kaldı sadece

Private Sub Giris_Button_Click()
Dim ad_soyad As String
Dim harf_notu As String
Dim gecme_notu As String
Dim bolum_adi As String
Dim ogr_no As Integer
Dim vize As Integer
Dim final As Integer
Dim ort As Integer



ad_soyad = Text1.Text
bolum_adi = Text5.Text
ogr_no = Text2.Text
vize = Text3.Text
final = Text4.Text
ort = (vize * 0.3) + (final * 0.7)

If ort <= 100 And ort > 89 Then
harf_notu = "AA"
ElseIf ort > 84 Then
harf_notu = "BA"
ElseIf ort > 79 Then
harf_notu = "BB"
ElseIf ort > 74 Then
harf_notu = "CB"
ElseIf ort > 69 Then
harf_notu = "CC"
ElseIf ort > 64 Then
harf_notu = "DC"
ElseIf ort > 59 Then
harf_notu = "DD"
ElseIf ort > 49 Then
harf_notu = "FD"
ElseIf ort < 50 Then
harf_notu = "FF"
End If

If ort > 60 Then gecme_notu = "geçti"
If ort < 60 Then gecme_notu = "kaldı"

List1.AddItem ad_soyad & " " & bolum_adi & " " & ogr_no & " " & vize & " " & final & " " & ort & " " & harf_notu & " " & gecme_notu

End Sub

Özel mesaj ile yazdığınız "input box ıle gırılen sayı adedı kadar hesapla butonuna bastığımızda verı eklemesı lazım. For dongusu ıle olması lazımmış" cümleyi soruya yazsaymışsınız anlaşılırmış

InputBox ile kaç adet diye soracak öncelikle. Bu rakam For döngüsünde kullanılacak:

kacKisi = InputBox("Kaç öğrenci bilgisi girilecek?")



For i = 1 To kacKisi

  

    ' Burada sınav ve vize bilgilerini alacak ve listeye ekleyeceksiniz

  

Next i

Öğrenci bilgilerini almayı zaten yukarıda halletmişsiniz ancak textbox kullanmanıza gerek yok. Tüm bilgileri inputbox ile alabilirsiniz.

sorun cozulmedı