Salamilmu's Blog

Home » Pemrograman » Program Font Manipulasi

Program Font Manipulasi

November 2010
M T W T F S S
« Oct   Jan »
1234567
891011121314
15161718192021
22232425262728
2930  

Program Font mensimulasikan pilihan huruf di mana Anda bisa
memilih berbagai macam huruf dengan atributnya. Program ini akan
menggunakan kontrol text box, combo box, label, frame, check box,
dan command button. Kesemua objek tersebut dibuat ha nya dengan
beberapa langkah singkat pada Visual Basic.
Ikuti langkah berikut untuk membuat program Font:

1. Jalankan Visual Basic lalu buka project Standard EXE baru.

Jika lingkungan pemrograman Visual Basic sudah berjalan,
pada menu File, klik New Project untuk membuka project
Standard EXE baru.

2. Tambahkan beberapa kontrol dan a tur lokasinya seperti
gambar di bawah ini :

Catatan: Untuk membuat kontrol combo box seperti gambar
di atas, Anda harus menarik pada bagian bawah dari kontrol
combo box.

3. Setting properti kontrol dengan nilai dalam tabel di bawah
ini :

4. Ketikkan kode program di bawah ini pada Form1:
Private Sub Form_Load()
Dim i As Integer
‘ Isi Combo1 dengan nama font
For i = 0 To Screen.FontCount – 1
Combo1.AddItem Screen.Fonts(i)
Next
‘ Pilih daftar item pertama
Combo1.ListIndex = 0
‘ Isi Combo2 dengan font style
With Combo2
.AddItem “Regular”
.AddItem “Italic”
.AddItem “Bold”
.AddItem “Bold Italic”
.ListIndex = 0
End With
‘ Isi Combo2 dengan ukuran font
For i = 8 To 24 Step 2
Combo3.AddItem i
Next
Combo3.ListIndex = 0
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()

Unload Me
End Sub
‘ Ubah nama font
Private Sub Combo1_Click()
Local_Change_Font
End Sub
Private Sub Combo2_Click()
Local_Change_Font
End Sub
Private Sub Combo3_Click()
Local_Change_Font
End Sub
‘ Rutin/Prosedur untuk merubah font
Private Sub Local_Change_Font()
‘ cek parameter size
If Not IsNumeric(Combo3) Then
Exit Sub
End If
‘ Ubah font
With Label4.Font
.Name = Combo1 ‘ Nama font
.Size = Val(Combo3) ‘ Ukuran font
‘ Attribut font
Select Case Combo2
Case “Regular”
.Italic = False
.Bold = False
Case “Italic”
.Italic = True
.Bold = False
Case “Bold”
.Bold = True
.Italic = False
Case “Bold Italic”
.Bold = True

.Italic = True
End Select
End With
End Sub
5. Kini simpan project Anda di folder c:\SES\Font dan jalankan
program Anda untuk melihat bagaimana cara kerja
program Font.
Klik tombol Start pada toolbar, atau dengan menekan
tombol F5. Program dijalankan pada lingkungan pemrog –
raman. Pilih nama, efek, dan ukuran font. Anda dapat
melihat perubahan font pada kotak Sample.

6. Tutup form dengan menekan tombol Close pada title bar
untuk menghentikan program.

Selamat Mencoba…


1 Comment

  1. antoa65 says:

    sippppp makasi buat infonya gan

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: