Reklamlar
Visual Basic Not ortalama

Visual Basic Not ortalama » > Gerekenler < - 5 adet commandbutton - 4 adet textbox - 4 adet label - 1 adet listbox > İsimler i< *Command Button'lar "ortala"=

Gönderen Konu: Visual Basic Not ortalama  (Okunma sayısı 4381 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24517
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle

Visual Basic Not ortalama
« : Nisan 30, 2009, 06:07:37 ÖÖ »
> Gerekenler <

- 5 adet commandbutton
- 4 adet textbox
- 4 adet label
- 1 adet listbox

> İsimler i<

*Command Button'lar

"ortala"= command1
"ekle"=command2
"sil"=command3
"tümünü sil"=command4
"çıkış"=command5

*Textbox'lar

"1.not"=text1
"2not"=text2
"3not"=text3
"sonuc"=text4

*Label'ler

"label1"=1.not
"label2"=2.not
"label3"=3.not
"label4"=sonuç

*Listbox

"list1"


> Kod <

Private Sub Command1_Click()
Text4 = (Val(Text2) + Val(Text2) + Val(Text3)) \ 3
Font.Bold = True
End Sub

Private Sub Command2_Click()
List1.AddItem Text4
End Sub

Private Sub Command3_Click()
List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command4_Click()
List1.Clear
End Sub

Private Sub Command5_Click()
a = MsgBox("Çıkış yapmak istediniz.Emin misiniz?", vbQuestion + vbYesNo + vbDefaultButton2, "Çıkış")
If a = vbYes Then
MsgBox "Çıkış Yapıyorsunuz!!"
End
Else
a = vbNo
MsgBox "Çıkış İptal Edildi!!"
End If
End Sub

Private Sub Form_Load()
MsgBox "Bu progr***** Dejavu tarafından yazılmıştır!"
End Sub



Not: Konular İnternet Sitelerinden derlenerek alıntı yapılmıştır.








BilX.Net

 

Related Topics

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
2226 Gösterim
Son İleti Nisan 30, 2009, 06:07:10 ÖÖ
Gönderen: administrator
0 Yanıt
3267 Gösterim
Son İleti Nisan 30, 2009, 06:21:17 ÖÖ
Gönderen: administrator
0 Yanıt
1825 Gösterim
Son İleti Nisan 30, 2009, 06:26:04 ÖÖ
Gönderen: administrator
0 Yanıt
5649 Gösterim
Son İleti Nisan 30, 2009, 06:26:13 ÖÖ
Gönderen: administrator
0 Yanıt
2419 Gösterim
Son İleti Nisan 30, 2009, 06:27:26 ÖÖ
Gönderen: administrator