PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
[HUN]Zolee
senior tag
A progi belemegy egy végtelen ciklusba, de nemtudom mért? Bővebben: link itt a teljes pogram.
Option Explicit
Dim s(15), i, j, cap As Integer
Private Sub Command3_Click()
For i = 0 To 15
s(i) = 0
Next
i = 0
j = 0
For j = 1 To 15
Me.Print j, cap
'cikl:
Randomize
s(1) = j
cap = (Rnd * 14) + 1
For i = 1 To 15
'Me.Print i, cap
If s(i) = cap Then
'GoTo cikl
s(j) = 0
Else
s(j) = cap
End If
Next
Next
For i = 1 To 15
Command1(i - 1).Caption = s(i)
Next
End Sub''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
Új hozzászólás Aktív témák
Aktív témák
- Formula-1
- Elden Ring
- Így nem hajlik, úgy kettétörik az új iPad
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- WoW avagy World of Warcraft -=MMORPG=-
- Kerékpárosok, bringások ide!
- DIGI kábel TV
- sziku69: Fűzzük össze a szavakat :)
- DIGI Mobil
- Call center-forradalom: AI alakítja át az ideges telefonálók hangját
- További aktív témák...
Új prémium hirdetések
Új ingyenes hirdetések
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs