Új hozzászólás Aktív témák

• VIC20 őstag

  #1062

  #1058 Jester01

  2008-11-18 20:06:37

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VIC20

  őstag

  #1058 Jester01

  #1058 Jester01

  Nem lehet, hogy 1-el kezdődik az indexelés? Vagyis a SortKey=1 beállítást próbáltad?

  Elmondom, hogy is van ez nálam.

  Van ugye a formon egy ListView vezérlő, ami eléggé el nem ítélhető módon a ListView1 nevet viseli.

  Az inicializáló részben a következők történnek:

  ListView1.ColumnHeaders.Add 1, , "Címke", 900
  ListView1.ColumnHeaders.Add 2, , "Leírás", 8000
  ListView1.ColumnHeaders.Add 3, , "Típus", 5000
  ListView1.ColumnHeaders.Add 4, , "Dátum", 1500

  Vagyis kap négy oszlopot. (Az első név félrevezető: a címke valójában a sorszámot jelenti.)

  Ezeket a következőképpen töltöm fel.

  'A listview vezérlő feltöltése
  If Tombmeret > 0 Then
  For i = 1 To Tombmeret
  If AdatBazis(i).hasznalt = True Then
  a$ = "A" & Str(i) 'Sajnos számot még füzér alakban sem fogad el a hülye listview vezérlő, ezért egy betű kell elé. De ez komoly, még str(i)-t sem enged magába tölteni.
  FoAblak.ListView1.ListItems.Add , a$, Str(i)
  FoAblak.ListView1.ListItems(a$).SubItems(1) = Trim(AdatBazis(i).leiras)
  FoAblak.ListView1.ListItems(a$).SubItems(2) = Tipus_szoveggel(AdatBazis(i).tipus)
  FoAblak.ListView1.ListItems(a$).SubItems(3) = AdatBazis(i).datum
  End If
  Next i
  End If

  A rendező rész a következő:

  Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)

  Dim a As Integer

  a = ColumnHeader.Index - 1

  ListView1.SortKey = ColumnHeader.Index - 1

  If ListView1.SortKey = a Then
  If ListView1.SortOrder = lvwAscending Then
  ListView1.SortOrder = lvwDescending
  ElseIf ListView1.SortOrder = lvwDescending Then
  ListView1.SortOrder = lvwAscending
  End If
  End If

  ListView1.Sorted = True
  End Sub

  Ezzel vidáman rendez pl. dátum szerint is oda-vissza, de az első oszlop (ami a sorszám lenne) a szokásos hibát produkálja: a 10 nem a 9 után jön, hanem az 1 után (ABC szerinti rendezés).

  Mit lehet tenni?

• sonar addikt

  #1061

  #1060 Jester01

  2008-11-18 18:35:07

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sonar

  addikt

  #1060 Jester01

  #1060 Jester01

  Using the WinHttpRequest COM Object

  Kösz, átrágom magam rajta

• sonar addikt

  #1059

  #1055 Jester01

  2008-11-18 14:27:10

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sonar

  addikt

  #1055 Jester01

  #1055 Jester01

  Ha nem muszáj böngészőben meg is mutatni az oldalt, akkor én eleve a visszaküldött választ generálnám kódból.

  Nem muszáj, de melyik vezérlővel gondoltad?

• VIC20 őstag

  #1057

  #1056 Jester01

  2008-11-18 11:03:35

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VIC20

  őstag

  #1056 Jester01

  #1056 Jester01

  Már régen basiceztem, de nézd meg nem lehet-e az oszlop típusát számmá alakítani. Vagy ha nem nagyon ronda, akkor balról pótold ki nullákkal a számokat.

  Köszi a választ!
  Hogyan gondoltad az oszlop típusát számmá alakítani?

  A súgó azt mondja, a SortKey tulajdonságra, hogy:

  Setting:
  0 Sort using the ListItem object's Text property.
  > 1 Sort using the subitem whose collection Index is specified here.

  Nálam a rekordszámnál 0-ra jön ki a setting, mivel az van az első oszlopban, tehát szöveg alapján fog rendezni. A többi esetre nem mondja ki, de nem lehet, hogy ott is a text tulajdonság alapján rendez?

  Akkor mit tehetek? Nekem kell megírni a rendező algoritmust, az majd törli a vezérlő teljes tartalmát, majd feltölti "kézzel" az elemeket?

• [HUN]Zolee őstag

  #803

  #802 Jester01

  2007-02-18 16:17:19

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #802 Jester01

  #802 Jester01

  Rekurzív megoldás: egyszerûen kitörlöd a stringbõl.
  Hatékonyabb megoldás: csinálsz egy boolean tömböt
  

  Yah. Vágom

• [HUN]Zolee őstag

  #800

  #799 Jester01

  2007-02-16 20:35:13

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #799 Jester01

  #799 Jester01

  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.

  őőő, nem teljesen világos a módszered.
  
  hogy szűröd ki azokat a betűket amiket már kiválasztottál?
  
  

• palerNEW tag

  #776

  #775 Jester01

  2007-01-19 20:56:59

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  palerNEW

  tag

  #775 Jester01

  #775 Jester01

  A felsorolt 3at éppenséggel elég könnyű megkülönböztetni.

  Akkor jól féreértelmeztem.
  
  Szóval pl. VB6 ill. .Net-be írt programokat exe állományba is jól meg lehet különböztetni??

• Polyák tag

  #767

  #766 Jester01

  2007-01-18 05:47:51

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Polyák

  tag

  #766 Jester01

  #766 Jester01

  Ezt egy kb. 4 éves projektbõl bányásztam elõ, azóta szerencsére nem láttam VBt
  
  A TrayInitialize után meg kell hívni a TrayAddIcon-t, attól lesz ikon. Kilépés elõtt ezt törölni kell.

  Hali!
  Van ez a sor:
  TrayAddIcon(ByVal lID As Long, ByRef sTip As String, ByVal hIcon As Long)
  
  tehát igy néz ki mikor előhívom:
  TrayAddIcon lID, sTip, hIcon
  
  de:
  mi az az lID és az sTip? a hIcon-hoz az ikon elérérsi utvonala kell?
  
  Köszi előre is!

• Polyák tag

  #765

  #763 Jester01

  2007-01-17 21:12:58

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Polyák

  tag

  #763 Jester01

  #763 Jester01

  VB6-hoz nekem van egy régi modulom: [link]
  
  MOD: jobbgombos dolgot nem csinál, csak duplaklikkre előhozza az ablakot.
  
  [Szerkesztve]

  Hali!
  Köszi!
  Ezt bogarászom éppen, de nem jutottam sokra.
  Ezekkel probáltam: TrayInitialize Form1, meg: TaskbarShow
  de nem sikerült, én értettem félre valamit? Engem ezek a modulok mindig szivatnak. Nem értem hogy hogy hivatkozzak most erre? Tudnál nekem segíteni? Meg amugy általánosságban a modulokban tudnál nekem segíteni?
  Köszi előre is!

• sonar addikt

  #671

  #670 Jester01

  2006-10-25 17:00:21

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sonar

  addikt

  #670 Jester01

  #670 Jester01

  Pedig működik. Nekem régi vb6os kódban van ilyen bit tesztelés:
  
  If (RS.Fields(3) And (2 ^ TableSet)) = 0 Then

  olli & Jester01
  Valóban működik, csak én voltam a béna
  

• Maza75 csendes tag

  #659

  #658 Jester01

  2006-10-03 09:48:25

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Maza75

  csendes tag

  #658 Jester01

  #658 Jester01

  Az adatbázis oszlop nem string típusú szerintem. Magyarul ezt próbáld ki:
  Set rs = CurrentDb.OpenRecordset(''select * from Termék where Azonosító = '' + CStr(azon), dbOpenDynaset)

  KÖSZÖNÖM! Így már működik! Végre!

• Maza75 csendes tag

  #657

  #656 Jester01

  2006-10-02 21:18:35

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Maza75

  csendes tag

  #656 Jester01

  #656 Jester01

  Ha autoincrement akkor szerintem nem string.

  Igen, tudom, hogy nem string típusú, pont ezért alakítom át az Str függvénnyel stringgé, de uccsem jó!

• Goose-T veterán

  #639

  #638 Jester01

  2006-09-15 18:12:41

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Goose-T

  veterán

  #638 Jester01

  #638 Jester01

  Megvalósítás: az oprendszer megfelelő szolgáltatásának igénybevétele.
  Nem többszálú pollozás, mert az erőforráspazarlás.

  Az oprendszer meg eleve többszálú.

• Goose-T veterán

  #637

  #636 Jester01

  2006-09-15 17:55:15

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Goose-T

  veterán

  #636 Jester01

  #636 Jester01

  Nem kell. .NET esetén a FileSystemWatcher osztályt lehet erre használni.

  Nem értek a .net-hez, csak az elméleti megvalósíthatóságban gondolkoztam. Valószínűleg az az osztály is többszálú programozást valósít meg, csak a programozótól elrejtve.

• Polyák tag

  #629

  #628 Jester01

  2006-09-09 09:23:22

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Polyák

  tag

  #628 Jester01

  #628 Jester01

  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.

  Köszi.
  Az este folyamán rájöttem mind a 3 kérdésremre. Kreáltam probaprogit oszt kifundáltam mindent. Minden sikerült és köszönom neked is és ollie-ek is!
  
  Ezek amugy hogy működnek és mire jók?
  
  set fso = CreateObject(''Scripting.FileSystemObject'')
  set f = fso.GetFile(filename);

• sonar addikt

  #583

  #581 Jester01

  2006-07-19 10:54:36

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sonar

  addikt

  #581 Jester01

  #581 Jester01

  command()

  Müxik!
  THX
  Dim s As String
  
  s = Command
  MsgBox s
  És az exet így inditod, hogy sonar.exe /22222
  akkor
  s = /22222
  tehát beveszi az exe után írt szöveget, azt meg már mindenki úgy értelmezi ahogy akarja
  
  [Szerkesztve]

• sonar addikt

  #582

  #581 Jester01

  2006-07-19 07:43:58

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sonar

  addikt

  #581 Jester01

  #581 Jester01

  command()

  Úgy nézki ez jó lesz!
  Big big THX

• matekmatika tag

  #441

  #437 Jester01

  2006-05-12 17:00:49

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  matekmatika

  tag

  #437 Jester01

  #437 Jester01

  Kevered az excel munkalap függvényeket a vb függvényekkel. Mindazonáltal az IsNumeric-nek elvileg mennie kellene

  Az IsNumber-t ötletét a makrorögzítő adta, nekem fogalmam sem volt, hogy van ilyen (nekem magyar Office lévén SZÁM szerepelt a munkalap függvényében) Ergo: olyan nagyon rosszat nem írhattam. Az IsNumeric-et már a neten találtam, több helyen is, több példát, de nem jók. (Lehet Visual Basic.Net kell hozzá? ) Nem tudom.

• tkazmer addikt

  #416

  #415 Jester01

  2006-04-25 17:41:04

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  tkazmer

  addikt

  #415 Jester01

  #415 Jester01

  Igen, VB6, de szerintem ennek pont ugyanígy VB.NET alatt is mennie kellene.
  Ugye az említett dllt felraktad és beregisztráltad?
  Mit jelent, hogy ''nem ment''

  Persze, felraktam, és regeltem is. A nem ment alatt azt értem, hogy deboggolni ugyan tudta a fordító, de én a kódot egy gomb eseménykezelőjébe írtam be, és amikor ráclickeltem, akkor kezdett el próblémázni.
  
  Mostanra már sikerült megcsinálnom, valszeg az előző regeléssel lehetett a baj, mert unregeltem, aztán ismét regeltem, és így már ok

• tkazmer addikt

  #414

  #412 Jester01

  2006-04-24 19:42:24

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  tkazmer

  addikt

  #412 Jester01

  #412 Jester01

  Mondom, hogy ott a tesztprogi, miért nem azt nézed? Idemásolom neked, parancsolj:
  
  Dim KeyLeds as Object
  Set KeyLeds = CreateObject(''Key.Leds'')
  KeyLeds.LedOn(''NUMLED'')

  Ez VB6 kód? Mert én kipróbáltam VB.Net-ben, és nem ment
  
  Azt én sem értem, hogy mire jó, de hát csak kipróbáltam, ha már van

• sekli addikt

  #411

  #410 Jester01

  2006-04-22 15:13:30

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sekli

  addikt

  #410 Jester01

  #410 Jester01

  Ott van a tesztprogi mellette, nézd meg. Elõször is létre kell hozni egy példányt és annak a metódusát kell meghívni.

  hát egy kicsit fejtsd ki pls...

• lapa veterán

  #403

  #401 Jester01

  2006-04-07 21:02:37

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  #401 Jester01

  #401 Jester01

  Én aztán nem értek hozzá, de az oldalon amit fentebb linkeltem többek között ezt írják:
  The Range object's CurrentRegion property is not the best either because non-contiguous or incomplete records can cause an inaccurate reading of the number of used rows.

  noigen, Bob fella megmondta a frankót

• lapa veterán

  #402

  #401 Jester01

  2006-04-07 20:52:38

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  #401 Jester01

  #401 Jester01

  Én aztán nem értek hozzá, de az oldalon amit fentebb linkeltem többek között ezt írják:
  The Range object's CurrentRegion property is not the best either because non-contiguous or incomplete records can cause an inaccurate reading of the number of used rows.

  ofkorze. de #392 óta még jobb nem született, legalább nem egyenként nézősös. jobb megoldást az excel autokijelölései sem szoktak adni...
  
  upd: sorry benéztem, most nézem a linked...
  
  [Szerkesztve]

• MartinIsti csendes tag

  #399

  #398 Jester01

  2006-04-07 08:11:52

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MartinIsti

  csendes tag

  #398 Jester01

  #398 Jester01

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

  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.

• MartinIsti csendes tag

  #397

  #396 Jester01

  2006-04-06 16:26:57

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MartinIsti

  csendes tag

  #396 Jester01

  #396 Jester01

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

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

• tkazmer addikt

  #380

  #376 Jester01

  2006-03-28 18:11:00

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  tkazmer

  addikt

  #376 Jester01

  #376 Jester01

  Ez eszembe sem jutott
  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]

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

• [HUN]Zolee őstag

  #379

  #378 Jester01

  2006-03-27 22:16:34

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #378 Jester01

  #378 Jester01

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

  köszi

• tkazmer addikt

  #373

  #372 Jester01

  2006-03-25 16:57:14

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  tkazmer

  addikt

  #372 Jester01

  #372 Jester01

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

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

• tkazmer addikt

  #371

  #368 Jester01

  2006-03-24 14:35:50

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  tkazmer

  addikt

  #368 Jester01

  #368 Jester01

  TextBox1.Text= WebBrowser1.Url.AbsoluteUri
  Esetleg ToString
  
  [Szerkesztve]

  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?

• tkazmer addikt

  #367

  #366 Jester01

  2006-03-23 16:38:12

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  tkazmer

  addikt

  #366 Jester01

  #366 Jester01

  a fordító nem fogadta el
  
  Na és mégis mire panaszkodik?

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

• lapa veterán

  #329

  #328 Jester01

  2005-12-01 18:13:40

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  #328 Jester01

  #328 Jester01

   

          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.

  tehát eszerint args = ''valami'';''valamimás'' , ha a parancs cmdline.exe valami valamimás
  
  csak hogy jól értem-e. és akkor args(index) lesznek az egyes paraméterek? még emésztem de köszi, helloworld után jövök.

• [HUN]Zolee őstag

  #325

  #324 Jester01

  2005-11-30 23:23:38

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #324 Jester01

  #324 Jester01

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

  Uhh. részvét.
  Én most megyek fexek. majd holnap d.u jövök.

• [HUN]Zolee őstag

  #323

  #322 Jester01

  2005-11-30 23:17:15

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #322 Jester01

  #322 Jester01

  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.

  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]Zolee őstag

  #321

  #320 Jester01

  2005-11-30 23:05:06

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #320 Jester01

  #320 Jester01

  #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

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

• [HUN]Zolee őstag

  #319

  #318 Jester01

  2005-11-30 22:38:04

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #318 Jester01

  #318 Jester01

  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ó
  

  é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]Zolee őstag

  #317

  #316 Jester01

  2005-11-30 22:22:25

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #316 Jester01

  #316 Jester01

  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]

  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]Zolee őstag

  #315

  #314 Jester01

  2005-11-30 21:53:39

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #314 Jester01

  #314 Jester01

  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)

  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]Zolee őstag

  #313

  #312 Jester01

  2005-11-30 21:32:43

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #312 Jester01

  #312 Jester01

  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.

  ya télleg .
  
  
  
  
  [Szerkesztve]

• [HUN]Zolee őstag

  #311

  #310 Jester01

  2005-11-30 20:31:16

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #310 Jester01

  #310 Jester01

  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)

  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]Zolee őstag

  #309

  #308 Jester01

  2005-11-30 19:55:04

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #308 Jester01

  #308 Jester01

  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]

  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 .

Új hozzászólás Aktív témák