Legfrissebb anyagok
LOGOUT témák
- ricshard444: Fényképező ? Telefon helyett
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- Austin F.: MOD Android: Appok teljes képernyőn – immerzív mód
- Szoszo94: Xiaomi Mi Router 3G - Padavanra fel!
- Lalikiraly: Astra kalandok @Harmadik rész
- gban: Ingyen kellene, de tegnapra
PROHARDVER! témák
Mobilarena témák
Új hozzászólás Aktív témák
-
[HUN]Zolee
őstag
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
Új hozzászólás Aktív témák
Aktív témák
- ricshard444: Fényképező ? Telefon helyett
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Villanyszerelés
- Robotporszívók
- Háztartási gépek
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Jogász topic
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Milyen belső merevlemezt vegyek?
- További aktív témák...
Új fizetett hirdetések
- Szép Dell Precision 5560 Slim Tervező Vágó Laptop -70% 15,6" i7-11850H 64/1TB RTX A2000 4GB UHD 4K
- Acer Nitro V 16 AI Gamer Laptop! Ryzen 7 260/RTX 5070/32gb DDR5/2TB SSD/2560x1600/180hz/Beszámítok!
- Szép Dell Precision 5560 Slim Tervező Vágó Laptop -70% 15,6" Xeon W-11955M 64/1TB RTX A2000 4GB FHD+
- AOC CQ27G2S Monitor (2K/VA/165hz)
- Samsung C27F396FHR Monitor
Üzleti előfizetők hirdetései
- Telefon felvásárlás!! Honor 200 Lite, Honor 200, Honor 200 Pro, Honor 200 Smart
- Új! Targus - USB-C Dual HDMI 4K HUB - 2 HDMI-vel. Saját töltő nélkül 2 monitorral (120Hz)
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3050 6GB GAMER PC termékbeszámítással
- Csere-Beszámítás! Asztali számítógép PC Játékra. I5 12400F / RTX 3070 / 32GB DDR4 / 1TB SSD
- Samsung Galaxy S6 Lite (2022) , 4/64 GB ,Wi-fi
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest