Hirdetés
- sziku69: Szólánc.
- GoodSpeed: Harcban az adathalászokkal - az AI tud segíteni?
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- hcl: Poco F2 Pro facepalm
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Real Racing 3 - Freemium csoda
- gban: Ingyen kellene, de tegnapra
- Jhonny06: Új gépsárkány
Ú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
- A fociról könnyedén, egy baráti társaságban
- Milyen cserélhető objektíves gépet?
- Xiaomi 14T Pro - teljes a család?
- Mikor pukkad ki a robotlufi?
- LG LCD és LED TV-k
- OLED TV topic
- Milyen TV-t vegyek?
- sziku69: Szólánc.
- Yettel topik
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- További aktív témák...
- ÚJ bontatlan S9 41mm Midnight / éjfekete Cellular Azonnal átvehető Deák térnél
- ÚJ BONTATLAN Apple Watch Series S9 41mm Pink és Mid Azonnal Átvehető DEÁK TÉRNÉL 1 Év Apple Garancia
- BONTATLAN Új iPhone 17 PRO Kozmosznarancs 256-512GGB Független 1év Apple Gar. Azonnal átvehető.Deák
- BONTATLAN Új Ipad 9th 10th 11 gen. Air 6 7 , Ipad Pro Mini 7 IPADEK Azonnal DEÁK Térnél Átvehető.
- Xiaomi Electric Scooter 5 Max szinte új, teljes csomag, karácsonyi ajándéknak is tökéletes!
- Akciós kisWorkstation! Dell Precision 3570 i7-1255U 4.7GHz / 32GB / 1000GB / Quadro T550 4GB FHD 15"
- Bomba ár! Lenovo X1 Yoga 3rd - i5-8GEN I 8GB I 256GB SSD I 14" FHD Touch I W11 I CAM I Garancia!
- AKCIÓ! DELL PowerEdge R630 rack szerver - 2xE5-2660v4 (28c/56t, 2.0/3.2GHz), 96GB RAM, 4x1G, áfás
- Lenovo Thinkbook 16 G6 WUXGA IPS Ryzen7 7730U 16GB 512GB SSD Radeon RX Vega8 Win11 Pro Garancia
- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 512GB SSD RX 590 8GB ZALMAN T4 Plus ADATA 600W
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest

