Modul_2_V_B

Catatan :
perancangan Antarmuka Program dilakukan saat praktek berlangsung


Component yang dibutuhkan :
- 5 Image
- 1 commandButton
- 1 shape
- 1 label
- 1 PictureBox

Source Code:

Option Explicit
Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
shpkotak.Left = -500
End Sub

Private Sub img1_Click()
shpkotak.Left = img1.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 1"
End Sub

Private Sub img2_Click()
shpkotak.Left = img2.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar2"
End Sub


Private Sub img3_Click()
shpkotak.Left = img3.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 3 "
End Sub


Private Sub img4_Click()
shpkotak.Left = img4.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 4"
End Sub

Private Sub img5_Click()
shpkotak.Left = img5.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 5"
End Sub

Modul 1 V_B

Catatan :
Rancangan Antarmuka Formulir dilakukan saat praktek berlangsung

Source Code :

Dim posisi As String
Dim warna As String

Private Sub Form_Load()
OptAwal.Value = True
optMErah.Value = True
posisi = "Default /Awal"
warna = "Merah"
Call TampilCaption
End Sub


Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdReset_Click()
txttampil.Text = "Manipulasi Text Belum DiaktIfkan Silahkan Coba"
OptAwal.Value = True
End Sub


Sub TampilCaption()
lblketerangan.Caption = "Anda memilih " & _
posisi & " Dengan warna Font " & warna
End Sub

Private Sub optMerah_Click()
warna = "Merah"
Call TampilCaption
txttampil.ForeColor = &HFF&
End Sub

Private Sub optbiru_Click()
warna = "Biru"
Call TampilCaption
txttampil.ForeColor = &HFF0000
End Sub

Private Sub Awal()
txttampil.SelStart = 0
txttampil.SetFocus
posisi = "Setting Default"
Call TampilCaption
End Sub

Private Sub Akhir()
txttampil.SelStart = Len(txttampil.Text)
txttampil.SetFocus
posisi = "Kursor Diakhir"
Call TampilCaption
End Sub

Private Sub posisi5()
txttampil.SelStart = 5
txttampil.SetFocus
posisi = "Menyisipkan"
Call TampilCaption
End Sub


Private Sub seleksi()
txttampil.SelStart = 0
txttampil.SelLength = Len(txttampil.Text)
txttampil.SetFocus
posisi = " Memblok Seluruh isi Text"
Call TampilCaption
End Sub

Private Sub Tambahtext()
txttampil.SelText = "Tambah Text"
txttampil.SetFocus
posisi = "Menambah Text"
Call TampilCaption
End Sub

Private Sub Combo1_DropDown()
Combo1.AddItem "Awal"
Combo1.AddItem "Akhir"
Combo1.AddItem "posisi5"
Combo1.AddItem "Block"
Combo1.AddItem "TambahText"
End Sub


Private Sub Combo1_Click()
If Combo1.Text = "Awal" Then
Call Awal
End If
If Combo1.Text = "akhir" Then
Call Akhir
End If

If Combo1.Text = "posisi5" Then
Call posisi5
End If

If Combo1.Text = "Block" Then
Call seleksi
End If

If Combo1.Text = "TambahText" Then
Call Tambahtext
End If
End Sub

Private Sub OptAwal_Click()
Call Awal
End Sub

Private Sub optAkhir_Click()
Call Akhir
End Sub

Private Sub optseleksi_Click()
Call seleksi
End Sub

Private Sub optSisip5_Click()
Call posisi5
End Sub

Private Sub opttambahtext_Click()
Call Tambahtext
End Sub

Modul 1 Pemrogrman WEB (Tag Dasar)

MODUL I
MEMAHAMI TAG DASAR HTML

Mata Kuliah : Prt.Pemrograman WEB
SKS : 2 SKS
Jurusan / Sem : TI, SI / 7
Sub Bahasan : Dasar TAG HTML dan Format TEXT
Instruktur : Supriyadi, S.T.


//Program Ke 1:

?HTML>
?HEAD>
?TITLE> PEMROGRAMAN WEB 1 ?/TITLE>
?/HEAD>
?BODY>
?p align = "Right">Selamat Belajar Pemrograman WEB
?h1 align = "Center"> STMIK KHARISMA
?hr>
?H6>
?p>Ini adalah contoh penggunaan TAG Paragraph?/p>
?P>TAG Paragraph boleh diakhiri /p atau tidak
?p>Untuk pindah baris gunakanlah tag BR ?br> sehingga tulisan tampil dalam
baris yang berbeda
?/BODY>
?/HTML>

Program Ke 2:

?!--Komentar-->
// ?HTML >
?HEAD>
?TITLE > PEMROGRAMAN WEB 2 ?/TITLE>
?/HEAD>
?BODY >
?h1 align = "Center"> DASAR - DASAR PENGOLAHAN TEKS
?hr>?H6>
?B>
?p>Ini adalah contoh penggunaan TAG BOLD
?/B>
?I>
?p>Ini adalah contoh penggunaan TAG ITALIC
?/I>

?BIG>
?p>Ini adalah contoh penggunaan TAG BIG
?/BIG>

?H1>
?EM>
?p>Ini adalah contoh penggunaan TAG EMBOS
?/EM>
?H3 ALIGN="LEFT">
?/H>
?SMALL>
?p>Ini adalah contoh penggunaan TAG SMALL
?/SMALL>

?P> COBA ?SUP> Contoh Superscript ?br>
?P> COBA2 ?sub> Contoh SuBscript ?br>
?/BODY>
?/HTML>
Program ke 3 :

?HTML>
?HEAD>
?TITLE> PENGATURAN POSISI TEXT ?/TITLE>
?/HEAD>

?BODY>
?PRE>
Begin
for i := 1 25 do
begin
write('Selamat Memanipulasi text'>
Readln
end;
end;
?/pre>
?h1>
?code>
?p> ini adalah contoh Penggunaan TAG Code
?/code>

?h1>
?kbd>
?p> ini adalah contoh Penggunaan TAG Keyboard(kbd>
?/kbd>

?hr>
?h2>
?address>
STMIK Kharisma?br>
Jl. Pangkal Perjuangan km.1 ByPass Karawang
?/address>
?h1>
?bdo dir ="rtl">
contoh Bidirectional Ovveride?br>
?/bdo>

?abbr title = "Sekolah Tinggi Manajemen Informatika dan Komputer"> STMIK ?/abbr>?br>
?acronym title = "Sekolah Tinggi Manajemen Informatika dan Komputer"> STMIK ?/acronym> ?br>
?h6>
?BLOCKQUOTE>
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang

?/BLOCKQUOTE>

?q>
ini adalah contoh pemakaian kutipan sebuah text yang pendek
?/q>
?/BODY>
?/HTML>

Latihan :

Buatlah Tampilan TEXT seperti Berikut :

Karawang, 20 Juli 2006

Kepada Yang terhormat :
PT. ANGKASA RAYA
Jl. Patriot 23, Karawang
40321
Dengan hormat,
Bersamaan dengan ini saya beritahukan, bahwa kutipan yang kami muat di majalah kami yaitu :
Negara Indonesia merupakan negara teritorial yang berada diantara 2 benua yaitu ASIA dan AFRIKA yang merupakan jalur strategis perdagangan dunia danmembutuhkan Sumber Daya Manusia yang handal untuk bersaing dengan pihak asing, dengan gambaran .

Adalah salah seharusnya ASIA dan Australia.
_________________________________________________________________
Serta tambahan kode program yang dikirim adalah sebagai berikut:
Var
I, j : integer;
Begin
Edit1.text := "selamat"
Edit2.text := "belajar"
End.

Demikian pemberitahuan ini saya kirimkan, dan harap jadi maklum.