Metin2 Hungarian Forum

Metin2 => Privát szerverek => Computer World => A témát indította: [VIP]Disco Dátum 2011-10-15, 18:06:32

Cím: Mindent a VB.Net-ről! ( m )
Írta: [VIP]Disco Dátum 2011-10-15, 18:06:32
Sziasztok!

Gondolom sokatok ismer olyan programot amely megállapítja a gépetek adatait. Everest és társaira gondolok.Egy kis munkával mi is elkészíthetjük ezt a programot, persze sokkal butítotabb változatban.

Szükségünk van egy programozói programra. VisualBasic Express, Professional vagy Ultimate verzióra.Amennyiben ezzel már rendelkezünk nyissuk meg, és kezdjünk egy új projektet.

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F15%2F55l2dywt583c2g8zf3ut.jpg&hash=a9960f8d1e5e08dce512188d438c13e7e3860e5c)

IdézName: Projektünk neve
Location: Projektünk helye

Első lépésben méretezzük megfelelőre a leendő programunk ablakát.

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F15%2Fsv7dc920v1z0dqhggiza.jpg&hash=b9bfb3eec0448257800d4bda75aa09ac6e8f9f92)


Helyezzünk el a baloldalán egymás alá 8 darab Label-t. ( Labelt a ToolBox-ból tudunk belehúzni az ablakba )Majd nevezzük át őket:

IdézLabel1: Számitógép neve
Label2: Jelenlegi felhasználó
Label3: Operációs rendszer
Label4: Platform
Label5: Verzió
Label6: Nyelv
Label7: Processzor
Label 8: Processzor MHz

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F15%2Fsmjqeh3gk9wye7zg3fqu.jpg&hash=9db15cc7a702ea0f42dff2ef31e05759d70f08a3)

Rakj 8 TextBox-ot a Labelek mellé. ( ToolBox-ból tudjuk egy húzással berakni a TexBox-ot )

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F15%2Fva9wwtdl3lnp1q7irflb.jpg&hash=5c97c66090dc9cbd47a0ab093dff4edd4b1304f1)

Rakj egy Button-t (Gombot) a programra, majd nevezd át Adatok Lekérés-re.

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F15%2Fjp835tz3shncfyhqa3lh.jpg&hash=e92ed3fa4fc6347ac8588cfa124fa3751b58a0b6)

Kattints 2x a gombra, majd megjelenik a Forráskódos rész. Másold bele ezt:

    TextBox1.Text = System.Environment.MachineName
   TextBox2.Text = System.Environment.UserName
   TextBox3.Text = My.Computer.Info.OSFullName
   TextBox4.Text = My.Computer.Info.OSPlatform
   TextBox5.Text = My.Computer.Info.OSVersion
   TextBox6.Text = My.Computer.Info.InstalledUICulture.ToString
   TextBox7.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\CentralProcessor\0", "ProcessorNameString", Nothing)
   TextBox8.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\CentralProcessor\0", "~MHz", Nothing)


Így nézzen ki:

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F15%2F7ocg8b62njs32quhejuf.jpg&hash=a091a10907da0a25818c297bd9546da23ad579d4)

Menjünk vissza a Dizájn részre, majd nyomjuk meg az F5-öt, és láthatóvá válik a programunk.Amennyiben megfelelő lépjünk ki a programunkból, majd felül a Build fülre kattintva nyomjuk meg a Build Lekeres. ( A lekeres helyén azt a szót fogjuk látni amelyet mi megadtunk a projekt létrehozásakor. 1. Pont )

Amikor elkészül, ki fogja írni alul, hogy hova lett elmentve a projekt.Amennyiben nem változtattuk a mentése helyet itt fogjuk megtalálni:

C:\Users\Felhasználónév\Documents\Visual Studio 2010\Projects

Lekeres > Bin > Debug > Lekeres.exe. Ez a kész .exe kiterjesztésű programunk.

Egy kép az elkészült, végleges programról:

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F15%2Fitz8d9o9426qx3la58ce.jpg&hash=aff79a22ca207717f9baafc6126e1bc786d6ae25)


Szerintem nem nehéz, de aki bármilyen problémába ütközik az jelezze itt a témában és megoldjuk.

Üdvözlettel,
Disco
Cím: Re:Számítógép adatainak lekérése VB.Net
Írta: sokeszu2000 Dátum 2011-10-15, 18:15:57
THX ^^
Ezzel lehet más prodit is?
Cím: Re:Számítógép adatainak lekérése VB.Net
Írta: [VIP]Disco Dátum 2011-10-15, 18:18:01
Idézetet írta: [DJ]shikamaru Dátum 2011-10-15, 18:15:57
THX ^^
Ezzel lehet más prodit is?
Ha tudsz programozni akármilyen programot el lehet készíteni. http://metin2hungary.net/index.php?topic=102344.0
Cím: Időzített leállítás VB.Net
Írta: [VIP]Disco Dátum 2011-10-16, 14:42:37
Sziasztok!

Bizonyára sokatok kezdett el letölteni valamit éjszaka, viszont előbb elkészült a letöltés minthogy felkeltél volna, és így értelmetlenül ment a gép.Ezzel a programmal be tudjuk állítani, óra, perc illetve másodperc pontosan, hogy mikor kapcsoljon ki a gépünk.Mikor eléri a megadott időt a program még egy percünk marad a leállításig.

Egy kép hogyan is fog kinézni:

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F16%2Fnr84uhyc0rs0l2jp6s6e.jpg&hash=010a0a2937e881fde8cb8f627bef32e6c8988d29)

Első lépésben szükség van egy programozói programra. Visual Basic Express, Professional vagy Ultimate változatra.Kezdjünk el egy új projektet.

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F16%2F7mzou6wdfcofp1ok9f0c.jpg&hash=29156ba318a25c47b84d78c2d0094f94688cdd0b)

Location: A projekt helye.Itt fogjuk majd megtalálni az elkészült programunkat, és összetevőit.
Name: Egyértelmű, ez a neve.


Miután az OK gombra kattintunk megkezdhetjük a programunk fejlesztését.Egyenlőre még csak egy Dizájnos részt látunk viszont, ha 2x kattintunk az ablakra akkor megjelenik a forráskód is.Most menjünk vissza a Dizájn részes fülre, majd kattintsunk 1x az ablakra.Ezzel jobboldalt megjelennek az információk.Keressük meg ezt:

Text: Form1

Ez az ablak nevét jelöli, írjuk át kedvünk szerint valamire. ( Nem szükséges ) Én Leállítás Varázslóra írom át, mivel az készül.

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F16%2Fqz0ipi3kikl928q6b0r9.jpg&hash=cff44f67f0341c379cf881da7cc5cea57b22ff41)

Nyissuk meg a Toolbox-ot, és rakjunk két Timer-t a programra. (Ez a képen is látszik alul)

Rakjunk a programra 3 Labelt, 2 Gombot és egy Textboxot.Így legyenek elhelyezve:

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F16%2Fl608v522tes4nuq113mg.jpg&hash=5fe88256914ca1a0fa0328b8252e032bb333ab4c)

A nevüket is változtassuk meg arra, mint ami a képen van.Rákattoltok például Label1-re, és akkor jobboldalt az Információs sávba olyat kell keresni, hogy Text: Label1 ( Label1-et kell átírni )

Kattintsunk rá 1x a Label1-re, (mivel ezt nem kell átnevezni) és jobboldalt az Információs sávon változtassuk meg a méretét, illetve legyen félkövér.

Most kattintsunk az ablakunkra.Ezzel megjelenik a forráskód, majd másoljuk be ezt:
Timer1.Start()

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F16%2Fscm1k2984x5wp5bqm58g.jpg&hash=63ea72a05d2113b8be94f04a9f0897bd239ef57c)

Most kattintsunk 2x Timer1-re, és másoljuk bele ezt a kódot:

Label1.Text = Format(TimeOfDay)

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F16%2Fla7pzqslwiyo06t4lfd3.jpg&hash=6d7b668d7df87e0bc7595218a497e5b3fada64fb)

Most kattintsunk 2x a Mehet gombra, és másoljuk bele ezt:

   Timer2.Enabled = True
   TextBox1.Enabled = False
   Button2.Enabled = True
   Button1.Enabled = False


Most kattintsunk 2x a Megszakítás gombra, és másoljuk bele ezt:

   Timer2.Enabled = False
   TextBox1.Text = "00:00:00"
   TextBox1.Enabled = True
   Button1.Enabled = True
   Button2.Enabled = False


Most kattintsunk 2x a Timer2-re, és másoljuk bele ezt a kódot:

If TextBox1.Text = Label1.Text Then
  Shell("shutdown -s")

   End If


Amikor mindent kitöltünk, így kell lennie:

(https://board.ddmt2.net/proxy.php?request=http%3A%2F%2Fwww.kephost.com%2Fimages4%2F2011%2F10%2F16%2Fm52elqqpmw1mlm99zd9s.jpg&hash=e3cb807785ba8bfbc87757044eb5827fe30ae2f5)

Most menjünk vissza a Dizájn részre, és nyomjuk meg az F5-öt.Így láthatjuk az elkészült programot.

Közzétenni így tudjuk:

Kattints a Build opcióra fennt, majd a Build Időzített Leállításra.

Miután végzett a program ki fogja írni alul, hogy hova lett elkészítve a program.Amennyiben nem változtattad a mentése helyet itt fogod találni:

C:\Users\Felhasználónév\Documents\Visual Studio 2010\Projects

Időzített Leállítás > Bin > Debug > Időzített Leállítás.exe. Ez a kész .exe kiterjesztésű programunk.

Aki kedvet kapott a program elkészítéséhez annak sok sikert kívánok. :)

Akinek bármilyen problémája van írjon ide a témába, és megoldjuk.

Üdvözlettel,
Disco
Cím: Re:Időzített leállítás VB.Net
Írta: Wallace Dátum 2011-10-16, 15:32:00
Erre van egy másik lehetőség is. 



Start - >  Futtatás ->   ( oda beírjátok hogy )  CMD  ( Entert megnyomjátok )

Ekkor kijön egy fekete ablak.   Oda ezt a szöveget kell begépelni :     shutdown -s -t  3600
A 3600 másodpercben van mérve, egy kis számolás segítségével rájövünk hogy 1 óra elteltével fog kikapcsolni a gépünk. Ezek tudta után a 3600 helyett bármilyen számot lehet írni.

Viszont ha többen is használják a gépet lehet üzenetet is hagyni a :    shutdown -s -t 3600 -c "üzenet"  parancsal.

Ha esetleg meggondoltad magad le is tudod állítani a folyamatot a :    shutdown/a    parancsal.
Cím: Re:Időzített leállítás VB.Net
Írta: [VIP]Disco Dátum 2011-10-16, 15:34:16

Ez is egy verzió, meg ha már itt tartunk akkor .bat-ként is csinálhatunk ugyanilyet, és azt még át is lehet küldeni valakinek.
Cím: Re:Időzített leállítás VB.Net
Írta: Forumozó Dátum 2011-11-01, 09:28:02
Köszi :D Én várom a további dolgokat :D
EhPortal 1.39 © 2025, WebDev