-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Új hozzászólás Aktív témák
-
zabomate
csendes tag
ha jól emlékszem akkor shell() vagy valami ilyesmi a parancs és strningként meg megy az elérési útvonal
Köszi!
-
[HUN]Zolee
őstag
Meg tudja valaki mondani, miért nem viszi át a textbox tartalmát, csak amit alapértelmezetten írok be? [link]
Megoldottam. Hiba: Az átadást arra a formra kell írni amelyiken az átadást kezdeményező esemény található.
-
Boolash
aktív tag
Nemtudom. De én úgy szoktam megtudnia a parancsokat, hogy elindítok egy makró rögzítést és megadom a függvényt ami kell nekem beépítetből, így szépen lementi a mscro verzióját.
Okés, megvan minden! Köszi!
Egyébként: ActiveCell.SpecialCells(xlLastCell).Select -
Boolash
aktív tag
Hát nem tudom hogy amiatt reklamál-e hogy az else és a then között nincs semmilyen utasítás.
Áhh.. Megvan..
Kicsit túllőttem a célon... Sok volt az 1000 oszlop.
Esetleg azt nem tudod, hogy hogy lehet megnézni, hogy az adott sorban/oszlopban hol van az utolsó elem? Ne kellejen feleslegesen hiába végignézni sok-sok cellát...
Köszi! -
KrAt
veterán
De attól még hogy kiadja a hibaüzenetet, a többi feltételt is megvizsgálja, és kiértékeli, pedíg azokat már nem is kell megnéznie ilyenkor.
Áhá, értem mit basztam el.. Kezdek megvilágosodni..
-
KrAt
veterán
Azért nem jó ez így, mert egyik feltétel sem kapcsolódik a másikhoz.
If x2.TextLength = 0 or x.TextLength = 0 or cons.TextLength=0 Then
adathiany.Show()
else {
If x2.Text = 0 Then
x2biztos.Show()
x2igen.Show()
End If
If x.Text = 0 Then
xbiztos.Show()
xigen.Show()
End If
If cons.Text = 0 Then
consbiztos.Show()
consigen.Show()
End If
}
End IfValahogy így kellene kinézni, de én már régóta nem programoztam VB-ben
Azért gondoltam, hogy egymás után vizsgálja a feltételeket, és ha vmelyiken megbukik, akkor hibaüzit ad.. De vmiért továbblép

ArchElf: így is továbblép
Vhol máshol lesz a hiba.. -
sonar
addikt
igen, az tömb összes elemét/dimenzióját/ szerettem volna átadni
Szerintem ez is lehetséges... mondjuk ki kéne próbálni.
-
sonar
addikt
Üdv
Akkor marad inkábba fapados megoldás. Pedíg reménykedtem hogy át tudom adni az egészet így

Jha, hogy egy teljes dimenziót szeretnél átadni?
Más winapi leirása nincs vkinek? Illetve egy jó webcíme?
-
sonar
addikt
Üdv.
Hogy tudok egy függvénynek megadni egy 2 dimenziós tömböt /egyszerre az egészet/ , majd a függvény értéke is egy tömb legyen?
Function fuggv (x(,)) As Array (,)
műveletek
End Function
Public Sub main()
Dim a(2,2) as Integer
a(,)=fuggv(a(,))
End Subvalami ilyesmi kellene hogy legyen, de nem tudom pontosan.
Szerintem jó az elképzelésed. Bár ezt az egyszerre az egészet nem értem. Be kell rakni egy ciklusba (ahány eleműre lett definiálva a tömb) és annyiszor kell elvégeztetni.
-
sonar
addikt
Az infótanárom mondta :'' A programozni vágyó emberek 90% nem alkalmas programozónak''
És ezzel én nagyon egyet is értek,és látom te is osztod a véleményünk.Azért ez már több mint durva, ha jól olvasom 5. éves és ennyit se tud.

Vmilyen szinten meglehet tanulni a dolgokat, csak időt kell rá szentelni.
Én se vagyok nagy programozó, de ami kell azzal foglalkozok.
Kiváncsi vagyok hogy az illető mennyit foglalkozott a témával.
No mindegy szerintem is egyszerübb megkérdezni, de azzal takarózni,hogy a tanár se tudja nevetséges.
bocs a kirohanásért és az offért -
Jester01
veterán
őőő, nem teljesen világos a módszered.
hogy szűröd ki azokat a betűket amiket már kiválasztottál?Rekurzív megoldás: egyszerûen kitörlöd a stringbõl.
Hatékonyabb megoldás: csinálsz egy boolean tömböt -
Jester01
veterán
úgy a legegyszerűbb megoldani, hogy letárolod az eddíg generált számokat, és mindíg amikor generálja az új számot, akkor megnézed, hogy volt-e már ilyen szám, ha volt akkor újrageneráltatsz vele egy számot, mindaddíg amíg olyan számot nem ad, ami még nem volt.
igaz ez rengeteg számolást igényel a gép részéről, de nem hiszem hogy olyan hosszú szavakat fogsz használni, ami észrevehetően lassan állítana elő.
amúgy a VB7 elég sokmindenbe kölünbözik, bár itt csak az elméletről beszélünk, szóval ha tudod a megfelelő parancsokat, akkor ugyan úgy megoldható abba is
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.
-
Polyák
tag
hirtelen ez jutott eszembe (bár én 7 be gondolkodok nem 6 ba)
tömbe felosztod a szót karakterekre, majd random számgenerátorral(paraméterként a szó hosszát megadva) és kikötésbe beleteszed hogy a random nem dobhat azonos számot.
kicsit macerás, de elvbe jó
köszi! én is hasonlóra gondoltam csak nem tudom hogy hogyan csináljam azt hogy kétszer ne dobja ugyan azt a random. Te tudod esteleg? Nem külömbözik sztem olyan sokba a vb6 és a 7.
-
Polyák
tag
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve]Ezt írja ki hibának:
Futásidejű hiba: 91:
Az objektumváltozó vagy a With blokkváltozó nincs beállítva
Ez mit jelent? Lhet hogy 6ba nem igy kell.
elsején hajnali 5kor még volt energiád ilyenhez? Gratula! Én most keltem egy órája
-
Polyák
tag
Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve]Köszi!
Hát nem igazán értem, de majd kibogozom. Ha jó vb6 ba, akkor meg is fogom érteni. Talán.
Amugy köszi.
Kéne valami példarpgi hogyan is kell ezt alkalmazni.
-
sonar
addikt
van egy ilyen típusu tömböm :
Structure ttipus
Dim id As Integer
Dim nev As String
Dim aber As Integer
Dim tber As Integer
Dim tszam As Integer
End Structure
ezt hogy tudom fáljba menteni, és visszaolvasni?
VB 7 be kell megoldani.
[Szerkesztve]pl csinálsz egy ilyet
Dim sor as string
sor= str(id) & '','' & nev...
aztán
open ''file'' for output as #1
output (sor, #1)
close #1
és ezt az egészet egy for ciklusba
vissza olvasni meg inputra nyitod meg a fájlt és szétdarabolod a stringet. -
Polyák
tag
Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
VB7 be kb így néz ki :
e = egér esemény
korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
Dim p As New Point(e.X, e.Y)
pont = p
korok()
ReDim Preserve korivp1(elemszam)
korivp1(elemszam) = p
elemszam += 1
g.DrawArc(pens.Red,
volt = True
If elemszam >= 2 Then
g.DrawLines(Pens.Red, korivp1)
End IfKöszi, de 6-ba nem így van sajnos.
Kaptam egy példát MSN-en, este megnélzem aztán megírom hogy mi volt a baj.
Amugy Köszi a gyors választ! -
Polyák
tag
6-ba könnyebb rajzolni , majd teszek fel netre leírást, ha megtalálom otthon.
Nagyon Köszi!

-
Polyák
tag
oda még nem próbáltam rajzolni csak simán a form-ra.
És Form-ra hogy lehet?
-
Apollo17hu
őstag
ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
Így próbáltam, de hibaüzenettel leállt a makró.

Valószínűleg át kell majd írnom az egész kódot...
Kösz a segítséget. -
sonar
addikt
Hy.
Ha eljuttatod hozzám a programot/részt akkor megnézem, hátha kitudok hozni belőle valamit
Ez csak egy elméleti fogós kérdés. De ha gondolod összedobok egy programrészt.
Jövőhéten jön meg a haverom a nyaralásból és nekiállunk a VB portálnak -
sonar
addikt
upsz, mostvettem észre hogy rosszat másoltam
nem 10 hanem 13 , de mindegy, ugaz én textboxnál ellenőriztem.
sajna 6-ba nemvagyok otthonAzt tudtam, hogy 13 de ne textBox-al próbáld annál müxik, hanem commandbutton-nal
-
sonar
addikt
csak tippleni tudok énis.

Keyascii az adott billentyű ascii kódjával dolgozik a Keycode,meg a VB-ben definiált kód alapján.Hát nem jött össze, de nem is érdekel. space-val müxik jól
A class-ra tudsz mondani vmit? -
sonar
addikt
a keyascii helyett használd a keycode -ot, úgy műxik
If KeyCode = 10 ThenMi a különbség a KeyAscii és a KeyCode között?
-
sonar
addikt
' If KeyAscii = 10 Then '
így próbáldHiába. Azért raktam az elejére a msgbox-ot hogy kitaláljam milyen ascii kódot vesz be, de semmilyet. Inkább áttettem a space-re azt minden gond nélkül megeszi
-
sonar
addikt
Ha úgy vesszük télleg, semmi értelme, de egyik kedves barátommal egy közös elméket idézünk majd fel ezáltal.
sonar.tvn.hu ra felraktam ahogy állok.
Per pill neki kellett állnom egy másik dolognak. Majd vmikor folytatom -
sonar
addikt
Azt megutdod csinálni, hogy a beírt szöveget az aktuális dátum legyen a neve? A betöltésnél meg egy openfiledialog-jönne fel ahol kiválaszthatnám hogy melyik file-t akarom megnyitni. Ha így nemmegy(mármint az openfiledialog, a dátumnév nem fontos), akkor írja mindíg felül az aktuális file-t.
Meg lehet csinálni de ennek abszolut semmi értelme. vagy én vagyok hülye
-
sonar
addikt
igen, a fáljbaírás kell.
Hagyd bent a te megoldásod is.És hogyan? appendoljam hozzá? vagy hozzak létre mindig egy új fájlt? Bár ez hülyeségnek hangzik.
sok értelmét nem látom, de megtudom csinálni.
[Szerkesztve] -
sonar
addikt
Kira. De ha nem nagy kérés tedd vissza bele a beirogatós részt (is) , mert szándékosan úgy csináltam meg .
Köszi.Elvileg megvan a béta csak otthon hagytam a penemet így nem tudom belinkelni.
Meg tudom csinálni a beirogatós részt is, de sztem hülyeség.
Ja van kérdésem is:
milyen sorrendben kell rajzolni az akasztófát? Egy paintes (v akármilyen) skiccet nem tudsz küldeni? -
sonar
addikt
Hálám örökké üldözni fog

Már félig kész van. (Mondjuk ha nincs 7végén balesetem akkor nem
)
Úgy csinálom, hogy lesz egy fájl amibe eddig 200 szót lehet beírni és abból random kiválaszt
egyet feladványnak. Sztem így jobb mint midig beírni -
sonar
addikt
Hy. siekrült vlamit alakítani az akasztófa programommal?

Tegnap este belenéztem, meglesz ha szánok rá pár órácskát.
-
sonar
addikt
Hy. siekrült vlamit alakítani az akasztófa programommal?

Bevallom férfiasan még nem nagyon néztem bele

tudod meccsek, lan...
de megpróbálom a 7en meglesni. -
sonar
addikt
ya neked 6 kell, az is ott van, csak keress rá a Visual Basic 6 -ra

nem nagyon igazodok ki abban az msdn-ben de ha te mondod
-
L3zl13
nagyúr
Az egész rendszermeghajtón ( erre van feltelepítve a VB is) kerestem de a kereső nem találja a *vbrun*.dll fált. (Rejtett fájlok közt is keres) .

Igen, de a .NET felpakol egy pár VB* nevű fájlt, tehát szvsz csak máshogy hívják, de ugyanúgy szükség van valamilyen dll-re a futtatáshoz.
Nálam pl D:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Microsoft.VisualBasic.dll ami az infója szerint Visual Basic Runtime Library. (És itt semmilyen VB fejlesztői környezet nincs feltéve.) -
L3zl13
nagyúr
Nagy valószínűsége annak hogy nemkell neki dll , mivel az én gépemen sincs a system mappába se a VB mappájába.
Szvsz neked a Microsoft.NET mappában van a megfelelője. Szóval ugyanaz a helyzet.
[Szerkesztve] -
Polyák
tag
1,4GB MSDN nélkül

Hmm.... Megéri?
A VB7-ben kell ilyen DLL a programom futtatásához:
VB1 : vbrun100.dll
VB3 : vbrun300.dll
VB4 : vbrun432.dll , vbrun416.dll
Kicsit idegesítő h csak akkor indul el ha ez a fájl az alkalmazás mellet, vagy a System mappában van! Főleg ha valakinek elviszem és neki nincs meg a VB.
[Szerkesztve] -
Polyák
tag
Visual Basic . NET (2003)
Köszi!
Hány MB körül van a telepítője? (Visual Basic . NET (2003))
Nem akarok már ebben a hónapban nagy adatforgalmat! A VB 2005 Express 500MB volt!
[Szerkesztve] -
Polyák
tag
Visual Basic . NET (2003)
Honnaln töltötted le? Vagy eredeti?
-
Polyák
tag
mi köze az SP2-nek a VB hez?

Nekem SP1 van fent.
sonar köszi.
Most amit tudok azt megírom vb6-ba. majdmegy mail-be a forráskód meg ami még kell.
[Szerkesztve]A Visual Basic 2005 Express telepítésénél kiírja h a gépemen nincs SP2 ézért nem telepíthető!
Neked melyik VB van meg hogy fut SP1-en?
[Szerkesztve] -
sonar
addikt
Ha valaki megírna nekem egy kis progit VB6 ban azt megköszönném, 7-be megírtam, megy is nálam, csak .NET kell hozzá, és akinek írtam nála nem lehetséges a telepítés. 367 soros a program ebből 122 a objektumok. Egy akasztófa programról van szó.
Ha átküldöd megnézem, de elfoglalt vagyok de azért megpróbálok rá időt szakítani.
címem az adataimnál -
Polyák
tag
VB1 ?

Ajánlom a VB.NET -et ez van most elterjedve sztem. VB.NET=VB7És honnan tudom megszerezni?
-
sekli
addikt
én a 2003 at használom. másnéven a 7.0 ás. talán össze lehet hozni az objektumokat, de annyira nemismerem a programot
nem érdekes, akkor hanyagolom azt a programot, viszont most az kéne, hogy hogy lehet elmenteni mondjuk .txt-be adatokat, és onnan kiolvasni? pl: konkrétan button1.text legyen a txt első sorában lévő button1.text= utáni rész.
-
sekli
addikt
ez azért van , mert a 6.0 megírásakor még nemvotl XP (szerintem) , és ezért minden objektuma az akkori win-nek felel meg, ha átrajzolod, az objektumokat akkor lesz csak XP-s.
tudom, hogy azért van, de azt hittem, hogy van valami egyszerű módja a ''csinosításnak'', mert én többek között ezért is favorizálom a 2005-öt... (bár az ez a .NET FX es dolog elég gáz...)
-
sekli
addikt
na ezt nemértem pontosan mitszeretnél

miben tér el a megírta alkalmazás skinje a win skinjétől?hát nekem 98 style csak az ablak felső része és az X gomb XP-s...
-
sekli
addikt
sose használtam 2005 öt

és a 6-ra hogy lehet XP-skint ''varázsolni''?
-
Gh0sT
addikt
nincsmit.

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? -
Gh0sT
addikt
Opacity az egy 0 és 1 közé eső szám.
Me.Opacity = n/100
a példád szerint
[Szerkesztve]Igen, közben megtaláltam neten. Azért köszönöm!

-
Gh0sT
addikt
várakozást a System.Threading.Thread.Sleep() utasítással tudsz beletenni ezredmásodpercben
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? -
Gh0sT
addikt
írd be a form_load ba hogy Randomize() . és akkor elvileg már mindíg más számot kell adnia.
Ehh, hát ez elég egyszerű volt...
Köszi! -
sekli
addikt
hmm, pedíg akkor szokott ilyet dobálni.
Sajnos nem mindegy neki hogy melyik van fent az 1.1 vagy a 2.0 . mivel olvastam valahol hogy nem teljesen kompatibilis visszafelétudom, elég egy barom dolog ez...

van valami patch asszem, az kell a SAMI-hoz is... -
sekli
addikt
.Net firmwork vagy mi a rák kell neki.
ja, framework, de volt fenn...
-
matekmatika
tag
Vagyis remélem hogy Excelről van szó, ha nem akkor télleg kell a deklaráció

de amúgy a fordítónak nem a változóval van a baja, hanem a függvénnyel.
Ha viszont VB-be akarja ezt írni, akkor hibás a függvénymeghívás, pontosítani kellene.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? -
-Gábor-
csendes tag
Exelbe nem kötelező deklarálni a változókat
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. -
MartinIsti
csendes 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]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 -
Jester01
veterán
Hogy lehet hexa kódvól szöveget csinálni?
ChrW(CLng(''&h'' & x))
Ahol x a hexa kód string formában. Stringre karakterenként ciklusban. -
sonar
addikt
angol-nak ott van a saját help-je ami sztem jól megszerkesztett, vagy a msdn.microsoft.com
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.

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

Mi még dolgozunk, éppen most rendeltünk kaját nehogy elhalálozzunk közben

-
Jester01
veterán
ha csak az egyik koordinátá változtatod meg akkor a kektekező vektor nem a körívre esik majd.
[Szerkesztve]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. -
Jester01
veterán
é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]#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 -
Jester01
veterán
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 nekeda 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ó
-
Jester01
veterán
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]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] -
Jester01
veterán
ya télleg .
[Szerkesztve]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) -
Jester01
veterán
a koszinus tétet kell leprogramoznom, és én ezt hoztam ki belőle :
alfa = arccos ((a^2+b^2-c^2)/2*a*b)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. -
Jester01
veterán
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 .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) -
Jester01
veterán
Segítséget kérnék a hiba mivoltáról.
Valami túlcsordul, csak nemtom mi :S
[link]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] -
sonar
addikt
rajzolás az megy. Csak az a baj, hogy a rajzoló utasításoknál megadott adatok, nem pixeleket jelölnek. pl. ha csinálsz egy 200x200 pixeles fromot és rá egy 200x200 es négyzetet, akkor a négyzet kilóg a formról
és cska egy 191x191 es négyzet fér el benne.Persze, mert a Formnak van kerete (fejléc, lábléc,meg ha jól tudom a scroll barokat is beleszámolja)
-
Diskcopy
tag
Nem így csináltam, mert amit te csináltál, az egy dinamikus rajzolás,, tehát a flipszis mérete függ a from nagyságától, ami nekem kéne, az meg hogy egy fix alagzat legyen az oldalon, tehát kb így :
Dim gr As Graphics = Me.CreateGraphics()
Dim ellipse_brush As New HatchBrush( _
HatchStyle.BackwardDiagonal, _
Color.Blue, Me.BackColor)
Me.ClientSize.Width=200
Me.ClientSize.Height=200
gr.FillEllipse(ellipse_brush, 0, 0, _
200, 200)
Dim ellipse_pen As New Pen(Color.Red, 5)
gr.DrawEllipse(ellipse_pen, 0, 0, _
200, 200)
És így se szélességre, se hosszúságra nem fér el (igaz én ezt tégalappal néztem meg, mert ott jobban llátszik a körvonal hiányából).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 
-
Diskcopy
tag
rajzolás az megy. Csak az a baj, hogy a rajzoló utasításoknál megadott adatok, nem pixeleket jelölnek. pl. ha csinálsz egy 200x200 pixeles fromot és rá egy 200x200 es négyzetet, akkor a négyzet kilóg a formról
és cska egy 191x191 es négyzet fér el benne.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
kösz működik

És arra nemtudod hogyan lehet .Net ben pixel alapúvá tenni a rajzfelületet? Vagyis hogy pixelkben lehessen megadni a koordinátákat?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
senkinek semmi ötlete?

System.Threading.Thread.Sleep(1000) 'Egy másodperces várakozás.
-
Diskcopy
tag
Valahogy negyon nem akar összejönni ez nekem
pedig úgy csináltam mindent ahogy ott le van írva 
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
Hy. Lécci ha tudsz keress meg majdvagy msn-en vagy küldj egy példaprogit a sleep parancs használatára, mert valahogy nem akar menni

msn en csak este leszek.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
sajna egyik se hozott eredényt

pedig úgy kell..
Private Declare Sub Sleep Lib ''kernel32''
(ByVal dwMilliseconds As Long)
aztán meg Sleep 1000mondjuk...
[Szerkesztve] -
lapa
veterán
A pascalban használt delay(x) (várakozás,késleltetés) utasatásnak mi a megfelelője VB.net-ben vagy 6.0 ban?
wait? legalábbis vba-ban. vbs-ben sleep. keress rá hátha vmelyik ezek közül.
-
F-ECT$
titán
köce.
Mégeyg kérdés.
egér cursort hogy tok mozgatni?Egérrel
![;]](//cdn.rios.hu/dl/s/v1.gif)
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 Sub -
muad_dib
tag
A pascal féle recordra gondoltam.
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] -
F-ECT$
titán
Hogy lehet record változót deklarálni?
Record? Adatbázis rekordra gondolsz?
-
Apollo17hu
őstag
A Val fügvénynél a . (pont) a tizedesvesző a számoknál.
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.
-
Apollo17hu
őstag
szövegből számot csinál
Val(szöveges változó)
csak addig nézi amíg azámoz talál amit az első szövegkarakter megjelenik, abbahagya a számmá alakítást, és az addig talált számod adja visszaKöszi, akkor már értem azt is, h ilyenkor a tizedesvesszős értékekkel miért tudtam néha számolni.
-
Diskcopy
tag
8 kötőjelet fűz hozzá a füzér végéhez és levág a füzért 8 karakter husszúra. Azért kell a 8 kötöjel, hogy biztos 8 karakternél hosszabb legyen.
Egy kérdés
Fáljt akarok visszaolvastatni, de a bevitt elemeket egyszerre 1 sorba adja vissza, és nem csoprtonként. A könyvben azt találtam hogy input(lof(1),#1). Mit takar a LOF ? És hogy lehet betitt sorrendben egymás után kiolvasni úgy hogy ne 1 karakterláncnak vegye az egész szöveget?
[Szerkesztve]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 -
ollie
MODERÁTOR
Beírtam ezt a kódot és a helyett hogy elvenné az első betűt, az egész szöveget törli

txtkijelzo = Right(txtkijelto, Len(txtkijelzo) - 1)
itt a teljtes program :
Bővebben:� link
Eh, már látom a hibát én is.

[Szerkesztve] -
csiga997
őstag
Beírtam ezt a kódot és a helyett hogy elvenné az első betűt, az egész szöveget törli

txtkijelzo = Right(txtkijelto, Len(txtkijelzo) - 1)
itt a teljtes program :
Bővebben:� link
az nem lehet probléma, hogy egyszer kijelzőt egyszer meg kijeltőt írsz...?

-
F-ECT$
titán
még mindig enm jó a számológépem előjel megváltoztatója

A left működik (#180), a right meg nem

-
F-ECT$
titán
Beírtam ezt a kódot és a helyett hogy elvenné az első betűt, az egész szöveget törli

txtkijelzo = Right(txtkijelto, Len(txtkijelzo) - 1)
itt a teljtes program :
Bővebben:� link
Hülyeség, de így próbáltad már:
txt = Right ( txt , 1)
? -
F-ECT$
titán
köce így műxik, csak nem tom mi az a sok $ jel a kódodban?
Lehet, hogy hülyeség, de szvsz $=sztring.
-
csiga997
őstag
Lehet hogy láma kérdés, de még csak most kezdem a vb-t.
Hogy lehet egy szöveges változóból a karaktereket kitörölni egyesével hátulról?
pl.: asdf => asd => asb$=left$(a$,len(a$)-1)
-
F-ECT$
titán
ebből értem hog ymit akarsz

Az megvan, hogy OO programozás?
-
Goose-T
veterán
Ahogy észrevettem a parancsaik nagyon hasonlítanak. De azért nagyvonalakban leírhatnád mégis mit az alapvető különbségek.
A .NET objektumorientált, a 6.0 pedig csak annak látszik. Nincs időm most ecsetelni a különbségeket.
-
return.value
tag
Ahogy észrevettem a parancsaik nagyon hasonlítanak. De azért nagyvonalakban leírhatnád mégis mit az alapvető különbségek.
Az egyik .NET alapú, a másik pedig nem.

Evvel elmondtam az összes különbséget. -
Goose-T
veterán
Mi a különbség a VB6 és a VB.NET között?
Röviden: ég és föld.
[Szerkesztve] -
ollie
MODERÁTOR
Most fogok áttérni pascalról és kéne egy normális könyv. Én is láttam a kék könyvet, de a prog.hu-n semmi leírásszerű nem volt róla. Majd még körülnézek hátha van valmi hogy kb mi van benne + ienek, de ti is adhattok linket ha ráértek

Akkor már miért nem Delphi-t tanulsz?
-
sonar
addikt
Hy Tudtok ajánlani nekem valami jó Visual Basic 6 könyvet? Most fogom kezdeni ezt a nyelvet és kéne egy jó könyv.
[Szerkesztve]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 kiskapu
Új hozzászólás Aktív témák
-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- Új, bontatlan - Apple MacBook Air 13 M4 16/256GB - Sky Blue
- Új Dobozos ASUS VivoBook Go 15 Laptop 15,6" -20% Ryzen 5 7520U 16/512 Radeon Graphics FHD OLED
- Új HP ZBook Firefly 16 G10 Profi Tervező Vágó Laptop -50% i7-1355U 16/1TB FHD+ RTX A500 4GB
- Macbook Pro 16" A2485 2021 M1 MAX 32/1TB 32 GPU Astro (2) (39 ciklus 97% akku)
- Intel Core ULTRA 9 285K +32GB 7600MHz Patriot Viper XTREME 5 DDR5 kit! (Bolti ár: kb 600ezer Ft!)
- GYÖNYÖRŰ iPhone 11 Pro Max 64GB Space Gray -2 ÉV GARANCIA - Kártyafüggetlen, MS5236, 100% AKKSI
- BESZÁMÍTÁS! Apple iPhone 17 Pro 256GB mobiltelefon 2029-ig garanciával hibátlan működéssel
- Dobozos Új Dell Xps 15 9530 i7 13620h 16gb ram 1tb ssd intel uhd graphics+ Intel Arc A370M
- HIBÁTLAN iPhone 14 Pro Max 128GB Space Black - 2 ÉV GARANCIA - Kártyafüggetlen, MS5292
- Eladó Honor View 20 6/128GB fekete / 12 hó jótállás
Állásajánlatok
Cég: aiMotive Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest










![;]](http://cdn.rios.hu/dl/s/v1.gif)


