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

• cigam titán

  #2638

  #2637 cigam

  2015-05-20 12:16:01

  Ú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

  

  cigam

  titán

  #2637 cigam

  Bocs, azthittem a szöveg fájl is csv. Akkor viszont elég .readline-al beolvastatni soronként

• cigam titán

  #2637

  #2636 alfa20

  2015-05-20 11:24: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

  

  cigam

  titán

  #2636 alfa20

  A Split megoldás lehet a beolvasott szöveg szétszabdalására.

  A keresésre pedig az Array.IndexOf használata adhat megoldást.

• cigam titán

  #2635

  #2634 sztanozs

  2015-05-11 15:08: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

  

  cigam

  titán

  #2634 sztanozs

  Nem probléma, c#-ban is megcsináltam, de ott se jött össze
  Köszi a mintát , este kipróbálom.

• cigam titán

  #2633

  #2632 cigam

  2015-05-11 13:58: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

  

  cigam

  titán

  #2632 cigam

  Termeszetesen nem listbox, hanem picturebox ...

• cigam titán

  #2632

  #2631 sztanozs

  2015-05-11 11:59:56

  Ú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

  

  cigam

  titán

  #2631 sztanozs

  Addig eljutottam, hogy nem írom ki újra a szöveget 1 pixellel feljebb, mert ez vmiért ette a procit, az egyik mag 100%-on pörgöt.
  Most átalakítom a szöveget bitmap képpé, és ezt a képet pöckölöm pixelenként. A prociterhelés már elfogadható 20% körül mocorog, szóval nem a proci fogja vissza a scroll sebességét, de még mindég nem az igazi.

  3 dolog jutott eszembe:
  - Nem az a baj, hogy a StudioComunity Edition-ban fordítom le, ezért nem natív Win32 app lesz, hanem "csak" egy .NET program?

  -Ahogy nézem a WPF programok a csilivilire vannak kihegyezve. Ha abban próbálnám lekódolni, megszünne a villogás?

  - Nem lehet hogy az a baj, hogy a listbox-ot tologatom? Úgy is lehetne, hogy a listbox marad fixen, és benne a képet tolom felfele? Mintha a listbox egy ablak lenne, amit mögött elhúzom a képet.

• cigam titán

  #2630

  #2629 sztanozs

  2015-05-10 21:54:05

  Ú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

  

  cigam

  titán

  #2629 sztanozs

  Köszi az irányítást! Anno ZX81-en írtam azt, hogy 10 goto 20, és azóta hány év telt el...
  Most pl. ott akadtam el, hogy villog a "scroll". (A form-on belül egy imagebox-ot tologatok pixelenként, és az időzítéssel szabályozom a scroll sebességét)

  Próbáltam a doublebuffer-t beszűrni, de vagy rosszul csináltam(ezt is), vagy nem segít.
  Gondolom a directx-es abla(időzítés?) segítene a dolgon, de ahogy néztem nincs benne a directx lehetősége, csak c++-on és ott is valami fejlesztői fiókot akar tőlem.

  Én bénázok, vagy ezzel az ingyenes verzióval tényleg nem lehet directx-es applikációt gyártani?

• cigam titán

  #2628 2015-05-09 20:12: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

  

  cigam

  titán

  Már majdnem működik a program, csak a lényeget nem tudja

  Pl. a szövegosztályok metódusait (ha jól tippelek így hívják őket), miért nem hagyja békén?
  Pl. a szöveg = left(szöveg,4)-re hibát jelez, mert őszerinte a Left () az a baloldali éltől való távolság pixelben. (ha jól értettem azt amire panaszkodik)

• cigam titán

  #2627

  #2626 sztanozs

  2015-05-09 12:05: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

  

  cigam

  titán

  #2626 sztanozs

  Jogos, ígyy már minden oké:
  IO.File.ReadAllLines(openFile.FileName, System.Text.Encoding.Default)

• cigam titán

  #2625

  #2624 sztanozs

  2015-05-09 10:32: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

  

  cigam

  titán

  #2624 sztanozs

  Köszi! Működik

  Akkor az éketes szöveget karakterenként csereberélgessem, vagy van gyorsabb, 1xübb módszer?

• cigam titán

  #2623 2015-05-08 18:44:55

  Ú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

  

  cigam

  titán

  Amikor a File.ReadAllLines-al feltöltök egy tömböt, akkor hogyan tudom megállapítani, hogy hány elemes lett a tömb? Magyarul hány sort olvasott be.

  A manuel azt is írja, hogy automatice felismeri a karakterkódolást, ehhez képest a hosszú ékezetes magánhangzók problémásak.

  Egy notepaddal írt szöveget olvasnék be.

• cigam titán

  #2621

  #2620 martonx

  2015-05-07 13:52:48

  Ú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

  

  cigam

  titán

  #2620 martonx

  A form1-en a keypreview true-ra van állítva.

• cigam titán

  #2619 2015-05-07 12:37: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

  

  cigam

  titán

  Mindjárt bele is futottam az első problémába:
  Public Class Form1
  ' A konyvtar változóban tárolom el, hogy melyik könyvtárban fut a program.
  Dim konyvtar As String = Application.StartupPath
  
  ' Feltölti a fájl listát a .txt fájlokkal
  Private Sub Fajllistafeltoltes()
  Dim dir As New IO.DirectoryInfo(konyvtar)
  For Each fajl As IO.FileInfo In dir.GetFiles
  If fajl.Extension = ".txt" Then
  ListBox1.Items.Add(fajl)
  End If
  Next
  ListBox1.SetSelected(0, True)
  End Sub
  
  ' Figyeli a lenyomott gombokat
  Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
  Select Case e.KeyCode
  Case Keys.Enter
  MsgBox("Segítség!!!")
  End Select
  End Sub
  
  ' Indul a program
  ' - betölti a fájl listát
  
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  
  Fajllistafeltoltes()
  
  End Sub
  
  End Class

  Miért kell belekattintani a listbox-ba, hogy észrevegye az ENTER leütését?

• cigam titán

  #2617

  #2616 martonx

  2015-05-06 19:51:02

  Ú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

  

  cigam

  titán

  #2616 martonx

  Már vagy 20 perce telepít ... Nem túl biztató... RapidQ-t csak kicsomagolom klikk, és működik. Eddig 0:1

• cigam titán

  #2614 2015-05-06 13:41: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

  

  cigam

  titán

  64bites W8.1-re felmegy a VB2010express? Vagy inkább a VSCommunity-t érdemes felrakni?

• cigam titán

  #2512

  #2511 sztanozs

  2014-09-24 17:25:48

  Ú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

  

  cigam

  titán

  #2511 sztanozs

  Köszi! Tanulmányozom...

• cigam titán

  #2510

  #2509 sztanozs

  2014-09-24 08:41: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

  

  cigam

  titán

  #2509 sztanozs

  Köszi!
  Akkor ezzel azt is letudom mérni,hogy maga a program, ill. 1-1 szubrutin/funkció mennyi idő alatt fut le?

• cigam titán

  #2507

  #2506 sztanozs

  2014-09-23 15:09:48

  Ú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

  

  cigam

  titán

  #2506 sztanozs

  VB2010-el bírkózok, és nagyon kezdő vagyok.
  Szöveges változóba tároljam le, és csak vonjam ki belőle az aktuális időt?
  stopperido=startido$-time(now)
  Vagy nekem kell kisakkozni a perc, másodperc értékekből?

• cigam titán

  #2505

  #2504 sztanozs

  2014-09-23 13:38:42

  Ú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

  

  cigam

  titán

  #2504 sztanozs

  Ha 100ms-onként fut le, az mennyivel jobb?
  Úgy érted, hogy a start pillanatában elmentem az aktuális időt, és a timer evenben az aktuálisból kivonom?Van olyan változótípus, hogy "idő"?

• cigam titán

  #2503

  #2500 sztanozs

  2014-09-23 08:19:45

  Ú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

  

  cigam

  titán

  #2500 sztanozs

  Egy mezei timer-t húztam be és 1000-re tekerve másodpercenként számolom az idő múlását.

• cigam titán

  #2499 2014-09-22 20:53: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

  

  cigam

  titán

  Csináltam egy egszerü stoppert, de 5 perc alatt ~2mp-et késik.
  Egyszerre indítom a telefon stopperével, és 5 perc múlva már 2mp-el kevesebbet mutat, mint a telefon.

  Van valami pontosító trükk, vagy ez ilyen? (Esetleg a telefon stoppere csal ennyit?)

• cigam titán

  #2427

  #2414 cigam

  2014-03-15 11:45: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

  

  cigam

  titán

  #2414 cigam

  Hogyan tudnám optimalizálni a dolgot, hogy pl. a reset-et ne keljen újra lekódolni?
  ...
  If e.KeyCode = Keys.F3 Then
  perc = "00"
  masodperc = "00"
  idoszoveg = "00:00"
  ido.Text = idoszoveg
  End if
  ....
  Private Sub resetgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetgomb.Click
  perc = "00"
  masodperc = "00"
  idoszoveg = "00:00"
  ido.Text = idoszoveg
  End Sun

  Vagyis milyen parancsal tudom meghívni a "resetgomb_Clik" rutint?
  If e.KeyCode = Keys.F3 Then resetgomb_Click()?

• cigam titán

  #2424

  #2423 bepken

  2014-03-15 10:50: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

  

  cigam

  titán

  #2423 bepken

  Nem, ez engem is zavar tegnap óta

  Vissza akarom kapni a régi jó BASIC nyelvet "visual" nélkül. Eszméletlen miket csináltunk anno a a 8bites otthoni gépekkell...

  martonx

  Nem valószínű, hogy továbblépek. Az otthoni apróságok, és kissebb céges, a munkámat megkönnyítő programocskákat faragok a magam szórakoztatására. Ez a stopper sem több mint 20-30 sor, mégis elvarázsol mire (vagyok) képes.
  A továbblépés azért is kétséges, mert pénzt nem adok értük, és nem is keresek velük. Szórakozásnak meg pöttyet drágák, és tényleg nem használnám ki. Jelenleg elég távolinak tűnik, hogy az VBexpress korlátaiba ütközzek. Bár kíváncsi vagyok, hogy egy WindowsPhone program, (pl. ez a stopper) mennyivel bonyolultabb.

• cigam titán

  #2421

  #2420 martonx

  2014-03-14 21:41:45

  Ú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

  

  cigam

  titán

  #2420 martonx

  Köszi a tippeket! Majd csak kitanulom ...

• cigam titán

  #2419

  #2418 cigam

  2014-03-14 20:39:20

  Ú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

  

  cigam

  titán

  #2418 cigam

  Közben szintén a properties ablakban megtaláltam a keypreview-et, de már true-ra állítottam

• cigam titán

  #2418

  #2417 bepken

  2014-03-14 20:32: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

  

  cigam

  titán

  #2417 bepken

  a Form_Load részhez?
  1 hete ismerkedem a VB2010expressel, semmi nem evidencia.

  Viszont most megint átnéztem jobboldalt a properties ablakban a "Form1 System.Windows.Forms.Form" listájában a "KeyDown"-hoz tudtam társítani az "ido_KeyDown" szubrutint, és most működik!

  - A form load részt hol találom, és a program "melyik része" ez?
  - Ez a "Form1 System.Windows.Forms.Form" micsuda?

• cigam titán

  #2416

  #2415 martonx

  2014-03-14 16:34:11

  Ú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

  

  cigam

  titán

  #2415 martonx

  Hiába ütöm le az F1-et, nem indul el a stopper.
  A form billentyűfigyelését hol kell beállítani?

• cigam titán

  #2414 2014-03-14 13:29: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

  

  cigam

  titán

  Csináltam egy stoppert. Azt szeretném, hogy billentyűzettel is lehessen vezérelni, de nem tudom hogyan. Amit találtam példakódot nem működik:

  Public Class Form1
  Dim perc As String = "00"
  Dim masodperc As String = "00"
  Dim idoszoveg As String = "00:00"
  
  Private Sub ido_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ido.KeyDown
  
  If e.KeyCode = Keys.F1 Then Timer1.Start()
  End Sub
  Private Sub startgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startgomb.Click
  Timer1.Start()
  End Sub
  
  Private Sub stopgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopgomb.Click
  Timer1.Stop()
  End Sub
  
  Private Sub resetgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetgomb.Click
  perc = "00"
  masodperc = "00"
  idoszoveg = "00:00"
  ido.Text = idoszoveg
  End Sub
  
  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  masodperc += 1
  If masodperc = "60" Then
  masodperc = "0"
  perc += 1
  If perc < 10 Then perc = "0" & perc
  End If
  If masodperc < 10 Then masodperc = "0" & masodperc
  idoszoveg = perc & ":" & masodperc
  If perc = "100" Then
  perc = "00"
  masodperc = "00"
  idoszoveg = "00:00"
  End If
  ido.Text = idoszoveg
  End Sub
  End Class

• cigam titán

  #2389

  #2388 vilag

  2014-02-19 18:51: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

  

  cigam

  titán

  #2388 vilag

  Mert karaktert vár, te pedig egy számot dobsz bele?
  usortrim=12
  "a"+"b"+usortrim=?
  "a"+"b"+str(usortrim)="ab12"

• cigam titán

  #2376

  #2372 sztanozs

  2014-02-18 11:53: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

  

  cigam

  titán

  #2372 sztanozs

  Köszi! El is magyarázod, hogy mit miért?

• cigam titán

  #2371 2014-02-15 11:14:17

  Ú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

  

  cigam

  titán

  Ismerkedem a VBExpress-el, és belefutottam egy kérdésbe: Amikor a lenti kóddal hozzáadok egy új fület, hogyan adok az új fülhöz egy, a fül sorszámával megegyező nevü szövegdobozt?

  Dim ujful As New TabPage
  ujful.Text = "szöveg " & (TabControl1.TabPages.Count + 1)
  TabControl1.TabPages.Add(ujful)
  ' ide kéne az as varázskód ami a fülhöz hozzáadja a szovegelosorszam nevü RichTextBox-ot
  Dim "szovegdoboz" & (TabControl1.TabPages.Count) As New RichTextBox
  'Átváltok az új fülre
  TabControl1.SelectedTab = (ujful)

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