Hirdetés
Új hozzászólás Aktív témák
-
sonar
addikt
Helló VB-sek!
Nos leszögezem az elején nem vagyok programozó, csak otthon hobby
szinten könyvből próbálom elsajátítani a dolgokat. Szal ne üssetek a láma kérdéseimért.
Nos egy olyan gondom van,hogy:
Írtam egy rém egyszerű progit ami számol egy sorozatot a végtelenségig, jobban mondva amíg meg nem állítom. Nos csináltam két Command_Button-t: egy start és egy stop-ot. Boolean típusúak. A gondom az, hogy a számol részt nem tudom hova tegyem. Először azzal próbálkoztam, hogy a start formjába irtam a számol részt és akkor ugye hiába nyomom meg a stop gombot, meg hiába teszek be egy if-et hogy figyelje a stop gomb mikor lesz false hiszen sose jut el addig hogy beolvassa a stop buttont. Próbáltam a generál részbe is, de itt meg mindig leállt
vmi fordításí hibával. Akkor próba szerencse alapon megpróbáltam a Form nevű formba beleírni, de itt se csinált semmit a progi. Szal a kérdés röviden:
hogy tudom azt megcsinálni, hogy a program elinduljon a start megnyomására és a stop ra meg megálljon?
Nos eddig a progi így néz ki:
Dim X As Double, Y As Double, z As Double, a As Boolean
Private Sub Command1_Click()
a = True
Do
For X = 1 To 1000
Y = X * X
z = 2 * X - Y * 1.5
If a = False Then
Exit Sub
End If
Next
Loop
End Sub
Private Sub Command2_Click()
a = False
End Sub
Azt ne nézzétek, hogy mit számol mert oda csak éppen hasra ütöttem vmit.
Ja még vmi a goto parancsot hogyan kell használni? Mert ebbe a rohadt könyvbe
nem találtam (Programozás Visual Basic 6 nyelven, Kék könyv)
Előre is kösz a segítségetek
Új hozzászólás Aktív témák
- -40% ÚJ DOBOZOS Lenovo Thinkpad T14 Gen 5: Ultra 7 165U/32GB DDR5/512GB/400nit/5MP/vil.MAGYAR bill.
- -300e Ft KEDVEZMÉNY:ÚJ Lenovo Thinkpad T14 Gen 5:Ultra 7 165U/64GB DDR5/512GB/400nit/vil.MAGYAR bill
- Intel passzív csúcsgép: 4,7 GHz Intel i7 1255U, 10 mag / 12 szál barebone
- -42% ÚJ Lenovo ThinkCentre M70s G5 SFF: i5 14500 14mag, 16GB RAM, 512GB NVMe SSD, ÚJ HU bill + egér
- ÚJ Kis gamer/kis tervező PC: Lenovo ThinkCentre M70s G5 SFF: i5 14500, 16GB RAM, 512GB, nVidia T600
- Telefon felvásárlás!! Xiaomi Redmi Note 13, Xiaomi Redmi Note 13 Pro, Xiaomi Redmi Note 13 Pro+
- Keresünk Galaxy S22/S22+/S22 Ultra
- Bontatlan! Mega AKCIÓ! 2028.12.11 Gari! Apple Macbook Air 15.3 M4! 10C/16GB/256GB
- Apple iPhone 13 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÚJ Quansheng UV-K6 adóvevő eladó
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


