játékfejlesztés.hu
FórumGarázsprojectekCikkekSegédletekJf.hu versenyekKapcsolatokEgyebek
Legaktívabb fórumozók:
Asylum:    5440
FZoli:    4892
Kuz:    4455
gaborlabor:    4449
kicsy:    4304
TPG:    3402
monostoria:    3284
DMG:    3172
HomeGnome:    2919
Matzi:    2519

Pretender:    2498
szeki:    2440
Seeting:    2306
Geri:    2185
Orphy:    1893
Joga:    1791
Bacce:    1783
MaNiAc:    1735
ddbwo:    1625
syam:    1491
Frissebbek | Korábbi postok
[1] > 2 < [3] [4] [5] [6] [7]
Bacce - Bacce | 1783 hsz       Online status #126285   2010.01.13 06:57 GMT+1 óra  
meg a transparentblt eléggé lassú is, szóval komlyabb dolgokra nem való, bár ezt a 0,0-t nem tudom, sztem nézz egy kicsit jobban utána mert erősen kétlem.
A stretchblt az mire való? Gondolom átméretezni valami képet.
A maszkolástól meg nem kell félni.
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Bitsculptor - Tag | 188 hsz       Online status #126280   2010.01.13 06:27 GMT+1 óra  
Lehet, hogy nekem is kéne írnom egy saját osztályt a problémára. Jelenleg egy letöltött (má nemtom honnan) bitmap class-t használok ami ezeket is tartalmazza, meg hozzáadtam pár grafikai funkciót (Bitblt, TransparentBlt, StretchBlt, GetPixel, SetPixel). Attól tartok sokminden van itt ami nekem nem is kell, csak a memóriát meg helyet foglalja.. viszont amit szeretnék, hogy egy picturebox-on levő háttérképen tudjak transparent sprite-okat mozgatni, mégpedig minden nemű cls vagy refresh vagy autoredraw nélkül.

A bitblt-el az a baj, hogy maszkolni kell ha átlátszó színt is akarsz hozzá, a transparentblt-el pedig az, hogy bár átlátszó a megfelelő szín, de csak akkor jelenik meg a teljes sprite, ha a bal felső sarka > 0,0.

Lehet kénytelen leszek maszkolni

   
Bacce - Bacce | 1783 hsz       Online status #126200   2010.01.12 08:44 GMT+1 óra  
Nekem akkor jött elő ilyen problémám mikor picturebox-okon relative nagy (3000x2000 px-es) képekkel zsonglőrködtem.
Aztán olvastam hogy érdemes úgy csinálni hogy megcímzed a memóriahelyet és egyenesen oda rakod fel a képet és nem a form-ba hívod be, minden rajzolást a memóriában végzel és csak a végeredményt rakod ki az ablakba és folyamatosan frissíted egy timerrel, így szükségtelen az autoredraw, ami egyszerűbb feladatokra tökéletes de bonyolultabb dolgoknál lehal tapasztalatom szerint.
Kód:
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
'Memóriából címzések törlése
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Ezekben érdemes kicsit elmélyedni. Én is az utóbbi pár hónapban ástam magam bele.
Szerk: Vagy stdPicture, de ezt így én még nem használtam, erről nem tudok nyilatkozni.

Ezt a hozzászólást Bacce módosította (2010.01.12 08:51 GMT+1 óra, ---)
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Bitsculptor - Tag | 188 hsz       Online status #126189   2010.01.12 07:09 GMT+1 óra  
Azon tűnődöm, vajon mitől lehet az, hogy egy programot elindítok x alkalommal és x+1 alkalomra azzal a hibaüzenettel kifagy, hogy "can't create autoredraw image".. feltételezem, hogy vmilyen buffer-t ki kéne üríteni, node melyiket? egy sima bitblt-et használó progiról van szó..

   
Bitsculptor - Tag | 188 hsz       Online status #126143   2010.01.11 12:12 GMT+1 óra  
nm

a me.show garantálja, hogy a program fókuszt kapjon, enélkül a form_load nem hív meg semmit, vagy nem rendesen.

Másik:
ha nem a form_load-ba írsz hanem...talán form_activate -be... van ilyen? mind1 vmi ilyesmi.

   
Bacce - Bacce | 1783 hsz       Online status #126140   2010.01.11 12:01 GMT+1 óra  
Besza... tényleg működik ez a me.show, soha nem jöttem volna rá.
Bár azóta letettem erről a megoldásról mert zabálja a procit, maradt az original timer control de azért köszi.
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Bitsculptor - Tag | 188 hsz       Online status #126138   2010.01.11 11:36 GMT+1 óra  
Lehet, hogy nagy hülyeség és látszólag nincs köze hozzá, de nekem vmikor megoldódnak az ilyen problémáim ha a legelső sorba beírom hogy me.show, meg az autoredraw-t enabled-re állítod.. nemtudom miért, de tényleg a timer-es dolgoknál meg minden ciklusszerűségnél működik.. bár most álmos vok és nem biztos hogy nem írtam hatalmas hülyeséget

   
Bacce - Bacce | 1783 hsz       Online status #126056   2010.01.10 05:38 GMT+1 óra  
Már visszabontottam a kódot az alapokig és a következő a probléma:
Ha Form_load-al indítanám ezt a "timerszerűséget" akkor nem csinál semmit, de ha valami más eseményhez kötöm, pl. click akkor meg megy szépen... nah, az a kérdés hogy hogyan tudnám ezt kiküszöbölni hogy kattintani keljen az indításnál?
Kód:
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim t1 As Long, t2 As Long

Sub RenderTimer()
t2 = GetTickCount
Do
DoEvents
t1 = GetTickCount
If (t1 - t2) >= 10 Then

'kóóóód

t2 = GetTickCount
End If
Loop
End Sub

Private Sub Form_Load()
RenderTimer
End Sub


Szerk: Más, melyik a gyorsabb? Bitblt mask-al vagy TransparentBlt szín kimaszkolva?
Előre is köszönöm a segítséget.

Ezt a hozzászólást Bacce módosította (2010.01.10 06:17 GMT+1 óra, ---)
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Bacce - Bacce | 1783 hsz       Online status #109374   2009.04.25 02:15 GMT+1 óra  
Nah nem éppen játékfejlesztés de hátha valaki tud segíteni...
OLE drag and drop... szövegeket szeretnék egy ablakból átdobálni más ablakokba...
namármost amikor pl. word-be dobom akkor rendben is van, de mikor pl a windows futtatás ablakába akkor két "macskaköröm" közé rakja.. de azt is csak akkor ha van a szövegben szóköz... jah, és egy fájlból olvassa be amúgy a szöveget, ott természetesen nincs macskaköröm... Bááh... már kattogok befele...
Szerk: Itt van ki lehet próbálni...
698-dobogep.zip

Ezt a hozzászólást Bacce módosította (2009.04.25 02:21 GMT+1 óra, ---)
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Asylum - Törzstag | 5440 hsz       Online status #102809   2009.01.17 07:00 GMT+1 óra  
Kód:
SELECT * FROM vonatok WHERE indulás > 12 AND indulás < 15;


viccet félretéve: ha adatbázisról van szó akkor érdemesebb az ö felületét használni;
de valahogy az az érzésem hogy nem ilyen egyszerü a helyzet szal pontosits pls
C++ fordítóval és macival alszom
http://darthasylum.blog.hu/
   
vologya - Tag | 17 hsz       Online status #102804   2009.01.17 05:12 GMT+1 óra  
Üdv

Segítség kellene!

Keresési algoritmust kell írnom, de halvány sejtelmem sincs, hogyan kezdjek hozzá. Tulajdonképpen a vonatok menetrendjéből kell kikeresnie (adatbázisból) az eggyes járatokat. Hasonló megoldás mint amit a MÁV, vagy nálunk a ZSR ELIS használ. Van valakinek valami ötlete, hogy mi lenne a leghelyesebb megoldás?

Előre is kösz a válaszokat!
   
Csizmás Kandur - Tag | 436 hsz       Online status #100131   2008.12.06 03:58 GMT+1 óra  
Van egy ilyenem:
Kód:
Public Function GetCount(Of TItem)(ByVal collection As IEnumerable(Of TItem), ByVal item As TItem) As Integer
    Return collection.Where(Function(q) q.Equals(item)).Count()
End Function


Ebből akarok ilyet csinálni:
Kód:
Public Function GetCount(Of TItem)(ByVal collection As IEnumerable(Of TItem), ByVal item As TItem) As Integer
    Return collection.Where(\q => q.Equals(item)).Count()
End Function


De nem megy. Van valami másik módszer, amivel lehet lambda kifejezést emulálni VB 9-ben?
dynamic calc = GetCalculator();
var sum = calc.Add(10, 20);
   
Csizmás Kandur - Tag | 436 hsz       Online status #99810   2008.11.29 10:01 GMT+1 óra  
Idézet
bmateusz :
Még szükség lehet erre is:
Form.KeyPreview = True
De egyébként jól mondod. Csak az új VB tényleg teljesen más, így nem biztos hogy menni fog, ebben a formájában.


VB.NET 9-ben megy:
Kód:
Public Class Form1

    Private _random As Random

    Public Sub New()
        InitializeComponent()

        Me.KeyPreview = True
        _random = New Random()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Location = New Point(_random.Next(0, Width), _random.Next(0, Height))
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.R Then
            Button1.Location = New Point(0, 0)
        End If
    End Sub

End Class
dynamic calc = GetCalculator();
var sum = calc.Add(10, 20);
   
Bacce - Bacce | 1783 hsz       Online status #99803   2008.11.29 08:08 GMT+1 óra  
Ha memóriába van rakva egy kép akkor arra tudok valahogy rajzolni, vagy rakjam ki először az ablakba és utána másoljam vissza?
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
bmateusz - Tag | 121 hsz       Online status #94516   2008.08.17 05:38 GMT+1 óra  
Még szükség lehet erre is:
Form.KeyPreview = True
De egyébként jól mondod. Csak az új VB tényleg teljesen más, így nem biztos hogy menni fog, ebben a formájában.

   
Bacce - Bacce | 1783 hsz       Online status #94499   2008.08.17 03:03 GMT+1 óra  
VB5-ben:
Kód:
Button1.left = int(me.width*Rnd)
Button1.top=int(me.height*rnd)
'Azé' van mit finomítani még de alapnak jó lesz.:)

Gondolom nem lehet nagyon más .net-ben sem.
A restart alatt mit értesz? A gomb helyét akarod az eredeti pozicióba állítani? Mert akkor
Kód:
Private Sub Key_down(Blah, blah,blah:))
If Keycode=VbkeyR then
'ide jön hogy hova rakja vissza a gombot.
end if
End sub
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
el3ktro - Tag | 35 hsz       Online status #94466   2008.08.16 12:38 GMT+1 óra  
még1 kérdés (kezdö vok nem kinevetni még ezt se tudom )
rivate Sub Button1_Click-ben hogy lehet hogy ha ráklikkelek a gombra akkor az random positionba menjen?? meg ha az R gombot nyomom restartol a progi

   
el3ktro - Tag | 35 hsz       Online status #94465   2008.08.16 12:31 GMT+1 óra  
bocsi de a WindowState-al müködik

   
bmateusz - Tag | 121 hsz       Online status #94464   2008.08.16 12:27 GMT+1 óra  
Abban nem tudom, de hamarabb is írhattad volna a verziódat

   
el3ktro - Tag | 35 hsz       Online status #94463   2008.08.16 12:21 GMT+1 óra  
nekem 2008van de csak a WindowState-t találtam

   
bmateusz - Tag | 121 hsz       Online status #94461   2008.08.16 12:15 GMT+1 óra  
6.0-ban:
Form
BorderStyle=0 (None)
WindowState=2 (Maximized)

   
el3ktro - Tag | 35 hsz       Online status #94460   2008.08.16 12:03 GMT+1 óra  
a MS Visual Basicbe hogy kell teljes képernyőt?

   
Robsoft - Tag | 345 hsz       Online status #92021   2008.07.07 07:17 GMT+1 óra  
Hát ha string-é konvertálod az int-et jóhogy referencia lesz belőle. Egyébként Asylum szerintem erre gondolt:
Kód:
public int a;
...
int b = a + 3;

"Warning 1 Field 'ConsoleApplication1.Program.a' is never assigned to, and will always have its default value 0"

Ellentmondana a .NET filozófiának, ha memória szemét lenne az a változóban és figyelmeztetés nélkül lefordítaná a fenti kódot, majd valami hülye eredménnyel menne tovább, mintha mi sem történt volna. Na ezt találja meg valaki egy nagy programban utólag.

Ezt a hozzászólást Robsoft módosította (2008.07.07 07:24 GMT+1 óra, ---)
 
Blog
 
   
vologya - Tag | 17 hsz       Online status #92011   2008.07.07 04:44 GMT+1 óra  
Ez csak VB. NET ben természetes! VB -ben nem, sőt ez volt az átka! Az Int csak addig érték típús, míg nemiratod ki valahová .ToString -el (bár ez csak egy a sok közül), ekkor automatikusan Boxingol és nemtudod kikerülni (automatikusan object lessz). Arra a kérdésre, hogy az Unboxing mikor történik meg, vagy a memóriában mint Int és mint Boxingolt Int szerepel -e, vagy GC vel meglehet -e szüntetni 4 iskolázáson sem kaptam választ. Nem okoskodom, csak a tapasztalataimat írom!
   
Robsoft - Tag | 345 hsz       Online status #91987   2008.07.07 01:33 GMT+1 óra  
.NET-ben nincs szükség deklaráláskor inicializációra ahhoz, hogy ne memória szemét legyen a referencia, vagy változó típusban. Teljesen természetes, hogy az int nulla a referencia pedig null lesz. Int az struktúra, vagyis érték típus, string már osztály, tehát referencia típus. Deklarálásnál inicializálni akkor kell, ha rögtön utána művelet végzés van az adott elemnél. Csakúgy int a; után nem lehet ++a-t írni, de int a = 23; után már igen. A boxing az most hogy is jött a képbe?
 
Blog
 
   
vologya - Tag | 17 hsz       Online status #91983   2008.07.06 22:35 GMT+1 óra  
Idézet
Asylum :
és az a nyelv hibája vagy a debil programozóé aki nemtudja megjegyezni, hogy deklaráláskor 0 ra inicializáljuk a változókat?
.
.




Joooj (most a .NET ről beszélek) ilyet csak az mondhat, aki nemprogramozott még VB NET -ben. Más dolog a deklarálás és más az inicializálás. Ha mond valamit a Boxing és az Unboxing akkor értjük miről van szó. A VB ben már maga egy String vagy Integer is objektum, ami magával hordoz egy csomó tulajdonságot. És hogy nemfigyelmeztet az elírásra? A Strict és az Option explicit mire való? Minden eggyes könnyv ezzel a 2 fogalommal kezdődik! Elismerem, hogy a régi (4,5,6) VB egy kalap sz@r volt, de a NETes re még a C-sek és a Java-sok sem szólnak semmi rosszat, legalábbis nálunk, ahol 300 fejlesztő dolgozik 9 platformon!
   
vologya - Tag | 17 hsz       Online status #88386   2008.05.29 22:42 GMT+1 óra  
Idézet
Laxika :
Lenne még1 kérdésem... :

Ezzel olvasok be egy filet:

[code] Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim path As String = "c:\karakterek" + txtNev.Text + ".txt"
.
.
.



Milyen VB-t használsz??? Ha .Net et, akkor nagyon egyszerű.

Private path As String = "c:\allomany.txt"

Dim text() As String
Dim items() As String

text = File.ReadAllLines(path) - ezzel beolvasod a teljes állományt

Majd:
Try

For i As Integer = 0 To text.Length - 1
items = Split(text(i), "=" - neked ide egyenlőségjel jön mivel ez a vágókarakter
aszöveg_értéke = items(0).ToString
aváltozó_értéke = items(1).ToString
Next i

Catch
MessageBox.Show("Valami nemjó"
End Try

Ja és trimmeld le és convertáld amire akarod.

Melóban használtam ezt a megoldást, csak ott saját object et tölrök vele. Elég gyors 6 mp alatt 28000 sort tud beolvasni és felvágni (soronként 8 válltozóval)

Ha valami nemtiszta, vagy kihagytam valamit szólj. (komplex programból szedtem ki)
   
beast - Törzstag | 1241 hsz       Online status #88380   2008.05.29 13:36 GMT+1 óra  
Egyébként úgy tűnik, hogy ImageBox-okkal nem lehet BitBlt-t használni, mivel az imagebox-oknak nincs hdc-jük.

   
Bacce - Bacce | 1783 hsz       Online status #88368   2008.05.29 06:58 GMT+1 óra  
Nem semmi.
Azért lehet ezt tovább is fűzni...
http://youtube.com/watch?v=XeXISSrIaJA
http://youtube.com/watch?v=VVF-gk61qA0
De nekem bitblt kell meg sima ablakban, nem táblázatban....
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
beast - Törzstag | 1241 hsz       Online status #88350   2008.05.29 01:56 GMT+1 óra  
Bacce - Bacce | 1783 hsz       Online status #88295   2008.05.28 09:57 GMT+1 óra  
Azon filóztam hogy hogyan lehetne megoldani Excel vb-jében egy játékot... az első problémám a timer hiánya volt. Ezt valahogy megoldottam, ott a linkben hogy hogy, ha valaki tud egy egyszerűbb vagy jobb megoldást akkor ne fogja magát vissza mert ezt így eléggé gánynak érzem. A másik a Bitblt.. mert persze ez sem olyan egyszerű mit én azt hittem.. szóval a kérdés hogy hogyan tudnék egy rakat api nélkül dc-re szert tenni, vagy nincs más megoldás?
ezeket barmolgattam össze.
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Bacce - Bacce | 1783 hsz       Online status #85145   2008.04.14 06:21 GMT+1 óra  
sztem a .Net-re gondolt aki mondta, és nem a nyelvre hanem a felfogására, arra hogy hogy épül fel, stb.
Ez egy speciális eset volt hogy nem szólt hogy baj van, amúgy nem szokott előfordulni sem az elgépelés, sem a nem szólás. Ezért is voltam bajban. Meg ha egy több ezer soros programra készülsz akkor ne ilyen gány módon csinálod vb-ben sem mint ahogy én próbálkoztam, és akkor minden oké.
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
beast - Törzstag | 1241 hsz       Online status #85129   2008.04.14 03:27 GMT+1 óra  
Idézet
Asylum :
maga a nyelv nem rossz de hogy modernebb mint a c++ az enyhe túlzás.


Ezt már nem én mondtam, s nem is értek vele egyet.

   
Asylum - Törzstag | 5440 hsz       Online status #85127   2008.04.14 03:15 GMT+1 óra  
maga a nyelv nem rossz de hogy modernebb mint a c++ az enyhe túlzás.
C++ fordítóval és macival alszom
http://darthasylum.blog.hu/
   
beast - Törzstag | 1241 hsz       Online status #85120   2008.04.14 01:54 GMT+1 óra  
Idézet
Asylum :


Több mint 4 évet programoztam VB-ben (nem, nem ebben a .NET-es szarban), és mosolygok a te meglátásaidon. Azért nem minden fekete-fehér.

   
Asylum - Törzstag | 5440 hsz       Online status #85113   2008.04.14 01:32 GMT+1 óra  
C++ fordítóval és macival alszom
http://darthasylum.blog.hu/
   
Robsoft - Tag | 345 hsz       Online status #85108   2008.04.13 23:11 GMT+1 óra  
Idézet
Asylum :
és az a nyelv hibája vagy a debil programozóé aki nemtudja megjegyezni, hogy deklaráláskor 0 ra inicializáljuk a változókat?

Egyébként pont ezért nem használok vc++ t, hogy ne rakja be a kezdöértéket de már eztis mondtam vhol.

Ja és én arra mondtam ezt a gúnyos megjegyzést, hogy a 10-20 ezer soros vb kódódban elírsz egy betűt és a fordító nem szól, hogy undeclared identifier..hogy a frászba találod te meg a hibát???egy élet is elmegy erre.... (most akkor nem konrkétan vb hanem mondjuk darkbasic (már megint ))

ms és szabványok?


Jólvan mester nem tudok erre már mit írni.
 
Blog
 
   
gaborlabor - Moderátor | 4449 hsz       Online status #85107   2008.04.13 21:03 GMT+1 óra  
[off]
Ők könnyen kapnak sok pontot a Buherátor Tesztben:

0477 Töltöttél már 10 percet azzal, hogy megtalálj egy gépelési hibát a programkódban?
0478 ... több mint egy órát?
0479 ... több mint egy napot?
0480 ... több mint egy hetet?
0481 ... Az első ember, akinek megmutattad, rögtön megtalálta?

[/off]

   
Asylum - Törzstag | 5440 hsz       Online status #85105   2008.04.13 16:43 GMT+1 óra  
és az a nyelv hibája vagy a debil programozóé aki nemtudja megjegyezni, hogy deklaráláskor 0 ra inicializáljuk a változókat?

Egyébként pont ezért nem használok vc++ t, hogy ne rakja be a kezdöértéket de már eztis mondtam vhol.

Ja és én arra mondtam ezt a gúnyos megjegyzést, hogy a 10-20 ezer soros vb kódódban elírsz egy betűt és a fordító nem szól, hogy undeclared identifier..hogy a frászba találod te meg a hibát???egy élet is elmegy erre.... (most akkor nem konrkétan vb hanem mondjuk darkbasic (már megint ))

ms és szabványok?
C++ fordítóval és macival alszom
http://darthasylum.blog.hu/
   
Robsoft - Tag | 345 hsz       Online status #85067   2008.04.13 03:54 GMT+1 óra  
Idézet
Bacce :
ha valami nincsen deklarálva azt a vb alapból 0-nak veszi. és ezért nem szólt. aszem.



Idézet
Asylum :
hát látom tényleg SOKKAL modernebb
najo nem kötekedek


Ha VB .NET innnetől kezde már a .NET a döntő. Ha valaminek nincs kezdőértéke deklarálás után az alapból nem memória szemetet kap, hanem normális értéket értelem szerűen. Ha nem kap értéket később sem a fordító figyelmeztet, hogy unassigned, lokálisnál már error. Ha van kézzel adott kezdőértéke, de később semmi nem használja, akkor never used warning van.
Natív C++ ban csak debug módban kapnak a változók kezdőértéket (null, 0), relase módban memória szemetet kapnak, így például if(x != null) x->valami(); -re könnyen kifagyhat az egész program mindenféle előzetes figyelmeztetés nélkül!
.NET nem tesz különbséget relase és debug közt ilyen szempontból és szigorúan veszi ezeket a dolgokat. A szabvány az szabvány.
 
Blog
 
   
Laxika - Tag | 266 hsz       Online status #85062   2008.04.13 02:54 GMT+1 óra  
Lenne még1 kérdésem... :

Ezzel olvasok be egy filet:

Kód:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim path As String = "c:\karakterek" + txtNev.Text + ".txt"

        Dim KarReader = New FileStream(path, FileMode.Open, FileAccess.Read)
        Dim d As New StreamReader(KarReader)
        d.BaseStream.Seek(0, SeekOrigin.Begin)
        While d.peek() > -1
            RichTextBox1.Text &= d.ReadLine()
            'displaying text from doc file in the RichTextBox
        End While
        d.close()

    End Sub


aminek a tartalma a következő:

Kód:
Karakternev = orj
Faj= Ork
Kaszt= Örjöngő
MaxElet= 13
AktElet= 13
MaxMana= 0
AktMana= 0




Ebből én csak pl. a MaxElet= 13 sorból a 13-as számot akarom kinyerni, amit majd aztán stringből számmá alakítanék... ( MaxEletpont = Val("idejönneaszám..." ) )

Hogy tudom ezt megtenni? Valami 5let?
Guglin már kerestem, de nem találtam semmit... :/
Böngészőprogramnak nevezünk minden olyan programot amely képes weboldalakat megjeleníteni. Ha ezt a definíciót vesszük alapul, akkor sajnos az Internet Explorert nem nevezhetjük böngészőnek. Ennek ellenére sokan használják weblapok nézegetésére.
   
Laxika - Tag | 266 hsz       Online status #85033   2008.04.12 08:51 GMT+1 óra  
Köszi Bacce müxik...

A vb nem rossz, de nekem a java jobban bejött... (talán mert azzal kezdtem? )
Böngészőprogramnak nevezünk minden olyan programot amely képes weboldalakat megjeleníteni. Ha ezt a definíciót vesszük alapul, akkor sajnos az Internet Explorert nem nevezhetjük böngészőnek. Ennek ellenére sokan használják weblapok nézegetésére.
   
Asylum - Törzstag | 5440 hsz       Online status #85030   2008.04.12 07:51 GMT+1 óra  
hát látom tényleg SOKKAL modernebb
najo nem kötekedek
C++ fordítóval és macival alszom
http://darthasylum.blog.hu/
   
Bacce - Bacce | 1783 hsz       Online status #85028   2008.04.12 07:13 GMT+1 óra  
ha valami nincsen deklarálva azt a vb alapból 0-nak veszi. és ezért nem szólt. aszem.
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Joga - Törzstag | 1791 hsz       Online status #85026   2008.04.12 06:37 GMT+1 óra  
Biztos azért, mert ilyen hiba VB-ben csak ritkán fordul elő, hiszen sokkal modernebb
(ಠ ›ಠ) Stewie!

   
Asylum - Törzstag | 5440 hsz       Online status #85025   2008.04.12 06:34 GMT+1 óra  
Idézet
Bacce :
ááááááááááááááááááááá..... megvan mi volt a baj.... én meg már egy hete agyaltam, mindent kijavítottam, most néztem itt a fórumon a kódot amit belinkeltem.... és megtaláltam... pedig tényleg naponta nekiültem és próbálgattam, és téptem a hajam hogy ennek mennie kéne... végső elkeseredésemben megkérdezem itt... és vajon megtaláljátok a hibát? Mindent zsigerből Ctrl+C ctrl+v -ztem, ázzzé.... mostmár megy, úgy ahogy mennie kell...
DM_DISPLYAFEQUENCY Nem ugyanaz mint a DM_DISPLAYFREQUENCY elgépeltem.. megbűnhődtem...

Szerk: Asylum: nem dx.



ööö mi? és a fordító nem szólt hogy undeclared identifier? ja ez vb ...
C++ fordítóval és macival alszom
http://darthasylum.blog.hu/
   
Bacce - Bacce | 1783 hsz       Online status #85024   2008.04.12 06:24 GMT+1 óra  
Nem nagyon vágom a .net-et, de vb5-ben így lehet új sort kezdeni:
Kód:
label1.caption="Valami szöveg" & chr(10) & "második sor."
'vagy
Label1.caption="Valami szöveg" & chr(13) & "Második sor."
'vagy
Lable1.caption="Valami szöveg" & vbcrlf & "második sor."

És ha egy label-be rakod a szöveget és csak a végén mented akkor az így néz ki:
Kód:
strFilename = Text5.Text & ".TXT" 'A fájl neve és kiterjesztése
strContents = Text1.Text 'A fájl tartalma
    Open strFilename For Output As #1
    Print #1, strContents
    Close #1

Én legalábbis annó ezt így csináltam, de lehet van egyszerűbb megoldás is.
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
Laxika - Tag | 266 hsz       Online status #85023   2008.04.12 05:31 GMT+1 óra  
Sziasztok!

Valaki megtudja mondani hogy vb.netben hogy lehet egy filebe új sorba írni?

Eddig ezt használtam, de mindig egy sorba ír egymás mellé mindent... -.-'

Kód:
KFile.Write(Nev, 0, Nev.Length)
Böngészőprogramnak nevezünk minden olyan programot amely képes weboldalakat megjeleníteni. Ha ezt a definíciót vesszük alapul, akkor sajnos az Internet Explorert nem nevezhetjük böngészőnek. Ennek ellenére sokan használják weblapok nézegetésére.
   
Bacce - Bacce | 1783 hsz       Online status #84801   2008.04.09 08:02 GMT+1 óra  
ááááááááááááááááááááá..... megvan mi volt a baj.... én meg már egy hete agyaltam, mindent kijavítottam, most néztem itt a fórumon a kódot amit belinkeltem.... és megtaláltam... pedig tényleg naponta nekiültem és próbálgattam, és téptem a hajam hogy ennek mennie kéne... végső elkeseredésemben megkérdezem itt... és vajon megtaláljátok a hibát? Mindent zsigerből Ctrl+C ctrl+v -ztem, ázzzé.... mostmár megy, úgy ahogy mennie kell...
DM_DISPLYAFEQUENCY Nem ugyanaz mint a DM_DISPLAYFREQUENCY elgépeltem.. megbűnhődtem...

Szerk: Asylum: nem dx.
Making the world a better place, one line of code at a time.
http://bacce.uw.hu
   
beast - Törzstag | 1241 hsz       Online status #84800   2008.04.09 07:44 GMT+1 óra  
Idézet
Bacce :
DM_DISPLAYFREQUENCY az nagyon sok, a dmFields meg 0.
GetDeviceCaps -al sikerült lekérni. de sajnos nincs SetDeviceCaps

Állítani szeretném.


DEVMODE-nál a dmFields flag-gel azt jelzed, hogy mit akarsz állitani, nem elég csak megdani az értékeket.
Szóval, ha a felbontást állitod, akkor ugye a dmFields = DM_PELSWIDTH | DM_PELSHEIGHT, ha a frissitést is akkor kell a DM_DISPLAYFREQUENCY flag is.

devmode.dmFields = DM_PELSWIDTH And(?) DM_PELSHEIGHT And(?) DM_DISPLAYFREQUENCY

   
Frissebbek | Korábbi postok
[1] > 2 < [3] [4] [5] [6] [7]