- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- sziku69: Szólánc.
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- Szellem.: WLMouse Strider Gamer Egér
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Lenry: Windows 11 telepítése inkompatibilis gépre
- gban: Ingyen kellene, de tegnapra
- Magga: PLEX: multimédia az egész lakásban
Új hozzászólás Aktív témák
-
#802
Jester01
veterán
[HUN]Zolee
#800
Jester01
veterán
válasz
[HUN]Zolee
#800
üzenetére
Rekurzív megoldás: egyszerûen kitörlöd a stringbõl.
Hatékonyabb megoldás: csinálsz egy boolean tömböt -
#799
Jester01
veterán
[HUN]Zolee
#798
Jester01
veterán
válasz
[HUN]Zolee
#798
üzenetére
Az sem sokkal bonyolultabb (viszont sokkal jobb) ha mindig csak akkora véletlenszámot generálsz ahány betű még van. Így pontosan n-1 darab véletlenszámra lesz szükséged.
-
Jester01
veterán
1. mert a \ után következő kartaktertől akarod visszakapni a stringet
2. oda a hossz kerül, csak kihasználta, hogy a string hosszánál nagyobb számot is oda lehet írni
3. a rev az hátulról keres
Amúgy ilyesmire a Scripting.FileSystemObject és társai valók. Pl:
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename);
és utána az f tulajdonságait (Drive, Path, Name) tetszés szerint használhatod. -
#437
Jester01
veterán
matekmatika
#436
Jester01
veterán
válasz
matekmatika
#436
üzenetére
Kevered az excel munkalap függvényeket a vb függvényekkel. Mindazonáltal az IsNumeric-nek elvileg mennie kellene
-
Jester01
veterán
-
#398
Jester01
veterán
MartinIsti
#397
Jester01
veterán
válasz
MartinIsti
#397
üzenetére
Itt a link ha esetleg még mindig nem találnád: Excel makró készítése [link]
-
#396
Jester01
veterán
MartinIsti
#395
Jester01
veterán
válasz
MartinIsti
#395
üzenetére
Szerintem ilyen kérdésekkel ballagj át az excel makró topikba ott vannak hozzáértõk.
Amúgy én ezt találtam: [link] -
#378
Jester01
veterán
[HUN]Zolee
#377
Jester01
veterán
válasz
[HUN]Zolee
#377
üzenetére
ChrW(CLng(''&h'' & x))
Ahol x a hexa kód string formában. Stringre karakterenként ciklusban. -
-
#324
Jester01
veterán
[HUN]Zolee
#323
Jester01
veterán
válasz
[HUN]Zolee
#323
üzenetére
Mi még dolgozunk, éppen most rendeltünk kaját nehogy elhalálozzunk közben
-
#322
Jester01
veterán
[HUN]Zolee
#321
Jester01
veterán
válasz
[HUN]Zolee
#321
üzenetére
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. -
#320
Jester01
veterán
[HUN]Zolee
#319
Jester01
veterán
válasz
[HUN]Zolee
#319
üzenetére
#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 -
#318
Jester01
veterán
[HUN]Zolee
#317
Jester01
veterán
válasz
[HUN]Zolee
#317
üzenetére
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ó -
#316
Jester01
veterán
[HUN]Zolee
#315
Jester01
veterán
válasz
[HUN]Zolee
#315
üzenetére
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] -
#314
Jester01
veterán
[HUN]Zolee
#313
Jester01
veterán
válasz
[HUN]Zolee
#313
üzenetére
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) -
#312
Jester01
veterán
[HUN]Zolee
#311
Jester01
veterán
válasz
[HUN]Zolee
#311
üzenetére
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. -
#310
Jester01
veterán
[HUN]Zolee
#309
Jester01
veterán
válasz
[HUN]Zolee
#309
üzenetére
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) -
#308
Jester01
veterán
[HUN]Zolee
#307
Jester01
veterán
válasz
[HUN]Zolee
#307
üzenetére
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.
[Szerkesztve]
Új hozzászólás Aktív témák
- Apple MacBook
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Mikrotik routerek
- Milyen monitort vegyek?
- Milyen processzort vegyek?
- Névteleníti a Panther Lake IGP-jét az Intel, ha nem gyors a memória mellette
- Crypto Trade
- Gmail
- A venti + gigaakku az új trend, a Redmi sem akar kimaradni
- Építő/felújító topik
- További aktív témák...
- Samsung Galaxy S24 Ultra 12/256GB Titanium Gray használt, megkímélt garancia 2027.12.27-ig
- Telefon felvásárlás!! Samsung Galaxy A13/Samsung Galaxy A33/Samsung Galaxy A53
- Surface 3 - 13,5" 2k érintő, i5 1035G7, Iris Plus, 16GB RAM, SSD, jó akku, újszerű állapot, számla
- Alienware 17r4 olvass
- iKing.Hu - Apple iPhone 13 Pro Max Graphite ProMotion 120 Hz, Pro kamerák 256 GB-100%-3 hó gari!
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest