File Pumper [ Easy ]

silahkan membuat :D

1 Textbox
4 radiobutton
2 button
2 Label
NumericUpDown 1

Double klik pada button 1 untuk kembali ini:

Dim ofd As New OpenFileDialog
ofd.Filter = "Exe Files|*.exe"
ofd.ShowDialog()
TextBox1.Text = ofd.FileName
End Sub

Double klik pada RadioButton1:

Label1.Text = "KB"

Double klik pada RadioButton2:

Label1.Text = "MB"

Double klik pada RadioButton3:

Label1.Text = "GB"

Double click on the RadioButton4:

Label1.Text = "TB"

Double klik pada button2:

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
If RadioButton3.Checked Then
filesize = filesize * 1073741824
End If
If RadioButton4.Checked Then
filesize = filesize * 1099511627776
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("Successfully Pumped!")

semoga berguna
tutorial by me :D