- Windows 11
- Mozilla Firefox
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Mesterséges Intelligencia topik
- Proxmox VE
- Ubuntu Linux
- OpenWRT topic
- Linux kezdőknek
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Robotkart irányított a majom a kínai Neuralink agyi chipjével
Új hozzászólás Aktív témák
-
rákász
csendes tag
válasz
martonx
#1121
üzenetére
Varázslóval ment a dolog, viszont a kapcsolat létrehozása után hiába lestem ki a paramétereket a Properties ablakban, nem ment a kód emiatt az OleDb versus SqlServerCe összekeverés miatt...
kezdő vagyok ám még ehhez
THX a választ!
Fight is won or lost far away from withesses, behind the lines, in the gym, or out there on the road, long before I dance under those lights - Muhammad Ali
-
sonar
addikt
válasz
martonx
#1125
üzenetére
Hát csak nem mindegy, hogy milyen könnyen lehet visszafejteni.
Pl.: egy UPX-el titkositod akkor azt még az upx vissza is tudja fejteni. De mondjuk egy Armadillo-val már keményen trükközni kell és ismerni az gépikódot...A kérdés mindig az, hogy kitől kell védeni a sw-t.
@dobozossör - esetleg még egy pendrive sn-t kiolvasni és kötni a kódhoz.
Igy nem indulna el másik pendrive-val.[ Szerkesztve ]
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
ArchElf
addikt
válasz
martonx
#1131
üzenetére
VBA csak a kompatibilitás miatt maradt benne. A 2003-ban is volt már .NET támogatás, csak fejlesztői környezetet nem adnak alapból hozzá... Az Office árában nincs bent egy VS.NET liszensz
CsekkAE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
Atti1112
aktív tag
válasz
martonx
#1135
üzenetére
Nagyon szépen köszi a választ.Az Autoit-el barátkozom, sokat tud ,de elég bonyesz.
Olyan ötleted nincs, ami mondjuk a képernyő kímélő elindulásakor (helyett) lefuttat egy *.batot vagy shell-t ? Ez annyiból is jobb lenne, mivel ha megy egy film a kmplayerrel,akkor nem menne le 1/4 óránként alvóba, és nem kéne 1/4 óránkét visszakapcsolni a filmet A kmplayer ,meg nem engedi futni a képernyőkmélőt ,ha ő fut,így nem menne le alvóba a gép.Segítsetek, ha tudtok ! Köszi !
-
Atti1112
aktív tag
válasz
martonx
#1137
üzenetére
A képernyőkímélő rendesen elindul.Beállítom,mondjuk 10 percre és simán megy.Ez ok.De ,ha beállítom az energia gazdálkodási lehetőségeknél az alvó állapotot mondjuk 10 percre,azt nem hajlandó.Ezért gondoltam,hogy ha elindul a képernyővédő, akkor még azzal együtt elkéne indulnia egy *.bat vagy shell parancsnak ,ami leviszi alvóba a gépet.Egyébként rájöttem közben,hogy miért nem aktiválta : futott a google desktop sidebar és az nem hagyta elindulni.Ha azt kikapcsoltam,akkor már működött is az alvás opció.Viszont ,ha rá lehetne beszélni a windowst,hogy a képernyővédővel együtt végrehajtódjon egy batch file,akkor már nyert ügyem van.Maradhatna az oldalsáv és működne az alvás opció is.Erre ötleted ? Esetleg xp alá egy olyan oldalsáv ,ami nem nyúl bele az alvás opcióba ? A Samurize tudja ezt szerinted ? Ui : előző hozzászólásomban arra utaltam,hogy a bat vagy shell progiban eltárolnám ezt a sort : rundll32.exe PowrProf.dll SetSuspendState és így máris menne alvóba.Vagyis ha egy parancsikont készítek az asztalra amibe ezt írom : rundll32.exe PowrProf.dll SetSuspendState ,akkor rákattintásnál már alszik is a gép.Így már érted ?
[ Szerkesztve ]
Segítsetek, ha tudtok ! Köszi !
-
-
dany27
őstag
válasz
martonx
#1146
üzenetére
kössz a tippet már közben én is rájöttem!
Am az mért van hogy egyszerű kis szar 14 megát eszik kicsit sokallom. Pedig nem csinál nagy dolgokat. (Csak XP alatt win7 alatt mindössze csak 3megát...).
Ne nevessetek ki, de windóz calculator kópiát csinálok
Suliba adta a tanár h valamivel letudjon kötni míg a tanár próbálja még az alap algoritmusokat a többiek fejébe verniJah hamár itt vagyunk hogy tudom azt megoldani hogy nem zárom be a formot és nem is rejtem el hanem mást töltök bele?? (Egyszerű/tudományos nézethez kell)
close parancsot találtam hozzá de mivel nyitom meg a másikat ??Előre is kössz!
-
PetX
aktív tag
válasz
martonx
#1154
üzenetére
Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.
Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.
Ehhez a részhez kértem a segítséget:
Sub CSILLAG()
Dim CS_SOR As Integer
Dim OSZLOP As Integer
Dim CS_OSZLOP As Integer
Dim cella As Range
Dim cim_1 As String
Dim cim_2 As String
Dim keres As String
Dim INPUT_STR As String
Dim SPLITTER() As String
Dim xDB As Integer
Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
Dim MYRANGE As Range 'file-ok megszámlálásához
Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
Dim xSOR As Integer
Dim xREG As String
Dim xSTR As String'MsgBox ("csillag")
Worksheets.Add().Name = "SZUMMA"
keres = "$$$"
Worksheets("Szamla").Select
OSZLOP = 38ELORE:
' MENNYISÉG+TOTALFor i = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")For xDB = LBound(SPLITTER) To UBound(SPLITTER)
If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
Else
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
SPLITTER(xDB) = "+" + SPLITTER(xDB)
End If
xSTR = xSTR + SPLITTER(xDB)Next xDB
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
xSTR = ""
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next iIf OSZLOP = 150 Then
OSZLOP = 42
GoTo ELORE
Else
If OSZLOP = 154 Then
OSZLOP = 43
Else
End If
End If'EGYSÉGÁR
For j = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
'Sheets("SZUMMA").Select
xDB = 0
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
' Next xDB
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next j
MsgBox ("kész")
End SubMinek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
PetX
aktív tag
válasz
martonx
#1154
üzenetére
Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.
Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.
Ehhez a részhez kértem a segítséget:
Sub CSILLAG()
Dim CS_SOR As Integer
Dim OSZLOP As Integer
Dim CS_OSZLOP As Integer
Dim cella As Range
Dim cim_1 As String
Dim cim_2 As String
Dim keres As String
Dim INPUT_STR As String
Dim SPLITTER() As String
Dim xDB As Integer
Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
Dim MYRANGE As Range 'file-ok megszámlálásához
Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
Dim xSOR As Integer
Dim xREG As String
Dim xSTR As String'MsgBox ("csillag")
Worksheets.Add().Name = "SZUMMA"
keres = "$$$"
Worksheets("Szamla").Select
OSZLOP = 38ELORE:
' MENNYISÉG+TOTALFor i = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")For xDB = LBound(SPLITTER) To UBound(SPLITTER)
If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
Else
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
SPLITTER(xDB) = "+" + SPLITTER(xDB)
End If
xSTR = xSTR + SPLITTER(xDB)Next xDB
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
xSTR = ""
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next iIf OSZLOP = 150 Then
OSZLOP = 42
GoTo ELORE
Else
If OSZLOP = 154 Then
OSZLOP = 43
Else
End If
End If'EGYSÉGÁR
For j = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.RowINPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
'Sheets("SZUMMA").Select
xDB = 0
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
' Next xDB
Wend
Else
End IfOSZLOP = OSZLOP + 7
Next j
MsgBox ("kész")
End SubMinek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
PetX
aktív tag
válasz
martonx
#1154
üzenetére
Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.
Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.
Ehhez a részhez kértem a segítséget:
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTRSub CSILLAG()
Dim CS_SOR As Integer
Dim OSZLOP As Integer
Dim CS_OSZLOP As Integer
Dim cella As Range
Dim cim_1 As String
Dim cim_2 As String
Dim keres As String
Dim INPUT_STR As String
Dim SPLITTER() As String
Dim xDB As Integer
Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
Dim MYRANGE As Range 'file-ok megszámlálásához
Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
Dim xSOR As Integer
Dim xREG As String
Dim xSTR As String
'MsgBox ("csillag")
Worksheets.Add().Name = "SZUMMA"
keres = "$$$"
Worksheets("Szamla").Select
OSZLOP = 38
ELORE:
' MENNYISÉG+TOTAL
For i = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.Row
INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
For xDB = LBound(SPLITTER) To UBound(SPLITTER)
If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
Else
SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
SPLITTER(xDB) = "+" + SPLITTER(xDB)
End If
xSTR = xSTR + SPLITTER(xDB)
Next xDB
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
xSTR = ""
Wend
Else
End If
OSZLOP = OSZLOP + 7
Next i
If OSZLOP = 150 Then
OSZLOP = 42
GoTo ELORE
Else
If OSZLOP = 154 Then
OSZLOP = 43
Else
End If
End If
'EGYSÉGÁR
For j = 0 To 15
Columns(OSZLOP).Select
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
If Not cella Is Nothing Then 'ha talál akkor
Sheets("Szamla").Select
cella.Activate 'akkor aktiválja a cellát
cim_1 = ActiveCell.Address
While Not cim_1 = cim_2
Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
cella.Activate
cim_2 = ActiveCell.Address
CS_OSZLOP = ActiveCell.Column
CS_SOR = ActiveCell.Row
INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
SPLITTER = Split(INPUT_STR, "$$$")
' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
'Sheets("SZUMMA").Select
xDB = 0
ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
' Next xDB
Wend
Else
End If
OSZLOP = OSZLOP + 7
Next j
MsgBox ("kész")
End Sub[ Szerkesztve ]
Minek iszol és vezetsz, ha szívhatsz és repülhetsz!?
-
csimmasz
aktív tag
válasz
martonx
#1182
üzenetére
Örülök hogy neked totálisan egyértelmü minden!
Ha vágom a dolgokat nem kérdezek,mivel nem értek hozzá és a leirtak alapján próbáltam mindent,de állandóan hibát jelzett bármit bárhova irtam.
De ha tudsz olvasni láthatod hogy a gond az volt hogy nem raktam macskakörmök közé amit kellett.
Ugyan erre vonatkozóan nem kaptam utalást!De ugylátom ide csak egyetemisták járhatnak!
Én kérek elnézést,hogy zavarni mertem a 100-as iq klubot!Egyébkén köpködés helyett segiteni is lehet a még oly ostoba szerencsétleneken is mint szerény személyem!
Archelf :tegnap addig próbálgattam amig sikerült beüzemelnem.
Köszönöm mégegyszer.
Ha kártya kell - https://www.plasticcard.it https://plasztikkartyainfo.hu Egyéb nyomtatás miatt - https://exinprint.hu
-
csimmasz
aktív tag
válasz
martonx
#1185
üzenetére
De értsd meg hogy aki nem foglalkozik programozással annak nem egyértelmü.
Tökmindegy,azért a stilusodon lenne mit csiszolni!
És hidd el ahelyett hogy le idiotázol valakit,mondjuk el is mondhattad volna azt az egyszerü dolgot,legközelebb már nekem is egyértelmű lett volnaPace!
Ha kártya kell - https://www.plasticcard.it https://plasztikkartyainfo.hu Egyéb nyomtatás miatt - https://exinprint.hu
-
#10382336
törölt tag
válasz
martonx
#1198
üzenetére
Az elején írtam, hogy DOS-ban írtam már egy programot.
Azt szeretném megvalósítani XP-n.
A program 2 db 12 V-os szirénát vezérel.A következő változói vannak:
Hálózatbekapcsolási idő
Hálozatkikapcsolási idő
Eggyes szünet
Eggyes be idő
Kettes szünet
Kettes be idő
SorrendA program a következőt csinálja:
A Hálozatkikapcsolási idő és a Hálózatbekapcsolási idő között az LPT kimenete 0.
A Hálózatbekapcsolási idő és a Hálozatkikapcsolási idő között olyan astabil
multivibrátorként működik amelynek állítható minden periódusideje.
Tehát napközben jelenleg:
180 mp szünet, majd
13 mp-ig szól az 1-es sziréna, majd
180 mp szünet, majd
13 mp-ig szól a 2-es szirénaA LPT porthoz készítettem egy panelt, amely a porton lévő jeleknek megfelelően
vezérli a megfelelő szirénát, vmint a hangerőket is tudom állítani.Jelenleg madárriasztóként használom, de megfelelő átalakítással bármilyen
gép, berendezés vezérelhető lenne vele.Ha tudsz más egyszerübb és modernebb megoldást erre a feladatra, és ennek
a lényegét leírod, azt köszönettel venném. -
#10382336
törölt tag
válasz
martonx
#1201
üzenetére
Én az USB programozásához semennyire nem értek, pedig
jó lenne, mert USB-LPT átalakító is létezik. Így néz ki: [link]
Mondjuk erre az előző kód biztos nem lenne megfelelő.
A VB.NET programozást sem régen kezdtem el nézegetni, de
ennek az alapjait legalább kezdem érteni. Csak az a baj, hogy az angol nem igazán az
erősségem, viszont a legtöbb leírás angolul van. De azért nem adom fel.
Vannak fordítóprogramok, lassabban megy, de mégis haladok.
A másik probléma hogy elég sok mindenre van elképzelésem, de ugyanakkor egy rendszert is jó lenne felállítani. Az elképzeléseim többek között:- egy "Konzolszerű" főprogram kidolgozása, amelynek működés közben nem
látszik az űrlapja, csak ha az óra melletti ikonjára rákattintok (ez a rész már kész van). Ebben a programban
lenne egy hasonló időzitő, mint az LPT példában, amit hasonlóra tudnék használni,
mint a windows feladatütemezője. -- Ezt majdnem hogy csak be kell másolni az LPT példából.- "txtedit", vagy hasonló nevű program, ami hasonlítana a jegyzettömbre, de annál többet tudna.
Pl. a következő fájltípusokat tudná kezelni:
szövegfájl
szövegfájl karakterrel(pl. tabulátorral ) tagolt. Ezt képes lenne táblázatként kezelni.
Microsoft Word dokumentum szövegrésze.
Microsoft Excel munkalap(.xls) szövegrésze, a munkalap nevének megadása után
Microsoft Access adatbázis egy táblája, a táblanév megadása után.
Datagrid objektum bináris fájlban.
Mindezen fájlok egyedileg kódolva, külön kódok nélkül, ill. külön olvasási és írási kóddal.
Ennek egy kicsi része is megvan, de ez a kis része tökéletesen működik. De ezzel még nagyon sok
munkám lesz, főleg a mentés másként paranccsal.- "Gridedit", vagy hasonló nevű program, amivel mint a nevéből is kitűnik datagrid nézetben lehetne
szerkeszteni az előbb említett fájlokat. Annyival tudna többet a "txtedit" -nél, hogy
az Excel -hez hasonlóan egyszerre több oldalt lehet szerkeszteni.
Ez még gyerekcipőben jár, illetve darabokban megtalálható, mivel a lépéseit önmagában tudom kezelni,
de ezeket egységes egésszé tenni nem kis munka lesz.- "Binedit" nevű program, ami evidens, hogy mit csinál.
Na ehhez lövésem nincs, hogy hogy álljak neki. A fájlok bináris I/O műveletével ugyan semmi gondom nincs,
azonban fogalmam sincs, hogy a kezelőfelületet hogy állítsam elő. Gondolkodtam "textbox"-on, de az
iszonyatos munka lenne. String hosszának korlátozása, kurzorváltozásnál figyelni a kurzorpozicíót és hogyha
szóközre mutat akkor eggyel odébbvinni, nem is beszélve arról, hogy két helyen van ugye kurzor, az egyik HEX, a
másik ASCII formátumban. Alegjobb lenne valami olyan objektum, képes a bináris adatok szerkesztésére, de ilyent
eddig sehol nem találtam. Illetve a "Regedit" programban van egy bináris szerkesztőfelület, de fogalmam nincs,
hogy annak objektumához hogy tudok hozzáférni, ha egyáltalán ez lehetséges.- "Határidőellenőrző" nevű program, amely minden olyan fájlformátumot tudna forrásként kezelni, mint a "Txtedit".
Az ellenőrző része már működik. Legnagyobb hiányossága a "txtedit" hiányosságából fakad. Ezt a programot egyébként
időnként meghívhatja a "Konzolszerű" főprogram, hogy megvizgálja és kijelezze a lejárt- vagy ahhoz közelítő határidőket.- "Fdir" program, ami fájlokat listázna ki szövegfájlba a "txtedit"-ben használt fájltípusokat használva
adat- és célfájlként. Az adatfájlban soronként meg lehetne adni az utvonalat,mappamaszkot,fájlmaszkot,almappákban keressen-e,
mappákat keressen-e,fájlokat keressen-e.- "Rdir" program, ami a registry tartalmát listázná ki, az előzőhöz hasonló működési elven.
- "Fcomp" ill. "Rcomp" az "Fdir" ill. "Rdir" programok célfájljainak összehasonlítására és kigyűjtésére egy célfájlba.
- "Fájlfigyelő", ami elindítás után a megadott mappába gyűjtené ki figyelt mappákban levő változtatásokat.
Ebből is egy rész megvan a filesystemwatcher osztály felhasználásával. Jobb lenne egyébként egy olyan objektum,
amely lehetőséget adna arra is, hogy lehetséges legyen engedélyezni, vagy tiltani a műveletet. A filesystemwatcher
objektumnak a hátránya még, hogy átnevezésnél csak az új nevet írja ki, azt hogy miről lett átnevezve, azt nem.
Vagy csak én nem találom meg azokat a tulajdonságokat, vagy függvényeket amik ezeket visszaadják értékként.- "Binkereső" és "Txtkereső", amely bináris, ill. szövegfájlokban levő keresést tesz lehetővé.
Hát a közeljövőben többek között ezeket szeretném megoldani. Ezek mellett azonban jó lenne a weboldal készítésének módjáról
is valamit megtudni, mert erről elképzelésem sincs, hogy hogyan megy.Ez a terv. Kisebb-nagyobb részben ezek megvalósításának alapjai megvannak, csak nagyon sok idő kell(ene) hozzá.
Más fontos, vagy kevésbé fontos részhez lövésem sincs, ezekhez majd a konkrét ügyben szeretném megkérdezni a fórumozókat.
Az első ilyen nem életbevágó kérdésem az lenne, hogy (B)hogyan lehet .ico kiterjesztésű fájlt létrehozni/szerkeszteni.(/B)
A kérdés azért nem életbevágó, mert a fentebb említett "Konzolszerű" főprogram enélkül is működik, de jobb lenne, ha
az óra melletti ikont saját magam tudnám szerkeszteni. Ugyanis a programban van a következő sor:
notifyIcon1.Icon = New Icon("konzolikon.ico")
No ezt csak úgy tudom megcsinálni, hogy keresek egy .ico fájlt, átmásolom a mappába, majd átnevezem.
Ha valaki tudja erre a megoldást, kérem írja meg.Köszi.
-
#10382336
törölt tag
válasz
martonx
#1203
üzenetére
Köszi a tippet a .ico-hoz.
Ha nagyon röviden össze szeretném foglalni, akkor a határidőellenőrző egy
hasznos "kis" program. A lényege hogy egy adatfájlban fel lehet sorolni az
ellenőrzendő fájlok listáját, amelyeket jelenleg a gép indításakor átellenőriz.
és ha talál lejárt határidőt, akkor azokat kiírja egy fájlba, majd a shell
funkcióval elindítja a szerkesztőt. Természetesen külön is elindítható.
A program egy listafájlt használ, amelyben az ellenőrzendő fájlok felsorolása
van. Ezeket a fájlokat egyenként beolvassa, és ellenőrzi a teljesítetlen
határidőket. A listafájl pl. így néz ki:
c:\aaa.txt
c:\bbb\ccc.xls,5,munka1
stb...Az adatfájloknak a következő oszlopokat kell tartalmaznia:
Megnevezés Határidő TeljesítésEzeken kívül még az ellenőrzésnél az "Időkülönbség" nevű oszlopot is
figyelembe veszi, ha van. Ezenkívül bármennyi oszlopot tartalmazhat.
Ha az adott sor teljesítés oszlopa üres és az aktuális dátum nagyobb
vagy egyenlő a határidő-időkülönbség értékénél, akkor ezt a sort
kiírandó határidőnek veszi, és a fájl nevét, valamint a sor adatait kiírja célfájlba.
Az időkülönbség értékét alapesetben a progamkód határozza meg, tehát ha
nincs ilyen oszlop, akkor ezt veszi figyelembe.A többi programmal egyik célom egy rendszermonitorozó programhoz
hasonlító valami lenne, a másik pedig a windows keresőjét kiegészítő
programcsoportot létrehozni, mert a windows keresőjével pl. a .vb fájlokban
sem lehet például tudomásom sszerint szöveget keresni.A szerkesztőkre ezen különleges fájltípusok könnyeb szerkesztése miatt
van szükség. Pl. a határidőellenőrzés listafájlának szerkesztéséhez tervem
szerint beteszek egy olyan menüpontot, amely tallózás után "beteszi"
a fájl nevét és egyéb jellemzőit az aktuális kurzorpozícióba. Ezért hiába van
pl. a windows-nak notepad.exe-je készen, ilyeneket nem tudok vele
megcsinálni.Bocs, hogy megint ilyen hosszúra sikeredett a válaszom, de ez olyan
összetett témakör, hogy még egy programról is ennél többet kellene
írnom, ha részletezném, nemhogy ennyiről.
A txtedit pl. 57 Kbyte és a következő fájlokból áll.
Fájladatbekérő.vb: osztály a megnyitás,mentés másként stb... párbeszédablakhoz
Fájlbeolvasó.vb: modul a megnyitandó fájl beolvasásához tartalmazó rutinokat
tartalmaz.
Fájlio.vb: osztály a fájl adatainak tárolásához
Fájlkiíró.vb: modul a fájlbeolvasó párja
Form1.vb: osztály indításhoz
Kódolás.vb: modul az egyedi kódoláshoz
Rendszerváltozók.vb: modul a különböző mappák helyének lekérdezése és
tárolása. Pl. windows mappa
Txtedit: osztály a szerkesztő űrlapjának menüihez tartozó rutinok.Ezt még felsorolni sem egyszerű és még kész sincs teljesen!
Esetleg nem tudsz olyan objektumot, amivel bináris adatot lehet kezelni,
hasonlóképpen a Winhex programhoz, mert gondolom, annak objektumához
nem olyan egyszerű hozzáférni, mint pl. az excel-hez.Köszi és még egyszer bocs a hosszú válaszért.
-
#10382336
törölt tag
válasz
martonx
#1205
üzenetére
Ezek a megoldások valóban tökéletesek akkor ha valaki egy-egy
alkalommal szeretne 1-2 lépéses feladatokat végrehajtani.A feladatok testreszabottan automatizálni csak programmal, vagy
parancsállománnyal lehet. Pl. a Total commander tökéletes akkor,
ha 1-2 útvonal tartalmát szeretné valaki kilistázni különböző fájlokba.
Körülményesebb azonban ezt több alkalommal megcsinálni, és
ezeket összehasonlítani.Bár az is igaz, ha tudja valaki az adott program parancssori paraméterezését,
akkor elvileg egy .bat fájl is elegendő lehet, eleinte az időzítést is valmilyen
parancssori paranccsal oldottam meg, aminek már nem is jut eszembe
a neve, de ezt a parancsállományt is végső soron programból hoztam létre.
Közben eszembe jutott a parancs neve "AT".Összefoglalva: automatizált feledatokat program nélkül nagyon nehéz megoldani.
Arról nem is beszélve, hogy a gép bekapcsolásakor kapásból látom, hogy mikorra
mit terveztem be anélkül, hogy bármihez is hozzányúlnék. -
#10382336
törölt tag
válasz
martonx
#1207
üzenetére
Azt hiszem, eddig elbeszéltünk egymás mellett amibe az is közrejátszott,
hogy nagyon sok mindenről írtam egyszerre, és nem csak a leglényegesebb
dolgot írtam le. A lényeg szárazon így nézne ki:Adott egy adatbázis amelyben határidőadatok vannak.
Az én általam készítendő program arra való, hogy indításkor, valamint utána
perecenként a háttérben leellenőrizze ezeket a határidőket, és ha talál
végrehajtandó feladatot, akkor csak ezeket a rekordokat jelenítse meg.Talán így lehetett volna legtömörebben leírni a program fő feladatát.
Én azonban belementem olyan részletekbe, hogy a program nem csak
adatbázist tud kezelni, hanem .xls fájlt, karakterrel tagolt szövegfájlt
stb... Ezt lehet hogy nem kellett volna. Bocs.
Legközelebb megpróbálok a lehető legtömörebben fogalmazni.
-
visityu
csendes tag
válasz
martonx
#1222
üzenetére
Hát elég sokszor 1 percet rááldoztam már de nem sikerült, pedig tuti nem bonyolult.
Amit nekem sikerült összehozni, az annyit csinál, hogy az excelbe a megfelelő cellába beírja. De ott sem a korrekt összeget, hanem egymás után a két értéket.
Pl.: az egyik textbox értéke: 0.8, a másiké:-0.2. Viszon 0.6 hehyett azt írja be, hogy:0.8-0.2
Az meg nekem nem jó.
Azt sem sikerült még megoldanom, hogy ezt az eredményt visszaírja a 3. szövegboxba.No mindegy azért köszi a segítséget.
Az egy sor lekicsinylő szöveg helyett nekem jobban esett volna az az egyszerű egy sor. -
dany27
őstag
válasz
martonx
#1235
üzenetére
hello
Nah már megoldódott, de közben rájöttem hogy ez nekem felesleges....
Nem kell nekem SQL hanem fogom és letárolom egy külső fileba(pl .dat vagy valami hasonló) csak annyi különbséggel hogy elkódolom valamilyen uton módon, ezt még majd kitalálom most egyenlőre egy CSV olvasó illetve író rutint kell össze hoznom. Ha megy jól a fájlba írás csak éppen nem lesz elkódolva akkor majd utánna megírom hozzá az encryptáló illetve decryptáló rutint is.Csak azt nem tudom hogy mit használjak az oszlopok elválasztására..
Van rá valami dolog amit szoktak használni vagy elég ha beteszek egy speckó karaktert az ASCII táblából(azért gondoltam valami speckora, mert azt nem tudja bevinni a juzer billről... pl.: ETX) és azt figyelem az olvasáskor illetve íráskor meg azt szúrom be az oszlopok közé?Egyenlőre egy sima DVD katalógust szeretnék megírni a saját számíze szerint aztán utánna valami nagyobb project!(Gyakorlásnak ez tökéletesen megfelel nekem, arra hogy jobban megismerjem a VB.NET parancsait.)
Előre is kössz a válaszokat!
-
Kafi
csendes tag
válasz
martonx
#1241
üzenetére
Szia!
Köszi a választ! Nos, az útvonallekérést azt meg tudom csinálni de a többit nem.
Jelenleg én így csinálom: kiválasztom komponensnek (ctrl+t) az ocx-et és akkor megjelenik az eszközök között a treeview iconja és beillesztem a formra. Exe-t csinálok belőle de az a gondom, hogy ezek után mindig onnan keresi ahonnan kiválasztottam. Hogy lehetne az útvonalat beilleszteni? Köszi! -
dany27
őstag
válasz
martonx
#1251
üzenetére
nem, nem láncolt proxyt szeretnék hanem azt hogy egy adott oldalt egyszer az egyik proxyval majd utánna egy másikal nyisson meg utánna meg egy harmadikal és így tovább.
Am egy olyan kérdésem lenne hogy melyik modszerral nyissan meg a proxy IP-ket tartalmazó text filet ha annak minden sorában egy IP van. Tehát soronként szeretném oket beolvasni... objreader-el próbálkoztam de azzal csak readline illetve readtoend van. Legalábbis én nem találtam benn olyant hogy egy x-edik sort olvasson ki!
Előre is köszi!
-
Kafi
csendes tag
válasz
martonx
#1243
üzenetére
Közvetett módon, de segítettél. Váltottam VB2005-re (hirtelen ehhez találtam portable verziót ami nekem kell). Úgy tűnik ebben menni fog, most átírom a régi kódot az újra, közbe tanulom is. Rögtön egy kérdés: MDi Form-ot használok. Benne egy Formon van 3 gomb amivel kiválasztom, hogy a Form1,Form2,Form3 legyen látható. Ezek keret nélküli Formok. Próbáltam Visble True/False és Show/Hide-al. Az a gondom, hogy amikor kirakja a Formot akkor egy pillanatra bevillan a Form kerete. Miért van ez? (VB6-ban ezt nem tapasztaltam)
-
ArchElf
addikt
-
ArchElf
addikt
válasz
martonx
#1259
üzenetére
Saját OrgChart kontrollt csináltam
Nem tudom megvan-e még a kódja... Bár majd 10 éve készült, úgyhogy lehet, hogy elég gány kód volt.
BTW, VB6-ban fog szakdolgozni?AE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
ArchElf
addikt
válasz
martonx
#1261
üzenetére
Ops, bocs - winforms-ról valamiért a VB6 ugrott be...
Nemrég találtam egy viszonylag jó kördiagramos kódot a neten (amit egy kicsit a saját szájízem szerint módosítottam).AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
Atti1112
aktív tag
válasz
martonx
#1256
üzenetére
Köszi a segítséget !
Esetleg még arra van egy tipped,hogy ha hamarabb kapcsolják ki a gépet mint 60 perc,(mondjuk 25 perc múlva) ,akkor a következő bekapcsoláskor még "tudja",hogy maradt 35 perc hátra ?
Egyébként a standby-be kapcsolódó gép jó ötlet,be tudom állítani,hogy visszatéréskor jelszót kérjen.Csak az a bökkenő,ha kikapcsolják a gépet,akkor meg nem fog kérni jelszót,mivel az meg úgy van beállítva Ha meg teszek azonnali "hideg" induláshoz is jelszót,akkor semmit nem csináltam. A lényeg az lenne,hogy ha a mama vigyáz a lurkókra délután,amíg hazaérek melóból,ne tudjanak több órát játszani csak ,mondjuk 1 órát.De hogy azt mikor kezdik az RND.Azért nem tudom pl. beállítani,hogy 17:00-18:00-ig,mert ha 17:55-re érnek haza,akkor csak 5 perc maradna játszani.
Azt meg lehetne e csinálni,hogy egy file-ba írok egy 0-át.Ha megtörtént a bekapcsolás akkor a file-ban lévő érték lenne mondjuk 1 és ezt el is mentené a vinyóra.Namost minden bekapcsolásnál ezzel indulna a gép,hogy megnézi a file-ban lévő értéket és ha ez nagyobb mint 0 akkor kiad egy shutdown parancsot.Én meg ,amikor este hazajövök,egyszerűen csökkentett módban indítanám a gépet és kitörölném a file-ból az 1-et és visszaírnám 0-ra.Ők még nem tudják,hogyan kell csökkentett módban indítani a gépet
Még egy kérdés : reggel standby-be hagyom a gépet,jelszó alapon (vagyis nem kér ha standby-ből tér vissza).Letelik majd délután az 1 óra ,a gép kap egy shutdown parancsot és amikor újra beakarják kapcsolni a lurkók,akkor már a "hideg" indítás miatt jelszót kérne.Ilyet lehet ?
Attila[ Szerkesztve ]
Segítsetek, ha tudtok ! Köszi !
-
Atti1112
aktív tag
válasz
martonx
#1265
üzenetére
Hali !
Köszi a segítségeteket ! Találtam egy progit: auto shutdown management.Tuti kis program,bőven van benne minden ,ami kell(het). Van benne user időlimit is Én most vistát gyűrök,tudom váltsak win7-re,kösz nem Volt szerencsém hozzá.Mindig visszateszem a vistát ( kb. 3 naponta pakolok fel rendszereket a gépemre,meg driver-okat,mindent szeretek kipróbálni a boot szektor része a vinyónak szerintem már elvékonyodott ) Tinyxp-től a 64-es win7-ig mindent kipróbáltam már....Szerintem több időt látom a bootolást,mint az asztalt
Mégegyszer köszi a segítő szándékot !
AttilaSegítsetek, ha tudtok ! Köszi !
-
Kafi
csendes tag
válasz
martonx
#1269
üzenetére
Valahogy ez megy VB6-ban és Get #1, , Adatok(0)-val meg visszaolvastam. Persze a tömböt deklaráltam (Type End Type köz). De most ez nem is érdekes.
Ez a sor binary_writer.Write(Adatok(0).Nev & Adatok(0).Cim) működni látszik.
És hogy tudom visszaolvasni?
= binary_reader. parancsot hogy használjam?
Köszönöm!! -
Kafi
csendes tag
válasz
martonx
#1271
üzenetére
Működik (bár két Dim lemaradt). Gondom:
Adatok(0).Nev = "Gizi"
Adatok(0).Eletkor = 21
Adatok(0).Cim = "Szomszed sarok"
Kiírom fájlba: binary_writer.Write(Adatok(0).Nev & Adatok(0).Eletkor & Adatok(0).Cim)
Visszaolvasom:msg = readBinary.ReadString()
Akkor a msg tartalma: Gizi21Szomszed utca.
Így hogyan tudom szétválogatni ezeket az adatokat Név-re,Cim-re...Vagy hogyan szokták ezt megoldani?
-
Kafi
csendes tag
válasz
martonx
#1273
üzenetére
(Elnézést kérek ha színvonaltalanul tettem fel a kérdést, én egy amatőr programozó lennék az életeben ipari gépeket "gyógyítok")
Szeparátor karakter eszembe jutott csak a vessző nem igazán tetszik mert azt a felhasználó is könnyen beviheti és akkor szétcsúszik az adatblokkom. Esetleg egy ritkán használt karakter jobb lenne.
Valójában ezen a linken: [itt] van egy VB6-os példaalkalmazás ezt szerettem volna VB2005-ben is használni de nem tudom átírni. Ezek szerint ez nem használható az újabb VB-ben?
Egy paranccsal kiírom a komplett blokkot és egy másikkal beolvasom.Ha nincs más akkor megpróbálom elválasztó karakterekkel, de ez egy kicsit "fapadosnak" tűnik ezek után nekem.
Köszönöm![ Szerkesztve ]
-
Kafi
csendes tag
válasz
martonx
#1275
üzenetére
Szia!
Most ott tartok, hogy sikerült megoldanom, % jelet használok szeparátornak és split-el szétválasztom, ahogy javasoltad. Ez működik is. De szívesen kipróbálnám az adatbázis kezelést is. Csak sajnos ehhez nem értek, de szívesen foglalkozok vele. Annyira nem értek, hozzá, hogy el sem tudok indulni. Hol találom ezt a VB-ben? Gondolom többfajta adatbázis létezik, melyiket javasolnád nekem? Ha tudnál mondani pár ötletet, támpontot akkor már keresgélek is a neten róla. Köszönöm a segítségedet! -
Kafi
csendes tag
válasz
martonx
#1277
üzenetére
Szia!
Access adatbázis nekem a legjobb megoldás. Az adatbázist ki tudom iratni textboxba, stb.
Úgy szeretném megoldani, hogy a program indulásakor használom csak az adatbázist és ekkor betöltöm az összes adatot. Van köztük text és szám is. Milyen utasítással tudom ezt megtenni?
Elvben valami ilyenre gondoltam: (Connection, Adapter, Table rész az megy)
adat(1) = ("Text", CustomersTable, "FirstName")
Köszönöm! -
Kafi
csendes tag
válasz
martonx
#1279
üzenetére
Szia!
Dataset-el létrehozom az adat forrását, kapcsolatát. Ez megy.
Datagridview-t lerakom kiválasztom az adatforrást és szépen be is rakja az access táblázatomat. Ez is megy.
De nem ezt szeretném elérni, megpróbálom kicsit bővebben kifejteni:
Programom:
Egy mdb fájlban tárolom az adatokat. Ezeket előre megszerkesztem és időnként hozzáírok majd Office Access-ben. Van kb. 5 alkatrésztípus ezeknek kb. 8 paramétere (neve, értékek = szám). A programban nem szeretném se szerkeszteni se megjeleníteni is csak a nevét legfeljebb.
Így gondoltam a programom:
-Indítás után betöltöm az adatbázist egy "belső" adatbázisba. (azért mert a továbbiakban ebből a belső adatbázisból dolgozom és nem az mdb-ből)
-Összeválogatom a megfelelő alkatrészkombinációt. Különbözö alkatrészek értékei között matematikai műveletek vannak. Az összeválogatás egy vizuális felületen történik vagy combobox vagy treeview stb.
-Kinyomtatom pdf-be a végeredményt. Kb.: Név + Alkatrész(1).magasság+Alkatrész(2).magasság*1,5Ami nem megy:
Van: access mdb fájl pl.:
Alkatrész nev; Magasság; Szélesség
asztal; 100; 200
szék; 150, 250Van: "belső" adatbázisom:
Alkatrész(1).Nev: asztal
Alkatrész(1).Magasság: 100
Alkatrész(1).Szélesség: 250
stb.Vagyis mdb első sora -> alkatrész(1)-be
Szeretném induláskor áttölteni az mdb tábláját a saját változóimba és ezt használni utána. (nem megjeleníteni, nem szerkeszteni csak áttölteni)
Eddig egy megoldással találkoztam ami működik, de ne szép:
For Next ciklusban végigmenni a táblázat sorain (0->Row-1) és:
txtAlkatrészNév.DataBindings.Add("Text", AlkatrészTable, "Alkatrész Név")
Alkatrész(Row).Név = txtAlkatrészNév.Text
a textbox invisibleKöszönöm!
-
sonar
addikt
válasz
martonx
#1285
üzenetére
Én semmire, csak vannak olyan helyzetek amikor .Net hátrány. Pl visszafejthetőség, régebbi OS-ek amikhez alkalmazkodni kell.
De jelen esetben egy régi rendszer tovább fejlesztéséről van szó ahol kötve van a kezem.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
válasz
martonx
#1295
üzenetére
én is tudom jól, hogy semmit, de sajna ez van. gépészkaron ennyi jut... bár jövő évtől nem lesz már vb6, csak c, de nekem ebben a félévben kell a diploma
mod: mindjárt leírom a feladatot.
[ Szerkesztve ]
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
opr
veterán
válasz
martonx
#1294
üzenetére
Üdv!
El tudnád küldeni a két forrásfile-t plz az oprre.born@gmail.com címre?
Valamiért nagyon nem akar működni, de szerintem én már olyan ideges agyok, hogy ha nem tolják az arcomba, hogy "íííígy, te marhaaaa!", akkor mostmár hülyén halok meg, vagy nemtom.
Thanx!"Programozó vagyok. Ez azt jelenti, hogy amit leírok, megtörténik." :D “The only valid measurement of code quality is What-The-F**ks/Minute.” - Robert Martin
-
opr
veterán
válasz
martonx
#1300
üzenetére
Jaaa, hogy így. Így működik, valamiért akkor nem működik, ha két külön file-ról beszélünk, és a textarea tartalmát argument-ként akarom átadni. Nekem viszont elég fontos lenne, hogy két külön file legyen
"Programozó vagyok. Ez azt jelenti, hogy amit leírok, megtörténik." :D “The only valid measurement of code quality is What-The-F**ks/Minute.” - Robert Martin
Új hozzászólás Aktív témák
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- Főzőcskés topic
- Windows 11
- HiFi műszaki szemmel - sztereó hangrendszerek
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Milyen okostelefont vegyek?
- A fociról könnyedén, egy baráti társaságban
- Sorozatok
- Háztartási gépek
- EA Sports WRC '23
- További aktív témák...
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- The Last of Us Part I Ps5
- Bomba ár! HP EliteBook 830 G6 - i7-8G I 8GB I 256GB SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Bomba ár! Dell Latitude 5580 - i5-G6 I 8-16GB I 256 SSD I 15,6" FHD I HDMI I CAM I W10 I Garancia
- Bomba ár! Dell Latitude 5490 Touch - i5-8G I 8GB I 256SSD I 14" FHD Touch I Cam I W11 I Garancia!