Új hozzászólás Aktív témák
-
Des1gnR
őstag
válasz
martonx
#1522
üzenetére
Lényeg, hogy működik.
Köszönöm a segítséget, sokat jelentett
Lenne még egy kérdésem.
A program rendesen működik, ha olyan tartalmat töltök le amihez nem kell bejelentkezni az oldalra. Ha olyan mappát nyitok meg amihez be kell jelentkezni, akkor ugye azt csak a bejelentkezés után tehetem meg. Ezzel nincs is semmi gond, teljesen ugyan olyan felületű oldalra visz, még a gombok inputjai sem változnak, viszont időtúllépéssel dob egy hibát.
Ha csak a webbrowser ablakba töltöm le akkor simán letölti, de ha ráengedném a "ciklust" akkor dobja a hibát. Valami ötlet erre? -
-
Des1gnR
őstag
válasz
martonx
#1518
üzenetére
Köszönöm a segítséget, ez nagyon korrekt válasz volt.
Ezt a verziót választottam:
Dim mettől As Integer = TextBox4.Text
Dim meddig As Integer = TextBox2.Text
Dim i As Integer
Dim a As String
For i = mettől To meddig
a = i
Dim link As String = WebBrowser1.Document.GetElementById("save").GetAttribute("href")
TextBox1.Text = ("https://familysearch.org" + link)
Dim sourceURL = TextBox1.Text
Dim filedir = ("C:\" + a + ".jpg")
WebBrowser1.Document.GetElementById("next").InvokeMember("click")
My.Computer.Network.DownloadFile(sourceURL, filedir)
NextDe nem várja meg, hogy letöltsön a kép, és már megy is tovább a for ciklus.
-
Des1gnR
őstag
válasz
martonx
#1516
üzenetére
Ezt a szinkron-aszinkron dolgot nem teljesen értem.
Erről az oldalról töltenék le: https://familysearch.org/pal:/MM9.3.1/TH-1951-20648-29594-35?cc=1452460&wc=12890478És itt a teljes forráskód:
Imports System.Net
Public Class Form1
Private WithEvents download As WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim download As New WebClient
download = New WebClient
Dim i As Integer
Dim a As String
'For i = 1 To 3
a = i
Dim link As String = WebBrowser1.Document.GetElementById("save").GetAttribute("href")
TextBox1.Text = ("https://familysearch.org" + link)
Dim sourceURL = TextBox1.Text
Dim filedir = ("C:\" + a + ".jpg")
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Try
download.DownloadFileAsync(New Uri(sourceURL), (filedir))
Catch ex As Exception
MsgBox("Failed" + ErrorToString(), MsgBoxStyle.Critical)
End Try
WebBrowser1.Document.GetElementById("next").InvokeMember("click")
' Next
End Sub
Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
End ClassEz még változni fog itt-ott annyiban, hogy lehessen mappát választani és lehessen megadni más url-t is, de most csak az a lényeg hogy működjön
-
erich85T
csendes tag
válasz
martonx
#1511
üzenetére
Igen ez stimmel, valóban transzponálásról van szó. Viszont automatizálni szeretném ezt a folyamatot, nekem arra kell egy program, hogy a tartományt kiválassza és a fent leírt elv szerint transzponálja. Nagyon sok sor van a táblázatban, és a tartományok méretei is különböznek. Nekem azt kellene, hogy megvalósítsa a program, hogy kijelölje a megfelelő tartományt, jelen esetemben az egymás alatt lévő azonos neveket. Ehhez a névhez tartozó adatokat pedig egymás mellé oszlopba transzponálja.
tehát ebből:
név1 - adat1
név1 - adat 2
név1 - adat 3név2 - adat 4
név2 - adat 5
név3 - adat 6ezt csinálja:
név 1 - adat 1 - adat 2 - adat 3
név 2 - adat 4 - adat 5
név 3 - adat 6Köszönöm az eddigi hozzászólásokat, várom a további megoldásokat, javaslatokat.
-
#1506
Cpt. Flint
tag
martonx
#1503
Cpt. Flint
tag
válasz
martonx
#1503
üzenetére
"Cpt. Flint pedig nem attól hülye, hogy itt mi a rangja, hanem a kérdése minőségétől. ... Biztos én vagyok a bunkó, de egyszerűen valami hihetetlen mélységekből jönnek elő ezek a mai fiatalok."
Cpt. Flint nem hülye, csak ugyanolyan érzékeny, mint te. A "kérdés minőségétől" se lesz valaki hülye, legfeljebb tudatlan. Azért kérdez. Nem láttam a fórum szabályzatában, hogy csak okleveles, elsővonalbeli programozók lehetnek tagok és azok is csak – általad – értelmesnek minősített kérdéseket tehetnek fel. Nagyon szépen kérlek, ha hülyének tartasz, ne foglalkozz a hozzászólásaimmal. Bizonyára te is tudnál olyat kérdezni, amiért én körberöhögnélek (lehet, hogy már kérdeztél is máshol), és a lehülyézés bizonyára neked is rosszul esne (mert az ekkora arcoknak szokott leginkább).
Ja, és sajnos baromira nem vagyok mai fiatal. Valszleg pont ez az egyik oka annak, hogy kérdeznem kell, én nem úgy kezdtem, hogy 10 évesen már javascriptet írtam mondjuk, vagy akármi. Kb. egy avíttas FORTRAN könyv volt az első kapcsolatom a számítástechnikával. Lehet, azóta se vittem többre véleményed szerint, de ez annyira azért nem izgat. És hát hiába, nem ez a szakmám, úgyhogy ne kívánd tőlem, hogy nekiálljak informatikusnak tanulni, mielőtt kérdezek. Elég nekem a saját szakmámat követni, dolgozni, családot eltartani. Elhiheted, hogy csak akkor fordulok a fórumokhoz, ha sehol nem találtam számomra érthető megoldást. Aztán van aki bunkózik, van aki válaszol.
-
vilag
tag
válasz
martonx
#1466
üzenetére
Hali!
Megoldódott a probléma!
A kód (ezt kell a kívánt Word doksiba, vagyis a célfájlba írni):
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource _
Name:="xyz", _ 'forrásfájl helye
LinkToSource:=True, _
Format:=wdOpenFormatAuto, _
Connection:="Munka1$", _
SQLStatement:="SELECT * FROM `Munka1$`"
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = False
With .DataSource
.FirstRecord = 14
.LastRecord = ig2 'saját változó
End With
.Execute Pause:=False
End WithNeház szülés volt, de meglett!!!
-
vilag
tag
válasz
martonx
#1463
üzenetére
Ezeken már túl vagyok, de a wordben rögzített makrót nem tudom maradéktalanul átfordítani excelbe, mert nem egészen értem minden részét, de valaki ebben segít akkor lehet, hogy meg is oldódik a probléma. Alább a rögzített makró:
Sub
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"V:\Postakönyv\nyomtatas.xls", ConfirmConversions:=False, ReadOnly:=False _
, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=V:\Postakönyv\nyomtatas.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type" _
, SQLStatement:="SELECT * FROM `Munka1$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
End SubAddig eljutottam, hogy az "SQLStatement" adja meg a munkalapot, de még így is megáll (gondolom azért mert nem tudtam megadni a fejléc van/nincs-re a választ. Szóval az ablak így is feljön, a különbség csupán az, hogy nincs egyetlen egy kiválasztható munkalap sem a listán.
Sejtem, hogy a Extended Properties=""HDR=YES kell nekem, de nem tudom úgy megírni az excelben, hogy az eljáráshíváskor az is átkerüljön.
-
Zsargon89
csendes tag
válasz
martonx
#1445
üzenetére
Egyenlőre, egy ledet vilan fel, a megadott "értékszer...",
- de majd egy számlálót kéne annyiszot tovább léptetnie, amennyi értéket beírunk.
(Tényleg, ha jól tudom egy láb 3,valamennyi volt. Egy pl.6 voltos ezközt, ha 2 lábra kötöm rá, az ér? [persze megfelelő ellenálással...] -
ArchElf
addikt
válasz
martonx
#1441
üzenetére
Lehet, hogy nem kell a nyomtatáshoz win api (azaz megoldható másképp is), de ez tutira nem működik VBS alatt:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
Public Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte
Innentől kezdve hiába nevezi át a fájlt, nem fog futni a WSH-ban...AE
-
ArchElf
addikt
-
-
#1394
papaja-xbox
tag
martonx
#1393
papaja-xbox
tag
válasz
martonx
#1393
üzenetére
Értem , minden igaz holnap veszek usb->lpt port közbe kiderült hogy ebbe a gépbe nincs is lpt csatlakozo mert van 3 gépem :S + 2 az ágy alat na mind 1 és veszek lpt s bkábel és serial port kábel és kezdődhet a banzáj . Ez a uln2803 ez egy bipolári motor vezérlő ez a bitekel csinál valamit csak sajnos most nem találtam leírást .
-
ezekiel
aktív tag
válasz
martonx
#1373
üzenetére
Szia!
A hálózat megosztós Sub:
Sub halozat_megoszt(ByVal targetname As String, ByVal ip As String)
Dim megosztas As NetSharingManager = New NetSharingManager
Dim kapcs As INetConnection
Dim prop As IntPtr
Dim s As Object
For Each kapcs In megosztas.EnumEveryConnection
If megosztas.NetConnectionProps(kapcs).Name = My.Forms.Form3.ComboBox1.SelectedItem Then
megosztas.INetSharingConfigurationForINetConnection(kapcs).EnableSharing(tagSHARINGCONNECTIONTYPE.ICSSHARINGTYPE_PUBLIC)és ezután kéne megadnom azt hogy melyik otthoni kapcsolaton akarom leosztani de erre nincs ötletem. Googlet egy hete túrom eredmény nélkül
-
Taybore
aktív tag
válasz
martonx
#1369
üzenetére
Ezt már végignyálaztam, de itt nincs (nem találtam) erre vonatkozó beállítási lehetőség(et).
Másrészről időközben kaptam egy tippet, ami be is jött, ezért most ide is közzéteszem, megválaszolva a saját kérdésem mások okulására is:
http://msdn.microsoft.com/en-us/library/bb209605.aspx
Ezzel a módszerrel működik
-
#1338
borovszkyg
csendes tag
martonx
#1337
-
#1336
borovszkyg
csendes tag
martonx
#1335
borovszkyg
csendes tag
válasz
martonx
#1335
üzenetére
Megpróbálom.
A fix cella legyen pl. az A1-es. Ezt a cellát az ablaktablábla rögzítése segítségével mindig látom. Ebben a cellában kellene megjelennie egy fix oszlop azon sorának értéke, amelyik sorban éppen az aktív cella található. Ahogy mozgatom az egérrel vagy a nyilakkal az aktív cella kijelölését úgy változik az A1 cellában az érték. A lényeg, hogy egy nagy táblázat előre meghatározott fix oszlopából mindig lássam az aktív cella sorának értékét. boro -
#10382336
törölt tag
válasz
martonx
#1329
üzenetére
A httpwebrequest, httpwebclient - el pár napja kísérletezgettem weboldalon lévő fájlok letöltése kapcsán, de ezzel én csak .html fájlt tudtam létrhozni, amire rákattintva megnyilt az alapértelmezett böngésző(firefox), ami a letöltendő fájlra mutatott és feldobta a mentés másként ablakot, amivel le tudtam tölteni.
Mivel azonban ehhez kattintgatni is kell, és én közvetlenül .net -ből akartam letölteni, ezért a httpwebrequest,httpwebclient -el való kísérletezést végül abbahagytam.
A webclient-el egyszer a Form-ra is sikerült rávarázsolnom egy bizonyos weboldalt.
Akkor végül is az egyszerű My.Computer.Network.DownloadFile() eljárás oldotta meg a problémámat.
Ezek szerint ismét vissza kell térnem ezekhez az objektumokhoz és tovább kísérletezgetni velük.köszi a javaslatokat.
-
#10382336
törölt tag
válasz
martonx
#1327
üzenetére
No ezt a COM-ot szeretném kihagyni. Tulajdonképpen ha a böngészőkből kiadom a
Internet explorer esetén a Fájl - Mentés másként...
Firefox esetén a Fájl - Oldal mentése
parancsot, és szövegfájlként mentem, majdnem ugyanazt az eredményt érem el, azzal a külnbséggel, hogy így a weboldal nem csak a táblázatot adja vissza (mint az excel -nél), hanem az egész oldalt.Ezért érdekelne, hogy .NET-ből hogyan lehet ezt megcsinálni.
Erre a httpwebclient alkalmas? -
válasz
martonx
#1322
üzenetére
akkor elküldöm az adatlapodon található mailcímr, nagyon hálás lennék ha megnéznéd
a szakdolgozatomnak amúgy ehhez semmi köze, teljesen más téma. ez még egy 2. félévről visszamaradt programtervezés c. tárgy, amit eddig nem volt idő megcsinálni. amúgy ez az utolsó félév amikor oktatnak még visual basicet, jövőre már csak c-t.
-
válasz
martonx
#1315
üzenetére
hát egy rekord fájlban tároljuk az adatokat (mini adatbázis) és ezeket exportáljuk egy csv fájlba, hogy azt excellel is tudjuk kezelni. és azt kellene megoldani, hogy ha az így kiimportált .csv-t megnyitjuk excellel, és hozzáírunk még néhány rekordot (ami 3 mezőből áll) akkor azokat be tudjuk importálni a programfelületen keresztül a rekord típusú fájlunkba. szerintem is hülyeség, mivel a programmal simán hozzá tudjuk adni. nade ezen a hülye tárgyon múlik, hogy mehessek államvizsgázni, muszáj összekapnom magam. ha gondolod el tudom küldeni az eddigi programot..
-
-
opr
nagyúr
válasz
martonx
#1311
üzenetére
Jól érzed, ez van
De ha már ilyen szénné gányolt-hackelt alami van, akkor legalább ez a része legyen egyelőre mentes a káosztól.
(úgy értem, hogy midnenhez van egy html file, egy button a hta-ban a html-hez, meg egy vbs, mind-mind azonos néven... agyrém, de legalább könnyen megszokható ) -
opr
nagyúr
válasz
martonx
#1309
üzenetére
Nah, ezaz, köszönöm
jquery nem jutott eszembe, mint lehetőség. Egyébként igen, háttérben akarom, interakció nélkül (ehhez kell a vbs), van is szívás a hülye vista+office12 security(ehhez meg egy macro) marhaságaival (certificate-ek), de ez már egy totál másik kérdés, azt már rég megoldottamKülön vbs file meg összvissz azért kell, mert ez a szokás, és mivel ez a szokás így sokkal átláthatóbb az egész. Ha a későbbiekben módosítani kell bármit jó, ha van egy adott rendszer, még akkor is ha néha hülyén jön ki az egész.
-
opr
nagyúr
válasz
martonx
#1304
üzenetére
Ok, nem kell bunkózni. Először is, írtm, hogy dojo-t használunk. A válaszokból kiderült, hogy nem tudjátok mi az, vagy figyelmetlenek voltatok. Másodszor, a halál se akarja, ezt a feladatot kaptam, hogy oldjam meg, pont. Meglévő rendszerben megy a meló, nem nagyon szólhatok bele. Akkor a lényeg, mégegyszer:
Van egy fos .hta oldal, amin fut a dojo, meg nyilván aloldalanként egy raklap html. A dojo egy javascript engine, ami megoldja, hogy a scripteknek át tudjuk adni amit az isten is úgy akar.
A lényeg, hogy van egy script request form, a user kitölti, örül, elégedett, stb, előbb-utóbb jelezzük neki, hogy kész a script és pont. (multi környezetben automatizálunk olyanokat, amiket a biodroidok csinálnak.)
Amit csinálni kell, egy kurva aloldal (igen, fontos, hogy html legyen, és nem, nem elég az inputbox), amin van egy valami, ahova a user beírja a feedback-et vagy amit akar, és egy gomb megnyomására outlook-al elküldi a megadott címekre egy script a textarea tartalmát.
Ehhez egy inputbox nem elég, és a jelenlegi struktúra miatt nem megoldható, hogy a hta/html file-ba beírom a scriptet, hanem, mint midnen másnál külön fileba kell pakolni.
A rendszer nem az én művem, még csak ötlet szintjén sem, és mivel általában csak textbox-ok vannak, amik a hülye dojo-ban object-ként átadhatók, ezért működnek is. A probléma, hogy feedback-et mi másba írjon a user, mint textarea, ami viszont nem object a dojo-ban.
Tehát a probléma röviden: adott oldal, adott html, külön mappában külön script, ezek így vannak és pont. Az oldal tartalmát variálhatom, valóban.Remélem, így már nem tűnök annyira nagyon hülyének...
szerk: ha rajtam múlna az egész marhaságot átírnám vb/delphi-re, kb. két nap alatt, és nem lenne ilyen szenvedés... De nem rajtam múlik
-
opr
nagyúr
válasz
martonx
#1302
üzenetére
van egy html file, abban a textarea, meg egy gomb, meg van egy .vbs file, ami nyilván a script. A gomb feladata: meghívni a .vbs file-t úgy, hogy argumentumként a textarea.value-t adja át.
A scriptben pedig wscript.arguments-et használva akarom megoldani, hogy megkapja a változó ezt az értéket. -
opr
nagyúr
-
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!
-
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
#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
#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! -
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
#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!! -
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 !
Attila -
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 -
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)
-
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
#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
#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!
-
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. -
#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.
-
#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
#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
#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
#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. -
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!
-
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. -
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 -
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 Sub -
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 Sub -
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!
-
-
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 ?
-
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. -
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. -
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é?
Új hozzászólás Aktív témák
Hirdetés
- Milyen autót vegyek?
- Számtech boltosok memoárjai, azaz amikor kiborulunk...
- ZIDOO médialejátszók
- Gaming notebook topik
- Samsung Galaxy Watch7 - kötelező kör
- Napelem
- Építő/felújító topik
- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Samsung Galaxy A56 - megbízható középszerűség
- Melyik tápegységet vegyem?
- További aktív témák...
- Telefon felvásárlás!! Xiaomi Redmi Note 12, Xiaomi Redmi Note 12 Pro, Xiaomi Redmi Note 12 Pro+
- IKEA (HAVREHOJ) tablet vagy laptop tartó
- Fujitsu USB Port Replicator PR09 docking station (1x5K vagy 2x4K felbontás) (DisplayLink)
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RX 7600 XT 16GB GAMER PC termékbeszámítással
- Bomba ár! Lenovo ThinkPad L380 - i5-8GEN I 8GB I 256SSD I 13,3" FHD / MT I HDMI I Cam I W11 I Gari!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest