Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Magga: PLEX: multimédia az egész lakásban
- Mr Dini: Mindent a StreamSharkról!
- sziku69: Szólánc.
- GoodSpeed: Munkaügyi helyzet Hajdú-Biharban: észak és dél
- MasterDeeJay: i7 4980HQ asztali gépben (vs i7 4770)
- gban: Ingyen kellene, de tegnapra
- Yézi: Videokártyáim [2015/08-2026/01]
- Luck Dragon: Asszociációs játék. :)
Ú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
Hirdetés
- iPhone topik
- Anglia - élmények, tapasztalatok
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- TCL LCD és LED TV-k
- Milyen autót vegyek?
- exHWSW - Értünk mindenhez IS
- Okos Otthon / Smart Home
- Építő/felújító topik
- RAM topik
- Őrült módjára szabja át AI-ra a GeForce-okat Kína
- További aktív témák...
- vizes GAMER PC - RYZEN 5 7600X, 32GB DDR5, RTX 5070 12GB, 1TB NVMe
- Eladó iPhone 13 Pro Max 128GB Graphite Vadonatúj, nem aktivált!
- Bontatlan LG UltraGear 32GX850A-B 3 év garival eladó!
- HP Victus 16 i5-11400H 16 GB RAM 512SSD RTX 3050 4 GB FHD 144Hz
- Apple MacBook Air 15 M4 Éjfekete bontatlan // GARANCIA // INGYENES SZÁLLÍTÁS
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest

