Én Dev-C++t használtam. a Visual C++ nekem magas. Szvsz a VB sokkal könnyeb és érthetőbb mint a C++. Vagy lehet hogy ez saját vélemény. Még a végén lehet hogy én is C++-ozni fogok megint.
ÁÁÁ , kétlem. Marad a VB 
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Tudom, hogy könnyebb a Basic (azért basic ) csak sokkal korlátozottabbak a képességei
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Valamennyire értesz a C++-hoz is, vagy csak most akarod kezdeni?
Milyen képességekre gondolsz? Pl.
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Sziasztok!
Egy kérdésem lenne, mire nem találom a megoldást:
Lehet-e egy tábla azonosító mezőjére (ami autóinkrementált) keresni a FindFirst utasítással? Nekem mindíg azt írja ki, hogy típuseltérési hiba a feltételkifejezésben, pedig a kifejezés értéke elméletileg string.
Az alábi utasítás is szintén a fennti hibát generálja.
Set rs = CurrentDb.OpenRecordset(''select * from Termék where Azonosító = ' '' + Format(Str(azon)) + '' ' '', dbOpenDynaset)
Köszi a segítséget előre is.
Mondjuk nem tudod szabályozni a memória méretet...
de mondom nekem főleg a mikrovezérlők miatt lenne praktikus belemászni a c be
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Ha autoincrement akkor szerintem nem string. 
Jester
Igen, tudom, hogy nem string típusú, pont ezért alakítom át az Str függvénnyel stringgé, de uccsem jó!
Az adatbázis oszlop nem string típusú szerintem. Magyarul ezt próbáld ki:
Set rs = CurrentDb.OpenRecordset(''select * from Termék where Azonosító = '' + CStr(azon), dbOpenDynaset)
Jester
KÖSZÖNÖM! Így már működik! Végre!
Az egyik nagy szívfájdalmam, még hogy nem lehet asm kódot beszurni és nem tud bitműveleteket. Nem sűrűn, de néha nagyon jól jönne.
mod: mármint ami hiányzik a vb6-ból
[Szerkesztve]
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
És a Visual C++? Az nem jó neked? Igazából azt egyáltalán nem ismerem, de megvan.
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
üdv. vbscriptben szeretnék könyvtárat tallózni. van ugyan ilyen: [link], de ez elég bénácska, ugyanis nem tudom a kezdő könyvtárat megadni benne. a ''root'' nekem nem jó, mert akkor annál feljebb nem enged brózolni. nekem olyan kéne, ami a desktoptól indul, de az általam megadott könyvtárat jelöli ki defaultban. vagy csak én néztem be és van benne ilyen?
Elindult a VBPortal beta-ja!
[link]
Ezt nem reklámnak szántam!
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Na mivan, behal a Topic? 
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
azt nem tudja vki, hogy a memóriában futó progikat hogyan tudom lekérdezni?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Az a1vbcode.com-on [link] nézted már?
Én rákerestem a ''program'' és a ''memory'' kulcsszavakkal és kidobott 2 oldalt, de nem tudom h melyik kell neked. Igazából nem a témával kapcsolatos progik voltak amiket megnéztem de aztán lehet hogy van. 5 progit néztem meg.
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Hátizé...
Szerinted az and meg az or akkor nem bitművelet? Sőt van olyan, hogy egész osztás (vagyis jobbra lehet tolni a biteket), na meg szorzás is (balra tolja a biteket).
***
vb6 ról beszélek
és próbáld ki számokkal nem működik 
legalábbis nekem nem
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Újfent kipróbáltam de nem müxik, de ha tudsz működő megoldást szivesen venném
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Pedig működik. Nekem régi vb6os kódban van ilyen bit tesztelés:
If (RS.Fields(3) And (2 ^ TableSet)) = 0 Then
Jester
olli & Jester01
Valóban működik, csak én voltam a béna 
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Esetleg lemez infót hogyan tudok kiolvasni? azt nem tudja vki?
dvd-nél milyen alapanyag,....
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Sziasztok!
Nektek profiknak biztos egyszerű, de nekem mivel nem is tanultam és igazából nincs is rá szükségem kicsit nehéz.
Szóval excel visual basic részében kéne kis progit írni, ami 1-tő 10-ig végignézi a számokat, aztán kiírja az összes páros szám átlagát, majd még kilistázza, hogy hány darab páros szám van, vagy a páros számokat konkrétan.
Tudom, hogy ez nem túl sok, szóval ha valamelyikötök lenne olyan kedves és akár priviben megoldaná nekem, annak örök hálám
Sziasztok!
Tudna valaki segíten egy cseppet? Azt szeretném megcsinálni, hogy egy form a képernyő jobb alsó sarkában popup szerűen jöjjön fel. Ezt részben sikerült is megoldanom, de valamiért a rajta lévő objektumok a mozgás közben nem látszanak, vagy teljesen feketék. Mit rontok el?
Dufresne: nézz át az Excel topickba, szerintem ott kapni fogsz segítséget.
[Szerkesztve]
Soha nem késő, hogy azzá válj, aki lehettél volna.
Szerintem sima Fx függvényekkel is ki lehet ezt számolni. A ''ha'' , ''darabteli'' , ''átlag'' , ''szum'' függvények kombinációjára gondolok.
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
talán ha kicsit konkretizálnád a dolgot.
vb mennyi...
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Vb.net
De feltehetném úgy is a kérdést, hogy miként kell formot úgy mozgatni, hogy közben ne legyen 100%-on a proci és a form elemei is látszódjanak.
Soha nem késő, hogy azzá válj, aki lehettél volna.
Időzítővel?
Timer1_Timer()
If Form1.Top > 1500 Then ' 1500 magasig emelkedik
Form1.Top = Form1.Top - 120
End If
End
Lehet hogy hülyeséget mondok de én asszem igy csináltam. 
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Nah, akkor felvázolom a teljes feladatot:
Timert használok, de nem erre. Egy adatbázishoz nyúlok hozzá meghatározott időközönként és futtatok le egy lekérdezést. Erre kell nekem a timer. A timer_tick eseményen belül kell a formot popup ablakként felvillantanom. Viszont nem tudom, hogy timeren belül lehet-e még egy timert aktiválni, ráadásul szerintem 100% lenne a proci terheltség.
Soha nem késő, hogy azzá válj, aki lehettél volna.
Lehet Timer-en belül Timert idítani!
Szvsz nem húzza annyira a procit a Timer.
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Köszi, ma kipróbálom. Bár eredetileg multithread-es megoldást szerettem volna, de azt nagyon nem vágom.
Soha nem késő, hogy azzá válj, aki lehettél volna.
LPT porthoz nincs vkinek vmi jó kis anyaga?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Lehet hogy van.
Mire gondolsz?
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Hát egy régi star blokk nyomtatót kéne vezérelnem
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Sziasztok volna egy segítség kérésem, mivel a VBS hez halvány lilasegédfogalmam sincs, ezért nem tudom, hogy mit kellene és hogy csinálni, hoyg ezt a függvényt meg tudjam hívni.
Paraméterként kell neki? Vagy, miként is megy itt? van valami main-e?
Itt találtam rá: [link]
De ezt milyen OP rendszeren tudom futtatni?
''This function is not supported on Windows 2000 & NT''?
Function GetPrinterStatus(strComputer, strPrinterDevID)
'Accepts a computer name and printer device ID as string parameters
'Returns the printer status as a string
Dim intStatus: intStatus = 0
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
On Error Resume Next
Err.Clear
Set objWMIService = GetObject(''winmgmts:\\'' & strComputer &
''\root\CIMV2'')
Set colItems = objWMIService.ExecQuery(''SELECT * FROM Win32_Printer
Where DeviceID = ''' _
& strPrinterDevID & ''''', ''WQL'', wbemFlagReturnImmediately + _
wbemFlagForwardOnly)
If Err.Number = 0 Then
For Each objItem In colItems
intStatus = objItem.PrinterStatus
Next
Else
GetPrinterStatus = ''Error Getting Printer Status''
End If
Select Case intStatus
Case 1
GetPrinterStatus = ''Other''
Case 2
GetPrinterStatus = ''Unknown''
Case 3
GetPrinterStatus = ''Idle''
Case 4
GetPrinterStatus = ''Printing''
Case 5
GetPrinterStatus = ''Warmup''
Case 6
GetPrinterStatus = ''Stopped Printing''
Case 7
GetPrinterStatus = ''Offline''
Case 0
GetPrinterStatus = ''Error Getting Printer Status''
End Select
End Function
MsgBox GetExtendedPrinterStatus(''.'',''YourPrinter'')
Function GetExtendedPrinterStatus(strComputer, strPrinterDevID)
'Accepts a computer name and printer device ID as string parameters
'Returns the extended printer status as a string
'This function is not supported on Windows 2000 & NT
Dim intStatus: intStatus = 0
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
On Error Resume Next
Err.Clear
Set objWMIService = GetObject(''winmgmts:\\'' & strComputer &
''\root\CIMV2'')
Set colItems = objWMIService.ExecQuery(''SELECT * FROM Win32_Printer
Where DeviceID = ''' _
& strPrinterDevID & ''''', ''WQL'', wbemFlagReturnImmediately + _
wbemFlagForwardOnly)
If Err.Number = 0 Then
For Each objItem In colItems
intStatus = objItem.ExtendedPrinterStatus
Next
Else
GetExtendedPrinterStatus = ''Error Getting Printer Status''
End If
Select Case intStatus
Case 1
GetExtendedPrinterStatus = ''Other''
Case 2
GetExtendedPrinterStatus = ''Unknown''
Case 3
GetExtendedPrinterStatus = ''Idle''
Case 4
GetExtendedPrinterStatus = ''Printing''
Case 5
GetExtendedPrinterStatus = ''Warmup''
Case 6
GetExtendedPrinterStatus = ''Stopped Printing''
Case 7
GetExtendedPrinterStatus = ''Offline''
Case 8
GetExtendedPrinterStatus = ''Paused''
Case 9
GetExtendedPrinterStatus = ''Error''
Case 10
GetExtendedPrinterStatus = ''Busy''
Case 11
GetExtendedPrinterStatus = ''Not Available''
Case 12
GetExtendedPrinterStatus = ''Waiting''
Case 13
GetExtendedPrinterStatus = ''Processing''
Case 14
GetExtendedPrinterStatus = ''Initialization''
Case 15
GetExtendedPrinterStatus = ''Power Save''
Case 16
GetExtendedPrinterStatus = ''Pending Deletion''
Case 17
GetExtendedPrinterStatus = ''I/O Active''
Case 18
GetExtendedPrinterStatus = ''Manual Feed''
Case 0
GetExtendedPrinterStatus = ''Error Getting Printer Status''
End Select
End Function
A cél az volna, hogy a nyomtató státuszát szeretném lekérdezni, nem nem elég, hogy a nyomtatónak ellett küldve az adat, az kell, hogy a nyomtatóból mikor jött ki az utolsó lap és már nem nyomtatt.
A többi error az nem érdekelne.
Köszönöm a segítséget!
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
Na sikerült valamit kezdeni?
Én kipróbáltam ezt a timeres dolgot, ha kell belinkelem.
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Hali Gh0sT!
Itt egy progi, hogy bemutassam, hogy a timer nem huzza a procit: [link]
Egy popup kiablak lesz lenn a sarokban. Sajna csak 1024*768-ban müködik rendesen. Esetleg tudná valaki a megoldást erre?
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Sziasztok!
Még pár éve írtam egy rövid progit ami tartalmazott egy ilyen sort:
Tasks(''Programnév'').Visible = False
Akkor rendben ment de most valamiért ezt a hibát adja:
AktiveX component cant create object
Nem vagyok otthon VB-ben és nem emléxem már mit hogy csináltam akkoriban. Miért nem jó most? Talán valami komponens kell neki? A weben ennyit találtam róla:
http://msdn2.microsoft.com/en-us/library/aa212443(office.11).aspx
Légyszi segítsen aki tud. Meg vagyok lőve.
Hali!
Mi a hiba kódja? Én is találkoztam hasonló hibával. Az a hibakód ''5941'' volt.
Mi célt szolgál a progi? Word-be vagy Excel-be van? Word-be igaz?
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
Hali!
Hogyan oldható meg az a probléma legegyszerűbben, ha egy Do ... Loop Until ciklusban az Until után 2 különböző feltételt szeretnék megadni?
(#692) [HUN]Zolee válasza Apollo17hu (#691) üzenetére
ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
Üdv!
A hibakód: 429 Runtime error
A program egy másik alkalmazást vezérel SendeKeys-ekkel. (Aminek a Windows neve zárójelben van a Tasks-nál. Ez elvileg bármi lehet ami éppen fut, pl. ''Számológép''.)
Word-ben csináltam aztán VB6-tal is rendben volt sokáig. Ennek már 6 éve most meg egyikben sem megy ez az egyetlen sor.
Probáltam win98 alatt is a régi gépemen ugyanúgy ahogy akkoriban lehetett de teljesen ugyanez az eredmény.
Annyira jutottam összesen hogy beíráskor csak akkor jelenik meg a Tasks() paramétere, ha a References ablakban kijelölöm a Microsoft word Object Libraryt.
Talán valamilyen objektum vagy referencia kellhet ami régen megvolt most meg hiányzik?
Ha a kód azt a célt szolgálja amire gondolok akkor próbáld helyett
az App.visible= True/false sort
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
(#695) Apollo17hu válasza [HUN]Zolee (#692) üzenetére
Így próbáltam, de hibaüzenettel leállt a makró. 
Valószínűleg át kell majd írnom az egész kódot...
Kösz a segítséget.
(#696) [HUN]Zolee válasza Apollo17hu (#695) üzenetére
mi volt a hibaüzenet, és mi volt a feltételed?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
Hogyan tudom kiolvasni a hdd serial számát? (Nem a kötetre gondolok! ami minden formázáskor más)
Turom ezt a rohadt guglit de csak shareware progikat/dll-t találok, source-t sehol
vki tudna segítení?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Köszi de nem a saját programomat hanem a vezéreltet kellene elérni. Félig-meddig közben megoldódott az office újratelepítéssel. Wordből legalább már megy, VB-ből továbbra sem. Na mindegy így is jó lesz amire kell.
UP!
És karakter táblát nem tudjátok hogyan lehet állítani? Van egy strconv parancs de az elvileg csak unicode-ba tud konvertálni.
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
