flAmingw0rm
read-only
- 25 декември 2010
- 48
- 10
Здраво на сите, ова е мојот прв туториал на овој форум.
Најпрвин ви честитам нова година на сите, среќни празници и се најдобро!
Значи, во овој туториал ќе ви покажам како да направите свој „фајл пумпер“ во VB.NET.
Што е „Фајл Пумпер“?
Значи ако имате некој мал фајл, и ако сакате да му ја смените големината, ова можете да го направите со ова програмче колку големина сакате вие.
Најпрвин направете нов проект.
File > New Project > Windows Application > “Фајл Пумпер” > Ok
Следно, треба да ги додадеме следните компоненти на програмот.
Значи вашиот програм би требало да изгледа вака:
Доколку сакате, вие можете да ги менувате положбите на компонентите, можете да ставете икона, позадина итн..
RadioButton1 - КилоБајти
RadioButton2 - МегаБајти
Button1 - ПУМП!
Button2 - Избери Фајл
NumericUpDown1 - За колку килобајти или мегабајти да се пумпа фајлот. (Сменете ја вредност на „10“ и минимум да биде исто така „10“)
Сега, кликнете два пати на Button2 (Избери Фајл) и внесете го овој код:
Сега внесете го овој код на Button1(ПУМП!):
Доколку правите компресирана дадотека (.RAR, .ZIP и др.) фајлот ќе се намали во оригиналната големина!
Тоа е тоа, само што го направивте првиот ваш „фајл пумпер“!
Ве молам, доколку го постирате овој пост на друг форум, или да ставите кредити од каде сте го земале или барем мојот ник.
Ви благодарам.
Најпрвин ви честитам нова година на сите, среќни празници и се најдобро!
Значи, во овој туториал ќе ви покажам како да направите свој „фајл пумпер“ во VB.NET.
Што е „Фајл Пумпер“?
Значи ако имате некој мал фајл, и ако сакате да му ја смените големината, ова можете да го направите со ова програмче колку големина сакате вие.
Најпрвин направете нов проект.
File > New Project > Windows Application > “Фајл Пумпер” > Ok
Следно, треба да ги додадеме следните компоненти на програмот.
- TextBox1
NumericUpDown1
RadioButton1
RadioButton2
Button1
Button2
Значи вашиот програм би требало да изгледа вака:
Доколку сакате, вие можете да ги менувате положбите на компонентите, можете да ставете икона, позадина итн..
RadioButton1 - КилоБајти
RadioButton2 - МегаБајти
Button1 - ПУМП!
Button2 - Избери Фајл
NumericUpDown1 - За колку килобајти или мегабајти да се пумпа фајлот. (Сменете ја вредност на „10“ и минимум да биде исто така „10“)
Сега, кликнете два пати на Button2 (Избери Фајл) и внесете го овој код:
Код:
Dim ofd As New OpenFileDialog
ofd.Filter = "Exe Files|*.exe"
ofd.ShowDialog()
TextBox1.Text = ofd.FileNameСега внесете го овој код на Button1(ПУМП!):
Код:
Dim sfd As New SaveFileDialog
sfd.Filter = "Exe Files|*.exe"
sfd.ShowDialog()
Dim filesize As Double = Val(NumericUpDown1.Value)
IO.File.Copy(TextBox1.Text, sfd.FileName)
If RadioButton1.Checked Then
filesize = filesize * 1024
End If
If RadioButton2.Checked Then
filesize = filesize * 1048576
End If
Dim filetopump = IO.File.OpenWrite(sfd.FileName)
Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])
While size < filesize
filetopump.WriteByte(0)
size += 1
End While
filetopump.Close()
MsgBox("Успешно пумпање!")Доколку правите компресирана дадотека (.RAR, .ZIP и др.) фајлот ќе се намали во оригиналната големина!
Тоа е тоа, само што го направивте првиот ваш „фајл пумпер“!
Ве молам, доколку го постирате овој пост на друг форум, или да ставите кредити од каде сте го земале или барем мојот ник.
Ви благодарам.
