Hirdetés
- Saját fejlesztésű notebookkal jelentkezett a VGA-iról ismert Moore Threads
- Szinte meg sem jött, máris fogyókúrára fogták a Logitech Rapid Triggeres egerét
- Hamarosan érkezik az EIZO első, kreatív profikat célzó OLED monitora
- Karnyújtásnyira a nyereség a Samsung chipgyártó részlegén belül
- Idővel kicsúszik az aljzatból a 12V-2x6 tápkonnektor?
Ú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
- Hgst es seagate 500gb 2.5 hdd
- Hostpost.hu VPS és Webtárhely Bérlés
- Radeon Rx 6600XT/ I5 8400/ 16GB Corsair/ 1TB M2/ 128GB Sata SSD/ 500GB HDD/ Win11
- ÚJ Dobozos Lenovo Thinkpad T14s G6 Tartós Laptop 14" -60% Snapdragon 32/1TB FHD+ 20Hó Gar
- Bontatlan! Új Lenovo Thinkpad T14 G5 Tartós Üzleti Laptop 14" -45% Ultra 7 165U 16/512 FHD+ Magyar!
- HIBÁTLAN iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS4621
- Beszámítás! Apple Mac Mini 2024 M4 24GB 512GB SSD számítógép garanciával, hibátlan működéssel
- AKCIÓ!! HP Zbook Studio G8 i7-11850H 32GB 1000GB Nvidia Quadro T1200 400NIT, 100% sRGB Garis!
- BESZÁMÍTÁS! Asus Rog Maximus IX Hero Z270 chipset alaplap garanciával hibátlan működéssel
- Telefon felvásárlás!! Huawei P20 Lite/Huawei P20/Huawei P30 Lite/Huawei P30/Huawei P30 Pro
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

