Új hozzászólás Aktív témák
-
sonar
addikt
válasz [HUN]Zolee #121 üzenetére
Programozás Visual Basic 6 nyelven
Van belőle kék (kezdőknek, haldóknak) -én is ezt használom- meg van a black a profiknak
Kiadja a kiskapuA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
MODERÁTOR
-
Goose-T
veterán
válasz [HUN]Zolee #134 üzenetére
Röviden: ég és föld.
[Szerkesztve]Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
return.value
tag
válasz [HUN]Zolee #143 üzenetére
Az egyik .NET alapú, a másik pedig nem.
Evvel elmondtam az összes különbséget. -
Goose-T
veterán
válasz [HUN]Zolee #143 üzenetére
A .NET objektumorientált, a 6.0 pedig csak annak látszik. Nincs időm most ecsetelni a különbségeket.
Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
F-ECT$
titán
-
csiga997
őstag
válasz [HUN]Zolee #173 üzenetére
b$=left$(a$,len(a$)-1)
-
F-ECT$
titán
-
F-ECT$
titán
válasz [HUN]Zolee #181 üzenetére
Hülyeség, de így próbáltad már:
txt = Right ( txt , 1)
?Dive ever, work never.
-
F-ECT$
titán
-
csiga997
őstag
válasz [HUN]Zolee #181 üzenetére
az nem lehet probléma, hogy egyszer kijelzőt egyszer meg kijeltőt írsz...?
-
MODERÁTOR
-
Diskcopy
tag
válasz [HUN]Zolee #203 üzenetére
LOF: [/L]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctlof.asp[/L]
másik esetleg így? Bővebben: link -
Apollo17hu
őstag
válasz [HUN]Zolee #224 üzenetére
Köszi, akkor már értem azt is, h ilyenkor a tizedesvesszős értékekkel miért tudtam néha számolni.
-
Apollo17hu
őstag
válasz [HUN]Zolee #226 üzenetére
Igen, azt vágom, h a tizedesjel VBA-ban a ''.''. Csak amikor '',''-t írtam, ezexerint a szövegként értelmezett számból az egészrészét tartotta meg.
-
F-ECT$
titán
-
muad_dib
tag
válasz [HUN]Zolee #232 üzenetére
en ezeket type-pal szoktam...
type myType
id as integer
data as string
end type
dim myDataArray() as myType
annyi, hogy a formon vagy modulban kell a type-ot deklaralni, eljarasban/fuggvenyben nem megy, es termeszetesen letezik private ill public fajtaja is
[Szerkesztve]
[Szerkesztve]Hogyan nősül a hálózati játék fanatikus? - Holtomiglan holtodiglan...
-
F-ECT$
titán
válasz [HUN]Zolee #234 üzenetére
Egérrel
Amúgy meg: Bővebben: link
''This program uses the ClientToScreen API function to convert the target coordinates from the screen's coordinate system to the screen's coordinates system. It then uses the SetCursorPos API function to move the mouse there. ''
Sub MoveMouse(x As Single, y As Single)
Dim pt As POINTAPI
pt.x = x
pt.y = y
ClientToScreen hwnd, pt
SetCursorPos pt.x, pt.y
End SubDive ever, work never.
-
lapa
veterán
válasz [HUN]Zolee #274 üzenetére
wait? legalábbis vba-ban. vbs-ben sleep. keress rá hátha vmelyik ezek közül.
-
Diskcopy
tag
válasz [HUN]Zolee #277 üzenetére
pedig úgy kell..
Private Declare Sub Sleep Lib ''kernel32''
(ByVal dwMilliseconds As Long)
aztán meg Sleep 1000mondjuk...
[Szerkesztve] -
Diskcopy
tag
válasz [HUN]Zolee #279 üzenetére
Hello!
Bővebben: link itt elég jól kivesézik. Amúgy nem értem miért nem megy neked, semmi extra nincs benne. -
Diskcopy
tag
válasz [HUN]Zolee #281 üzenetére
Na de errort kapsz, vagy csak simán nem tölt el időt?
esetleg ha call-t is tennél elé? bár nem hiszem.
Private Declare Sub Sleep Lib ''kernel32'' (ByVal dwMilliseconds As Long)
Sub Command1_Click()
Call Sleep(1000)
End Sub -
Diskcopy
tag
válasz [HUN]Zolee #284 üzenetére
System.Threading.Thread.Sleep(1000) 'Egy másodperces várakozás.
-
Diskcopy
tag
válasz [HUN]Zolee #286 üzenetére
Nincsmit.
Nem igazán értem mire gondolsz.. Rajzolni akarsz a formra mondjuk?
MSDNből kódrészlet:
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawLine(myPen, 0, 0, 200, 200)
myPen.Dispose()
formGraphics.Dispose() -
Diskcopy
tag
válasz [HUN]Zolee #288 üzenetére
hello!
Lehet hülye kérdés, de Me.ClientSize.Width, Me.ClientSize.Height -et használsz ugye?
Ollóztam egy kódot netről:
Dim gr As Graphics = Me.CreateGraphics()
Dim ellipse_brush As New HatchBrush( _
HatchStyle.BackwardDiagonal, _
Color.Blue, Me.BackColor)
gr.FillEllipse(ellipse_brush, 0, 0, _
Me.ClientSize.Width, Me.ClientSize.Height)
Dim ellipse_pen As New Pen(Color.Red, 5)
gr.DrawEllipse(ellipse_pen, 0, 0, _
Me.ClientSize.Width, Me.ClientSize.Height)
hasonlóképp csinálod? Mert VB6ban volt az, hogy nem pixel alapú a dolog, .netben áttértek a formnál+contoloknál is pixel alapra ha jólttudom. -
Diskcopy
tag
válasz [HUN]Zolee #290 üzenetére
Elméletileg pedig így kéne, no de én abszolut nem vagyok Vb expert, sőt nem szeretem a vbt(nagyon nem ) de azért nézz körül itt, hátha: Bővebben: link ha nem sikerül, akkor majd valaki más kisegít
-
sonar
addikt
válasz [HUN]Zolee #288 üzenetére
Persze, mert a Formnak van kerete (fejléc, lábléc,meg ha jól tudom a scroll barokat is beleszámolja)
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
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]Jester
-
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)Jester
-
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.Jester
-
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)Jester
-
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]Jester
-
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óJester
-
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 + sugarJester
-
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.Jester
-
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
Jester
-
sonar
addikt
válasz [HUN]Zolee #344 üzenetére
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!
-
sonar
addikt
válasz [HUN]Zolee #351 üzenetére
Király vagy!
Hogy én ezt mit kerestemA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
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.Jester
-
MartinIsti
csendes tag
válasz [HUN]Zolee #393 üzenetére
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''
-
-Gábor-
csendes tag
válasz [HUN]Zolee #439 üzenetére
Jah, hogy itt most Excelről van szó... Azt hittem, hogy az Excel-es makrót szeretné átalakítani úgy, hogy fusson egy VB formon.
-
matekmatika
tag
válasz [HUN]Zolee #442 üzenetére
Teljesen mindegy neki a deklaráció, vele és nélküle sem működik. Excelben egy beviteli mezőbe beírt értéket kellene megvizsgálnom, hogy az numerikus érték vagy nem. A vizsgálat egy parancsgomb megnyomására indulna, ez alá írom...írnám a kódot. Hogyan hívjam akkor meg a függvényt, hogy megegye?
-
sekli
addikt
válasz [HUN]Zolee #454 üzenetére
ja, framework, de volt fenn...
-
sekli
addikt
válasz [HUN]Zolee #456 üzenetére
tudom, elég egy barom dolog ez...
van valami patch asszem, az kell a SAMI-hoz is... -
Gh0sT
addikt
válasz [HUN]Zolee #466 üzenetére
Ehh, hát ez elég egyszerű volt... Köszi!
Soha nem késő, hogy azzá válj, aki lehettél volna.
-
Gh0sT
addikt
válasz [HUN]Zolee #469 üzenetére
Ok, működik, köszi! Csak nem tudom arra használni, amire szerettem volna.
A login Formnál szeretném megcsinálni azt, hogy kb 2 mp alatt jelenjen meg. Gondoltam, hogy ha a form.opacity tulajdonságára írok egy for/next ciklust, akkor sima ügy lesz. Persze nem működik, de miért?
Dim n As Integer
For n = 1 to 100
Me.Opacity = n
System.Threading.Thread.Sleep()
Me.Refresh()
Next
Futási időben nem tudom az Opacity tulajdunságot változtatni?Soha nem késő, hogy azzá válj, aki lehettél volna.
-
Gh0sT
addikt
válasz [HUN]Zolee #473 üzenetére
Igen, közben megtaláltam neten. Azért köszönöm!
Soha nem késő, hogy azzá válj, aki lehettél volna.
-
Gh0sT
addikt
válasz [HUN]Zolee #475 üzenetére
Hi!
Tegnap még próbálkoztam, de nem mentem sokra az ablak megjelenítéssel. Működik, de valamiért feketéből kezd el megjelenni az ablak és nyeri el az eredeti színét.
A következőt csináltam:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5)
Next
Próbáltam megváltoztatni a lépésközt nagyobbra, de semmi eredmény.
Aztán próbaképp csináltam egy ilyet:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
MsgBox(n)
Next
Itt ugye mindig feldobta n értékét egy ablakban, de látszólag nem feketéről indult a megjelenés. Minden OK volt, csak az MsgBox-okra nem lett volna szükségem. Hol lehet a hiba?Soha nem késő, hogy azzá válj, aki lehettél volna.
-
sekli
addikt
válasz [HUN]Zolee #477 üzenetére
és a 6-ra hogy lehet XP-skint ''varázsolni''?
-
sekli
addikt
válasz [HUN]Zolee #482 üzenetére
hát nekem 98 style csak az ablak felső része és az X gomb XP-s...
Új hozzászólás Aktív témák
- iPad Pro 11 WiFi 128GB M1 (3rd gen. 2021) + Apple Pencil 2
- GAMER PC - NZXT - RTX 3060Ti 8GB - i7 7700 - 32GB DDR4 - 500GB M.2 Nvme SSD - 1TB HDD
- BONTATLAN Új Iphone 15 PRO 128-512GB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- ÚJ Bontatlan Macbook Pro 16 M3 Pro MAX 14 30GPU 96GB 2TB Magyar billentyűzet Azonnal átvehető.
- 5% kedvezmény a Cammus szimulátor termékeihez.