Om de maandelijkse betalingen die nodig zijn om te betalen uit een lening te berekenen , moet je drie soorten informatie: het bedrag van de lening , de rente betaalt , en de lengte van de tijd om de lening terug te betalen . De wiskundige formule om dit vertaalt zich goed te doen in Visual Basic-code . Door het creëren van een formulier met opties voor het invoeren van deze drie stukjes informatie , kunt u uw eigen maandelijkse lening betaling rekenmachine op je computer . Instructies
1 Selecteer de " Standard EXE " template na het laden van Visual Basic . Zoek de "Label" pictogram in de Toolbox aan de linkerkant van het scherm . Dit pictogram ziet eruit als een hoofdletter A. Klik en sleep het naar de top van de vorm in het midden van het scherm . Wanneer u de muisknop loslaat , verschijnt een kruis . Klik erop en gebruik de kleine vierkantjes - drag handles - om het label te verruimen . Herhaal dit drie keer , het plaatsen van elk label onder de vorige en maakt het breder . Voeg een vijfde etiket aan de rechterkant van de vierde en verbreding van het als goed .
Klik 2 op de " TextBox " controle in de Toolbox , een klein vierkant met daarin de letters " ab ", en sleep het op het formulier aan de rechterkant van de top label . Laat de muisknop los en gebruik de sleep grepen om het tekstvak te vergroten . Herhaal dit nog twee keer , het plaatsen van elk vak onder de vorige. Klik op de " CommandButton , " een klein plein in de Toolbox , vond onder het pictogram TextBox , en sleep het over de vorm , de verbreding van het als goed.
3 Klik op een " Label " tegelijk vanaf de top . Zoek het corresponderende " Caption " eigenschap in de kolom "Eigenschappen " in het rechter paneel . Voor elk label , dubbelklik op het " Caption " lijn en maak deze wijzigingen van de standaard tekst die u ziet : Top Label
: Naam deze " Leningen " Second Label : Naam deze " maandelijkse rente : " Derde Label : naam deze " Aantal Maanden : " Vierde Label : naam deze " Maandelijkse betaling: " Vijfde Label : verwijder de naam bijschrift
4 Klik op elk. " TextBox " in te schakelen en te verwijderen de " Text " naam van de eigenschap in de sectie Properties . Verander de " CommandButton " bijschrift te lezen "Bereken . "
5 Dubbelklik op de zojuist genoemde controle " Bereken " , waarvan het venster uitzicht Code wordt geopend . Vindt u twee lijnen al ingevoerd , " Private Sub Command1_Click ( ) " en Voer de volgende regels code tussen deze twee lijnen "End Sub . " : Dim AmtBorrow
, NumMonths Zoals IntegerDim Rate , MonthPay Zoals DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + Rate ) ^ NumMonths * tarief /( ( 1 + Rate ) ^ NumMonths - 1 ) Label5.Caption = Format ( MonthPay , " . $ # # # # " ;) Druk op " F5 "
om het programma uit te voeren en leveren de bedragen die op het scherm , druk op ' berekenen ' om te voltooien .
|
