Deklarációs elemek

Feladat:
Számítsa ki a téglatest felszínét, és térfogatát az oldalak adatainak beolvasása után.

A program megvalósításához indítsa el a Fájl menü Programok Microsoft Visual Studio 6.0 Microsoft Visual Basic 6.0 parancsával a Microsoft Visual Basic programot. A megjelenő ablakban a File menü New parancsát válasszuk az új projekt létrehozásához. 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. A megjelenő project Object listájából válasszuk a Form elemet, és gépeljük be a forráskódot.

Deklarációs elemek:

A feladat megoldásához a következő változókat kell deklarálni:

A deklarációhoz a Dim utasítást kell használni.

Utasítás szintaktikája:
Dim azonosítónév [As adattípus]

Az azonosítóhoz nem szükséges adattípust rendelni, ebben az esetben az azonosító a Variant adattípust kapja. Amennyiben több azonosítót szeretnénk elhelyezni a deklarációs utasításban az azonosítókat vesszővel kell elválasztani egymástól.

Utasítás szintaktikája:
Dim azonosítónév1 [As adattípus], azonosítónév2 [As adattípus], azonosítónév3 [As adattípus],….azonosítónévn [As adattípus]

Példa:
Dim a As Single, b As Single, c As Single, V As Double, F As Double

Főprogram elemei

A programkódban elhelyezhetünk megjegyzéseket, magyarázó szövegeket, amelyeket futtatáskor a Visual Basic figyelmen kívül hagy. A megjegyzéseket az aposztróf ’ jel után írjuk vagy a Rem utasítás után. A forrásprogramban a megjegyzések zölddel lesznek jelölve.

A Project ablakban válasszuk az Object legördülő listából a Form elemet. A megjelenő Private Sub Form_Load()
End Sub
utasítások közé gépeljük be a főprogram utasításait.

Utasítások

Utasítások:
Értékadó utasítás,
Beolvasó utasítás,
Kiíró utasítás.

Értékadás

Az értékadó utasítás esetén az egyenlőségjel bal oldalán álló változó felveszi a jobb oldalon álló kifejezés értékét.

Szintaktika:
Változó=kifejezés

Példa:
F = 2 * (a + b + c)

Beolvasó

Az adatok beolvasására használjuk az Inputbox utasítást.

Utasítás szintaktikája:
Változó= InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Példa:
a = InputBox("A oldal", "Adja meg a téglatest a oldalát:").

Kiíró utasítások

A kiíró utasítás segítségével az egyenlőségjel bal oldalán álló Textbox elem felveszi a jobb oldalon álló változó értékét. Így az eredményt kiírhatjuk az űrlapra.

Szintaktika:
Textn= változó

Példa:
Text1 = a

A forrásprogram:

'deklarációs rész:

Dim a As Single, b As Single, c As Single, V As Double, F As Double
'a, b, c a téglatest oldalai
Private Sub Form_Load()

' beolvasó utasítás
a = InputBox("A oldal", "Adja meg a téglatest a oldalát:")
' beolvasó utasítás
b = InputBox("B oldal", "Adja meg a téglatest b oldalát:")
beolvasó utasítás
c = InputBox("C oldal", "Adja meg a téglatest c oldalát:")
'értékadó utasítások
F = 2 * (a + b + c) ' felszín kiszámítása
V = a * b * c 'térfogat kiszámítása
'Kiiró utasítások
Text1 = a
Text2 = b
Text3 = c

Text4 = F 'felszín értékének kiíratása az űrlapra
Text5 = V 'térfogat értékének kiíratása az űrlapra

End Sub

Az értékadó utasítás esetén az egyenlőségjel bal oldalán álló változó felveszi a jobb oldalon álló kifejezés értékét.

Szintaktika:
Változó=kifejezés

Az adatok beolvasására használjuk az Inputbox utasítást.

Utasítás szintaktikája:
Változó= InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

A kiíró utasítás segítségével az egyenlőségjel bal oldalán álló Textbox elem felveszi a jobb oldalon álló változó értékét. Így az eredményt kiírhatjuk az űrlapra.

Szintaktika:
Textn=változó