VB Tutorial: 2013

Xhamster Video Player & Downloader vb2008 express edtion

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

HTTP Proxy Setting VB 2008

Yang harus dipersiapkan adalah:

2 label
2 button
1 textbox dan 1 webbrowser

dan ini source codenya:

Imports System.Runtime.InteropServices
Public Class Form1
#Region "Using Proxy"
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
      Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    Private Sub UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub
#End Region
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        UseProxy(TextBox1.Text)
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Label2.Text = WebBrowser1.Document.All("content").InnerText
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Navigate("http://ip-score.com")
    End Sub
End Class

Dan ini aplikasinya

Download disini

Youtube auto viewer with proxy setting Vb 2008

Yang perlu dipersiapkan adalah:
4 label
2 textbox
1 shockwave plugin
1 timer interval 1000
1 listbox dan 3 button

ini source codenya:

Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
Public Class Form1

    Dim op As New OpenFileDialog()

#Region "Using Proxy"
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
      Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    Private Sub UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub
#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        web.Navigate("http://www.youtube.com/embed/" + TextBox1.Text + "?autoplay=1")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        web.Navigate("http://www.youtube.com/embed/MrUvwAZdWCw?autoplay=1")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        op.Filter = "TXT FILES|*.txt"
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then
            ListBox1.Items.AddRange(IO.File.ReadAllLines(op.FileName))
            Label2.Text = 1
            Timer1.Enabled = True
        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text -= 1
        If ListBox1.SelectedIndex > ListBox1.Items.Count Then
            Timer1.Enabled = False
        End If
        If Label2.Text = 0 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
            Label2.Text = 100
            TextBox2.Text = ListBox1.Text
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim s As String = ListBox1.Text
        UseProxy(s)
        If TextBox1.Text = "" Then
            web.Navigate("http://www.youtube.com/embed/MrUvwAZdWCw?autoplay=1")
        Else
            web.Navigate("http://www.youtube.com/embed/" + TextBox1.Text + "?autoplay=1")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub

End Class

untuk form 2 yang dipersiapkan adalah
1 label
1 timer dan 1 webbrowser

ini code untuk form 2 nya:

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Label1.Text = 0 Then
            WebBrowser1.Navigate("cmyip.com")
        End If
    End Sub
End Class

Link Download aplikasi:
Download disini

Internet File Downloader vb 2008

ok dibawah ini adalah kode pembuatan internet file downloader, dengan menu yang sangat simple sekali.

Imports System.Net
Imports System.Net.NetworkInformation

Public Class Form1
    Public WithEvents dl As New WebClient
    Dim BytesAlreadySent As Single
    Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)

    Dim sv As New SaveFileDialog
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then

            sv.FileName = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)

            If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
                dl = New WebClient
                dl.DownloadFileAsync(New Uri(TextBox1.Text), sv.FileName)
            End If

        End If
    End Sub

    Private Sub dl_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles dl.DownloadFileCompleted
        MsgBox("Download SUCCESS!")
        TextBox1.Text = ""
        ProgressBar1.Value = 0
    End Sub

    Private Sub dl_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles dl.DownloadProgressChanged

        ProgressBar1.Value = e.ProgressPercentage

        If e.TotalBytesToReceive > 1000 Then
            Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000) - (e.BytesReceived / 1000000), 2) & " MB / " & 100 - e.ProgressPercentage & " %"
            Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000, 2) & " MB"
        ElseIf e.TotalBytesToReceive > 1000000 Then
            Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000000) - (e.BytesReceived / 1000000000), 2) & " GB / " & 100 - e.ProgressPercentage & " %"
            Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000000, 2) & " GB"
        ElseIf e.TotalBytesToReceive > 1000000000 Then
            MsgBox("File Too Large")
        End If
        If e.BytesReceived > 1000 Then
            Label4.Text = FormatNumber(e.BytesReceived / 1000000, 2) & " MB / "
        ElseIf e.BytesReceived > 1000000 Then
            Label4.Text = FormatNumber(e.BytesReceived / 1000000000, 2) & " GB / "
        End If
        If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then
            Label9.Text = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)

        End If
        Label6.Text = e.ProgressPercentage & "%"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text & My.Computer.Clipboard.GetText
    End Sub
End Class

Atau download programnya disini

Perbedaan Penulisan Pada VB6 dan VB 2008/2010

Banyak sekali perbedaan penulisan pada vb6 dan 2008/2010 tergantung anda semua menilainya yang mana yang lebih simple dan lebih gampang tentunya, dibawah ini saya kasih beberapa contoh perbedaan penulisan pada vb6 dan vb2008/2010.

a.Penulisan Tanggal
Penulisan tanggal pada vb6 seperti ini saya kasih contoh ketika tanggal akan ditampilkan di label1

label1 = Date

berbeda dengan penulisan tanggal pada vb 2008/2010 yang memakai
label1.text = Date.Today
Kalau dilihat vb6 lebih simple dibanding vb 2008/2010

b. Penulisan ADD items pada combobox

dalam hal ini saya akan memberikan contoh memasukkan tanggal kedalam combobox vb6 dan vb 2008/2010.

pada vb6 :
Combo1.additem(Date)

pada vb2008/2010

Combobox1.items.add(Date.Today)

Kali ini vb6 juga masih lebih simpel dibanding vb2008 hehe, lah terus apa kelebihan vb 2008 dari vb6, itu nanti saya bahas di tempat yang berbeda.

c. Penulisan String Replace
Ini mungkin contoh yang terakhir yang saya kasihkan, karenabanyak banget perbedaan penulisan pada vb6 dan vb 2008/2010 ini mas bro.
disini saya akan membuat sebuah form yang isinya 1 textbox 1 label dan 1 button
ok pada vb6:
doubleklik button dan kode replacenya seperti ini:

Dim str As String
str = Text1
Label1 = Replace(str, "Aku", "Aang")

Jadi ketika anda mengetikkan misalnya "Aku ganteng banget" pada textbox dan anda klik buttonnya maka pada label1 akan keluar kata-kata seperti ini "Aang ganteng banget".

sekarang pada vb2008/2010

Dim str As String = Textbox1.Text
Label1.Text = str.Replace("Aku", "Aang")

maka hasilnya akan sama dengan vb6 mas bro, hehe

sudah dulu yah kebanyakan contoh ntar ga mau nyari sendiri hahahaha.

Aang PHP SQL Injection Scanner Versi 1.0.0.0 vb 2008

Aang PHP SQL Injection scanner ini dibuat memakai vb 2008, jika pengin tau source codenya silahkan

dicopy paste saja:

Imports System.Net
Imports System.IO
Imports System.Threading
Imports System.Text
Imports Google.API.Search
Public Class form1

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
    Public Function send(ByVal web As String)
        Try
            Dim ambil As HttpWebRequest = WebRequest.Create(web + "'")
            ambil.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; MS Web Services Client Protocol 2.0.50727.42)"
            Dim olah As HttpWebResponse = ambil.GetResponse()
            Dim hasil As IO.Stream = olah.GetResponseStream
            Dim lihat As IO.StreamReader = New StreamReader(hasil)
            Return lihat.ReadToEnd

        Catch ex As Exception
        End Try
    End Function

    Private Sub proses()
        For Each items In ListBox2.Items
            Dim user As String = send(items)
            Try
                If (user.Contains(" check the manual that corresponds")) Then
                    ListBox1.Items.Add(items + "'")
                Else

                End If
            Catch ex As Exception

            End Try
        Next
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tr As Thread
        tr = New Thread(AddressOf proses)
        tr.Start()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim cari As New GwebSearchClient("")
            Dim hasil As IList(Of IWebResult) = cari.Search(TextBox1.Text, ComboBox1.Text, Nothing, Nothing, Nothing, Nothing, Nothing)
            ListBox2.Items.Clear()
            For Each hasils As IWebResult In hasil
                ListBox2.Items.Add(hasils.Url)
            Next
        Catch ex As Exception
            Form2.Show()
        End Try

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub
    Private Sub pros()
        For Each items In TextBox2.Text
            Dim user As String = send(items)
            Try
                If (user.Contains(" check the manual that corresponds")) Or (user.Contains(" string in query expression")) Then
                    ListBox1.Items.Add(items + "'")
                Else

                End If
            Catch ex As Exception

            End Try
        Next
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim tr As Thread
        tr = New Thread(AddressOf pros)
        tr.Start()
    End Sub


    Private Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
        TextBox2.Text = ListBox2.SelectedItem
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        op.ShowDialog()
        ListBox2.Items.AddRange(IO.File.ReadAllLines(op.FileName))
    End Sub

    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Process.Start(ListBox1.SelectedItem)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()

    End Sub
End Class

yang dibutuhkan adalah :
2 textbox, 5 button 2 listbox, dan harus memakai google api search.

download aplikasinya Disini

Aang Radio Player vb6

Aang Radio Player versi 1.0 ini dibuat memakai vb6 dan terkoneksi ke database ms access 2007 makanya biar software ini bisa berjalan dikomputer anda harus sudah terinstall microsoft access 2007, software Aang Radio Player ini sudah dites di windows xp SP2 dan berjalan lancar.

kalau ada yang butuh source codenya silahkan dicopy paste saja:
1. module1

Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Sub main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0;data source=radio.accdb;persist security info=false;"
cn.Open
Form1.Show

End Sub

2. form1

Private Sub Command1_Click()
wmp.URL = Text1
End Sub

Private Sub Command2_Click()
wmp.Controls.stop
End Sub

Private Sub Command3_Click()
nama = InputBox("Masukkan Nama radio yang akan di ADD", "Nama Radio", "Masukkan Nama Radionya")
Dim str As String
Dim rs As New ADODB.Recordset
str = "insert into list (URL,Nama)values('" & Text1 & "','" & nama & "')"
Set rs = cn.Execute(str)
Set rs = Nothing
MsgBox "sukses"
Call lihat
End Sub

Sub lihat()
Dim str As String
Dim rs As New ADODB.Recordset
str = "select * from list order by ID DESC"
Set rs = cn.Execute(str)
List1.Clear
Do While Not rs.EOF
List1.AddItem (rs!nama)
rs.MoveNext
Loop
Set rs = Nothing

End Sub

Private Sub Form_Load()
Text1 = "http://216.239.136.8:8000"
Call lihat
End Sub

Private Sub List1_DblClick()
Dim str As String
Dim rs As New ADODB.Recordset
str = "select * from list where Nama='" & List1.Text & "'"
Set rs = cn.Execute(str)
wmp.URL = rs!URL
Text1 = "Playing: " & rs!nama
Set rs = Nothing
End Sub

yang dibutuhkan adalah 1 windows media player component, 1 texbox, 3 button dan 1 listbox.
rename windows media player menjadi wmp

Download Aplikasinya Disini

Youtube media Player V 1.0.02 vb 2008

Jika anda malas untuk membuka youtube melalui web browser mungkin karena ribet atau bagaimana anda sekarang saya buatin youtube media playernya.

ni code sourcenya

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If c1.Checked = True Then
            Dim value1 As String = TextBox1.Text
            sock.Movie = value1.Replace("watch?v=", "v/")
            sock.Play()
        ElseIf c2.Checked = True Then
            sock.Movie = TextBox1.Text
            sock.Play()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        brw.Navigate("http://www.youtube.com/results?search_query=" & TextBox2.Text)
    End Sub

    Private Sub brw_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles brw.ProgressChanged
        Dim el As HtmlElementCollection = brw.Document.All
        For Each dt As HtmlElement In el
            ComboBox1.Items.Add(dt.GetAttribute("href"))
            ComboBox1.Items.Remove("http://s.ytimg.com/yts/cssbin/www-core-vflo845xA.css")
            ComboBox1.Items.Remove("http://www.youtube.com/opensearch?locale=en_US")
            ComboBox1.Items.Remove("http://s.ytimg.com/yts/img/favicon-vfldLzJxy.ico")
            ComboBox1.Items.Remove("//s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png")
            ComboBox1.Items.Remove("http://www.youtube.com/")
            ComboBox1.Items.Remove("http://www.youtube.com/upload")
            ComboBox1.Items.Remove("http://www.youtube.com/chanels")
            ComboBox1.Items.Remove("http://www.youtube.com/sport")
            ComboBox1.Items.Remove("http://www.youtube.com/sports")
            ComboBox1.Items.Remove("http://www.youtube.com/music")
            ComboBox1.Items.Remove("http://www.youtube.com/gaming")
            ComboBox1.Items.Remove("http://m.youtube.com/results?search_query=" & TextBox2.Text)
            ComboBox1.Items.Remove("http://s.ytimg.com/yts/cssbin/www-results-vflQeXgfX.css")
            ComboBox1.Items.Remove("https://accounts.google.com/ServiceLogin?passive=true&continue=http%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26feature%3Dsign_in_button%26hl%3Den_US%26next%3D%252Fresults%253Fsearch_query%253D")
        Next

    End Sub

    Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Dim val As String = ComboBox1.Text
        sock.Movie = val.Replace("watch?v=", "v/")
        sock.Play()
    End Sub

    Private Sub c1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles c1.CheckedChanged
        c2.Checked = False
    End Sub

    Private Sub c2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles c2.CheckedChanged
        c1.Checked = False
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        Me.Close()
    End Sub

End Class

download filenya disini

Web Rank Checker vb6

web rank checker buatan saya sangat sederhana dan sangat simple sekali dibawah ini kodenya:

rivate Sub Command1_Click()
WebBrowser1.Document.All("Check").Value = Text1
WebBrowser1.Document.All("cek").Click
WebBrowser1.Silent = True

End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate ("http://shareany.net/cek.php")
WebBrowser1.Silent = True
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://shareany.net/cek.php")
WebBrowser1.Silent = True
End Sub

Private Sub Label2_Click()
End
End Sub

Download Softwarenya disini

SMS Software Gratis tanpa biaya seperakpun

Software SMS ini bisa digunakan oleh siapa saja, dan jangan berani-berani memakai software ini buat penipuan yes, karena log data lokasi elu kedetek semua.

Biar bisa berjalan software ini membutuhkan installasi yang mendukung yaitu microsoft Office Access 2007, kalo ga, ga bakalan bisa digunain.

download softwarenya disini

Efek Gambar VB6 (Picture Effect VB6)

Efek Gambar ini mungkin bisa dijadikan sebagai awal permulaan pembuatan software video editing.

Kodenya seperti dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Picture1.Height = Picture1.Height + 10
Picture1.Width = Picture1.Width + 5
Label1.Width = Label1.Width + 10
Label1.Height = Label1.Width + 5
Label2.Width = Label1.Width + 10
Label2.Height = Label1.Width + 5
End Sub

Downlod Filenya Disini

Font Zooming Manual & Otomatis VB6

Font Zoom ini dibuat menggunakan VB6 dengan menu merubah font menjadi BOLD, ITALIC, UNDERLINDE, Merubah Ukuran Font, Merubah Jenis Font, Zoom 5x Manual, Zoom 10x Manual, Zoom 100x Manual, Zoom Otomatis, Stop Zooming, Mengganti warna Font pada label1 dan reset data.

Kodenya seperti ini:

Private Sub Combo1_Click()
Label1.Font = Combo1.Text
End Sub

Private Sub Combo2_Click()
Label1.FontSize = Combo2.Text
End Sub

Private Sub Command1_Click()
Label1.FontSize = Text1.FontSize + 5
End Sub

Private Sub Command10_Click()
If Label1.ForeColor = &HF0& Then
Label1.ForeColor = &H80000012
Else
Label1.ForeColor = &HF0&
End If
End Sub

Private Sub Command2_Click()
Label1.FontSize = Text1.FontSize + 10
End Sub

Private Sub Command3_Click()
Label1.FontSize = 12
Timer1.Enabled = False
End Sub

Private Sub Command4_Click()
If Label1.FontBold = True Then
Label1.FontBold = False
Else
Label1.FontBold = True
End If
End Sub

Private Sub Command5_Click()
If Label1.FontUnderline = True Then
Label1.FontUnderline = False
Else
Label1.FontUnderline = True
End If
End Sub

Private Sub Command6_Click()
If Label1.FontItalic = True Then
Label1.FontItalic = False
Else
Label1.FontItalic = True
End If
End Sub

Private Sub Command7_Click()
Label1.FontSize = Text1.FontSize + 100
End Sub

Private Sub Command8_Click()
Timer1.Enabled = True
Label1.Font = "Agency FB"
End Sub

Private Sub Command9_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Label1.FontSize = 12
End Sub

Private Sub Text1_Change()
Label1 = Text1
End Sub

Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 5
If Label1.ForeColor = &HF0& Then
Label1.ForeColor = &H80000012
Else
Label1.ForeColor = &HF0&
End If
End Sub

Download Filenya Disini

Simple Alarm vb6

Buatlah 1 form dengan menu
2 timer interval 1000, timer 1 enabled true dan timer 2 enabled false
3 text
1 command

3 label.

masukkan kode dibawah ini.

Private Sub Command1_Click()
Timer2.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1 = Hour(Time)
Label2 = Minute(Time)
Label3 = Second(Time)
End Sub

Private Sub Timer2_Timer()
If Text1 = Label1 And Text2 = Label2 Then
MsgBox (Text3)
Text1 = ""
Text2 = ""
Text3 = ""
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
End If
End Sub

atau download saja softwarenya disini

VB Tutorial

Sponsor