- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- mefistofeles: Az elhízás nem akaratgyengeség!
- gban: Ingyen kellene, de tegnapra
- kenand: Hol volt, hol nem volt, Thunderbolt...
- sziku69: Fűzzük össze a szavakat :)
- Gurulunk, WAZE?!
- valakiyt: A világ mindennek az alja!
- Kókuszdió: Ryzen ( Zen4 / Zen5) – amikor a „normális működés” magyarázatra szorul
- GoodSpeed: Samsung DV90DG52A0ABLE hőszivattyús szárítógép
Ú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
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Battlefield 6
- Háztartási gépek
- Android alkalmazások - szoftver kibeszélő topik
- Formula-1
- Amlogic S905, S912 processzoros készülékek
- Synology NAS
- Kezdő fotósok digitális fényképei
- Luck Dragon: Asszociációs játék. :)
- E-roller topik
- További aktív témák...
- DELL PowerEdge R630 rack szerver - 2xE5-2650v3 (20 mag / 40 szál, 2.3/3.0GHz), 32GB RAM, 66921Ft+ÁFA
- -ÚJ- 2x8GB 3600MHz Apacer NOX hűtőbordás DDR4 kitek! GAR/SZÁMLA (a Te nevedre kiállítva)!
- Kingston HyperX Fury Beast 2x8GB 3200MHz DDR4 kit / Beszámítás OK!
- G.SKILL Ripjaws V 2x4GB 3000MHz DDR4 kit
- Dell Latitude 7480 használt laptop eladó
- Használt számítógépek/merevlemezek számlával, garanciával! Ingyen Foxpost/PostaPont!
- BESZÁMÍTÁS! 64GB Kingston Fury Renegade 2666Mhz DDR4 memória garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 15 Plus 128GB Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4531,90% Akksi
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs

