Új hozzászólás Aktív témák
-
sonar
addikt
Helló!
Nos kicsit előbbre jutottam miközben a könyvet lapozgattam.
Rájöttem, hogy a Do Loop ciklus helyett a While --wend páros nekem a megfelelőbb. És arra is rájöttem, hogy miért nem reagált semmire se a start se a stop gomb. A megoldás egyszerű: létre kell hozni egy eljárást (add procedure) és a start/stop rutin végére oda kell bigyeszteni ennek az eljárásnak a nevét és akkor már frankó lesz. De még mindig van egy kis gondom: hogy ugye nekem a start lenyomása után a stopra már nem reagál, mert bent ragad a while wend ciklusban. Szerintem a gomb vmelyik tulajdonságának megváltoztatásával lehetne ezt orvosolni v nem?
Így néz ki a progi:
(Értelmet ne keressetek benne, csak otthon tanulok programozni!)
Dim X As Double, Y As Double, z As Double, ala As Boolean
Private Sub Command1_Click()
ala = True
Szamol
End Sub
Private Sub Command2_Click()
ala = False
Szamol
End Sub
Public Sub Szamol()
While ala = True
For X = 1 To 793479731 Step 0.1
Y = X * X
z = 2 * X - Y * 1.5
Next
Wend
End Sub
Azt kérdem még, hogy a következő Button tulajdonságok pontosan mit is jelentenek:
Cancel :True/False
CausesValidation
TabIndex
Tabstop
Tag
Előre is köszönök újfent minden hasznos információt.
>>>I wish you a Merry Christmas!<<<
Új hozzászólás Aktív témák
- Latitude 5420 27% 14" FHD IPS érintő i5-1145G7 16GB 256GB NVMe ujjlolv IR kam gar
- Lenovo ThinkVision P27u 4k-s kifogástalan állapotú monitor féláron!!!
- Dell Latitude 5480 (i5 7300u, 8 GB, 256 SSD, FHD) kiárusítás!! AKCIÓÓ!
- 3 hónapos Asus Rog Strix X670E-F Gaming wifi AkciÓÓ!
- AKCIÓ!!! DDR5 GAMER PC: Új RYZEN 5 8400F/9600X +RX 9060XT/9070/9070XT + Új 16-64GB DDR5! GAR/SZÁMLA!
- Beszámítás! HP Z2 G4 Tower Workstation számítógép garanciával, hibátlan működéssel
- Beszámítás! Apple Mac Studio M2 MAX 2023 32GB 512GB SSD számítógép garanciával, hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 4070Ti Super GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest