Új info, hátha hasznos: ahol eddig nem futott, ott úgy fut, ha az egészet átmásolja a user egy új munkafüzetbe, de ezt nem várhatom el a leendő felhasználóktól.

A garancia meg... ha a címke meg...

VB godok, segítsetek

Egy elég bonyolult dolgot kéne megoldanom Accessben, valszeg VB kód
segítségével.

Adott egy alábbihoz hasonló tábla:
[link]

Ugye ez a tábla három oszlopot tartalmaz. Az oszlopokban adatok vannak, A-val és B-vel jelölve. Nekem egy olyan kód kéne, ami megszámolja az A-kat és a B-ket. (A valóságban vagy 20-30 különböző adat van szétszórva a három oszlopban, de a lényeg ez.) DE. A feltételek, hogy csak akkor számolja bele az adatot, hogy ha a tőle jobbra lévő oszlop üres. Ha az Oszlop1 tartalmaz adatot, de az Oszlop2-3 nem, akkor az oszlop1 adatot számolja, ha az Oszlop1 és az Oszlop2 is tartalmaz, de az Oszlop3 nem, akkor csak az Oszlop2-ben szereplőt vegye figyelembe a számolásnál. Tehát egy olyan lekérdezés, amit lefuttatva a mellékelt táblára azt a táblát/űrlapot/bármit adná ki, hogy

A = 2
B = 7

A gond az, hogy foggalmam sincs a VB-ről
Ha sikerülne egy ilyet megalkotni, akkor a munkahelyemen lévő fél órás szűrögetős munka lerövidülne egy kattintásra... szal help

Hogy tom felvinni a cosinusztételt beírni VB.be, hogyha a szög az ismeretlen?

alfa = cos^ -1 (a^2+b^2-c^2)

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

Aki még nem tudná!
http://msdn.microsoft.com/vstudio/express/vb/
oldalról ingyenesen letölthető a Visual Basic Express

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

Nincs vkinek egy jó leirása a Winsock használatáról?

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

Segítséget kérnék a hiba mivoltáról.
Valami túlcsordul, csak nemtom mi :S

[link]

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

Ha ide-ből futtatod, akkor megáll a hibánál: Form1.vb 91. sor.

alf = ((Math.Atan(-x / (Math.Sqrt(-x * x + 1))) + 2 * Math.Atan(1)) * 180 / Math.PI)

Sajnos nem tudtam kibogozni mit is akarsz csinálni, de nekem az x most éppen kb 165, vagyis a gyök alatt negatív szám van.

Jester

az az invers Cos MDSN szerint.

lehet valami el van írva, mert ahogy nézem az mindíg negatív lesz :S pedig amitko beírtam neki hogy x=0,5 , akkor kidobta hogy alf= 60 .

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

Hát ha ez arccos, akkor a bemenetnek illene a [-1,1] intervallumba esni.
Szóval a hiba az x kiszámításában lesz.
Mellékes jótanács: ha mindenütt csak egy mennyiség négyzetére hivatkozol, akkor fölösleges gyököt vonni (lásd pl. atlo)

Jester

a koszinus tétet kell leprogramoznom, és én ezt hoztam ki belőle :

alfa = arccos ((a^2+b^2-c^2)/2*a*b)

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

Eddig jó. Na most akkor mi micsoda?
Ebben a képletben ugye szerepel a háromszög 3 oldala.
Neked meg van átló és sugár, amit eleve nem értek, de ráadásul kevés is (2 vs 3 darab).
Szóval első körben szerintem nevezd el érthetőbben a változóidat, az arccos függvényből pedig csinálj tényleg külön függvényt, így jobban átlátható lesz.

Jester

ya télleg .




[Szerkesztve]

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

Köszi az ábrát
Szóval akkor a = b = sugár és c = átló.
Gondolom op(i) a középpont, fixP pedig az egyik pont a köríven.
Alappont lenne akkor a másik pont a köríven, csak nem értem a számítási módját. Felvilágosítanál?

Ez egyébként direkt van?
i = kpont(fixp.X, fixp.X)

Jester

op(i) az a szakasz végpontjai, vagyis e közül kerül ki a kör középpontja.
alappont az a 0°os körívnél lévő pont



fixp az a kezeti pont ahonnan indítjuk a köríavet
vp az a változó pont, ami mindíg az aktiális egérelmozdulási értéket kapja meg (ez még nincs kész)



és a i=kpont(fixp.X,fixp.Y) kell. töbszem többet lát



[Szerkesztve]

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

Akkor az alappont koordinátái helyesen (op(i).X + sugar, op(i).Y), nemde?
x pedig a^2+b^2-c^2/2ab = (2 * sugar^2 - atlo^2) / (2*sugar^2) =
= 1 - (atlo ^ 2) / (2 * sugar ^ 2)

MOD: a középpont az op(i) ...

[Szerkesztve]

Jester

az op(i) egy pont a sugár pedig egy szkasz, és ezt a kettőt szerintem nem lehet összaedni.

(2 * sugar^2 - atlo^2) / (2*sugar^2) = 1 - (atlo ^ 2) / (2 * sugar ^ 2) ezt meg nemértem hogy jött ki neked

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

a sugar nem szakasz, hanem a hossza. Te írtad
sugar = Int(Math.Sqrt((fixp.X - op(i).X) ^ 2 + (fixp.Y - op(i).Y) ^ 2))
Szóval össze lehet adni

ezt meg nemértem hogy jött ki neked

Szétbontottam két törtre:
(2 * sugar^2 - atlo^2) / (2*sugar^2) =
= (2 * sugar^2) / (2 * sugar^2) - (atlo^2) / (2 * sugar^2)
= 1 - (atlo^2) / (2 * sugar^2)

Szerinted nem jó

Jester

én egy szóval sem mondtam hogy nem jó, csak annyit, hogy nemértettem hogy jött ki

mingyárt megnézem

Na énis a szakasz hosszára gondoltam.

egy vektor és egy hossz nem összeadható, vagyis a sugarat nem elhet hozzáadni a az op(i) -hez
de azért megnézem

[Szerkesztve]

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

#316 (op(i).X + sugar, op(i).Y)

Skalárokat adtam össze
Vagy ha úgy tetszik akkor a (sugar, 0) vektorral eltoltam az op(i) pontot.
VBben:
alappont.X = op(i).X
alappont.Y = op(i).Y + sugar

Jester

ha csak az egyik koordinátá változtatod meg akkor a kektekező vektor nem a körívre esik majd.

[Szerkesztve]

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

Ne már! A középpontot bármilyen, sugár hosszúságú vektorral eltolva a körívre eső pontot kapsz. A (sugár, 0) vektor pedig triviálisan ilyen.
A #315-ben pont azt mondtad, hogy az alappont a 0 fokos pozíció és a rajzodon is ez van.

Jester

bocsi, igazad van , ezt nagyon benézem, látszik hogy hiányzik belőlem a sör , ilyenkor már kell a gondolkodáshoz

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

Nem egészen értem mit akarsz.
Egy vonalkód olvasó ismeri fel a fájlokat és az szortírozza?

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

        Dim CmdLine As String
        CmdLine = Command()
        Dim Args As String()
        Args = CmdLine.Split('' '')

Innetől kezdve az Args tömbben szóközzel határolt argumentumok vannak.
Ha szóköz is lehet az argumentumban, akkor kénytelen leszel magadnak értelmezni a parancssort.

Jester

Igen.

Jester

No ember mondom mit próbálj meg:
nyitsz egy szimpla tök üres fájlt és pittyegetsz a vonalkóddal azt szépen oda pakolja(v egy textbox) mindig új sorba.
Ha irsz egy fájlkezelő progit ami szépen sorba olvassa be a szöveget már kész is a feladat nagyrésze.
És nem kell túlbonyolítani a dolgokat.

[Szerkesztve]

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

Hello. segitséget/kiinduló pontot szeretnék kérni a következőhöz: adott egy ecel tábla és valami féle scriptel egy oszlop értékei alapján fileba kellene kimenteni egy adott részt: pl ha egy sor elso cellajanak az erteke 100 akkor azokat egy fileba tegye.

oldalaim: http://www.oazigazi.hu + http://www.szakemberadatbazis.hu + http://www.hirfriss.hu + http://tv-musor.hirfriss.hu

Az én egoldásomat is lehet bolondbiztossá tenni.
Bár nekem azt mondták bolondoknak nem kell programot csinálni.

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

Sziasztok!

Azt hogy tudom megcsinálni, hogy egy EXCEL makró ne egy gomb lenyomására, hanem egy cella tartalmának módosításakor automatikusan fusson le?

A garancia meg... ha a címke meg...

Pontosan hogy kell birtokolt formokat létrehozni? A könyvem leírja, de a fordító nem fogadja el

ú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ő

tedd fel netre, vagy küld el mail-be megnézem

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

Azt nem tudjátok, ha időt akarok mérni azt, hogyan kell?
Timer rel próbáltam de azzal nem jutottam semmire

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

Nem tudom, találkozott-e már valaki ezzel: Win98-as géppel dolgozom, Office XP van rajta. Megpróbálom futtani kedvenc kis VBA-projektemet, erre csak egy hibaüzenet küld: Compile error in hidden module: bla-bla-bla. Megnyitom a DOT-fájlt, ekkor már értelmesebben reagál: Can't find project or library, és egy egyerű Date függvénynél akadt meg. Úgy tűnik, mintha alapvető VBA-s függvényeket nem tudna értelmezni.

Teljesen újratelepítettem az Office-t, eredmény semmi. Lehet, hogy a Windows-al van a hiba? Hiányzik valami DLL? Hol tárolhatja a VBA-értelmezőt a Windows?

Kösz a segítséget!

Hello!

Lenne egy kérdésem:
VB6-ban programozok, a probléma:

Vizuális fejlesztőeszköz használata esetén az algoritmust konzol alkalmazásként (szöveges ablakban futó) kérjük elkészíteni!

Ez mit jelent és hogy lehet megoldani a vb-ben?

Légyszi válaszoljon aki tudja, mert fontos lenne.
Thx!

Senki sem tudja, mert nagyon fontos lenne.

Létezik jó doksi (magyar elsősorban -angol) ehhez a nyelvhez?

Csak tisztán

angol-nak ott van a saját help-je ami sztem jól megszerkesztett, vagy a msdn.microsoft.com

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

Azt nem tudjátok hogy a vb6 enterprise edition az ingyenes-e?

ha ingyenes akkor honnan lehet letölteni?

Nem hiszem hogy ingyenes. Legalábbis én még nem hallottam volna hogy a microsoft bármelyik VB-t is ingyenessé tette volna, de kérdezd meg X-Com-ot ő bizts tudja a pontos választ (WinXP topicba megtalálod)

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

A VB 2005 express edition ingyenes, ezzel könnyen készíthető console application, benne van a project templatekben.
[link]

Thank you to god for making me an atheist

minden nap tanul valami újat az ember

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

Esetleg tudnál egy közvetlen linket adni, ahol az msdn-en olyat találok ahol a parancsok ki vannak vesézve? Már jó ideje bolyongok rajta, de próbálgatással/könyvek bogarászásával előbb-utóbb rájövök amit akarok hogyan tudom megoldani. De jó lenne tudni, hogy mégis mik a lehetőségek.

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