Szeretném kérni a segítségeteket egy vbscript létrehozásában!!
Az lenne a kis script-nek a feladata hogy hozzon létre mappát a megadott helyen és másoljon is abba fájlokat.
Ez eddig nem is bonyolult,de ezt ugy kellene végrehajtania a scriptnek hogy mielőtt létrehozna egy mappát az adott helyen egy felugró ablakban megkérdezné a létrehozandó mappa nevét, és miután ez megvan a fájlok belemásolását is csak ugy hajtaná végre hogy felugrana egy ablak amiben megkérdezné a másolandó fájlok nevét.
kicsit bővebben is kifejthetnéd:-)
a régebbi wordökben lehetett csinálni valami autoexec vagy hasonló nevű makrót... már ha erre gondolsz, és nem egy szürke kalapot szeretnél
nagyon jó, hogy megnyitottad ezt a topicot, mert szerintem igazán érdekes dolgokat lehet művelni a VBScript segítségével. Igaz írott dokumentációt valóban nem lehet találni hozzá, viszont ott van a microsoft.com: rengeteg hasznos "stuff" van fent + helpek debugger stb.
Szerintem azonban nem igazán a hatványkitevő meg stb számolások elvégzésére érdemes használni (arra ott a számológép :-) ), sokkal alkalmasabb pl. domain adminisztrációra, pl. ha van 1500 géped és azon akarsz módosítani valamit (pl. jelszómódosítás) , akkor csak írsz egy scriptet és hajrá...nagy előnye pl. a batch fájlokkal szemben, hogy nagyon jól lehet kezelni a hibákat és később is tudod, hogy mit csináltál...
A sorok hosszuak ezért ha valaki ki akarja próbálni, akkor kicopizás után a kód most látható 11-es sorát vissza kell backspacézni a 10-ik sorba.
És ezt meg kell csinálni még ezekkel a sorokkal is: 14-et 13-végére, 16-ot a 15 végére, 22-t a 21 végére, 24-et a 23, végére a végéről kezdve nem kevered össze :)
utánna átnevezve vbs-re a kiterjesztést, lehet kipróbálni.
Az alábbi kód hitelt számol.
Bekéri az összeget, a törlesztés idejét, és a ráeső kamatot, és ebből kiszámítja hogy mennyi a havi törlesztés összege, mennyi a kamat összege, valamint mennyi az összes kifizetendő összeg.
Remélem jól csináltam.
Dim Hitel_osszeg
Dim Evi_reszlet
Dim Ev_szama
Dim Kamat_szazalek
Dim Havi_Reszlet
Dim Honapok_szama
Dim Osszes_penz
Dim Csak_kamat
Hitel_osszeg = Inputbox ("Ird be hogy mekkora hitelt akarsz felvenni")
Honapok_szama = Inputbox ("Ird be számmal hogy hány hónap alatt szeretnéd törleszteni" )
Ev_szama = Honapok_szama / 12
Kamat_szazalek = Inputbox ("Ird be számmal hogy hány százalékos a kamat, százalékjel nélkül" )
Evi_reszlet = (Hitel_osszeg * (1 + (Kamat_szazalek / 100))^ Ev_szama) * ((Kamat_szazalek / 100) / (((1 + (Kamat_szazalek / 100)) ^ Ev_szama) - 1))
Havi_reszlet = Evi_reszlet / 12
Osszes_penz = Havi_reszlet * Honapok_szama
Csak_kamat = Osszes_penz - Hitel_osszeg
Havi_reszlet = MsgBox ("A Havi reszlet " & Havi_reszlet & " Forint")
Osszes_penz = MsgBox ("Az összes kifizetendő összeg " & Osszes_penz & " forint")
Csak_kamat = MsgBox ("Csak a kamat összege amit a tőkére kell fizetned " & Csak_kamat & "forint")
Ez pedig a nevet kéri be a felhasználótól.
Utánna üdvözli.
Ha nem írsz be semmit akkor azt észreveszi.
Dim Input
MsgBox (" Test vbs")
Input = Inputbox (" Ird be a neved" )
If Input ="" Then
MsgBox ("Nem is írtál be semmit :P")
Else
Msgbox ("Szia "& Input &" !")
End If
Dim Hatvanykitevo
Dim Hatvanyalap
Dim Eredmeny
Dim Vege
MsgBox ("Most hatványozunk picit, jó?")
Hatvanyalap = InputBox ("Ird be azt a számot amit hatványozni szeretnél")
Hatvanykitevo = Inputbox ("Ird be a hatvanykitevot")
Eredmeny = (Hatvanyalap ^ Hatvanykitevo)
Eredmeny = MsgBox (Hatvanyalap & " szam hatvanya a " & Hatvanykitevo& " hatványkitevőn = " & Eredmeny)
Na ugylátom nem sok hozzászóló volt eddig.
Gondoltam felteszek néhány dolgot, amit próbálgattam.
ezeket ha kimentitek egy txt,be és átnevezitek vbs-re akkor ki is próbálhatjátok.
Elsőként gombok.vbs
MsgBox "running vbs calc test filez"
MsgBox "msgbox variáció felkiáltójel", 48 , "ez a címsor"
MsgBox "msgbox variáció kérdőjel", 32 , "ez a címsor"
MsgBox "msgbox x ikon", 16 , "ez a címsor"
MsgBox "msgbox variáció információ", 64 , "ez a címsor"
MsgBox "gombvariációk", +0 , "ok 0 szám"
MsgBox "gombvariációk", + 1 , "ok mégse1 szám"
MsgBox "gombvariációk", + 2 , "kilépés ismét tovább 2 szám"
MsgBox "gombvariációk", + 3 , " igen nem mégse 3szám"
MsgBox "gombvariációk", + 4 , " igen nem 4szám"
MsgBox "gombvariációk", + 5 , "ismét mégse 5 ös szám "
Azért nyitottam ezt a topicot, mert VBScript dolgokat szeretnék készíteni, de:
Egyik könyvesboltban sem találtam VBScriptel foglalkozó kiadványokat. Gondolok itt a Liszt Ferenc téren lévő műszaki könyváruházra, valamint a nagyobb könyvesboltokra.
Magyarul mintha egyáltalán nem lenne róla irodalom, angolul meg minek mivel megvan a vbsript language reference de hát azzal nem sokra megyek.
Ha valaki foglalkozik, foglalkozott vbscriptel, az írjon ide. Vagy ha tudtok valamilyen magyar tutort róla, légyszi írjatok.
Ha valakit szintén érdekel a vbscript, az is írjon majd kiokoskodunk valamit.
