Hirdetés
- A kezdet vége: viszlát, Model S!
- A Windowst és a macOS-t is váltaná a Google Aluminium OS
- Az X3D-s Ryzenekkel való bűvészkedés a Colorful alaplapjának fő profilja
- Ha sokat küzdünk a porral, a GEEEK megfizethető "házát" nem nekünk találták ki
- Nagyzási hóbortja van az ASUS legfrissebb, QD-OLED paneles monitorának
- Projektor topic
- Amlogic S905, S912 processzoros készülékek
- Milyen processzort vegyek?
- Canon MILC: EOS R és M topik
- AMD Navi Radeon™ RX 9xxx sorozat
- Kormányok / autós szimulátorok topikja
- Apple MacBook
- Vezetékes FÜLhallgatók
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Hard Disk Sentinel: S.M.A.R.T., okosan
Ú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
- Szinte ÚJ SteelSeries Tusq Gaming Bolti ár:25k INGYEN FOXPOST
- ELADÓ Yaesu FT-70DE-B2 C4FM/FM VHF/UHF kétsávos kézi adóvevő
- Megkímélt Acer 15.6"Core i7(4X3,5Ghz)GT840 2/4GB VGA,8-16/300-480SSD,Nagyon jó akku,
- ÚJ! Bontatlan! HP 255R G10 laptop
- Eladó Glorious GMMK Pro Tenkeyless Moduláris billentyűzet (White Ice US, 75%) rengeteg tartozékkal
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- GYÖNYÖRŰ iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA -Kártyafüggetlen, MS3965
- LG 48C5 - 48" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - A9 Gen8 CPU
- Azonnali készpénzes AMD CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- BESZÁMÍTÁS! ASUS X670E R7 9800X3D 32GB DDR5 1TB SSD RTX 4080 16GB Lian Li O11 Dynamic EVO RGB 850W
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest


