Skip to main content

AccessTr.neT


VB.Nette Form ornegı Yardım

VB.Nette Form ornegı Yardım

Çözüldü #1
[Resim: tfhy8.png]

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
Cevapla
Çözüldü #2
[Resim: tfhy8.png]

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
Cevapla
Çözüldü #3
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
Ö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ış Img-grin

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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #6
sorun cozulmedı
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task