Példafeladat függvényre specifikációja

Példa a függvényre
Feladat: A forgáskúp felszínének, és térfogatának kiszámítása a sugár és a magasság alapján. A felszín és a térfogat kiszámítására függvényt használjon.

Feladat specifikáció: A forgáskúp felszínének, és térfogatának kiszámítása a sugár és a magasság alapján.

Algoritmus elkészítése: a mondatszerű leírás elkészítése, változók meghatározása

A feladat megoldása során a Pi értékét konstansként kell deklarálni. Szükség lesz még három változót double adattípussal, ezek a következők:
r: a forgáskúp sugara
m: a forgáskúp magassága
a: a forgáskúp oldaléle

A változók közül az r, és m változó bemenő adat. Kimenő adat és függvénnyel kell megvalósítani az oldalél, a felszín és a térfogat.

Példafeladat függvényre algoritmus elkészítése

Eljárás_szamolas
Be: r, m
Függvény_kup_oldalel
Függvény_kup_felszin
Függvény_kup_terfogat
Ki: oldal_el, kup_felszin, kup_terfogat
Eljárás vége

Függvény_kup_oldalel(r, m)
kup_oldalel = Sqr(r ^ 2 + m ^ 2)
Függvény vége

Függvény_kup_felszin(a, r)
kup_felszin = pi * r * (a + r)
Függvény vége

Függvény_kup_terfogat(r, m)
kup_terfogat = pi * r ^ 2 * m / 3
Függvény vége

Példafeladat függvény forrásprogramja

Const pi = 3.1492654

Function kup_oldalel(r As Double, m As Double) As Double
kup_oldalel = Sqr(r ^ 2 + m ^ 2)
End Function
Function kup_felszin(a As Double, r As Double) As Double
kup_felszin = pi * r * (a + r)
End Function
Function kup_terfogat(r As Double, m As Double) As Double
kup_terfogat = pi * r ^ 2 * m / 3
End Function

Sub szamolas()
Dim a As Double, r As Double, m As Double
r = Form1.Text1
m = Form1.Text2

a = kup_oldalel(r, m)
Form1.Label4 = kup_oldalel(r, m)
Form1.Label5 = kup_felszin(a, r)
Form1.Label6 = kup_terfogat(m, r)
End Sub

Private Sub Command1_Click()
Call szamolas
End Sub

Példafeladat függvény definiálása

A Visual Basicben a függvények olyan speciális alprogramok, amelyek visszatérésükkor egy visszatérési értéket adnak eredményül. Az visszatérési érték beállítása az alprogramban történik, úgy hogy a függvény nevének, mint változónak adunk értéket. A visszatérési érték típusát a függvény argumentumlistáját követően kell megadnunk a változók típus deklarálásához hasonlóan az As kulcsszó segítségével. Amennyiben a visszatérési érték típusát nem határozzuk meg a Visual Basic a függvény adattípusát Variant adattípusúnak tekinti.

Function függvénynév ( [paraméterek] ) [As típus]
utasítások
függvénynév = visszatérési érték
End Function

Példa:
1. A forgáskúp oldalélének kiszámítása:

Function kup_oldalel(r As Double, m As Double) As Double
kup_oldalel = Sqr(r ^ 2 + m ^ 2)
End Function

2. A forgáskúp felszínének kiszámítása:
Function kup_felszin(a As Double, r As Double) As Double
kup_felszin = pi * r * (a + r)
End Function

3. A forgáskúp térfogatának kiszámítása:
Function kup_terfogat(r As Double, m As Double) As Double
kup_terfogat = pi * r ^ 2 * m / 3
End Function

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

A bemenő adatokat egy szamolas nevű eljárással olvassuk be. Itt definiáljuk a lokális változókat, illetve itt hívjuk meg az előre elkészített függvényeinket is. 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.

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 függvény hivatkozása áll.

Form1.Label4 = kup_oldalel(r, m)
Form1.Label5 = kup_felszin(a, r)
Form1.Label6 = kup_terfogat(m, r)

Példa:

Sub szamolas()
Dim a As Double, r As Double, m As Double
r = Form1.Text1
m = Form1.Text2

a = kup_oldalel(r, m)
Form1.Label4 = kup_oldalel(r, m)
Form1.Label5 = kup_felszin(a, r)
Form1.Label6 = kup_terfogat(m, r)
End Sub

Fájl létrehozása
Új project létrehozásához válasszuk a File menü New parancsát. A megjelenő New project párbeszédpanelen válasszuk a Standard EXE elemet.
A forrásprogram begépeléséhez válasszuk a View menü Code parancsát.

Forrásprogram

Példafeladat űrlapja

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 forgáskúp”. Ez a szöveg fog megjelenni az űrlap címsorában.
Az űrlapra helyezzük el az elrendezésnek megfelelő vezérlőelemeket.
CommandButton: Parancsgomb, gomb: Ha a felhasználó rákattint benyomódik és ennek az eseménynek a hatására történik valami.

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 controlokat 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.

Kész űrlap tervező nézetben