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
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 :
----------------------------------------------------------------------------------------
Setelah membuat Bold, selanjutna Kita menekan Italic yang juga berada dalam menu Format dan buat koding seperti ini :
---------------------------------------------------------------------------------------
Setelah membuat Italic, tekanlah Underline yang juga berada dalam menu Format dan buat koding seperti ini :
----------------------------------------------------------------------------------------
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 :
------------------------------------------------------------------------------------------
Setelah membuat Statusbar, tekanlah Toolbar yang juga berada di Menu View lalu buat koding seperti ini :
-------------------------------------------------------------------------------------------
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 :
-----------------------------------------------------------------------------------------
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
cang punya wa ngk jalan
ReplyDeleteitu codingnya pakai VB10...
ReplyDeletetrus, salahnya dimana ?
koding untuk jenis dan ukuran font nya gak berfingsi, gak jalan.
ReplyDeletetolong diperiksa kembali
dari Raymond
dan tolong kunjungi juga
galaxyku-download.blogspot.com
tipzloverz.blogspot.com
salam MIKROSKIL
hahaha.. gk ku cek lagi, soalny udah lama punya
ReplyDelete