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 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 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