Hirdetés

2024. június 10., hétfő

Gyorskeresés

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Visual Basic

Hozzászólások

(#351) [HUN]Zolee válasza sonar (#350) üzenetére


[HUN]Zolee
senior tag

[link]
Tessék.

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#352) lapa válasza sonar (#339) üzenetére


lapa
veterán

nemtom érdekes-e még, de én (vba-ban) a futás kezdetekor benyomtam az időt egy változóba, majd a végén kivontam az éppen aktuális időből. ez segít talán.

(#353) lapa válasza lapa (#352) üzenetére


lapa
veterán

lemaradtam, itt a kód:

kezdoido = Now 'elején megadtam a mostot.

itt sokáig futik valami...

MsgBox '' összesen '' & DateDiff(''s'', kezdoido, Now) & '' másodperc telt el.'' 'végén kivontam.

(#354) sonar válasza [HUN]Zolee (#351) üzenetére


sonar
addikt

Király vagy!
Hogy én ezt mit kerestem :R :R :R

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

(#355) sonar válasza lapa (#352) üzenetére


sonar
addikt

Közben rájöttem, hogy hogyan kell timerrel időt mérni.
Ha majd kicsit többet leszek neten megirom most csak épp bekukkantottam.
Azért kösz

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

(#356) nbk


nbk
aktív tag

Sziasztok!

Kezdő VB-sként olyan kérdésem van, hogy a francba lehet elinditani egy file-t vb-ben?
azt szeretném, ha miután lefutott a programom lényegi része, inditson el egy .bat filet...
lehet ilyet?

''Egy aprócska kalapocska, benne csacska macska mocska...''

(#357) sonar válasza nbk (#356) üzenetére


sonar
addikt

shell parancs a barátod ;)

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

(#358) matekmatika


matekmatika
tag

Sziasztok! Egy Excel táblázaton dolgozok, végül is speciális leltár-nyilvántartó valamicsoda lenne. Több munkalap, hivatkozások egyikről a másikra. A következőt szeretném. Adva lenne egy beviteli mező amelybe be kell adni a változtani kívánt értéket, és mellette egy másik beviteli mező, ahová az kerülne, hogy milyen értékre szeretném változtani.(nem feltétlenül csak számérték, hanem esetenként szöveg is). Majd (mondjuk egy parancsgomb megnyomásának segítségével) egy adott munkalap adott tartományán lefuttatna egy vizsgálatot és ahol előfordul a változtatni kívánt érték, ott azt lecserélné a kívánt értékre. Segítsetek legyetek szívesek, hogyan tudnám ezt elkészíeni. Köszi! :F

[Szerkesztve]

(#359) nbk válasza sonar (#357) üzenetére


nbk
aktív tag

megathx!

''Egy aprócska kalapocska, benne csacska macska mocska...''

(#360) mesyre


mesyre
csendes tag

Én Visaul Basicban dolgozom. Szeretem is. Ti hogy vagytok vele?
A programjaim: www.teamattic.com oldalon

(#361) Gh0sT


Gh0sT
addikt

Sziasztok!

Egy gyors kérdés: épp nézegetem a Visual Basicet és nem tudom eldönteni, hogy adatbázis kezelésre mennyire lenne alkalmas. Eddig Accesst használtunk, de szeretném magát a felületet átteni VB-re. Úgy gondoltam, hogy az adatbázis szerkezetén nem változtatnék, hanem ahhoz kellene hozzáférnem VB-ből (az Accesshez hasonló űrlapos megoldásokkal). Az eddigi benyomásaim vegyesek. Egyrész viszonylag könnyű használni, de design szempontjából kevés lehetőségem van. Pedig itt most pont az lenne a lényeg, hogy egy teljesen letisztult profi külsőt kellene kölcsönözzek a programnak. Emellett persze minden olyan lehetőséget ki tudjak használni, ami accessben megvolt.

Esetleg tudnátok valami más programnyelvet ajánlani, ha ez nem jönne be?

Soha nem késő, hogy azzá válj, aki lehettél volna.

(#362) sonar válasza mesyre (#360) üzenetére


sonar
addikt

Hm esetleg lehet csatlakozni?

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

(#363) ollie válasza Gh0sT (#361) üzenetére


ollie
MODERÁTOR

Az új VB Express nagyon jó erre a célra (és ingyenes), de arra készülj fel, hogy nem lesz benne vizuális SQL szerkesztő, mint az Access-ben. De amúgy jó. Ja és az Access űrlapjait nem fogod tudni használni benne, max a táblákhoz, lekérdezésekhez férhetsz hozzá, tehát újra kell designolni az egészet.

***

(#364) Gh0sT válasza ollie (#363) üzenetére


Gh0sT
addikt

Köszönöm! Mennyire vagy otthon adatmodellezésben? Most valami új dolgot szeretnék kipróbálni, de magam sem tudom, hogy mit.

Soha nem késő, hogy azzá válj, aki lehettél volna.

(#365) tkazmer


tkazmer
addikt

Szerintetek azt hogy csináljam meg, hogy a szovegdobozba beírt szöveg legyen a webböngésző url-je?
Így próbáltam:
TextBox1.Text= WebBrower1.Url vmit ugyanezt fordítva, de a fordító nem fogadta el. Az egészet egyébként a form load eseménykezeljébe írtam.

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

(#366) Jester01 válasza tkazmer (#365) üzenetére


Jester01
veterán

a fordító nem fogadta el

Na és mégis mire panaszkodik? :F

Jester

(#367) tkazmer válasza Jester01 (#366) üzenetére


tkazmer
addikt

Azt írja ki, hogy: ''Value of type 'String' cannot be converted to 'System.Uri'. ''

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

(#368) Jester01 válasza tkazmer (#367) üzenetére


Jester01
veterán

TextBox1.Text= WebBrowser1.Url.AbsoluteUri :F
Esetleg ToString

[Szerkesztve]

Jester

(#369) [HUN]Zolee


[HUN]Zolee
senior tag

Hogy lehet új objektumot adni a VB . NET be kódbol ? ( most egy PictureBox-ot kéne hozzadni). Nem sikerült még rájönnöm :(

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#370) pinnacle


pinnacle
nagyúr

Ezt a hibaüzenetet kapom program indításnál.[link] Valaki tudna segíteni?Köszi!

(#371) tkazmer válasza Jester01 (#368) üzenetére


tkazmer
addikt

Ok, megpróbáltam így:
TextBox1.Text = WebBrowser1.Url.AbsoluteUri
Erre azt írja( már nem az alsó sorban, hanem fordítás közben) hogy
Null Reference Exception was unhandled
Object reference not set to an instance of an object.

Aztán megpróbáltam így:
TextBox1.Text = WebBrowser1.Url.AbsoluteUri.ToString
Ugyanez a hiba
Aztám így:
TextBox1.Text = WebBrowser1.Url.ToString
Így is rossz. Na most mi legyen?

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

(#372) Jester01 válasza tkazmer (#371) üzenetére


Jester01
veterán

Az a gyanúm, hogy WebBrowser1.Url nothing-ot ad vissza. Ellenõrizd le.

Jester

(#373) tkazmer válasza Jester01 (#372) üzenetére


tkazmer
addikt

Ajaj! Mit értesz az alatt, hogy nothingot ad vissza? Hozzá adtam a WebBrowser1-et, ha arra gondolsz. És hogy ellenőrizzem le?

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

(#374) sonar válasza tkazmer (#373) üzenetére


sonar
addikt

Talán fordítva kellene. A textboxot kéne jobb oldalt írni. Ha azt akarod,hogy annak a tartalmát írd át a webbrovserbe.

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

(#375) tkazmer válasza sonar (#374) üzenetére


tkazmer
addikt

Úgyérted, hogy:
WebBrowser1.Url.ToString = TextBox1.Text ?
Így a ....url.AbsoluteUri kiesik, mert az csak ''read only''
Egyébként se így, se úgy nem jó, viszont tényleg a textbox tartalmát szeretném átírni a webbrowser-be

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

(#376) Jester01 válasza sonar (#374) üzenetére


Jester01
veterán

Ez eszembe sem jutott :Y
tkazmer: Tehát a textboxba írt url-t akarod megjeleníteni?
Ehhez nézd meg van-e valami NavigateTo() vagy hasonló metódusa a webbrowsernek és azt hívd meg.

[Szerkesztve]

Jester

(#377) [HUN]Zolee


[HUN]Zolee
senior tag

Hogy lehet hexa kódvól szöveget csinálni?

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#378) Jester01 válasza [HUN]Zolee (#377) üzenetére


Jester01
veterán

ChrW(CLng(''&h'' & x))
Ahol x a hexa kód string formában. Stringre karakterenként ciklusban.

Jester

(#379) [HUN]Zolee válasza Jester01 (#378) üzenetére


[HUN]Zolee
senior tag

köszi

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#380) tkazmer válasza Jester01 (#376) üzenetére


tkazmer
addikt

Köszi! Így már műkszik, igaz nem navigate to, hanem csak simán navigate, de ez asszem mindegy.

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

(#381) szasza_1


szasza_1
senior tag

Helló mindenkinek!

Lenne pár kérdésem VB6-al kapcsolatban. Az egyik az lenne, hogy felépítettem egy gráfot directshow filterekből, amiben van egy Video Renderer. Amikor futtatom a gráfot, akkor a videó külön ablakban jelenik meg. Hogy lehetne ezt rátenni a formra?
A másik kérdésem az lenne, hogy hogy lehet a Microsoft DV and VCR filter tulajdonságait állítani? A tulajdonság ablakot meg tudom nyitni, és az ott található gombokkal tudom vezérelni a kamerát. Hogy lehetne ezt megcsinálni anélkül az ablak nélkül, forráskódból? Egyáltalán a filterek tulajdonságait hogy lehet állítani programból?

Előre is köszi a segítséget!

(#382) szasza_1 válasza szasza_1 (#381) üzenetére


szasza_1
senior tag

UP

(#383) szasza_1 válasza szasza_1 (#381) üzenetére


szasza_1
senior tag

Odáig sikerült eljutnom, hogy létrehozok egy ilyent: Dim cam_kont As VBVideoControl vagy Dim cam_kont As CameraControlInfo, de ezek nem akartak működni, és az MSDN-en sem találtam leírást. De viszont találtam olyant, hogy IAMExtTransport a DirectShow Interface-k között (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/iamexttransportinterface.asp) de ezt nem tudom, hogy hogy kell használni.
Van ötletetek?

(#384) szasza_1 válasza szasza_1 (#383) üzenetére


szasza_1
senior tag

UP

(#385) szasza_1 válasza szasza_1 (#384) üzenetére


szasza_1
senior tag

UP

(#386) szasza_1


szasza_1
senior tag

Meg sikrült csinálnom, hogy a videó a formon legyen. Már csak abban kellene segítség, hogy ezt hogy lehetne használni VB6 alatt: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/iamexttransportinterface.asp [link] .

Előre is köszi!

(#387) MartinIsti


MartinIsti
csendes tag

Sziasztok!

Nagyon kezdő vagyok még a Visual Basicban, és most még csak az Office-ba épített változatával ismerkedem. Két kérdésem volna:

1) Tud valaki tanácsot adni, hogy miként kezdjem el elsajátítani a VB-t (a próbálgatáson kívül, mert most még csak a makró rögzítése alapján ügyeskedem az Excellel)? Esetleg létezik valami jó könyv erről? (A Visual Basic és Excel programozás címűt néztem, az nem az igazi.)

2) Egy egyszerű függvényt akarok létrehozni, amely egy Excel tábla második oszlopában azt figyeli, hogy hányadik sortól kezdve üresek a cellák, ezt az értéket megjegyzi, és az oszlop elemeit az elejétől eddig a sorig másolja át egy eltérő munkalapra.
Ciklusokkal még régen, C64 Basicjénél találkoztam, és bár valamennyire emlékszem rájuk, most valahogy nem sikerül összehoznom a dolgot. A logikája már megvan a fejemben, de nem tudom utasításokba önteni.

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

(#388) szasza_1 válasza MartinIsti (#387) üzenetére


szasza_1
senior tag

Visual Basic kék könyv kezdetnek jó. Csak hallkan jegyzem meg, itt jó sok minden van: http://ebookz.hu/ebook.php?alkat=Visual%20Basic

(#389) szasza_1 válasza szasza_1 (#386) üzenetére


szasza_1
senior tag

Helló!
Az is megoldás lehetne, ha a MSDV tulajdonság ablakában található gombokat használnám. De ehhez valahogy meg kellene oldani, hogy a fx.ShowPropPage hWnd módón meghívott ablaknak ne legyen kerete, és meghatározott helyen jelenjen meg, akár formon belül, de az sem baj, ha csak simán nincs kerete. Egy formból lehet állítani egy másiknak a kinézetét? Legalább ha csak a helyzetét lehetne állítani, és a fölösleges részeket kitakarni, az is már jó lenne. Ezeknek a tulajdonság lapoknak mindig több füle van, és jó lenne, ha csak az általam kiválasztott jelenne meg.
A másik, hogy WinAPI függvényekkel lehet valahogy vezérelni egy olyan formot, amit nem látok?

Előre is köszi a segítséget!

(#390) szasza_1 válasza szasza_1 (#389) üzenetére


szasza_1
senior tag

UP

(#391) szasza_1 válasza szasza_1 (#389) üzenetére


szasza_1
senior tag

UP

(#392) MartinIsti


MartinIsti
csendes tag

A múltkori problémámat sikerült megoldanom. Mondjuk sejtettem, hogy egy egyszerű ciklus-utasítás révén menni fog a dolog, csak jól meg kellett ''fogalmazni''. :B

Most viszont egy olyan átfogó kérdésem lenne, hogy miként lehet az egyes Excel táblák határait megállapítani? Érthetőbben kifejezve: az adott munkalapon szereplő táblázat hány soros és hány oszlopos? Ez ugye ránézésre simán megy, de ha automatizálni akarom a folyamatot, akkor már gondban vagyok, mert makrórögzítés révén nem tudom kisilabizálni a dolgot. Ezenkívül van valamilyen függvény vagy utasítás, amely megállapítja, hogy az adott fájl hány munkalapból áll?

Ha nem teljesen világos a kérdésem, szívesen leírom a segíteni szándékozó kedves emberkének, mi is a pontos feladat, aminek a részeként ezek kellenek. :R

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

(#393) [HUN]Zolee válasza MartinIsti (#392) üzenetére


[HUN]Zolee
senior tag

az első kérdésre, mingyárt megírom a macrot

a második engem is érdekelne

Hány cella van egy oszlopba :


Sub mennyi_van_kitoltve()
Worksheets(''Munka1'').Select
Db = 0
If [A1].Value = '''' Then
Db = 0
Else
If [A2].Value = '''' Then
Db = 1
Else
For Each cella In Range([A1], [A1].End(xlDown))
Db = Db + 1
Next
End If
End If
ActiveCell.Value = Db
End Sub



[Szerkesztve]

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#394) [HUN]Zolee


[HUN]Zolee
senior tag

hány oszlop :


Sub mennyi_van_kitoltve_a()
Worksheets(''Munka1'').Select
Db = 0
If [a1].Value = '''' Then
Db = 0
Else
If [a2].Value = '''' Then
Db = 1
Else
For Each cella In Range([a1], [a1].End(xlToRight))
Db = Db + 1
Next
End If
End If


''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#395) MartinIsti válasza [HUN]Zolee (#393) üzenetére


MartinIsti
csendes tag

Köszi a segítséget, végül én a következőt találtam ki kedden a sorok számának megállapítására (persze ehhez az kell, hogy az első üres cella alatt már ne legyen több nem üres cella):

Sub elsourescella()

' Hogyan kell megállapítani az első üres sor helyét
Dim i As Integer ' változó definiálása
i = 3 ' változó alapértékének meghatározása
While Cells(i, 2) <> '''' ' i-dik oszlop vizsgálata az első üres celláig
i = i + 1
Wend

End Sub

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

(#396) Jester01 válasza MartinIsti (#395) üzenetére


Jester01
veterán

Szerintem ilyen kérdésekkel ballagj át az excel makró topikba ott vannak hozzáértõk.
Amúgy én ezt találtam: [link]

Jester

(#397) MartinIsti válasza Jester01 (#396) üzenetére


MartinIsti
csendes tag

Köszi a tanácsot! Eddig nem találtam azt a fórumot :B

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

(#398) Jester01 válasza MartinIsti (#397) üzenetére


Jester01
veterán

Itt a link ha esetleg még mindig nem találnád: Excel makró készítése [link]

Jester

(#399) MartinIsti válasza Jester01 (#398) üzenetére


MartinIsti
csendes tag

Azóta már megtaláltam, azért annyira láma nem vagyok.

Még egy utolsó dolog:

HunZolee-nak üzenem, hogy egy könyvben megtaláltam a munkalap-számolás megoldását.

Pofonegyszerű: Sheets.Count. Ha ezt egyenlővé teszed bármilyen változóval, már számolni is tudsz vele.

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

(#400) lapa válasza MartinIsti (#395) üzenetére


lapa
veterán

küzdöttem egy kört mire megtaláltam de emlékeztem, hogy nem kell ciklusozni...

ActiveCell.CurrentRegion.Rows.Count
ActiveCell.CurrentRegion.columns.Count

vagy fixen cells(1,1).CurrentRegion.Rows.Count

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Visual Basic
Copyright © 2000-2024 PROHARDVER Informatikai Kft.