- Nothing Phone 2a - semmi nem drága
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy A56 - megbízható középszerűség
- Samsung Galaxy S23 Ultra - non plus ultra
- Utcakép banánnal: félrecsúszhat a Google Térkép fókusza
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Milyen okostelefont vegyek?
- Magisk
- One mobilszolgáltatások
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- lkristóf: Prohardver fórum userscript – hogy lásd, mikor neked válaszoltak
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MasterDeeJay: RAM gondolatok: Mennyi a minimum? DDR3 is jó?
- sziku69: Fűzzük össze a szavakat :)
Új hozzászólás Aktív témák
-
martonx
veterán
válasz
Zsargon89
#1481
üzenetére
VB.Net tud alapból mindenféle Serial Portot kezelni.
Az USB pedig nem más mint Universal Serial Bus, azaz egy serial port.
Még nagy guglizás sem kell hozzá, msdn-en egész jó példák vannak.
A kódod esetében már múltkor is pedzegettem, hogy nincs szükség benne a winapi hivatkozásokra.http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.aspx#Y0
-
#90999040
törölt tag
válasz
Zsargon89
#1444
üzenetére
Elindítod a Vs 2008-at.
File -> New -> Project...
A megjelenő ablakban létrehozol egy Forms projektet.
Project -> Add Module...
A létrehozott modulba bemásolod a kódodat, majd megcsinálod vele, amiket előzőleg írtam.
A modulba ezután beleteszed ezt:Sub Main()
TEST()
End SubHa ez megvan, akkor Solution Explorer ablakban*** dupla katt a "My project"-re.
Itt az Application fülön az "Enable Application Framework" elől a pipát kiveszed.
Ugyanezen a fülön "Startup Object"-nél a "Sub Main"-t választod ki.
Ha mindent jól csináltál, akkor F5-re indulnia is kellene a programnak.***: ha nem látszik ez az ablak, akkor View -> Solution Explorer
-
martonx
veterán
válasz
Zsargon89
#1444
üzenetére
Az LPT-t nyomtatáshoz használod vagy valamilyen egyéb eszközt vezérelsz vele?
Ha nyomtatáshoz használod, akkor mégis csak a vbscript-es ötletemnél kellene maradni. Ha egyéb eszközt irányítasz vele, akkor tényleg érdemes .Net-esíteni. Ebben tudunk segíteni.
Visual Studio-ban is gondolom elég lesz egy Console application projekt.
-
#90999040
törölt tag
válasz
Zsargon89
#1424
üzenetére
Visual Basic 2008-ra javaslom a következőket:
A Long-okat cseréld le Integer-re.
Az inputboxokat pedig módosítsd így:
v = Integer.Parse(InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- 6 számjegyű számláló" & Chr(13) & Chr(10) & "2- 7 számjegyű számláló"))Az Integer.Parse() (vagy más konverziós függvény) azért kell, mert Vb.net-ben az inputbox stringet ad vissza.
-
martonx
veterán
válasz
Zsargon89
#1424
üzenetére
Szia!
Javaslom neked a vbscriptet. Az 95%-ban kompatibils az office makróval.
Azaz a kódodat másold át notepad-be, majd mentsd le .vbs néven.
Ezt command line-ból cscript valami.vbs néven fogod tudni futtatni.Debugolni pedig cscript //X //D valami.vbs-ként fogod tudni, ha mégsem menne egy az egyben vbs-ként.
Új hozzászólás Aktív témák
- Nothing Phone 2a - semmi nem drága
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- Horgász topik
- EA Sports WRC '23
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Parkside szerszám kibeszélő
- Battlefield 6
- lkristóf: Prohardver fórum userscript – hogy lásd, mikor neked válaszoltak
- További aktív témák...
- Xiaomi 14 12/512GB - Kártyafüggetlen, Fekete, ÚJSZERŰ - 1 Év Garanciával
- Xiaomi 15 12/512GB - Kártyafüggetlen, Zöld, ÚJSZERŰ - 1 Év Garanciával
- Mini PC (ITX) i7 265K 9070 XT 32 GB DDR5 8000Mhz
- Gigabyte RX 6700 XT EAGLE 12G Szép állapotban 1. tulajtól, 2026.04.14-ig garanciális
- Microsoft Surface Book 3 15 i7 / 32GB / 512GB SSD / Windows 11 Pro
- Telefon felvásárlás!! Samsung Galaxy S21/Samsung Galaxy S21+/Samsung Galaxy S21 Ultra
- HIBÁTLAN iPhone 12 Pro Max 128GB Pacific Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4517, 100% Akksi
- LG UltraFine 4K - 6K és Smart Monitorok -30%
- MacBook felvásárlás!! Macbook, Macbook Air, Macbook Pro
- 210 - Lenovo IdeaPad 5 Pro (16ARH7) - AMD Ryzen 7 6800HS, RTX 3050Ti
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

