mini screen recorder

Heres your chance to share your own tutorials with the community. Just post them on here. If your lucky they may even be posted on the main site.
15 posts Page 1 of 2
User avatar
volttide
VIP - Donator
VIP - Donator
Posts: 106
Joined: Mon Jan 17, 2011 8:24 am

mini screen recorder
volttide
you'll need:
10 button
1 timer
1 label, text: 01FPS
3 textbox
1 Checkbox name: CheckBox1
Buttons text:
Button1 = Start
Button2 = Stop
Button3 = 10
Button4 = 50
Button5 = 100
Button6 = 250
Button7 = 500
Button8 = 1000
Button9 = Video On
Button10 = Video Off
textbox Properties:
textbox 1= FileDIR text: C:\ScreenREC\
textbox 2= FileNUM text: 0
textbox 3= FileType text: .JPG

Button Properties:
Button1Name: REC
Button2Name: STP
Button3Name: INT10
Button4Name: INT50
Button5Name: INT100
Button6Name: INT250
Button7Name: INT500
Button8Name: INT1000
Button9Name: Button9
Button10Name: Button10

Then
add form2 name it VideoScreenWindow
add 1picturebox name it VideoScreen

The result:

Form1:
form1.png
Code:

Public Class Form1
Code: Select all
 Private Sub RECScreen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RECScreen.Tick
        'The PlayBack Part of the program.
        If CheckBox1.Checked = True Then
            Dim DirectoryA As String = FileDIR.Text
            Dim Frame0 As String = FileNUM.Text
            Dim img0 As String = FileType.Text

            FileNUM.Text = FileNUM.Text + 1
            VideoScreenWindow.VideoScreen.Load(DirectoryA & Frame0 & img0)

        Else
            'The Recording Part Of the program.
            Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim BMP As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)

            Dim DirectoryA As String = FileDIR.Text
            Dim Frame1 As String = FileNUM.Text
            Dim img1 As String = FileType.Text

            FileNUM.Text = FileNUM.Text + 1
            BMP.Save(DirectoryA & Frame1 & img1)
        End If
    End Sub
Code: Select all
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        VideoScreenWindow.Show()
    End Sub
Code: Select all
 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        VideoScreenWindow.Hide()
    End Sub
Code: Select all
'Frame Rate, Playback Control & Recording Control
    Private Sub INT10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT10.Click
        Label1.Text = "100 FPS"
        RECScreen.Interval = "10"
    End Sub

    Private Sub INT50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT50.Click
        Label1.Text = "20 FPS"
        RECScreen.Interval = "50"
    End Sub

    Private Sub INT100_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT100.Click
        Label1.Text = "10 FPS"
        RECScreen.Interval = "100"
    End Sub

    Private Sub INT250_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT250.Click
        Label1.Text = "04 FPS"
        RECScreen.Interval = "250"
    End Sub

    Private Sub INT500_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT500.Click
        Label1.Text = "02 FPS"
        RECScreen.Interval = "500"
    End Sub

    Private Sub INT1000_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT1000.Click
        Label1.Text = "01 FPS"
        RECScreen.Interval = "1000"
    End Sub
Code: Select all
'Stop or Rec/Play Recording(s)
    Private Sub REC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REC.Click
        RECScreen.Enabled = True
        FileNUM.Text = "0"
    End Sub

    Private Sub STP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STP.Click
        RECScreen.Enabled = False
    End Sub
End Class
Download:

This file is hosted off-site.
You do not have the required permissions to view the files attached to this post.
Last edited by volttide on Sun Mar 20, 2011 3:32 am, edited 1 time in total.
User avatar
mandai
Coding God
Coding God
Posts: 2585
Joined: Mon Apr 26, 2010 6:51 pm

Re: mini screen recorder
mandai
It would be better if we could set the interval by typing it in.
User avatar
Usman55
VIP - Site Partner
VIP - Site Partner
Posts: 2821
Joined: Thu Dec 24, 2009 7:52 pm

Re: mini screen recorder
Usman55
I am 100% sure I saw this on some other website. And if it wasn't you who posted it, then you really should give credits...

Mods say that we should give -reps for such reasons but I don't want to let you down. Discouraging new members is a bad thing you know.
Image
User avatar
volttide
VIP - Donator
VIP - Donator
Posts: 106
Joined: Mon Jan 17, 2011 8:24 am

Re: mini screen recorder
volttide
usman55: The one who make this in the first time is "theusernameisfbiagent" in you tube
User avatar
ChaosOverLord
Member
Member
Posts: 36
Joined: Sun Mar 20, 2011 12:17 am

Re: mini screen recorder
ChaosOverLord
Its good but cant you use like Camstasia 7?
GoodGuy17
Coding God
Coding God
Posts: 1610
Joined: Mon Sep 07, 2009 12:25 am

Re: mini screen recorder
GoodGuy17
Chaos, the same statement can be made about any other program made.
User avatar
Bogoh67
VIP - Site Partner
VIP - Site Partner
Posts: 656
Joined: Sun Apr 18, 2010 8:20 pm

Re: mini screen recorder
Bogoh67
ive made 1 like this but i made it better with recording mouse and mouse background and region if u make it like that ill buy it
User avatar
RonaldHarvey
Top Poster
Top Poster
Posts: 113
Joined: Tue Apr 05, 2011 2:32 pm

Re: mini screen recorder
RonaldHarvey
Well done volttide, you did a good job. Thanks for sharing your ideas. cooll; cooll; cooll;
User avatar
volttide
VIP - Donator
VIP - Donator
Posts: 106
Joined: Mon Jan 17, 2011 8:24 am

Re: mini screen recorder
volttide
RonaldHarvey wrote:
Well done volttide, you did a good job. Thanks for sharing your ideas. cooll; cooll; cooll;
Your welcome
User avatar
irana
VIP - Donator
VIP - Donator
Posts: 5
Joined: Tue Jul 26, 2011 8:59 am

Re: mini screen recorder
irana
Nice work dude but i got some error when i run it in win7.
15 posts Page 1 of 2
Return to “Tutorials”