Legfrissebb anyagok
LOGOUT témák
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- LordOLOG Szféra
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- GoodSpeed: Bye PET Palack, hello SodaStream
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- bambano: Bambanő háza tája
PROHARDVER! témák
Mobilarena témák
Új hozzászólás Aktív témák
-
T_bee
aktív tag
köszi...
megin nem akar menni a kivonás a listából, de rájöttem hogy a számok hosszával van kapcsolatban a probléma. valakinek ötlete hogy lehetne megoldani? jelenleg így néz ki a programsor: Private Sub szamit_Click()
'Számítás
Dim p900 As Double
If ossz <> 0 And tabhosssz <> 0 And tabbszel <> 0 And tabch = False And tebch = False Then
table = tabhossz * tabszel
tabter.Text = table
szam = ossz / table
proba = Int(szam)
p900 = szam - proba
If p900 = 0 Then tabszam.Text = szam
If p900 <> 0 Then tabszam.Text = proba + 1
Else
Dim c As Integer
c = MsgBox(''Add meg az adatokat'', vbInformation, ''Hiba'')
End If
End Sub
köszi
Új hozzászólás Aktív témák
Hirdetés
Aktív témák
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Megjött a jubileumi Pixel széria
- Jövedelem
- Óra topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Asztalos klub
- Rekordokra vágyik! Kezünkben az Asus ROG Matrix GeForce RTX 5090
- Mafia: The Old Country teszt
- BestBuy topik
- Vicces képek
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Dymo LabelWriter 400 hőpapíros címkenyomtató
- Bomba ár! Lenovo ThinkPad T460 - i5-6GEN I 8GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
- BESZÁMÍTÁS! Asus ROG STRIX Z490-G Gaming WiFi alaplap garanciával hibátlan működéssel
- Xiaomi Redmi Note 14 5G 256GB Kártyafüggetlen 1 év Garanciával
- Samsung Galaxy A04s 32GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest