VB.Nette Form ornegı Yardım - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html) +--- Konu Başlığı: VB.Nette Form ornegı Yardım (/konu-vb-nette-form-ornegi-yardim.html) Sayfalar:
1
2
|
VB.Nette Form ornegı Yardım - akdata2013 - 09/10/2013 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 VB.Nette For uygulaması yapamadım - akdata2013 - 09/10/2013 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 Cvp: VB.Nette Form ornegı Yardım - alpeki99 - 09/10/2013 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. Cvp: VB.Nette Form ornegı Yardım - akdata2013 - 09/10/2013 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 Cvp: VB.Nette Form ornegı Yardım - alpeki99 - 09/10/2013 Ö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:
Öğrenci bilgilerini almayı zaten yukarıda halletmişsiniz ancak textbox kullanmanıza gerek yok. Tüm bilgileri inputbox ile alabilirsiniz. Cvp: VB.Nette Form ornegı Yardım - akdata2013 - 13/10/2013 sorun cozulmedı |