Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Brogyi: CTEK akkumulátor töltő és másolatai
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- balojazz: Szódakészítés üzembiztosan és olcsón! Figyelem, csak hardcore szódázóknak!
- Luck Dragon: Óraátállítás
- aquark: Zsebszámológépek
Ú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
- Vezetékes FÜLhallgatók
- Gumi és felni topik
- exHWSW - Értünk mindenhez IS
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Tesla topik
- Futás, futópályák
- One otthoni szolgáltatások (TV, internet, telefon)
- Gaming notebook topik
- Linux kezdőknek
- A fényes siker is lehet szög a koporsóban: gondban a MacBook Neo gyártása
- További aktív témák...
- Dell OptiPlex 5070 SFF // Core i7 9700 // 16GB // 256GB SSD számla + gari - több db elérhető
- RAM Bazár!!! SK Hynix, Kingston, Samsung, Hyperx, minőségi DDR4-es RAM-ok kiárusítása!
- AKCIÓ! Felsőkategóriás Gamer PC-Számítógép! R7 9850X3D / RTX 5080 16GB / 32GB DDR5 / 2TB Nvme!
- Sapphire Radeon RX 470 4GB GDDR5 - Mining Edition wEdition
- ASUS Dual Radeon RX 580 OC Edition 8GB GDDR5
- ÚJ 27% - Corsair iCUE SP120 RGB ELITE Triple (CO-9050109-WW) ARGB ventillátor szett!
- MacBook Pro 16" M3 Pro 36 GB RAM, 512GB SSD, Space Black - 27% ÁFA (0431AB)
- NVME, M2 NGFF, 2,5" SATA SSD-k vegyes OEM márkák és prémium típusok, sok újszerű. 128GB-1TB
- Lenovo L14 Ryzen 5 4500U Refurbished - Garancia!
- -50% Dobozos Új Lenovo ThinkPad X1 gen 10 2-in-1 Ultra 7 268V 32gb ram Inter Arc 140V Gari 2030
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
