Aki Maki's Profile User Rating: -----

Reputation: 0 Apprentice
Group:
New Members
Active Posts:
16 (0.02 per day)
Joined:
15-June 12
Profile Views:
2,844
Last Active:
User is offline Private
Currently:
Offline

Previous Fields

Country:
Who Cares
OS Preference:
Windows
Favorite Browser:
FireFox
Favorite Processor:
Intel
Favorite Gaming Platform:
PC
Your Car:
Mercedes
Dream Kudos:
0
Icon   Aki Maki has not set their status

Posts I've Made

  1. In Topic: How to make a DVD Player for VB.NET

    Posted 9 Jul 2012

    How to make it reads .SRT files?
  2. In Topic: How do i start My first Website?

    Posted 16 Jun 2012

    I recommend you to start with SQL, Java, Java Script, PHP and HTML. You can learn them here: W3Schools.
  3. In Topic: Do you know how to get a free software every day?

    Posted 16 Jun 2012

    View Postcalvinthedestroyer, on 16 June 2012 - 01:57 PM, said:

    UM,, I wouldn't call screensavers "Software"

    * Have you use this service?
    * Does this service provide you with Usable Software?
    * Have you checked to make sure that the Software is Mallware / Virus free?


    Oh! It's just today. Otherwise, they are giving programs up to $699!

    calvinthedestroyer said:

    Yes, I'm using it 2 years.

    Yes, this legally service provides very usable software.

    Yes, every program is virus free and it's not a mallware.

    [quote name='Aki Maki' date='16 June 2012 - 01:57 PM' timestamp='1339851454' post='1645506']
    UM,, I wouldn't call screensavers "Software"

    * Have you use this service?
    * Does this service provide you with Usable Software?
    * Have you checked to make sure that the Software is Mallware / Virus free?


    Yes, I'm using it 2 years.

    Yes, this legally service provides very usable software.

    Yes, every program is virus free and it's not a mallware.

    View PostAki Maki, on 16 June 2012 - 01:57 PM, said:

    UM,, I wouldn't call screensavers "Software"

    * Have you use this service?
    * Does this service provide you with Usable Software?
    * Have you checked to make sure that the Software is Mallware / Virus free?
  4. In Topic: Windows 7 hotkeys (and shortcut keys)

    Posted 15 Jun 2012

    mod: removed excessive quote

    Oh! You forget Ctrl + W. Use it to paste previously copied or cutted stuff in the opened folder and close it. Nice, is not it? :detective:
  5. In Topic: I have some questions

    Posted 15 Jun 2012

    View Postsela007, on 15 June 2012 - 12:54 PM, said:

    1.you can add filter to savefiledialog.
    example:
    SaveFileDialog1.Filter = "FLV files (*.flv)|*.flv|MP4 Files (*.mp4)|*.mp4"
    
    


    Thanks a lot! That's what I needed for my programs!

    View Posttorind_2000, on 15 June 2012 - 12:55 PM, said:

    Is this the code you're referring too?
    Posted it cuz some people don't like to download files.
    Imports System.Net
    Public Class Form1
        Dim whereToSave As String
        Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
        Delegate Sub DownloadCompleteSafe(ByVal cancelled As Boolean)
    
        Public Sub DownloadComplete(ByVal cancelled As Boolean)
            Me.txtFileName.Enabled = True
            Me.btn_download.Enabled = True
    
            If cancelled Then
                Me.btn_cancel.Enabled = False
                Me.lblstat.Text = "Status : " & "Cancelled"
                MessageBox.Show("Download Cancelled !", "Aborted", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                Me.btn_cancel.Enabled = False
                Me.lblstat.Text = "Status : " & "Successfully downloaded"
                Form2.Show()
            End If
    
            Me.ProgressBar1.Value = 0
        End Sub
    
        Public Sub ChangeTexts(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
    
            Me.lblsize.Text = "Size : " & Math.Round((length / 1024), 2) & " KB"
            Me.lbldownloading.Text = "Downloading : " & Me.txtFileName.Text
            Me.lblstat.Text = "Status : " & Math.Round((position / 1024), 2) & " KB of " & Math.Round((length / 1024), 2) & "KB (" & Me.ProgressBar1.Value & "%)"
            Me.lblpercent.Text = Me.ProgressBar1.Value & "%"
            If speed = -1 Then
                Me.lblspd.Text = "Speed : " & "calculating..."
            Else
                Me.lblspd.Text = "Speed : " & Math.Round((speed / 1024), 2) & " KB/s"
            End If
    
            Me.ProgressBar1.Value = percent
        End Sub
    
        Private Sub btn_download_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_download.Click
            If Me.txtfilename.Text <> "" AndAlso Me.txtfilename.Text.StartsWith("http://") Then
                Me.whereToSave = Me.loc.Text
                Me.SaveFileDialog1.FileName = ""
                Me.lblsloc.Text = "Save to : " & whereToSave
                Me.txtfilename.Enabled = False
                Me.btn_download.Enabled = False
                Me.btn_cancel.Enabled = True
                Me.loc.Enabled = False
                Me.brws.Enabled = False
                Me.BackgroundWorker1.RunWorkerAsync()
            Else
                MessageBox.Show("This url is not valid", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        End Sub
    
        Private Sub brws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brws.Click
            Me.SaveFileDialog1.FileName = Me.txtfilename.Text.Split("/"c)(Me.txtfilename.Text.Split("/"c).Length - 1)
            Me.lblname.Text = "Name : " & Me.txtfilename.Text.Split("/"c)(Me.txtfilename.Text.Split("/"c).Length - 1)
            Me.SaveFileDialog1.ShowDialog()
            Me.loc.Text = Me.SaveFileDialog1.FileName
        End Sub
    
        Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
            Me.btn_download.Enabled = False
            Dim theResponse As HttpWebResponse
            Dim theRequest As HttpWebRequest
            Try
                theRequest = WebRequest.Create(Me.txtfilename.Text)
                theResponse = theRequest.GetResponse
            Catch ex As Exception
                MessageBox.Show("An error occurred while downloading file. Possibe causes:" & ControlChars.CrLf & _
                                "1) File doesn't exist" & ControlChars.CrLf & _
                                "2) Remote server error", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
                Me.Invoke(cancelDelegate, True)
                Exit Sub
            End Try
            Dim length As Long = theResponse.ContentLength
            Dim safedelegate As New ChangeTextsSafe(AddressOf ChangeTexts)
            Me.Invoke(safedelegate, length, 0, 0, 0)
            Dim writeStream As New IO.FileStream(Me.whereToSave, IO.FileMode.Create)
            Dim nRead As Integer
            Dim speedtimer As New Stopwatch
            Dim currentspeed As Double = -1
            Dim readings As Integer = 0
    
            Do
                If BackgroundWorker1.CancellationPending Then
                    Exit Do
                End If
                speedtimer.Start()
                Dim readBytes(4095) As Byte
                Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)
                nRead += bytesread
                Dim percent As Double = (nRead / length) * 100
                Me.Invoke(safedelegate, length, nRead, percent, currentspeed)
    
                If bytesread = 0 Then Exit Do
                writeStream.Write(readBytes, 0, bytesread)
                speedtimer.Stop()
                readings += 1
    
                If readings >= 5 Then
                    currentspeed = 20480 / (speedtimer.ElapsedMilliseconds / 1000)
                    speedtimer.Reset()
                    readings = 0
                End If
            Loop
    
            theResponse.GetResponseStream.Close()
            writeStream.Close()
    
            If Me.BackgroundWorker1.CancellationPending Then
                IO.File.Delete(Me.whereToSave)
                Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
                Me.Invoke(cancelDelegate, True)
                Exit Sub
            End If
    
            Dim completeDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
            Me.Invoke(completeDelegate, False)
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.btn_cancel.Enabled = False
        End Sub
    
        Private Sub lbldownloading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbldownloading.Click
    
        End Sub
    End Class
    
    


    Yea! That's it! Nice program, ha? It's open source.

My Information

Member Title:
New D.I.C Head
Age:
Age Unknown
Birthday:
Birthday Unknown
Gender:
Interests:
Programs
VB.NET 6.0
VB.NET 2010
VB.NET 9.0
Architect
Years Programming:
6

Contact Information

E-mail:
Private

Comments

Aki Maki has no profile comments yet. Why not say hello?