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
- Milyen egeret válasszak?
- AMD Catalyst™ driverek topikja
- Battlefield 6
- LG LCD és LED TV-k
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Újra nekifeszül az asztali konzolok piacának a Valve
- Black Friday november 29. / Cyber Monday december 2.
- Samsung Galaxy S23 Ultra - non plus ultra
- Milyen TV-t vegyek?
- Házimozi haladó szinten
- További aktív témák...
- ASUS ROG Delta S USB-C
- -ÚJ,2 ÉV GAR- GAMER PC: RYZEN 5 4500-5600X +RX 6600/6700XT +16-64GB DDR4! SZÁMLA! 70 féle ház!
- Dell Latitude 7410 Strapabíró Ütésálló Profi Ultrabook Laptop 14" -80% i7-10610U 16/512 FHD IPS MATT
- Lenovo ThinkVision LFD E65 65" LFD kijelző új
- Legion 5 Pro 16IAH7H Intel Core i7-12700H CPU / 32GB DDR5 RAM / 1TB SSD / Nvidia RTX3070 8GB
- Lenovo V130-15IGM laptop (Pentium Silver N5000/8GB/256GB SSD
- GYÖNYÖRŰ iPhone 12 Pro 128GB Graphite-1 ÉV GARANCIA - Kártyafüggetlen, MS3669, 100% Akksi
- GYÖNYÖRŰ iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3443
- Bomba ár! HP Probook 450 G10 - i3-1315U I 16GB I 256SSD I 15,6" FHD I W11 I Cam I Garancia!
- BESZÁMÍTÁS! Intel Core i7 9700K 8 mag 8 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő


