İndir ( Uploaded.to )
İndir ( Hotfile )




1 Adet Combo box olusturuyoruz.
3 Adet Text box
2 Commandbutton
1 Adet label


Combo box a istediginiz dersleri girin.

Sonra
Text boxları doldurun
Command buttonları ayarlayın
Labeli ayarlayın daha sonra

Command1 e 2 kere tıklayın

Şu kodları girin.

Kod:
Private Sub Command1_Click() Dim First, Second, Third 'değişkenleri tanımla First = Val(Text1.Text) 'Sayıları al ve donuştur Second = Val(Text2.Text) Third = Val(Text3.Text) If Command1.Value = True Then Label1.Caption = (First + Second + Third) / 3 End If End Sub
Command2 ye tıklayın 2 kere şu kodları girin

Kod:
Private Sub Command2_Click() End End Sub
Bu Cıkış kodudur.

Programın ana kodu

Kod:
Private Sub Combo1_Change() End Sub Private Sub Command1_Click() Dim First, Second, Third 'değişkenleri tanımla First = Val(Text1.Text) 'Sayıları al ve donuştur Second = Val(Text2.Text) Third = Val(Text3.Text) If Command1.Value = True Then Label1.Caption = (First + Second + Third) / 3 End If End Sub Private Sub Command2_Click() End End Sub Private Sub Text2_Change() End Sub

Visual basic 6.0 ile yapılmıstır..

Anlatım bana aittir emeğe saygı !