Hirdetés
- Akciókamerák
- Óriási ugrás: teszten az ASUS Zenbook A16 és a Snapdragon X2
- Melyik tápegységet vegyem?
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Azonnali notebookos kérdések órája
- AMD Navi Radeon™ RX 5xxx sorozat
- Home server / házi szerver építése
- Google Home/Nest
- AMD Ryzen 9 / 7 / 5 / 3 3***(X) "Zen 2" (AM4)
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
Ú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
- Akciókamerák
- Jár valaki a BME-re a PH!-sok közül?
- Fogyjunk le!
- Óriási ugrás: teszten az ASUS Zenbook A16 és a Snapdragon X2
- Melyik tápegységet vegyem?
- Debrecen és környéke adok-veszek-beszélgetek
- One mobilszolgáltatások
- Kerékpárosok, bringások ide!
- Mibe tegyem a megtakarításaimat?
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Thrustmaster TCA Captain Pack X Airbus Edition
- GAMER PC : RYZEN 9 9950X3D /// 64 GB DDR5 6400MHZ CL32 /// ROG ASTRAL RTX5090 32 GB /// 1+2 TB SSD
- Intel i5 és i7 procik (típusok és árak a leírásban)
- Új - iPhone 17 Pro 256 GB - Bontatlan - 1 év gyári Apple garancia
- ÚJ MagPower Pro 10000mAh MagSafe Powerbank I 20W Fast Charge I 2 év garancia! I Foxpost mehet!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- TOP Pure White PC /Ryzen 7 9800X3D, 32GB DDR5 RAM, 1TB M.2 PCIe SSD/ akciós áron eladó! BeszámítOK!
- Honor 200 pro
- 27% - ASUS ROG Strix LC III 360 ARGB White vízhűtő!
- ASUS ROG Flow Z13 2in1 i9 / RTX 3050Ti / 120Hz GAMER TABLET!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

