Példafeladat eljárás specifikációja

Feladat specifikáció: Készítsen eljárást, amely beolvassa egy henger sugarát, és magasságát, majd kiszámítja a henger felszínét és térfogatát.

Példafeladat eljárás algoritmus elkészítése

Eljárás henger()
Be: r, m
A = 2 * r ^ 2 * pi + 2 * r * pi * m
V = 2 * r ^ 2 * pi * m
Ki: V, A

Eljárás vége

Az algoritmus kép

Példafeladat eljárás forrásprogramja

Megírt forrásprogram Sub henger()
Const pi = 3.1415926535898
Dim r As Double, m As Double, V As Double, A As Double
r = Form1.Text1
m = Form1.Text2
A = 2 * r ^ 2 * pi + 2 * r * pi * m
V = 2 * r ^ 2 * pi * m
Form1.Label6 = Round(A, 2) & " cm"
Form1.Label7 = Round(V, 2) & " cm^2"

End Sub

Private Sub Command1_Click()
henger
End Sub

A feladat megoldása során a Pi értékét konstansként kell deklarálni. Szükség lesz még két bemenő változóra double adattípussal, ezek a következők:
r: a henger sugara
m: a henger magassága

Deklarálni kell két kimenő változót felszín A, térfogat V néven adattípusúk Double, ezeket az adatoknak az értékét az eljáráson belül fogjuk kiszámolni.

Az eljárás definiálása, változók deklarálása, a programtörzs megírása, kiíró utasítás argumentumainak megadása.

Példafeladat eljárás definiálása

A bemenő adatokat egy henger nevű eljárással olvassuk be. Itt definiáljuk a lokális változókat. Az eljárás feladata a kimenő adatok kezelése. Az eljárás utasításait a Sub…End Sub kulcsszavak közé kell foglalni.

Példafeladat saját függvény és eljárásra a beolvasó, és kiíró űrlapja

Beolvasó utasítás:
A bemenő adatokat textboxok segítségével olvastatjuk be. Az értékadó utasítás bal oldalán a változó neve, jobb oldalon pedig a beviteli mező azonosítója áll.
r = Form1.Text1
m = Form1.Text2
Az űrlapon levő beviteli mezőkbe alapértelmezetten beírt Textn szöveget törölhetjük, ha a beviteli mező Properties paneljének Text rovatából kitöröljük a Textn szöveget.

Kiíró utasítás:
A kimenő adatokat az űrlapon Label vezérlőelemek segítségével jeleníthetjük meg. Tehát az értékadó utasítás bal oldalán a Label megnevezése, jobb oldalon a változó áll.

Form1.Label6 = Round(A, 2) & " cm"
Form1.Label7 = Round(V, 2) & " cm^2"

A kimenő adatokat a Round(változónév, tizedesjegyek_száma) függvénnyel két tizedesjegyre kerekítjük. A konkatenáció (&) függvénnyel a felszín és térfogat értéke mögé elhelyezhetjük a mértékegységet is.

A megírt eljárást a parancsgombbal hívjuk meg.

Private Sub Command1_Click()
henger
End Sub

Sub henger()
Const pi = 3.1415926535898
Dim r As Double, m As Double, V As Double, A As Double
r = Form1.Text1
m = Form1.Text2
A = 2 * r ^ 2 * pi + 2 * r * pi * m
V = 2 * r ^ 2 * pi * m
Form1.Label6 = Round(A, 2) & " cm"
Form1.Label7 = Round(V, 2) & " cm^2"

End Sub

Private Sub Command1_Click()
henger
End Sub

Példafeladat eljárás űrlapja

A beolvasó, és kiíró űrlap elkészítése. Az űrlapelemek elhelyezése, tulajdonságaik beállítása

Az űrlap elkészítéséhez válasszuk a View menü Object parancsát vagy nyomjuk le a Shift+F7 billentyű kombinációt.

A megjelenő űrlap Properties paneljén a Caption tulajdonság rovatába gépelje be az űrlap címét „A henger”. Ez a szöveg fog megjelenni az űrlap címsorában.
C Űrlap ommandButton: Parancsgomb, gomb: Ha a felhasználó rákattint benyomódik és ennek az eseménynek a hatására történik valami.

Az űrlapra helyezzük el az elrendezésnek megfelelő vezérlőelemeket.
Label: Szöveg, címke: a formon feliratokat készíthetünk vele. Ezt futás közben közvetlenül nem szerkeszthetjük billentyűzetről, de programból természetesen módosíthatjuk.

TextBox: Szövegdoboz: Szöveges adatok bevitelére, megjelenítésére használjuk.

A vezérlőket két módszerrel helyezhetünk el a ToolBoxról a formra. Rajzolással és dupla kattintással. Rajzolás: a ToolBoxon válasszuk ki a megfelelő vezérlő elemet, majd egérrel rajzoljunk egy téglalapot a formon. Dupla kattintás: Ha a ToolBoxon a megfelelő vezérlő elemen duplán kattintunk, akkor a form közepére kerül a kívánt control.

Program mentése
A kész programunkat mentsük el a File menü Save project menüpontjának segítségével, a megjelenő párbeszéd panelen adjuk meg a fájl helyét, és nevét.

Program futtatása
A kész programot a Run menü Start utasításának segítségével, vagy az F5 funkció billentyűvel futtathatjuk.