Selasa, 01 Mei 2012

Mengedit-edit Text dengan Microsoft Visual Basic

Diposting oleh Fildzah Zhafrina di 22.46
Halo readers, setelah sebelumnya membahas bahasa C, kali ini aku mengulas program menggunakan bahasa pemrograman Microsoft Visual Basic atau Visual basic atau VB.
Mulai aja yah... Buka Vb nya, pilih standart exe.
Kemudian buat pada form seperti di bawah ini :
 

 Double klik Option Button Rata Kiri, ketikkan  Text1.Alignment = 0
Double klik Option Button Rata Tengah, ketikkan Text1.Alignment = 2
Double klik Option Button Rata Kanan, ketikkan Text1.Alignment = 1

Double klik Option Button Merah, ketikkan Text1.BackColor = vbRed
Double klik Option Button Kuning, ketikkan Text1.BackColor = vbYellow
Double klik Option Button hijau, ketikkan Text1.BackColor = vbGreen
Double klik Command Button Hapus, ketikkan Text1.Text = ""
Double klik Command Button Exit, ketikkan End

Jalankan program dengan menekan tombol F5 atau klik tombol play.
Gambar di atas adalah output ketika aku memilih Perataan Teks Rata Tengah dan Backgroud Kuning.

Kemudian aku coba tambahkan check box dan HScroll...
Desain seperti dibawah ini :
Pada kotak Properties Hscroll ubah Properti Max, Min, LargeChange dan SmallChange nya menjadi 50,10,5 dan 1. Jadi semakin HScroll nya digeser ke kanan maka tulisan pada text1 akan membesar maximal sebesar 50 dan semakin ke kiri semakin kecil minimal 10 ukurannya.
Double klik Hscroll dan ketikkan Text1.FontSize = HScroll1.Value

Double klik Checkbox Cetak Tebal, ketikkan
If Check1.Value = 1 Then    
Text1.FontBold = True         
Else                                      
Text1.FontBold = False
End If



Double klik Checkbox Cetak Miring, ketikkan
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If


Double klik Checkbox Garis Bawah, ketikkan
If Check1.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If


'jika check1 diaktifkan maka teks pada text1 akan dicetak tebal, dan selain itu jika tidak diaktifkan maka tidak tebal. Begitu juga untuk logika garis miring dan underline'.
Gambar di atas merupakan output ketika saya memilih Perataan Text Rata Kanan, Background Hijau, Ukuran Huruf di HScrollnya aku geser ke kanan,sekitar 20-an kali ya dan kemudian untuk checkbox nya aku aktifin semua. Jadi kan tulisannya bold iya, italic dan underline juga iya.
Nah, di sini kita bisa lihat perbedaan si Option Button dan Checkbox. Bedanyaa... kalau option button kita hanya bisa memilih salah satu, sedangkan checkbox kita bisa memilih tiga pilihan itu sekaligus.





0 komentar on "Mengedit-edit Text dengan Microsoft Visual Basic"

Selasa, 01 Mei 2012

Mengedit-edit Text dengan Microsoft Visual Basic

Halo readers, setelah sebelumnya membahas bahasa C, kali ini aku mengulas program menggunakan bahasa pemrograman Microsoft Visual Basic atau Visual basic atau VB.
Mulai aja yah... Buka Vb nya, pilih standart exe.
Kemudian buat pada form seperti di bawah ini :
 

 Double klik Option Button Rata Kiri, ketikkan  Text1.Alignment = 0
Double klik Option Button Rata Tengah, ketikkan Text1.Alignment = 2
Double klik Option Button Rata Kanan, ketikkan Text1.Alignment = 1

Double klik Option Button Merah, ketikkan Text1.BackColor = vbRed
Double klik Option Button Kuning, ketikkan Text1.BackColor = vbYellow
Double klik Option Button hijau, ketikkan Text1.BackColor = vbGreen
Double klik Command Button Hapus, ketikkan Text1.Text = ""
Double klik Command Button Exit, ketikkan End

Jalankan program dengan menekan tombol F5 atau klik tombol play.
Gambar di atas adalah output ketika aku memilih Perataan Teks Rata Tengah dan Backgroud Kuning.

Kemudian aku coba tambahkan check box dan HScroll...
Desain seperti dibawah ini :
Pada kotak Properties Hscroll ubah Properti Max, Min, LargeChange dan SmallChange nya menjadi 50,10,5 dan 1. Jadi semakin HScroll nya digeser ke kanan maka tulisan pada text1 akan membesar maximal sebesar 50 dan semakin ke kiri semakin kecil minimal 10 ukurannya.
Double klik Hscroll dan ketikkan Text1.FontSize = HScroll1.Value

Double klik Checkbox Cetak Tebal, ketikkan
If Check1.Value = 1 Then    
Text1.FontBold = True         
Else                                      
Text1.FontBold = False
End If



Double klik Checkbox Cetak Miring, ketikkan
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If


Double klik Checkbox Garis Bawah, ketikkan
If Check1.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If


'jika check1 diaktifkan maka teks pada text1 akan dicetak tebal, dan selain itu jika tidak diaktifkan maka tidak tebal. Begitu juga untuk logika garis miring dan underline'.
Gambar di atas merupakan output ketika saya memilih Perataan Text Rata Kanan, Background Hijau, Ukuran Huruf di HScrollnya aku geser ke kanan,sekitar 20-an kali ya dan kemudian untuk checkbox nya aku aktifin semua. Jadi kan tulisannya bold iya, italic dan underline juga iya.
Nah, di sini kita bisa lihat perbedaan si Option Button dan Checkbox. Bedanyaa... kalau option button kita hanya bisa memilih salah satu, sedangkan checkbox kita bisa memilih tiga pilihan itu sekaligus.





0 komentar:

 

CHEER UP!! がんばって~ Copyright © 2009 Paper Girl is Designed by Ipietoon Sponsored by Online Business Journal