Belajar Membuat Notepad sederhana (Visual Basic 2010)



Hallow semuanya..... :D
Pada kali ini saya akan mengajarkan cara membuat Notepad sederhana :)
Seperti yang anda sudah ketahui bahwa fungsi Notepad terdiri dari banyak hal, Nah disini saya hanya mengajarkan cara membuat Notepad sederhana, pembuatannya Rumit Rumit mudah, yang penting anda mengikuti alurnya. :D

Okey, dengan tidak mengundur waktu lagi, Kita akan memulai membuatnya. Kita mulai dengan membuat formnya seperti ini :


Keterangan :

1. Form = Name : frmutama
2. Menustrip = Name : tsmformat
3. Menustrip = Name : tsmview
4. Menustrip = Name : tsmfile
5. Menustrip = Name : musutama
6. Toolstrip = Name : tlsutama
7. Toolstrip = Name : tscukurantext
8. Toolstrip = Name : tscfontfamily
9. Toolstrip = Name : tslbold
10. Toolstrip = Name : tslitalic
11. Toolstrip = Name : tslunderline
12. Toolstrip = Name : tscfontstyle
13. Richtextbox = Name : rtbhasil
14. StatusStrip = Name : tssstatus
15. StatusStrip = Name : susutama
16. Menustrip = Name : tsmnew
17. Menustrip = Name : tsmopen
18. Menustrip = Name : tsmsave
19. Menustrip = Name : tsmsaveas
20. Menustrip = Name : tsmexit
21. Menustrip = Name : tsmcut
22. Menustrip = Name : tsmcopy
23. Menustrip = Name : tsmpaste
24. Menustrip = Name : tsmbold
25. Menustrip = Name : tsmitalic
26. Menustrip = Name : tsmunderline
27. Menustrip = Name : tsmstatusbar
28. Menustrip = Name : tsmtoolbar

Tambahan:
Di Menustrip saya terlihat shortcut untuk menekan open,save,etc. Nah, untuk membuatnya anda tinggal mencari di properti open,save,etc. Carilah ShortcutKeys, disanalah anda menambahkan shortcut. Untuk memperlihatkan shortcutnya di Menu, anda tinggal mengubah ShowShortcutKeys dari false ke true. Mudahkan :D

Diatas ini adalah Properties-Properties yang harus anda samakan saat membuat aplikasi ini, tapi apabila anda mengerti, anda bisa mengubah dengan yang kamu inginkan :D

Setelah mengatur segala macam properti yang ada disana, saatnya kita untuk pengkodingan.

dimulai dengan membuat Imports System.IO diatas public class
-------------------------------------------------------------------------
Imports System.IO

Public Class frmutama
    Private kode1 As Integer = 0
    Dim openfile As New OpenFileDialog
-----------------------------------------------------------------------
Setelah menambahkan itu, sekarang waktunya untuk pendeklarasian :
---------------------------------------------------------------------------
    Private kode1 As Integer = 0
    Dim openfile As New OpenFileDialog
    Dim fileinfo As FileInfo
    Dim savefile As New SaveFileDialog
    Dim saveas As New SaveFileDialog
-----------------------------------------------------------------------------
Setelah Pendeklarasian, tekanlah Form dan buat Coding seperti ini :
----------------------------------------------------------------------------
    Private Sub frmutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tsmstatusbar.Checked = True
        tsmtoolbar.Checked = True
        With tscukurantext
            For i = 5 To 70
                .Items.Add(i)
            Next
        End With
        With tscfontstyle
            .Items.Add("Regular")
            .Items.Add("Bold")
            .Items.Add("Italic")
            .Items.Add("Underline")
            .Text = "Regular"
        End With

        tscfontfamily.Text = "Century"
        tscukurantext.Text = "12"
        rtbhasil.SelectionFont = New System.Drawing.Font(tscfontfamily.Text, tscukurantext.Text)

        'Untuk mengambil FontFamily yang berasal langsung dari sistem operasi
        '-------------------------------------------------------------------------------
        ' Create a obejct of InstalledFontCollection
        Dim InstalledFonts As FontFamily
        ' Gets the array of FontFamily objects associated with this FontCollection.
        Dim fontfamilies() As FontFamily = InstalledFonts.Families()
        '   Populates font combobox with the font name
        For Each fontFamily As FontFamily In fontfamilies
            tscfontfamily.Items.Add(fontFamily.Name)
        Next
        '---------------------------------------------------------------------------------
    End Sub
----------------------------------------------------------------------------

Setelah membuat koding pada Form, tekanlah New yang ada didalam File dan buat koding seperti ini :
-------------------------------------------------------------------------
    Private Sub tsmnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmnew.Click
        If MsgBox("Apakah anda yakin untuk membuat teks baru ?", MsgBoxStyle.YesNo + MessageBoxIcon.Question, "New...") = DialogResult.Yes Then
            rtbhasil.Clear()
            rtbhasil.Focus()
        End If
    End Sub
-------------------------------------------------------------------------
Setelah membuat koding pada New, tekanlah Open yang juga berada dalam File dan buat koding seperti ini :
----------------------------------------------------------------------------------
    Private Sub tsmopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmopen.Click
        openfile.Title = "Open..."
        openfile.Filter = "RichTextBox (*.rtf)|*.rtf"
        If openfile.ShowDialog() = Windows.Forms.DialogResult.OK Then
            rtbhasil.LoadFile(openfile.FileName, RichTextBoxStreamType.PlainText)
            kode1 = 1
            tssstatus.Text = "Terbuka"
        End If
    End Sub
----------------------------------------------------------------------------------
Setelah membuat koding open, tekanlah Save yang juga berada dalam File dan buat koding seperti ini :
----------------------------------------------------------------------------------
Private Sub tsmsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmsave.Click
        savefile.Title = "Save..."
        savefile.Filter = "RichTextBox (*.rtf)|*.rtf"
        If kode1 = 0 Then
            If savefile.ShowDialog() = DialogResult.OK Then
                rtbhasil.SaveFile(savefile.FileName, RichTextBoxStreamType.TextTextOleObjs)
                tssstatus.Text = "Tersimpan"
                kode1 = 2
            End If
        ElseIf kode1 = 1 Then
            fileinfo = New FileInfo(openfile.FileName)
            fileinfo.Delete()
            rtbhasil.SaveFile(openfile.FileName, RichTextBoxStreamType.TextTextOleObjs)
            tssstatus.Text = "Tersimpan"
        ElseIf kode1 = 2 Then
            fileinfo = New FileInfo(savefile.FileName)
            fileinfo.Delete()
            rtbhasil.SaveFile(savefile.FileName, RichTextBoxStreamType.TextTextOleObjs)
            tssstatus.Text = "Tersimpan"
        End If
    End Sub
------------------------------------------------------------------------------------
Setelah membuat koding save, tekanlah save as yang juga berada dalam File dan buat koding seperti ini :
------------------------------------------------------------------------------------
    Private Sub tsmsaveas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmsaveas.Click
        saveas.Title = "Save as..."
        saveas.Filter = "Richtextbox (*.rtf)|*.rtf"
        If saveas.ShowDialog() = Windows.Forms.DialogResult.OK Then
            rtbhasil.SaveFile(saveas.FileName, RichTextBoxStreamType.TextTextOleObjs)
            tssstatus.Text = "Tersimpan"
        End If
    End Sub
------------------------------------------------------------------------------------
Setelah membuat koding save as, tekanlah exit yang juga berada dalam File dan buat koding seperti ini :
--------------------------------------------------------------------------------------
    Private Sub tsmexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmexit.Click
        Me.Close()
    End Sub
--------------------------------------------------------------------------------------
Setelah membuat koding exit, Kita beralih ke menu Format. Langsung saja, tekanlah Cut yang berada dalam menu Format, dan buat koding seperti ini :
-------------------------------------------------------------------------------------
    Private Sub tsmcut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmcut.Click
        rtbhasil.Cut()
    End Sub
-------------------------------------------------------------------------------------
Setelah membuat Cut, selanjutnya Kita menekan Copy yang juga berada dalam menu Format dan buat koding seperti ini :
--------------------------------------------------------------------------------------
    Private Sub tsmcopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmcopy.Click
        rtbhasil.Copy()
    End Sub
---------------------------------------------------------------------------------------
Setelah membuat Copy, selanjutnya Kita menekan Paste yang juga berada dalam menu Format dan buat koding seperti ini :
-----------------------------------------------------------------------------------------
    Private Sub tsmpaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmpaste.Click
        rtbhasil.Paste()
    End Sub
-----------------------------------------------------------------------------------------
Setelah membuat Paste, selanjutnya Kita menekan Bold yang juga berada dalam menu Format dan buat koding seperti ini :
----------------------------------------------------------------------------------------
Private Sub tsmbold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmbold.Click
        If tsmbold.Checked = True Then
            tsmbold.Checked = False
            rtbhasil.SelectionFont = New Font(rtbhasil.SelectionFont, FontStyle.Regular)
            tscfontstyle.Text = "Regular"
        ElseIf tsmbold.Checked = False Then
            tsmbold.Checked = True
            tsmitalic.Checked = False
            tsmunderline.Checked = False
            rtbhasil.SelectionFont = New Font(rtbhasil.SelectionFont, FontStyle.Bold)
            tscfontstyle.Text = "Bold"
        End If

    End Sub
---------------------------------------------------------------------------------------
Setelah membuat Bold, selanjutna Kita menekan Italic yang juga berada dalam menu Format dan buat koding seperti ini :
---------------------------------------------------------------------------------------
Private Sub tsmitalic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmitalic.Click
        If tsmitalic.Checked = True Then
            tsmitalic.Checked = False
            rtbhasil.SelectionFont = New Font(rtbhasil.SelectionFont, FontStyle.Regular)
            tscfontstyle.Text = "Regular"
        ElseIf tsmitalic.Checked = False Or tsmbold.Checked = True Or tsmunderline.Checked = True Then
            tsmitalic.Checked = True
            tsmbold.Checked = False
            tsmunderline.Checked = False
            rtbhasil.SelectionFont = New Font(rtbhasil.SelectionFont, FontStyle.Italic)
            tscfontstyle.Text = "Italic"
        End If

    End Sub
---------------------------------------------------------------------------------------
Setelah membuat Italic, tekanlah Underline yang juga berada dalam menu Format dan buat koding seperti ini :
----------------------------------------------------------------------------------------
    Private Sub tsmunderline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmunderline.Click
        If tsmunderline.Checked = True Then
            tsmunderline.Checked = False
            rtbhasil.SelectionFont = New Font(rtbhasil.SelectionFont, FontStyle.Regular)
            tscfontstyle.Text = "Regular"
        ElseIf tsmunderline.Checked = False Then
            tsmunderline.Checked = True
            tsmbold.Checked = False
            tsmitalic.Checked = False
            rtbhasil.SelectionFont = New Font(rtbhasil.SelectionFont, FontStyle.Underline)
            tscfontstyle.Text = "Underline"
        End If

    End Sub
----------------------------------------------------------------------------------------
Setelah membuat Underline, saatnya Kita menekan Statusbar yang berada di menu View. Kita akan membuat ketika Status bar ditekan, makan tanda centang dan status barnya hilang kalau belum tercentang, begitu juga sebaliknya.
Nah tanpa menunggu lama lagi, Kita buat Kodingnya.
Klik Statusbar lalu buat koding seperti ini :
------------------------------------------------------------------------------------------
    Private Sub tsmstatusbar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmstatusbar.Click
        If tsmstatusbar.Checked = True Then
            tsmstatusbar.Checked = False
            susutama.Visible = False
        Else
            tsmstatusbar.Checked = True
            susutama.Visible = True
        End If

    End Sub
------------------------------------------------------------------------------------------
Setelah membuat Statusbar, tekanlah Toolbar yang juga berada di Menu View lalu buat koding seperti ini :
-------------------------------------------------------------------------------------------
    Private Sub tsmtoolbar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmtoolbar.Click
        If tsmtoolbar.Checked = True Then
            tsmtoolbar.Checked = False
            tlsutama.Visible = False
        Else
            tlsutama.Visible = True
            tsmtoolbar.Checked = True
        End If
    End Sub
-------------------------------------------------------------------------------------------
Nah Kita sudah membuat setiap kegunaan dari cabang View. Sekarang Kita mau membuat suatu status apabila Notepad kita belum tersimpan ataupun sudah, ayo Kita mulai saja dengan mengklik rtbhasil lalu buatlah koding seperti ini :
-----------------------------------------------------------------------------------------
    Private Sub rtbhasil_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtbhasil.TextChanged
        If rtbhasil.TextLength + 1 Or rtbhasil.TextLength - 1 Then
            tssstatus.Text = "Belum Tersimpan"
        End If

    End Sub
-----------------------------------------------------------------------------------------

Selesai sudah kodingan Kita, lelah ?
hahahahaha....
Memang agak panjang :D
Inilah hasil apabila sudah selesai kodingannya :


Saya harapkan apabila ada yang Anda tidak ngerti, tanyakan saja langsung disini. Berikan saja pertanyaan anda di Kotak pesan bawah ini, Saya akan coba tanya semampu Saya :)

berakhirlah postingan ini, Saya harapkan ini bisa berguna bagi anda.

TERIMA KASIH :D
Chang Min Web Developer

Semoga apa yang Saya postingkan dapat bermanfaat bagi yang sedang membaca, kritik, saran atau komentar dapat disampaikan pada komen dibawah ini, Terimas kasih banyak

4 comments:

  1. itu codingnya pakai VB10...
    trus, salahnya dimana ?

    ReplyDelete
  2. koding untuk jenis dan ukuran font nya gak berfingsi, gak jalan.
    tolong diperiksa kembali
    dari Raymond
    dan tolong kunjungi juga
    galaxyku-download.blogspot.com
    tipzloverz.blogspot.com
    salam MIKROSKIL

    ReplyDelete
  3. hahaha.. gk ku cek lagi, soalny udah lama punya

    ReplyDelete