Hirdetés
- Apple MacBook
- Milyen billentyűzetet vegyek?
- Xiaomi Mi Box androidos médialejátszó 4K és HDR támogatással
- Szünetmentes tápegységek (UPS)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Házimozi belépő szinten
- Meghozta a régóta várt asztali Ryzen APU-kat az AMD
- Kormányok / autós szimulátorok topikja
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Projektor topic
Ú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
- Fotók, videók mobillal
- Apple MacBook
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- One otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Kínai és egyéb olcsó órák topikja
- Milyen billentyűzetet vegyek?
- Hosszú premier előzetest kapott az Arknights: Endfield
- Klaus Duran: RCS
- Óra topik
- További aktív témák...
- BOYA BY-V2 2.4 GHz-es, ultrakompakt, duál vezeték nélküli mikrofon szett
- LENOVO ThinkPad Yoga 370,14",FHD, i5-7300U,8GB DDR4,128GB SSD,WIN11,LTE,TOUCH
- 2018 MacBook Air 13 Retina, i5, 256 GB SSD / 8 GB ram, nemrég hőpasztázva + tisztítva, karcmentes,
- LENOVO ThinkPad s3 YOGA 14",i5-5200U,8GB DDR3,256GB SSD, WIN10,TOUCH
- HIHETETLEN! DE ÚJ DOBOZOS LAPTOPOK AKÁR FÉLPÉNZÉRT FÉLÁRON !!! ///////// FÉLPÉNZES LAPTOP //////////
- AKCIÓ! HP EliteBook x360 830 G7 i5-10210U 16GB 512GB 1 év garancia
- Apple iPhone 16 256GB, Kártyafüggetlen, 1 Év Garanciával
- Asus TUF B650-Plus Wifi alaplap
- Azonnali készpénzes Intel i3 i5 i7 i9 12/13/14 gen processzor felvásárlás személyesen / csomagküldés
- HP Victus Gaming Laptop RTX 4070 / i7-13700H 16GB DDR5 1TB SSD Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

