Legfrissebb anyagok
Mobilarena témák
- Android szakmai topik
- Milyen okostelefont vegyek?
- Külföldi prepaid SIM-ek itthon
- Redmi Note 15 Pro 5G – a szokásosat?
- Ennyit dobott egy telefon gyártási költségén a memóriakrízis a Xiaomi szerint
- Így lehet kiszúrni, ha kamu AirPods fülest akarnak eladni neked
- iPhone topik
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Apple iPhone 17 Pro Max – fennsík
- Xiaomi 15T Pro - a téma nincs lezárva
PROHARDVER! témák
IT café témák
Keresés
Ú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
Aktív témák
- WoW avagy World of Warcraft -=MMORPG=-
- Kerékpárosok, bringások ide!
- Android szakmai topik
- Subaru topik
- Autós topik látogatók beszélgetős, offolós topikja
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- PlayStation 5
- Allegro vélemények - tapasztalatok
- Windows 11
- Milyen okostelefont vegyek?
- További aktív témák...
Új fizetett hirdetések
- M2 Sata 256 / 512 SSD-k / Intel / Samsung / Sandisk /
- ADATA Legend 710 512GB PCIe Gen3 X4 M2 NVMe / Beszámítás OK! / Akciós Ár!
- Gigabyte RTX 3070 Eagle OC 8GB (dobozos, hibátlan)
- Gigabyte GTX 1050 Ti Windforce OC 4GB / Nem kell hozzá tápcsatlakozó!
- XPG SPECTRIX S40G RGB 512GB NVMe SSD 100% / Beszámítás OK!
Üzleti előfizetők hirdetései
- HÚSVÉTI AKCIÓK! GARANCIA, SZÁMLA - Windows 10 11, Office 2016 2019 2021,2024, vírusírtók, VPN
- Thermal Grizzly Aeronaut paszta 3,9g /BONTATLAN/Több darab/Számlával!
- Eredeti Lenovo 135W töltők (sárga téglalap)
- Lenovo ThinkPad T14s Gen 3 i5-1245U 14" FHD+ 16GB 512GB 1 év teljeskörű garancia
- Rendelésre! 27% Áfás, Új, Bontatlan Apple Mac Studio M2 Ultra 24/60 mag, 64GB RAM, 2TB SSD
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


