Membuat Game TTS (Teka Teki Silang) Menggunakan Visual Basic 2008/VB.net

Untuk Membuat Game TTS (Teka Teki Silang) Menggunakan Visual Basic 2008/VB.net anda harus mengerti terlebih dahulu jawaban dari pertanyaan yang akan anda buat dan mampu menghitung jumlah huruf dari setiap jawaban dari pertanyaan yang dibuat tersbut, kemudian harus bisa menggabungkan 2 jawaban atau lebih menjadi satu rangkaian kata dengan metode mendatar dan menurun.

Membuat Game TTS (Teka Teki Silang) Menggunakan Visual Basic 2008/VB.net susah-susah mudah sebenarnya, karena harus benar-benar jeli dan tau betul rancangan If & Then.

Karena rancangan If & Then ini tidak seperti If & Then sederhana yang hanya menggunakan 1 Alasan saja akan tetapi logika awalnya seperti ini Jika textbox1.text=A atau textbox1.text=a dan textboxt2.text=B atau textbox2.text=b maka label1.text=benar.

Baiklah untuk mempersingkat waktu dan tempat juga penulisan maka saya akan memulai pembuatan Game TTS ini, buatlah satu form dengan komponen:

• 32 Textbox
• 5 Label
• 1 Picturebox

 Lihat gambar dibawah ini dan buatlah agar persis seperti gambar dibawah ini:

 

Selanjutnya klik 2 kali formnya, hapus semua kode yang sudah ada dan masukkan kode dibawah ini:

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.Enabled = False
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox2.Enabled = False
        If (TextBox1.Text = "a" Or TextBox1.Text = "A") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text += 1
        ElseIf (TextBox1.Text = "" Or TextBox1.Text = "") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox1.Text = "" Or TextBox1.Text = "") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "" Or TextBox3.Text = "") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox1.Text = "a" Or TextBox1.Text = "A") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "" Or TextBox3.Text = "") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        TextBox3.Enabled = False
        If (TextBox1.Text = "a" Or TextBox1.Text = "A") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text += 1
        ElseIf (TextBox1.Text = "" Or TextBox1.Text = "") And (TextBox2.Text = "" Or TextBox2.Text = "") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        TextBox4.Enabled = False
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        TextBox5.Enabled = False
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        TextBox6.Enabled = False
        If (TextBox4.Text = "l" Or TextBox4.Text = "L") And (TextBox5.Text = "a" Or TextBox5.Text = "A") And (TextBox6.Text = "r" Or TextBox6.Text = "R") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub


    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        TextBox7.Enabled = False
    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        TextBox8.Enabled = False
    End Sub

    Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
        TextBox9.Enabled = False
    End Sub

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
        TextBox10.Enabled = False
        If (TextBox7.Text = "a" Or TextBox7.Text = "A") And (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox9.Text = "g" Or TextBox9.Text = "G") And (TextBox10.Text = "e" Or TextBox10.Text = "E") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
        TextBox11.Enabled = False
    End Sub

    Private Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox12.TextChanged
        TextBox12.Enabled = False
    End Sub

    Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged
        TextBox13.Enabled = False
        If (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "o" Or TextBox11.Text = "O") And (TextBox12.Text = "b" Or TextBox12.Text = "B") And (TextBox13.Text = "o" Or TextBox13.Text = "O") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text += 1
        ElseIf (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "o" Or TextBox11.Text = "O") And (TextBox12.Text = "b" Or TextBox12.Text = "B") And (TextBox13.Text = "o" Or TextBox13.Text = "O") And (TextBox14.Text = "" Or TextBox14.Text = "") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox8.Text = "" Or TextBox8.Text = "") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
        TextBox14.Enabled = False
        If (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "o" Or TextBox11.Text = "O") And (TextBox12.Text = "b" Or TextBox12.Text = "B") And (TextBox13.Text = "o" Or TextBox13.Text = "O") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text += 1
        ElseIf (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox8.Text = "" Or TextBox8.Text = "") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox20_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox20.TextChanged
        TextBox20.Enabled = False
        If (TextBox15.Text = "p" Or TextBox15.Text = "P") And (TextBox16.Text = "r" Or TextBox16.Text = "R") And (TextBox17.Text = "i" Or TextBox17.Text = "I") And (TextBox18.Text = "n" Or TextBox18.Text = "N") And (TextBox14.Text = "t" Or TextBox14.Text = "T") And (TextBox19.Text = "e" Or TextBox19.Text = "E") And (TextBox20.Text = "r" Or TextBox20.Text = "R") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged
        TextBox15.Enabled = False
    End Sub

    Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged
        TextBox16.Enabled = False
    End Sub

    Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged
        TextBox17.Enabled = False
    End Sub

    Private Sub TextBox18_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox18.TextChanged
        TextBox18.Enabled = False
    End Sub

    Private Sub TextBox19_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox19.TextChanged
        TextBox19.Enabled = False
    End Sub

    Private Sub TextBox21_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox21.TextChanged
        TextBox21.Enabled = False
    End Sub

    Private Sub TextBox22_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox22.TextChanged
        TextBox22.Enabled = False
    End Sub

    Private Sub TextBox23_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox23.TextChanged
        TextBox23.Enabled = False
    End Sub

    Private Sub TextBox24_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox24.TextChanged
        TextBox24.Enabled = False
        If (TextBox15.Text = "p" Or TextBox15.Text = "P") And (TextBox21.Text = "u" Or TextBox21.Text = "U") And (TextBox22.Text = "a" Or TextBox22.Text = "A") And (TextBox23.Text = "s" Or TextBox23.Text = "S") And (TextBox24.Text = "a" Or TextBox24.Text = "A") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox25_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox25.TextChanged
        TextBox25.Enabled = False
    End Sub

    Private Sub TextBox26_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox26.TextChanged
        TextBox26.Enabled = False
    End Sub

    Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox27.TextChanged
        TextBox27.Enabled = False
    End Sub

    Private Sub TextBox28_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox28.TextChanged
        TextBox28.Enabled = False
    End Sub

    Private Sub TextBox29_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox29.TextChanged
        TextBox29.Enabled = False
        If (TextBox22.Text = "a" Or TextBox22.Text = "A") And (TextBox25.Text = "m" Or TextBox25.Text = "M") And (TextBox26.Text = "a" Or TextBox26.Text = "A") And (TextBox27.Text = "n" Or TextBox27.Text = "N") And (TextBox28.Text = "a" Or TextBox28.Text = "A") And (TextBox29.Text = "t" Or TextBox29.Text = "T") Then
            Label3.Text += 1
        Else
            Label4.Text += 1

        End If
    End Sub

    Private Sub TextBox30_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox30.TextChanged
        TextBox30.Enabled = False
    End Sub

    Private Sub TextBox31_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox31.TextChanged
        TextBox31.Enabled = False
    End Sub

    Private Sub TextBox32_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox32.TextChanged
        TextBox32.Enabled = False
        If (TextBox18.Text = "n" Or TextBox18.Text = "N") And (TextBox30.Text = "e" Or TextBox30.Text = "E") And (TextBox27.Text = "n" Or TextBox27.Text = "N") And (TextBox31.Text = "e" Or TextBox31.Text = "E") And (TextBox32.Text = "k" Or TextBox32.Text = "K") Then
            Label3.Text += 1
        Else
            Label4.Text += 1

        End If
    End Sub


    Private Sub Label3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.TextChanged
        If Label3.Text = 9 Then
            MsgBox("Otak anda cerdas juga yah...")
        End If
    End Sub

    Private Sub Label4_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label4.TextChanged
        If Label4.Text >= 9 Then
            MsgBox("Otak anda sepertinya perlu dibawa kedokter jiwa...")
        End If
    End Sub

    Private Sub TextBox33_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox33.TextChanged
        TextBox33.Enabled = False
        If (TextBox20.Text = "r" Or TextBox20.Text = "R") And (TextBox33.Text = "s" Or TextBox33.Text = "S") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub


End Class
 

Read more

Membuat Screen Capture Menggunakan Visual Basic 2008/ VB.net

Yang perlu diperhatikan dalam pembuatan screen capture menggunakan Visual Basic 2008 / vb.net adalah dalam setting formnya, karena membutuhkan 2 form dan diantara dua form tersebut ada yang dibaut menjadi transparant.

Untuk Membuat Screen Capture Menggunakan Visual Basic 2008/ VB.net yang dibutuhkan adalah:

• 2 button 
• 1 picturebox
• 2 form

Ganti backgroun button1 dengan gabar foto apa saja, dan button 2 dengan gambar disket dan ganti background form1 dengan gabar sesuai selera anda saja lihat gambar dibawah ini:

 Pada Form2 taruhlah 1 Button dengan backgorund kamera, dan FormBorderStyle ganti menjadi FixedDialog, ControlBox False dan ganti background menjadi warna biru seperti gambar dibawah ini:

 

Langkah selanjutnya adalah masuk ke halaman form1, klik 2 kali ditengah form, hapus semua kode yang ada dan masukkan kode dibawah:

Public Class Form1

    Dim sv As New SaveFileDialog
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sv.Filter = "JPG File|*.jpg"
        If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image.Save(sv.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        Else

        End If
    End Sub



    Private Sub Button_StartMouseSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_StartMouseSelect.Click
        Form2.StartPosition = FormStartPosition.CenterScreen
        Form2.Opacity = 30
        Form2.Show()
        Me.Hide()
    End Sub

    Private Sub Form1_MaximumSizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MaximumSizeChanged

    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Maximized Then
            PictureBox1.Height = 648
        ElseIf Me.WindowState = FormWindowState.Normal Then
            PictureBox1.Height = 404
        ElseIf Me.WindowState = FormWindowState.Minimized Then
            PictureBox1.Height = 404
        End If
    End Sub

 
End Class

Kemudian pada Form2 klik 2 kali, hapus semua kode yang ada lalu masukkan kode dibawah:

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(MousePosition.X, MousePosition.Y)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
        Me.BackColor = Color.Blue
        Me.TransparencyKey = Color.Blue
        Me.TopMost = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Opacity = 0
        Dim area As Rectangle = Me.Bounds
        Dim capture As System.Drawing.Bitmap = New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        Dim graph As Graphics = Graphics.FromImage(capture)
        graph.CopyFromScreen(area.X, area.Y, 0, 0, area.Size, CopyPixelOperation.SourceCopy)
        Form1.PictureBox1.Image = capture
        Form1.Show()
        Me.Hide()
    End Sub
End Class

 

Read more

Membuat Shutdown, Restart, Sleep Timer menggunakan visual basic 2008/ vb.net

Untuk Membuat Shutdown, Restart, Sleep Timer menggunakan visual basic 2008/ vb.net komponen yang dibutuhkan yaitu:

1. 3 label

2. 3 button

3. 2 timer

4. 2 combo box

Kosongkan text pada label1 dan ganti text pada label2 menjadi Jam dan label3 menjadi Opsi, kemudian isikan items pada combobox1 dari angka 1 hingga 23 kemudian dilanjutkan angka 00 dan combobox2 isikan items:

• Shutdown
• Restart
• Sleep

Lalu ganti text dari button menjadi Setting Manual ganti background form menggunakan gambar sesuai keinginan anda saja dan ubah FormBorderStyle menjadi None, ganti Text pada button2 menjadi X dan hapus text pada button3 lihat  gambar dibawah:

 

Setelah tampilan tertata menjadi seperti yang diatas, kemudian klik 2 kali formnya dan hapus semua kode yang ada lalu masukkan kode dibawah:

Imports System.IO
Public Class Form1
    Private IsFormBeingDragged As Boolean = False
    Private MouseDownX As Integer
    Private MouseDownY As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown

        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp

        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = False
        End If
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove

        If IsFormBeingDragged Then
            Dim temp As Point = New Point()

            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = "Jam Sekarang  " & TimeOfDay
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Dim file As String = "srst.exe"
        Dim dir As Object = Path.GetFullPath(file)
        Dim reg As Object = CreateObject("WScript.Shell")
        reg.regWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\srst", dir)
        Timer2.Enabled = True
        NotifyIcon1.Visible = True
        Me.Hide()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If ComboBox1.Text = "" Then
            Timer2.Stop()
            MsgBox("Anda belum setting jam!!", MsgBoxStyle.Critical, "Error!!")

        ElseIf Hour(TimeOfDay) = ComboBox1.Text Then
            If ComboBox2.Text = "Shutdown" Then
                Shell("Shutdown -s")
                Timer2.Enabled = False
            ElseIf ComboBox2.Text = "Restart" Then
                Shell("Shutdown -r")
                Timer2.Enabled = False
            ElseIf ComboBox2.Text = "Sleep" Then
                Shell("Shutdown -l")
                Timer2.Enabled = False

            End If
        Else
        End If
    End Sub

    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
        NotifyIcon1.Visible = False
        Me.Show()
    End Sub

    Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        NotifyIcon1.Visible = False
        Me.Show()
    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 1
        Me.Top = 1
        Me.TopMost = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        NotifyIcon1.Visible = True
        Me.Hide()
    End Sub
End Class
 

Read more

Video Tutorial visual basic 6 dan visual basic 2008

Bagi anda yang menginginkan Video Tutorial visual basic 6 dan visual basic 2008 dari berbagai macam jenis aplikasi yang dibuat oleh saya dapat dilihat di channel youtube saya, video tutorial ini dibuat untuk mempermudah anda dalam mempelajari bahasa pemprograman visual basic baik visual basic 6 ataupun versi yang setelahnya.

Dalam Video Tutorial visual basic 6 dan visual basic 2008 yang saya buat mungkin belum pernah ada yang mempublish meskipun dengan judul yang sama saya yakin kode yang saya gunakan tidak sama dengan yang lain, Video Tutorial visual basic 6 dan visual basic 2008 yang saya masukkan ke youtube akan selalu update sehingga anda tidak kebingungan lagi ketika mencari pelajaran tentang pemprograman menggunakan visual basic.

Video Tutorial visual basic 6 dan visual basic 2008 yang pertama kali di upload adalah tutorial database ms access dengan visual basic 6 ketika database sudah selesai selanjutnya adalah pemprograman lain yang menggunakan visual basic 6 baik yang berhubungan dengan database ataupun yang tidak menggunakan database.

Anda dapat melihat semua video tutorial saya di channel saya yang di youtube yaitu http://www.youtube.com/user/ArtikelVisualBasic/videos
Copy link diatas dan pastekan pada browser kesayangan anda dan make bookmark jika memang anda benar-benar membutuhkan tutorial tentang visual basic, karena saya akan mencoba menerangkan visual basic secara gamblang dan terbuka tanpa ada yang ditutup-tutupi.

Read more

Membuat program cek koneksi menggunakan visual basic 2008/ vb.net

Awalnya difacebook ada seseorang yang bertanya bagaimana membuat Membuat program cek koneksi menggunakan visual basic dan saya menjadi tertarik untuk membuat artikel bagaimana membuat cek koneksi menggunakan visual basic 2008/ vb.net sebenarnya caranya sangat mudah sekali dan tidak perlu terlalu rumit.

Untuk langkah awal dalam Membuat program cek koneksi menggunakan visual basic 2008/ vb.net  buatlah satu form dengan komponen 2 label, label pertama ganti isi text menjadi Status dan label ke 2 menjadi ... seperti gambar dibawah:

 

Selanjutnya klik 2 kali form yang sudah di buat, hapus semua kode dan masukkan kode dibawah:

Public Class Form1
    Dim WithEvents web As New WebBrowser
    Dim stri As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Network.IsAvailable Then
            web.Navigate("http://shareany.net/ip.html")

        Else
            Label2.Text = "Tidak Konak dari: " & My.Computer.Name
        End If
    End Sub

    Private Sub web_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles web.DocumentCompleted
        stri = web.Document.All("ip").InnerHtml
        Label2.Text = "Konak" & vbNewLine & "IP: " & stri.Replace("<BR>", vbNewLine)

    End Sub
End Class

Maka ketika di jalankan programnya akan menghasilkan seperti gambar dibawah:

 

 

Read more

Membuat Youtube video viewer menggunakan visual basic 6

Untuk Membuat Youtube video viewer menggunakan visual basic 6 sebenarnya mudah sekali hanya dibutuhkan pengetahuan tentang link youtube baik yang dari www.youtube.com/watch?v= atau dari www.youtube.com/v/ dari dua metode ini semuanya dapat digunakan menjadi aplikasi youtube viewer dengan visual basic 6.

Untuk mengawali pembuatan Youtube video viewer buatlah 1 form dengan komponen-komponen dibawah:

1. 1 shockwave rename menjadi sock
2. 1 label dengan caption Video ID
3. 1 text
4. 1 button

Lihat gambar dibawah:

Setelah tampilan seperti gambar diatas kemudian klik dua kali form, hapus semua kode dan masukkan kode dibawah:

Private Sub Command1_Click()
sock.Movie = "http://youtube.com/v/" & Text1 & "?autoplay=1"
sock.Play
End Sub

Lalu coba Run aplikasi yang sudah dibuat maka hasilnya seperti gambar dibawah:

 

 

Read more

Membuat Effect fade out visual basic 2008/vb.net

Untuk Membuat Effect fade out visual basic 2008/vb.net sebenarnya sangat sederhana sekali karena tidak begitu membutuhkan ketelitian yang sangat matang, dan hanya menggunakan beberapa metode saja, saya mencoba Membuat Effect fade out visual basic 2008/vb.net dengan beberapa fariasi sehingga tidak begitu terlihat monoton.

Dengan visual basic 2008 saya akan memulai pembuatan effect fade out, cukup dengan 1 form dan rubah gambar background lalu masukkan komponen 1 timer dan 1 trackbar, untuk trackbar set maximum jadi 700 lalu ganti size menjadi 0 dan timer interval menjadi 10, lalu perkecil hingga batas akhir minimun ukuran form1 lihat gambar dibawah:

Sebelum diperkecil seperti gambar diatas tampilannya seperti gambar dibawah:

 

Setelah tampilan form seperti gambar pertama, kemudian klik 2 kali form, hapus semua kode dan masukkan kode dibawah:

Public Class Form1

    Private Sub Form1_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
        Me.Width += 1
        Me.Height += 1
        TrackBar1.Maximum = Me.Width
        TrackBar1.Value = Me.Width
        TrackBar1.Width = Me.Width
        If Me.Width = "600" Then
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Me.Width = TrackBar1.Value
    End Sub
End Class

Maka ketika di Run secara otomatis form akan melebar dan ketika ukuran lebar form mencapai 600 maka form akan berhenti memperlebar, dan dibawah terdapat trackbar jika ditarik kekiri, maka ukuran lebar form akan semakin mengecil.

 

Read more

Membuat Ping Reply dengan visual basic 2008/vb.net

Biasanya seseorang Membuat Ping Reply dengan visual basic 2008/vb.net digunakan untuk memulai pembuatan program DDOS Attacker atau UDP flooder, namun kali ini saya tidak akan mengajarkan bagaimana cara membuat DDOS Attacker atau UDP Flooder karena biasanya kalau sudah diajarkan maka akan digunakan untuk hal yang melanggar aturan, jadi kali ini saya hanya akan menerangkan dengan singkat bagaimana Membuat Ping Reply dengan visual basic 2008.

Untuk Membuat Ping Reply dengan visual basic 2008 anda cukup membuat 1 form dengan komponen 1 textboxt, 2 button, 1 listbox dan 1 timer, lihat gambar dibawah:

Lalu klik 2 kali form yang sudah dibuat, hapus semua kode dan masukkan kode ini:

Imports System.Net

Public Class Form1
    Dim pi As New Net.NetworkInformation.Ping

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim host As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = host.AddressList

        pi.Send(TextBox1.Text)
        Try
            ListBox1.Items.Add("Reply Dari " & ip(0).ToString & " waktu=" & pi.Send(TextBox1.Text).RoundtripTime & " TTL=" & pi.Send(TextBox1.Text).Options.Ttl)
            ListBox1.SelectedIndex += 1
        Catch

            ListBox1.Items.Add("Hubungan Terputus")
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ganti As String = InputBox("Silahkan masukkan alamat url tanpa menggunakan http://", "Form ganti alamat url ping")
        If ganti = "" Then
            TextBox1.Text = "www.google.com"
        Else
            TextBox1.Text = ganti
        End If


    End Sub
End Class

Lihat hasil dari kode dan form yang sudah dibuat pada gambar dibawah:

 

 

Read more

Membuat converter Temperatur visual basic 2008/ vb.net

Untuk membuat converter Temperatur visual basic 2008/ vb.net sangatlah sederhana, yang terpenting anda sudah tahu rumus awal perbedaan antara farenheit dengan celcius, dan rumus untuk meng konfersi farenheit ke celcius adalah (data temperatur*1.8)+32 dan rumus untuk konfersi dari celcius ke farenheit adalah (data temperatur-32)/1.8, maka selanjutnya saya akan mencoba membuat konferter temperatur paling sederhana menggunakan Visual Basic 2008 / vb.net.

Dan dalam membuat converter Temperatur visual basic 2008/ vb.net yang di butuhkan adalah satu form dengan 1 textbox, 2 radiobutton, dan 1 label seperti gambar dibawah ini:

 

Setelah membuat form dengan tampilan seperti diatas kemudian klik dua kali form tersebut dan hapus semua kode yang sudah ada dan masukkan kode dibawah:

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then

            Label1.Text = TextBox1.Text & " Fahrenheit = " & (TextBox1.Text * 1.8) + 32 & " Celsius"
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            Label1.Text = TextBox1.Text & " Celsius = " & FormatNumber((TextBox1.Text - 32) / 1.8, 2) & " Fahrenheit"
        End If
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim angka As Integer = Asc(e.KeyChar)
        If Not (((angka >= 48) And (angka <= 57)) Or (angka = 8)) Then
            e.Handled = True
        End If
End Class

Kemudian Run program tersebut dan hasilnya akan secara otomatis akan menghitung angka yang dimasukkan kedalam textbox1.

Read more

Membuat Screen Capture / Screen Shot menggunakan visual basic 2008 /vb.net

Setelah saya Membuat Sound recorder menggunakan visual basic 2008 dan sukses kemudian saya tertarik untuk Membuat Screen Capture / Screen Shot menggunakan visual basic 2008 /vb.net karena nantinya akan saya kembangkan menjadi screen recorder atau perekam screen, untuk membuat screen capture anda hanya membutuhkan beberapa komponen yaitu 2 button,1 label, 2 picturebox dan 2 form, 2 picturebox dipisah, yang satu taruhi di form1 dan yang satunya taruh di form2 kemudian ganti text button pertama menjadi Ambil dan text pada button kedua menjadi Lihat Hasil lalu picturebox dan label1 pada form1 ganti setting visible jadi false dan form1 opacity jadi 50%  seperti gambar dibawah ini:

 

Setelah setting tampilah form1 sudah sama seperti gambar diatas, kemudian klik form2 dan lihat gambar dibawah ini:

 

Pada gambar diatas disamping kiri terlihat Dock = Fill ini dimaksudkan agar ketika Form2 di maximize maka picturebox akan mengikuti besarnya layar, setelah form2 disetting seperti gambar diatas kemudian klik Form1 Design dan klik dua kali formnya kemudian hapus semua kode yang ada dan masukkan kode dibawah ini:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()

        Dim bounds As Rectangle
        Dim sc As System.Drawing.Bitmap
        Dim gr As Graphics
        bounds = Screen.PrimaryScreen.WorkingArea
        sc = New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        gr = Graphics.FromImage(sc)
        gr.CopyFromScreen(Bounds.X, Bounds.Y, 0, 0, Bounds.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = sc
        Dim sv As New SaveFileDialog

        Try

            sv.Title = "Simpan File"

            sv.FileName = "PrintScreen"

            sv.Filter = "PNG |*.png"

            If sv.ShowDialog() = DialogResult.OK Then

                PictureBox1.Image.Save(sv.FileName, System.Drawing.Imaging.ImageFormat.Png)
                Label1.Text = sv.FileName
                Form2.PictureBox1.ImageLocation = Label1.Text
                Form2.Show()

            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.PictureBox1.ImageLocation = Label1.Text
        Form2.Show()
    End Sub
End Class

Sekarang screen recordernya sudah jadi dan tinggal dikembangkan sendiri biar makin canggih tentunya.

 

 

Read more

Membuat Sound recorder menggunakan visual basic 2008

Membuat Sound recorder menggunakan visual basic 2008 sebenarnya sangatlah mudah sekali jika anda sudah mengetahui sedikit kode system windows, karena sound recorder yang akan saya buat adalah sound recorder dengan ekstensi file wav, visual basic 2008 bisa dikatakan program dengan menu terlengkap karena apa saja yang dibutuhkan dapat digunakan pada Microsoft visual basic 2008 ini.

Dan selanjutnya saya akan memulai Membuat Sound recorder menggunakan visual basic 2008, disini saya akan membuat 1 form dengan 1 progressbar, 3 button 4 label dan 2 timer seperti gambar dibawah ini:

 

Kemudian saya membuat kode seperti dibawah ini:

Public Class Form1
    Dim sv As New SaveFileDialog
    Private Declare Function record Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
            Label1.Text = sv.FileName & ".wav"
            record("save recsound " & sv.FileName & ".wav", "", 0, 0)
            record("close recsound", "", 0, 0)
            Timer1.Enabled = False
            ProgressBar1.Value = 0
        Else

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        record("open new Type waveaudio Alias recsound", "", 0, 0)
        record("record recsound", "", 0, 0)
        Label3.Text += 1
        If Label3.Text = 60 Then
            Label3.Text = 0
            Label4.Text += 1
        End If
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Audio.Play(Label1.Text, AudioPlayMode.Background)
        Timer2.Enabled = True
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label3.Text += 1
        If Label3.Text = 60 Then
            Label3.Text = 0
            Label4.Text += 1
        End If
    End Sub
End Class

Sekarang waktunya mencoba sound recorder buatan saya.

 

Read more

Membuat program ramalan menggunakan visual basic 2008

Setelah saya membuat program converter masehi ke hijriyah menggunakan visual basic 2008 dan program deteksi hari, selanjutnya saya akan Membuat program ramalan menggunakan visual basic 2008,  dalam pembuatan ramalan ini memang masih bisa dikatakan sangat sederhana dan sangat mudah karena hanya menggunakan satu form saja, untuk mengawali tutorial ini saya akan sedikit menggambarkan bagaimana cara kerja program ramalan yang akan dibuat yaitu, anda cukup memasukkan nama dan tanggal lahir saja dan secara otomatis program ramalan ini akan menditeksi hari kemudian setelah hari lahir terditeksi program akan secara otomatis menerangkan watak dan keuangan anda.

Selanjutnya ini adalah cara Membuat program ramalan menggunakan visual basic 2008, caranya sangat mudah sekali anda cukup membuat satu form dengan isi sebagai berikut: 1 picuturebox, 4 textbox, 1 Richtextbox , 5 label dan 1 button dan inilah keterangan untuk masing masing komponen.

Taruhlah gambar apa saja pada picturebox, edit text label5 menjadi "Masukkan Nama Anda" dan taruh tepat dibawah picturebox, edit text label2 menjadi BLN, text label3 menjadi TGL dan text label4 menjadi THN dan label1 menjadi HARI, dan taruh Richtextbox tepat disamping kanan picture box, rubah background form menjadi hitam dan ganti forecolor semua label menjadi putih lihat gambar dibawah:

Setelah tampilan menjadi seperti gambar diatas klik dua kali formnya dan hapus semua kode yang ada kemudian pastekan kode dibawah ini:

Imports System.Globalization.GregorianCalendar
Public Class Form1
    Dim tgl As New Globalization.GregorianCalendar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = tgl.GetDayOfWeek(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text).ToString
        If Label1.Text = "Sunday" Then
            Label1.Text = "Ahad"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Tuesday" Then
            Label1.Text = "Selasa"
        ElseIf Label1.Text = "Wednesday" Then
            Label1.Text = "Rabu"
        ElseIf Label1.Text = "Thursday" Then
            Label1.Text = "Kamis"
        ElseIf Label1.Text = "Friday" Then
            Label1.Text = "Jum'at"
        ElseIf Label1.Text = "Saturday" Then
            Label1.Text = "Sabtu"
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text > 12 Then
            MsgBox("Bulan tidak lebih dari 12")
            TextBox1.Text = "0"
        Else
            TextBox1.Text = TextBox1.Text
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text > 31 Then
            MsgBox("Tanggal tidak lebih dari 31")
            TextBox2.Text = "0"
        Else
        End If
    End Sub


    Private Sub Label1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
        If Label1.Text = "Ahad" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang yang sabar, bisa menahan amarah." & vbNewLine & "2. Anda bisa menyimpan kesedihan didepan orang lain dengan senyuman anda" & vbNewLine & "3. Anda punya semangat tinggi untuk membahagiakan orang lain, patriotis, dan sering membantu orang lain" & vbNewLine & "4. Anda orangnya murah senyum kepada siapa saja, menyayangi anak, dan rela berbuat apa saja demi keluarga" & vbNewLine & "Keuangan:" & vbNewLine & "Anda orangnya cepat bosan dengan sesuatu sebenarnya anda orangnya gampang sekali meraih kesuksesan dalam hal finansial, namun karena anda cepat bosan maka kesuksesan yang anda peroleh akan cepet kabur juga." & vbNewLine & "Anda juga orangnya tidak betah menabung, karena watak anda yang suka berbagi dengan orang lain, namun semakin anda berbagi rezeki dengan orang lain, rezeki anda akan semakin bertambah." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Senin" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang yang sangat perhatian kepada orang lain." & vbNewLine & "2. Anda gampang tergiur dengan masalah finansial orang lain." & vbNewLine & "3. Anda oorang yang gigih, teguh pendirian dan tak gampang percaya kepada orang lain" & vbNewLine & "4. Anda orang yang mempunyai sifat Percaya Diri yang tinggi, sehingga banyak orang yang tertarik melihat anda." & vbNewLine & "Keuangan:" & vbNewLine & "Karena kegigihan dan semangat anda yang tinggi anda akan meraih apa yang anda inginkan, meskipun jalan yang dilalui cukup berat." & vbNewLine & "Anda juga orangnya boros, mungkin borosnya anda untuk sesuatu yang menjadikan anda meraih yang anda inginkan, dan mungkin saking percaya dirinya sehingga anda tidak memperhitungkan keluar masuknya keuangan anda." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Selasa" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang kurang memperhatikan diri sendiri." & vbNewLine & "2. Anda orang yang cermat dengan masalah yang terjadi." & vbNewLine & "3. Anda orang yang sabar" & vbNewLine & "4. Anda orang yang mempunyai sifat kurang Percaya Diri." & vbNewLine & "Keuangan:" & vbNewLine & "Anda orang yang sabar dan cermat menghadapi masalah, anda dapat menemukan sesuatu yang baru, bisa jadi sesuatu yang anda temukan bernilai sangat mahal, namun karena anda kurang percaya diri, sehingga apapun yang anda temukan, tidak sedikit yang hilang begitu saja." & vbNewLine & "Anda Anda dapat menimpan hasil dari kerja anda dengan rapat sehingga terkadang terlihat pelit, sampai-sampai saking hati-hatinya anda, uang yang anda perolehpun tidak banyak yang anda gunakan untuk mengurus diri anda sendiri." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Rabu" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda orang yang bijaksana." & vbNewLine & "2. Anda orang yang terbuka dan suka berterus terang kepada orang lain." & vbNewLine & "3. Anda menyukai barang-barang antik seperti cincin dan barang-barang yang menurut anda unik dan menarik." & vbNewLine & "4. Anda orang yang kurang cerdas, namun tekun dan mempunyai rasa penasaran ang tinggi." & vbNewLine & "Keuangan:" & vbNewLine & "Dengan ketekunan dan rasa penasaran yang tinggi anda, anda dapat menemukan jalan kesuksesan yang jarang orang lain temukan." & vbNewLine & "Namun karena anda mencintai dan menggemari barang antik yang harganya juga tidak sedikit uang yang anda dapatkan juga akan cepat habis dan tidak jarang membuat keuangan anda naik turun pada tiap bulannya." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Kamis" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda orang yang pintar." & vbNewLine & "2. Anda orang yang gampang percaya kepada orang lain." & vbNewLine & "3. Anda orang yang mempunyai jiwa pemimpin yang tinggi." & vbNewLine & "4. Anda orang yang mempunyai sifat Percaya Diri yang tinggi." & vbNewLine & "Keuangan:" & vbNewLine & "Dengan kepintaran anda, anda akan mudah sekali mencari rizki dan penghasilan." & vbNewLine & "Dan anda juga orangnya sangat mudah percaya dengan orang lain, sehingga tidak jarang anda tertipu oleh orang yang anda kenal atau tidak anda kenal sekalipun." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Jum'at" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & "Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda orang yang keras kepala tidak mau mengalah dan maunya menang sendiri." & vbNewLine & "2. Anda orangnya sangat perhatian dengan orang lain." & vbNewLine & "3. Anda orang yang cermat dalam menilai sesuatu." & vbNewLine & "4. Anda orang yang mampu menghadapi masalah dengan tegar." & vbNewLine & "Keuangan:" & vbNewLine & "Jalan kesuksesan anda dalam finansial sangatlah terbuka lebar didepan anda, namun terkadang karena watak anda yang tidak mau mengalah, jalan kesuksesan tersebut menjadi tertutup." & vbNewLine & "Keuangan anda naik turun, tapi lebih banyakan naiknya dibanding turunnya karena ketika anda rajin menabung, tabungan anda akan utuh hingga anda membutuhkannya, dan tabungan anda akan cepat habis karena kemauan anda yang tidak dapat dihentikan oleh siapa saja." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Sabtu" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & "Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang yang mempunyai keinginan yang kuat dan terkadang terkesan memaksakan kehendak." & vbNewLine & "2. Anda orang yang cerdas dan pintar." & vbNewLine & "3. Anda orang yang mempunyai rasa penasaran yang tinggi" & vbNewLine & "4. Anda orang yang ceroboh." & vbNewLine & "Keuangan:" & vbNewLine & "Dengan keinginan anda yang kuat dan kecerdasan dan kepintaran anda didukung rasa penasaran yang tinggi anda akan sangat mudah menuju jalan kesuksesan." & vbNewLine & "Anda juga ceroboh sehingga tidak jarang kecerobohan yang menurut anda adalah kesalahan kecil dan menurut orang lain adalah kesalahan besar maka akan mengganggu karir dan jalan kesuksesan anda." & vbNewLine & "Wassalamu'alaikum Wr. Wb"

        End If
    End Sub
End Class

Kode dapat anda rubah pada keterangan ramalannya sesuai keinginan hati anda saja karena ramalan diatas sebenarnya 100% adalah ramalan buatan saya sendiri dan dibawah ini adalah gambar setelah program tersebut di Run.

 

Saya juga sedang membuat video turorialnya untuk mempermudah anda dalam mempelajari program visual basic 2008.

 

Read more

Membuat deteksi hari menggunakan visual basic 2008 / vb.net

Biasanya Membuat deteksi hari menggunakan visual basic 2008 / vb.net digunakan untuk aplikasi ramalan, baik ramalan jodoh ataupun ramalan berdasarkan hari lahir, dengan meggunakan visual basic 2008 dapat dengan mudah Membuat deteksi hari menggunakan visual basic 2008, caranya sebagai berikut: Buatlah form dengan 4 Label, 3 textbox dan 1 button, taruh Label 1 dibawah Button dan ganti text label1 menjadi HARI, label 2 menjadi BLN, label 3 menjadi TGL dan label4 menjadi THN seperti gambar dibawah:

 

Klik 2 kali form dan hapus semua kode yang sudah ada kemudian masukkan kode dibawah:

Imports System.Globalization.GregorianCalendar
Public Class Form1
    Dim tgl As New Globalization.GregorianCalendar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = tgl.GetDayOfWeek(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text).ToString
        If Label1.Text = "Sunday" Then
            Label1.Text = "Ahad"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Tuesday" Then
            Label1.Text = "Selasa"
        ElseIf Label1.Text = "Wednesday" Then
            Label1.Text = "Rabu"
        ElseIf Label1.Text = "Thursday" Then
            Label1.Text = "Kamis"
        ElseIf Label1.Text = "Friday" Then
            Label1.Text = "Jum'at"
        ElseIf Label1.Text = "Saturday" Then
            Label1.Text = "Sabtu"
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text > 12 Then
            MsgBox("Bulan tidak lebih dari 12")
            TextBox1.Text = "0"
        Else
            TextBox1.Text = TextBox1.Text
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text > 31 Then
            MsgBox("Tanggal tidak lebih dari 31")
            TextBox2.Text = "0"
        Else
        End If
    End Sub
End Class

Kode diatas juga otomatis deteksi jumlah bulan dan tanggal jika memasukkan bulan lebih dari 12 atau tanggal lebih dari 31 maka otomatis akan keluar messege box error. 

 

Read more

Membuat converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net

Pada awalnya banyak yang bertanya bagimana Membuat converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net, kemudian saya mulai merancang kode menggunakan visual basic 2008 yang sangat sederhana dan mungkin mudah untuk dipahami, dan dibawah ini adalah cara Membuat converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net cukup buatlah 3 textbox 1 button dan 4 label seperti gambar dibawah ini:

Kemudian klik 2 kali formnya dan hapus semua kode yang ada lalu masukkan kode dibawah ini:

Imports System.Globalization.HijriCalendar
Imports System.Globalization.GregorianCalendar
Public Class Form1
    Dim hij As New Globalization.HijriCalendar
    Dim mas As New Globalization.GregorianCalendar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = hij.GetDayOfMonth(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
        Label2.Text = hij.GetMonth(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
        Label3.Text = hij.GetYear(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
        Label4.Text = hij.GetDayOfWeek(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text).ToString
        If Label2.Text = 1 Then
            Label2.Text = "Muharam"
        ElseIf Label2.Text = 2 Then
            Label2.Text = "Shofar"
        ElseIf Label2.Text = 3 Then
            Label2.Text = "Robi'ul Awwal"
        ElseIf Label2.Text = 4 Then
            Label2.Text = "Robi'ul Akhir"
        ElseIf Label2.Text = 5 Then
            Label2.Text = "Jumadil Awwal"
        ElseIf Label2.Text = 6 Then
            Label2.Text = "Jumdil Akhir"
        ElseIf Label2.Text = 7 Then
            Label2.Text = "Rojab"
        ElseIf Label2.Text = 8 Then
            Label2.Text = "Sya'ban"
        ElseIf Label2.Text = 9 Then
            Label2.Text = "Romadlon"
        ElseIf Label2.Text = 10 Then
            Label2.Text = "Syawwal"
        ElseIf Label2.Text = 11 Then
            Label2.Text = "Dzul Qo'idah"
        ElseIf Label2.Text = 12 Then
            Label2.Text = "Dzul Hijjah"
        End If
    End Sub
End Class

Dan sekarang coba Run maka hasilnya akan seperti gambar dibawah:

Jika ingin mengganti nama hari dari Sunda ke Ahad maka tambahkan kode dibawah ini setelah End If

       If Label4.Text = "Sunday" Then
            Label4.Text = "Ahad"
        ElseIf Label4.Text = "Monday" Then
            Label4.Text = "Senin"
        ElseIf Label4.Text = "Monday" Then
            Label4.Text = "Senin"
        ElseIf Label4.Text = "Tuesday" Then
            Label4.Text = "Selasa"
        ElseIf Label4.Text = "Wednesday" Then
            Label4.Text = "Rabu"
        ElseIf Label4.Text = "Thursday" Then
            Label4.Text = "Kamis"
        ElseIf Label4.Text = "Friday" Then
            Label4.Text = "Jum'at"
        ElseIf Label4.Text = "Saturday" Then
            Label4.Text = "Sabtu"
        End If

Maka hasil akhirnya akan seperti gambar dibawah:

Keterangan:
Textbox1 digunakan untuk Bulan textbox2 untuk tanggal dan texbox3 untuk tahun jika dibolak balik maka akan error karena converter Masehi ke Hijriyah masih menggunakan kode awal, jika dikembangkan lagi maka bisa membuat program converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net dengan lebih sempurna.

Read more

Menditeksi Angka atau karakter pada text visual basic 6.0

Menditeksi angka atau karakter pada text menggunakan visual basic 6.0 cukup simple sekali, penditeksian ini juga dapat digunakan jika anda menginginkan angka saja yang dapat dimasukkan pada text atau alpha saja yang dapat dimasukkan kedalam text visual basic 6.0, hal ini bisa digunakan sewaktu anda membuat kalkulator atau alarm dimana pada text hanya dapat dimasukkan angka saja.

Contoh kode diteksi angka atau huruf pada text adalah menggunakan kode:

If Not IsNumeric(text1) then
msgbox"Anda memasukkan huruf"
else
msgbox"Anda memasukkan angka"
End If

Jika hanya angka saja yang dapat dimasukkan kedalam text vb6 maka kodenya seperti dibawah ini:

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then
Text1 = ""
Else
Text1 = Text1
End If
End Sub

Maka ketika anda mengetikkan selain angka maka text1 otomatis akan kosong kembali, dan bila yang diinginkan hanya dapat diketikkan huruf tinggal buang saja kata Not pada kode diatas jadi seperti kode dibawah ini:

Private Sub Text1_Change()
If IsNumeric(Text1) Then
Text1 = ""
Else
Text1 = Text1
End If
End Sub
 

Read more