PERMROGRAMAN

“APLIKASI FORMAT TEXT”

Untuk membuat aplikasi format text silahkan masukkan kontrol-kontrol dibawah ini:

1 TextBox

2  Frame

4 Label

1 ComboBox

3 CheckBox

1 CommandButton

3 ListBox

Setelah sudah, masukkan Code-nya, dengan ketentuan:

Berikut Code untuk bisa menjalankan seperti ketentuan di atas:

Kode untuk ComboBox Backgorund

Private Sub CboWarna_Click()

If CboWarna.Text = "Putih" Then

TxtTeks.BackColor = vbWhite

ElseIf CboWarna.Text = "Hitam" Then

TxtTeks.BackColor = vbBlack

ElseIf CboWarna.Text = "Merah" Then

TxtTeks.BackColor = vbRed

ElseIf CboWarna.Text = "Kuning" Then

TxtTeks.BackColor = vbYellow

Else

TxtTeks.BackColor = vbGreen

End If

End Sub

Kode untuk CheckBox Garis Bawah

Private Sub ChkGaris_Click()

If ChkGaris.Value = 1 Then

TxtTeks.FontUnderline = True

Else

TxtTeks.FontUnderline = False

End If

End Sub

Kode untuk CheckBox Miring

Private Sub ChkMiring_Click()

If ChkMiring.Value = 1 Then

TxtTeks.FontItalic = True

Else

TxtTeks.FontItalic = False

End If

End Sub

Kode untuk CheckBox Tebal

Private Sub ChkTebal_Click()

If ChkTebal.Value = 1 Then

TxtTeks.FontBold = True

Else

TxtTeks.FontBold = False

End If

End Sub

Kode untuk Tombol CommandButton Tutup

Private Sub CmdTutup_Click()

End

End Sub

Kode untuk Sub Form

Private Sub Form_Load()

For angka = 8 To 70 Step 2

LstUkuran.AddItem angka

Next angka

For jenis = 1 To Screen.FontCount

LstJenis.AddItem Screen.Fonts(jenis)

Next jenis

End Sub

Kode untuk ListBox Jenis Huruf

Private Sub LstJenis_Click()

TxtTeks.FontName = LstJenis.Text

End Sub

Kode untuk ListBox Perataan

Private Sub LstPerataan_Click()

If LstPerataan.Text = "Rata Kiri" Then

TxtTeks.Alignment = 0

ElseIf LstPerataan.Text = "Rata Kanan" Then

TxtTeks.Alignment = 1

ElseIf LstPerataan.Text = "Rata Tengah" Then

TxtTeks.Alignment = 2

End If

End Sub

Kode untuk ListBox Ukuran Huruf

Private Sub LstUkuran_Click()

TxtTeks.FontSize = LstUkuran

End Sub

Selesai mengetikkan Code. Pilih Run>Start atau Tekan saja pada keyboard (F5)

Ketikan pada kolom Textbox. Selanjutnya silahkan memilih akan di format seperti apa text tersebut. Misalnya, seperti gambar dibawah ini:

"APLIKASI RESEP MAKANAN”

Untuk membuat aplikasi resep makanan, masukkan kontrol berikut:

1 Frame

6 Label

2 ComboBox

1 CommandButton

Setelah sudah, masukkan Code-nya, dengan ketentuan:

Berikut Code-nya:

Kode untuk ComboBox Kue

Private Sub CboKue_Click()

If CboKue.Text = "Wajik Tradisional" Then

Label4.Caption = "400 gram beras ketan putih(rendam 2 jam),25 ml air panas, 250 ml santan, 250 gram gula merah(iris halus),3 lembar daun pandan(diikat), 1/2 sendok teh garam, daun pisang untk alas"

Label5.Caption = "Kukus beras ketang selama 30 menit,stlah msuk dalm 15 menit prtama perciki dngan air panas. Rebus santan dan gula merah tambahkan daun pandan dan garam, aduk sampai meletup-letup. Masukkan ketan dan aduk di atas api kecil sampai air gula meresap. tuang adonan ke dalam loyang yg di alasi daun pisang. Potong wajik sesuai keinginan. Finish"

ElseIf CboKue.Text = "Kue Bronis" Then

Label4.Caption = "Tepung Terigu(1 gelas penuh),Minyak (1 gelas penuh),Coklat  bubuk(1/2 gelas),Susu bubuk(1 sndok makan),Telur(5),Gula pasir(1 gelas Penuh),Pengembang kue/SP (1 sndok teh),Vanili (2 bngkus)"

Label5.Caption = "Campurkan semua bahan(kecuali coklat bubuk).Kocok hingga berwarna putih(dengan mixer). Masukkan coklat bubuk.Aduk Rata. Masukkan Loyang. Kemudian masukkan oven. setelah mengembang dan warna menjadi coklat.Angkat.Finish"

ElseIf CboKue.Text = "Lapis Legit" Then

Label4.Caption = "kuning telur 30 btr,gula halus 250 gr, susu bubuk 3 sdm, tepung terigu ayak 50 grm, mentega 350 grm, mentega/margarin 150 gr"

Label5.Caption = "Campur mentega, serta gulas. dikocok sampai lembut.Masukkan satu per satu kuning telur sambil dikocok terus-menerus hingga adonan berwarna putih serta mengembang.Masukkan susu dan terigu sedikitsedikit sambil dikocok terus hingga rata.Siapkan loyang yang sudah dilapisi kertas roti dan dioles dengan mentega.Tuangkan 1 sendok sayur adonan dalam loyang dan panggang dalam oven dgn api atas kira-kira 5 menit.Keluarkan dari oven,tekan-tekan permukaan kue menggunakan alat penekan khusus untuk membuat kue lapis legit sampai permukaannya rata.Tambahkan selapis demi selapis dengan langkah yang sama sampai adonan habis.panggang kue dlm oven dgn api bawah dan atas sampai matang.Angkat dan diinginkan"

ElseIf CboKue.Text = "Good Time" Then

Label4.Caption = "225 gula halus,500 gr terigu,200 gr blue band,200 gr wisman,200 gr coklat masak leleh,200 gr coklat chip untuk hiasan,2 kuning telur,1/2 sdt baking powder,1/2 sdt soda kue,1,5 sdm coklat bubuk"

Label5.Caption = "Kocok blueband dan wisman, masukkan gula halus kocok sampai putih dan mengembang, masukkan kuning telur, setelah rata masukkan coklat cair kocok, matikan mixer masukkan tepung dan coklat bubuk. Aduk RATA.Dibulatkan sebesar kelereng, dipipihkan dengan garpu. Tancapkan chokochip diatasnya. kemudian oven.Finish "

End If

End Sub

Kode untuk ComboBox Makanan

Private Sub CboMakanan_Click()

If CboMakanan.Text = "Nasi Goreng" Then

Label4.Caption = "Cabe merah dan cabe kecil, Bawang Merah, Bawang Putih, Garam, Kencur. Nasi .Telur, Kucai, dan Sosis(Sebagai penambah rasa)"

Label5.Caption = "Haluskan : Cabe Merah, cabe kecil, bawang merah, bawang putih, garam, dan kencur.Potong Sosis berukuran kecil-kecil. Potong Kucai(seperti memotong Sledri). Setelah itu Panaskan Minyak untuk menumis bumbu. Tunggu setengah  matang. kemudian masukkan telur, Aduk. setelah tercampur, masukkan kucai, sosis. terakhir masukkan Nasi. aduk sampai rata. setelah tercampur. Angkat, tuangkan ke dalam Piring. Siap Santap (untuk pelengkap tambahkan kerupuk, bawang goreng, dan mentimu)"

ElseIf CboMakanan.Text = "Seblak Sunda" Then

Label4.Caption = "Cabe merah dan cabe kecil, Bawang Merah, Bawang Putih, Garam, Kencur, Air. KERUPUK MENTAH(bahan utama,biasanya kerupuk untuk pasangan nasi goreng), Telur (1),Sosis,Jamur,Sawi, Ayam yang sudah matang"

Label5.Caption = "Kerupuk di rendam dengan air.Diamkan dulu. Haluskan : Cabe Merah, cabe kecil, bawang merah, bawang putih, garam, dan kencur. Untuk selera pedas (Tambahkan cabe lebih banyak). Potong Sosis ukuran kecil. Suwir-suwir kecil Jamur dan Ayam. Potong-Potong Sawi. Setelah sudah panaskan minyak untuk menumis bumbu. Aduk hingga setengah matang. Setelah itu masukkan Telur, Aduk rata. Kemudian masukkan Sosis,Ayam,Jamur,dan Sawi. Aduk Rata.Masukkan air secukupnya.Aduk.Terakhir, masukkan Kerupuk yang sudah direndam.Aduk, tunggu hingga matang. setelah kerupuk lunak. Angkat, Tuangkan ke mangkuk. Siap makan. "

ElseIf CboMakanan.Text = "Pisang Molen" Then

Label4.Caption = " Pisang (Pisang apa saja sesuai selera), Tepung terigu 500gram (Ayak terlebih dulu), Baking Powder (2 sendok teh), Gula putih yang sudah dihaluskan (120-140 gram),Telur ayam (2-3 butir), Air matang(kurang lebih yang digunakan dua sendok makan), Margarin (130-140 gram, Minyak goreng untuk menggoreng"

Label5.Caption = "Siapkan wadah untuk adonan. Masukkan Tepung Terigu,Baking Powder,Gula bubuk,aduk sebentar. Tambahkan Telur dan Margarin, campur dan aduk semua bahan sampai menggumpal. Masukkan Air matang sedikit demi sedikit.Uleni sampai adonan kalis. Selanjutnya membentuk adonan kulit pisang molennya. Siapkan Gilingannya. Masukkan adonan ke dalam penggilingan lalu giling adonan mulai dari tebal sampai di dapat kulit pisang molen yang di inginkan. Potong dengan lebar sesuai yang diinginkan. Kupas kulit pisang, Potong menjadi dua dengan potongan menyerong. Balut pisang dengan Kulit sampai semua bagian tertutup. Panaskan minyak, lalu goreng. Jika warna sudah kuning kecoklatan. Angkat. Finish"

ElseIf CboMakanan.Text = "Cakwe Renyah" Then

Label4.Caption = "Tepung Terigu 250 gram, Baking Soda(setengah sendok teh),Garam Halus(sendok kecil),Baking Powder(setengah sendok makan),Air 200ml,Saus Tomat, Bawang Putih(1 siung) haluskan untuk campuran saus cakwe, Gula Pasir(1 sendok teh) untuk bahan saus, Tepung Maizena(setengah sendok makan untuk bahan saus), Garam dapur(setengah sendok teh untuk bahan saus), Setengah sendok makan sambal instan(untuk bahan saus), Air bersih 175 ml untuk bahan saus, Minyak goreng untuk menggoreng"

Label5.Caption = "Ambil wadah cukup besar, masukkan garam halus,baking soda dan baking powder, aduk sampai bercampur. Masukkan tepung terigu,aduk rata. Masukkan air 200ml, aduk sampai kalis, diamkan selama 15-20 menit. aduk dan uleni lagi kemudian diamkan lagi selama 20 menit. ulagi proses ini sampai 3 kali, sampai adonan cakwe elastis dan bisa dibentuk. Balik adonan yang sudah elastis beri sedikit minya di atas permukaannya, agar adonan tetap lembab, diamkan di dalam plastik kurang lebih 3 jam. Keluarkan adonan, tekan menggunakan botol, sampai setengah tipis, beri sedikit tepung agar tidak lengket. Rekatkan dan tempel 2 potongan adonan dengan air, tekan bagian tengah sambungannya dengan sumpit dari atas ke bawah, hati-hati saat menekan dan jangan sampai putus. siapkan penggorengan dengan minyak dan api sedang,masukkan beberapa potong adonan di atas. Goreng bolak balik sampai kuning kecoklatan. Untuk membuat sausnya tinnggal mencampur gula pasir,garam, saus sambal, saus tomat,bawang"

End If

End Sub

Kode untuk Tombol CommandButton Keluar

Private Sub CmdKeluar_Click()

End

End Sub

Kode untuk Sub Form

Private Sub Form_Load()

CboMakanan.AddItem "Nasi Goreng"

CboMakanan.AddItem "Seblak Sunda"

CboMakanan.AddItem "Pisang Molen"

CboMakanan.AddItem "Cakwe Renyah"

CboKue.AddItem "Wajik Tradisional"

CboKue.AddItem "Kue Bronis"

CboKue.AddItem "Good Time"

End Sub

Selanjutnya jalankan program , Run>Start atau tekan F5.

Dan hasilnya seperti gambar di bawah:

"semoga bermanfaat"

..part 11 terlalu paniang isi ya..:D

bisa diganti kok,,boleh apa saja..

"Terimakasih"

by: Jeje_Art