1.Wstęp
W tym rozdziale po raz pierwszy napiszesz poważniejszy program. Ta lekcja oprócz wykorzystania w praktyce wcześniejszych umiejętności, nauczy cię kilku ciekawych rzeczy oraz da ci pierwsze doświadczenie z VB.
Głęboki oddech i zaczynamy tworzyć "Kalkulator odsetek".
2.Formularz
Stwórz nowy formularz typu standart EXE
W polu Caption wpisz "Kalkulator odsetek"
Stwórz pierwszą etykiete i Caption ustaw na "Stopa procentowa (8 dla 8%)
Obok etykiety wstaw pole tekstowe Text1 i zostaw je puste
Następnie musisz dodać jeszcze 2 etykiety "Okres (Cykl roczny)", "Kwota lokaty" oraz obok każdej pole tekstowe również puste
Kolejnym krokiem będzie dodanie przycisku Command Button "Oblicz"
Dodaj jeszcze jedną etykiete "Końcowa kwota" oraz pole tekstowe obok niej.

3.Kod
W tej części zostanie omówiony kod, który należy podpiąć pod przycisk Command Button.

Dim sngRocznastopa As Single, sngZysk As Single
Dim intLatalokaty As Integer, intNum As Integer
Dim curPoczatkowakwota As Currency

'obsługa błędów
If ErrorCheck() = 1 Then
Exit Sub
End If

sngRocznastopa = Text1.Text / 100#
intLatalokaty = Text2.Text

curPoczatkowakwota = Text3.Text
sngZysk = 1# ' Zaczynamy od 1

For intNum = 1 To intTerm
sngZysk = sngZysk * (1 + sngRocznastopa)
Next intNum

Text4.Text = Format(curPoczatkowakwota * sngZysk, "zł ###,##0.00")


Do tego jeszcze musimy napisać modół obsłógi błędów ErrorCheck(). Z menu Project dodaj Add Module. Kod mudułu:


Public Function ErrorCheck() As Integer
' Sprawdzenie błędów dla formatki
If Val(Form1.Text1.Text) <= 0 Then
intPress = MsgBox("Wpisz wartość stopy procentowej", vbCritical)
Form1.Text1.SetFocus 'szybki powrót do pola, które mamy powrócić
ErrorCheck = 1
Exit Function
End If
If Val(Form1.Text2.Text) <= 0 Then
intPress = MsgBox("Wprowadź wartość okresu", vbCritical)
Form1.Text2.SetFocus
ErrorCheck = 1
Exit Function
End If
If Val(Form1.Text3.Text) <= 0 Then
intPress = MsgBox("Wprowadź wartość kwoty lokaty", vbCritical)
Form1.Text3.SetFocus
ErrorCheck = 1
Exit Function
End If
' Jeżeli program dotarł tutaj nie wystąpiły błędy
ErrorCheck = 0
End Function

Na koniec mogę jeszcze odesłać wszystkich do działu Visual Basic di ćwiczenia 6, które jest programem omówionym w tej lekcji.
 
 
Autor: Paweł Pietrasz