Anasayfa > Kodlar > Visual basic 6 ile Alt program,frame,optinonal buton kontrol

Visual basic 6 ile Alt program,frame,optinonal buton kontrol


Arabanın satış fiyatını istenilen optional donanıma göre hesaplayan program.



Private Sub Check1_Click()
hesapla
End Sub
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Command1.Cancel = True
Check1.Value = 1
Text5 = Format(Text5, "###,###")
End Sub

Private Sub Text2_Change()
hesapla
End Sub

Private Sub Text3_Change()
hesapla
End Sub

Sub hesapla() 'hesaplamayı yapacak alt program
Dim standart, plaka, deri, celik, park, teslim
standart = Val(Text2)
plaka = Val(Text3)
deri = Val(Text4)
celik = Val(Text6)
park = Val(Text7)
If Check1.Value = 1 Then 'check işaretli ise
teslim = standart + plaka + deri + celik + park
Frame1.Visible = True
Else
Frame1.Visible = False
teslim = standart + plaka
End If
Text5 = teslim
End Sub

Private Sub Text4_Change()
hesapla
End Sub

Private Sub Text6_Change()
hesapla
End Sub

Private Sub Text7_Change()
hesapla
End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: