Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: MárkaLánc
- eBay-es kütyük kis pénzért
- sziku69: Fűzzük össze a szavakat :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- Luck Dragon: Óraátállítás
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MasterDeeJay: Intel Optane M10: mire lehet használni?
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
Ú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
- Debrecen és környéke adok-veszek-beszélgetek
- E-book olvasók
- Nyíregyháza és környéke adok-veszek-beszélgetek
- Eredeti játékok OFF topik
- exHWSW - Értünk mindenhez IS
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Gitáros topic
- PlayStation 5
- Már csak több évre szóló szerződésekben gondolkodnak a memóriagyártók
- Apple MacBook
- További aktív témák...
- ASUS ROG STRIX Z390-E GAMING ATX alaplap - doboz, leírás, 6 hónap garancia
- Bontatlan Apple iPad 11 2025 csak Wifi-s 2 év One-os garanciával
- Gamer PC i5-13400F + RTX 4070 12GB I 16 GB DDR5 I vízhűtés I RGB
- MSI RTX 3070 8GB GDDR6 GAMING Z TRIO Eladó!
- Új, bontatlan, iPhone 17 gyárilag kártya-független, apple világgaranciával
- MSI GF65 Thin - 15,6"FHD 120Hz IPS - i5-9300H - 16GB - 1,25TB SSD - Win11 - GTX 1660 Ti - MAGYAR
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Dell Latitude 5401,14" FHD,i7-9850H,16GB DDR4,512GB SSD,WIN11,ÚJ AKKU
- REFURBISHED és ÚJ - HP USB-C/A Universal Dock G2 (5TW13AA) (DisplayLink)
- iPhone X 64GB 100% (3 hónap Garancia) - AKCIÓ
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
