Programalama > VISUAL BASIC

> 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 programcık Dejavu tarafından yazılmıştır!"
End Sub