- iPhone topik
- Telekom mobilszolgáltatások
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Xiaomi 15 - kicsi telefon nagy energiával
- Google Pixel topik
- Kézbe fogható paradoxon lett az iPhone Air
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- Bemutatkozott a Poco X7 és X7 Pro
- Hivatalos a OnePlus 13 startdátuma
Ú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
- Projektor topic
- exHWSW - Értünk mindenhez IS
- 5.1, 7.1 és gamer fejhallgatók
- Kertészet, mezőgazdaság topik
- World of Tanks - MMO
- NFL és amerikai futball topik - Spoiler veszély!
- Kormányok / autós szimulátorok topikja
- Abarth, Alfa Romeo, Fiat, Lancia topik
- Ilyet se láttunk még, 1000-rel promótálja X3D-s CPU-it az AMD
- Mégis mi értelme az Xbox PC-nek, ha limitálja a hardverválasztékot?
- További aktív témák...
- RÉSZLETRE .OPCIONÁLIS. Asus ROG Strix G614JVR-N4014W SZÁMLÁVAL GARANCIÁVAL
- Nitro AN515 57 15.6" FHD IPS i7-11600H RTX 3070 32GB 512GB NVMe magyar vbill gar
- Egyedi matricák gyártása, akár kis mennyiségben is! Kattints a további infókért.
- Apple MacBook Pro 16" (2021) M1, 32GB RAM, 500GB SSD Csúcskategóriás erő, elérhető áron!
- HP 280 Pro G2 Sff üzleti gép i3/8GB/WIN11
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 13 256GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3428
- GYÖNYÖRŰ iPhone SE 2020 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3291
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3362
- BESZÁMÍTÁS! HP Victus Gaming 16-S0017NH 16 notebook - R5 7640HS 32GB DDR5 1TB SSD RTX 4050 6GB WIN1
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest