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 » RadioButton’la Basit faiz, Bileşik faiz ve eşit ödemeler için P/A,A/F,A/P hesabı
Ü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

Binaryden Integer'a çevirmenin kısa yolu

Yazar: hunbbm

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 № : 12235
Yayın Tar:06.01.2012
Yazar : gymii
Hit :1069

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

Başlık biraz uzun oldu mazur görün lütfen. anlatmaya çalıştığım şey aslında aşağıdaki resimdeki hesaplamaları yapıyor.Benim mühendislik ekonomisi okul projem.İlk paylaşımım umarım dilim sürşmez :)
Çok uzatmadan buyrun resim:
http://imageshack.us/photo/my-images/191/faizu.jpg

Birde programın görüntüsünün de resmini ekleyip devam edeyim
http://imageshack.us/photo/my-images/840/goruntu.jpg

Yukardaki formüllerdende anlışalabileceği üzere altı farklı hesaplama yapan mini bir program desek sanırım yanlış olmaz.& farklı buton kullandım isimleri
(Formüllere göre sıralı olarak)
BFH_cmd
F_cmd
P_cmd
PA_cmd
AF_cmd
AP_cmd
PA, AF ve AP arasına radiobutonlardaki gibi / işareti koymak isterdim ama buna izin vermiyor editör.Bu anlam kargaşasında affınıza sığınarak devam ediyorum

Aslında özünde basit bir mini program.Kısa özetlemek gerekirse radiobutonlar ile 6 hesaplama butonu için görünürlükler kapatılıp açılıyor.Aynı şekilde textboxlarda hesaplamalarda gerekli olma durumuna göre gizleniyor.Birde son olarak textboxlarda sonucun yazılcagı alanın enabled değerini false yaptım.Bu alanıda kırmızıya boyadım.

Public Class Form1

Private Sub hesapla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AP_cmd.Click
A_textbox.Text = Val(P_TextBox.Text) * (((Val(i_TextBox.Text) * (1 + Val(i_TextBox.Text)) ^ Val(N_TextBox.Text)) / ((1 + Val(i_TextBox.Text)) ^ Val(N_TextBox.Text)) - 1))
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

BFH_cmd.Visible = True
ı_label.Visible = True
ı_textbox.Visible = True
P_TextBox.Visible = True
P_label.Visible = True
i_TextBox.Visible = True
i_label.Visible = True
N_TextBox.Visible = True
N_label.Visible = True
A_label.Visible = False
A_textbox.Visible = False
F_label.Visible = False
F_TextBox.Visible = False
F_cmd.Visible = False
P_cmd.Visible = False
PA_cmd.Visible = False
AF_cmd.Visible = False
AP_cmd.Visible = False
F_TextBox.Enabled = True
F_TextBox.BackColor = Color.PaleTurquoise
P_TextBox.Enabled = True
P_TextBox.BackColor = Color.PaleTurquoise
A_textbox.Enabled = True
A_textbox.BackColor = Color.PaleTurquoise
ı_textbox.Enabled = False
ı_textbox.BackColor = Color.Red
ı_textbox.Clear() 'anlasılacagi gibi .Clear ile textboxları temizliyoruz
P_TextBox.Clear()
i_TextBox.Clear()
N_TextBox.Clear()
A_textbox.Clear()
End Sub

[m Private Sub F_label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F_label.Click

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
F_cmd.Visible = True
F_label.Visible = True
F_TextBox.Visible = True
P_TextBox.Visible = True
P_label.Visible = True
i_TextBox.Visible = True
i_label.Visible = True
N_TextBox.Visible = True
N_label.Visible = True
A_label.Visible = False
A_textbox.Visible = False
ı_label.Visible = False
ı_textbox.Visible =False
BFH_cmd.Visible =False
P_cmd.Visible = False
PA_cmd.Visible = False
AF_cmd.Visible = False
AP_cmd.Visible = False
P_TextBox.Clear()
i_TextBox.Clear()
N_TextBox.Clear()
F_TextBox.Clear()
P_TextBox.Enabled = True
P_TextBox.BackColor = Color.PaleTurquoise
F_TextBox.Enabled = False
F_TextBox.BackColor = Color.Red

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
P_cmd.Visible = True
F_TextBox.Visible = True
F_label.Visible = True
i_TextBox.Visible = True
i_label.Visible = True
N_TextBox.Visible = True
N_label.Visible = True
ı_label.Visible = False
ı_textbox.Visible =False
BFH_cmd.Visible = False
F_cmd.Visible = False
PA_cmd.Visible = False
AF_cmd.Visible = False
AP_cmd.Visible = False
P_TextBox.Clear()
i_TextBox.Clear()
N_TextBox.Clear()
F_TextBox.Clear()
F_TextBox.Enabled = True
F_TextBox.BackColor = Color.PaleTurquoise
P_TextBox.Enabled = False
P_TextBox.BackColor = Color.Red


End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
PA_cmd.Visible = True
P_TextBox.Visible = True
P_label.Visible = True
i_TextBox.Visible = True
i_label.Visible = True
N_TextBox.Visible = True
N_label.Visible = True
A_textbox.Visible = True
A_label.Visible = True
F_label.Visible = False
F_TextBox.Visible = False
ı_label.Visible = False
ı_textbox.Visible = False
BFH_cmd.Visible = False
F_cmd.Visible = False
P_cmd.Visible = False
AF_cmd.Visible = False
AP_cmd.Visible = False
P_TextBox.Clear()
i_TextBox.Clear()
N_TextBox.Clear()
A_textbox.Clear()
F_TextBox.Enabled = True
F_TextBox.BackColor = Color.PaleTurquoise
A_textbox.Enabled = True
A_textbox.BackColor = Color.PaleTurquoise
P_TextBox.Enabled = False
P_TextBox.BackColor = Color.Red

End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
AF_cmd.Visible = True
i_TextBox.Visible = True
i_label.Visible = True
N_TextBox.Visible = True
N_label.Visible = True
F_TextBox.Visible = True
F_label.Visible = True
P_label.Visible = False
P_TextBox.Visible = False
ı_label.Visible = False
ı_textbox.Visible = False
BFH_cmd.Visible = False
F_cmd.Visible = False
P_cmd.Visible = False
PA_cmd.Visible = False
AP_cmd.Visible = False
i_TextBox.Clear()
N_TextBox.Clear()
F_TextBox.Clear()
A_textbox.Clear()
F_TextBox.Enabled = True
F_TextBox.BackColor = Color.PaleTurquoise
P_TextBox.Enabled = True
P_TextBox.BackColor = Color.PaleTurquoise
A_textbox.Enabled = False
A_textbox.BackColor = Color.Red
End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
AP_cmd.Visible = True
i_TextBox.Visible = True
i_label.Visible = True
N_TextBox.Visible = True
N_label.Visible = True
P_TextBox.Visible = True
P_label.Visible = True
A_textbox.Visible = True
A_label.Visible = True
F_label.Visible = False
F_TextBox.Visible = False
ı_label.Visible = False
ı_textbox.Visible = False
BFH_cmd.Visible = False
F_cmd.Visible = False
P_cmd.Visible = False
PA_cmd.Visible = False
AF_cmd.Visible = False
P_TextBox.Clear()
i_TextBox.Clear()
N_TextBox.Clear()
A_textbox.Clear()
F_TextBox.Enabled = True
F_TextBox.BackColor = Color.PaleTurquoise
P_TextBox.Enabled = True
P_TextBox.BackColor = Color.PaleTurquoise
A_textbox.Enabled = False
A_textbox.BackColor = Color.Red
End Sub

Private Sub BFH_cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BFH_cmd.Click
ı_textbox.Text = Val(P_TextBox.Text) * Val(i_TextBox.Text) * Val(N_TextBox.Text)

End Sub

Private Sub F_cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F_cmd.Click
F_TextBox.Text = Val(P_TextBox.Text) * (1 + Val(i_TextBox.Text)) ^ Val(N_TextBox.Text)
End Sub

Private Sub P_cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P_cmd.Click
P_TextBox.Text = Val(F_TextBox.Text) * (1 + Val(i_TextBox.Text)) ^ -Val(N_TextBox.Text)
End Sub

Private Sub PA_cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PA_cmd.Click
P_TextBox.Text = Val(A_textbox.Text) * ((((1 + Val(i_TextBox.Text)) ^ Val(N_TextBox.Text)) - 1) / (Val(i_TextBox.Text) * (1 + Val(i_TextBox.Text)) ^ Val(N_TextBox.Text)))

End Sub

Private Sub AF_cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AF_cmd.Click
A_textbox.Text = Val(F_TextBox.Text) * (Val(i_TextBox.Text) / (((1 + Val(i_TextBox.Text)) ^ Val(N_TextBox.Text)) - 1))

End Sub

End Class





Bu sayfa için henüz yorum eklenmemiş.

© 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