Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » vbasic te not hesaplama
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

takvimmm

Yazar: zeynep_zg

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 11130
Yayın Tar:10.03.2009
Yazar : meral72
Hit :950

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Dim v1 As Integer, v2 As Integer, fin As Integer, ort As Integer, h As String
Dim ders As String, or1 As String, or2 As String, or3 As String, ders2 As String
Dim orv1 As Double, orv2 As Double, orfin As Double
Dim cevap
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Sub Command2_Click()
ders = InputBox("Değiştirmek istediğiniz dersin adını giriniz", "Ders değiştir")
If ders = "" Then
GoTo 10
End If
If Option1.Value Then
Option1.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr1ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option2.Value Then
Option2.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr2ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option3.Value Then
Option3.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr3ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option4.Value Then
Option4.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr4ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option5.Value Then
Option5.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr5ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option6.Value Then
Option6.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr6ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option7.Value Then
Option7.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr7ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option8.Value Then
Option8.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr8ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option9.Value Then
Option9.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr9ad.not" For Output As 1
Print #1, ders
Close
ElseIf Option10.Value Then
Option10.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr10ad.not" For Output As 1
Print #1, ders
Close
Else
Option11.Caption = ders
Label6.Caption = ders
Open "C:\Program Files\Not Hesabı\dr11ad.not" For Output As 1
Print #1, ders
Close
End If
10 End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Command4_Click()
or1 = InputBox("1. vizenin % olarak oranını giriniz[ör: %40 ise 40]", "Oran Değiştir")
If or1 = "" Then
GoTo 10
End If
or2 = InputBox("2. vizenin % olarak oranını giriniz[ör: %40 ise 40]", "Oran Değiştir")
If or2 = "" Then
GoTo 10
End If
or3 = InputBox("Finalin % olarak oranını giriniz[ör: %40 ise 40]", "Oran Değiştir")
If or3 = "" Then
GoTo 10
End If
MsgBox "Oranlar Değiştirildi", vbInformation, "Oran Değiştir"
Open "C:\Program Files\Not Hesabı\or1.not" For Output As 1
Print #1, or1
Close
Open "C:\Program Files\Not Hesabı\or2.not" For Output As 1
Print #1, or2
Close
Open "C:\Program Files\Not Hesabı\or3.not" For Output As 1
Print #1, or3
Close

10 End Sub

Private Sub Command5_Click()
Form3.Show
End Sub

Private Sub Command7_Click()
cevap = MsgBox("Bütün dersler sıfırlansınmı?", vbYesNo + vbQuestion, "Sıfırla")
If cevap = 6 Then
Open "C:\Program Files\Not Hesabı\dr1.not" For Output As 1
Print #1, 0, 0, 0, 0, "FF"
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
Text5.Text = "FF"
Close
Open "C:\Program Files\Not Hesabı\dr2.not"




Yorumlar, eklemeler ve düşünceler
        yaa ben formu saydamlaştırmak isteyorum yardımcı olabilirmisiniz

   iveedik, 13.03.2009 22:09
   Arkadaşlar benimde ihtiyacım var form saydamlaştırma koduna yardımcı olursanız çok sevinirim

   ismailakpinar55, 03.04.2009 23:37
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin