Visual Basic'te aylık ödemeler nasıl hesaplanır

1. Adım

Visual Basic programını yükledikten sonra "Standart EXE" şablonunu seçin. Ekranın sol tarafındaki araç çubuğundaki "Etiket" simgesini bulun. Bu simge büyük harf "A" gibi görünüyor. Tıklatın ve ekranın ortasındaki formun en üstüne sürükleyin. Fareyi serbest bıraktığınızda, bir haç görünecektir. Üzerine tıklayın ve etiketi genişletmek için küçük kareleri sürükleyin. Bu işlemi üç kez tekrarlayın, her etiketi bir öncekinin altına yerleştirin ve daha geniş hale getirin. Dördüncü sağa beşinci bir etiket ekleyin ve ayrıca uzatın.

2. Adım

Araç çubuğundaki "Metin Kutusu" kontrolüne, "ab" harflerini içeren küçük bir kareye tıklayın ve üst etiketin sağındaki forma sürükleyin. Fareyi serbest bırakın ve metin kutusunu genişletmek için sürükleme tutamaçlarını kullanın. Bu işlemi iki kez daha tekrarlayın, her kutuyu bir öncekinin altına yerleştirin. Araç çubuğunda, "Metin Kutusu" simgesinin altındaki küçük bir kare olan "KomutDüğmesi" seçeneğine tıklayın ve formu da genişleterek forma sürükleyin.

3. adım

Üstte başlayarak aynı anda bir "Etiket" üzerine tıklayın. Sağ bölmedeki "Özellikler" sütununda "Başlık" ı bulun. Her etiket için, "Başlık" satırını çift tıklayın ve bu değişiklikleri gördüğünüz varsayılan metinden yapın:

Üst etiket: "Kredi miktarı:" olarak adlandırın İkinci etiket: Ara "Aylık faiz oranı:" Üçüncü etiket: Arayın "Ay sayısı:" Dördüncü etiket: Ara "Aylık ödeme:" Beşinci etiket: Başlığın adını kaldırın.

4. Adım

Sırayla her "Metin kutusu" üzerine tıklayın ve "Özellikler" bölümünde "Metin" özelliğinin adını kaldırın. "Hesapla" bölümünü okumak için "KomutDüğmesi" başlığını değiştirin.

Adım 5

Kodu görmek için pencereyi açacak yeni adı "Hesapla" ile kontrole çift tıklayın. Daha önce girmiş olduğunuz iki satırı, "Private Sub Command1_Click ()" ve "End Sub." Bu iki satır arasında aşağıdaki kod satırlarını girin:

Dim AmtBorrow, Tamsayı Dim Oranı Olarak NumMonths, Double Rate Olarak MonthPay = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Rate) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Label5 .Caption = Biçim (MonthPay, "$ ##. ##")

Programı yürütmek ve ekrandaki miktarları yüklemek için "Hesapla" ya basmak için "F5" tuşuna basın.