PROPOSAL PERENCANAAN BISNIS (KEWIRAUSAHAAN)

Oleh :

M AGUS MIFTAHUDIN

14100066

PROGRAM STUDI SISTEM INFORMASI

STMIK PRINGSEWU

2015

Proposal Usaha Roti Bakar

  1. Profil Usaha Roti Bakar
    Masyarakat saat ini sudah mulai berhati-hati dalam memilih dan membeli makanan. Zaman dahulu orang dalam membeli makanan hanya berpedoman pada rasanya yang enak dan murah, terutama bagi kalangan masyarakat menengah kebawah, hal inilah yang menjadi prioritas utama bagi masyarakat dalam membeli makanan. Mereka tidak begitu memikirkan kandungan gizi dan nutrisi yang terkandung didalam makanan yang akan mereka beli.

Saat ini roti banyak menjadi pilihan manusia untuk makanan ringan, dimana dari segi rasa menawarkan cukup banyak rasa yang ditawarkan, dari segi gizi juga memenuhi kebutuhan gizi manusia, dari segi harga dapat mudah dijangkau semua kalangan masyarakat.

Proposal Usaha Roti Bakar – Dari fenomena diatas maka sangat cocok dan potensial bila kita mendirikan sebuah usaha jualan roti bakar, dimana dari segi rasa memenuhi konsumen yaitu enak, dari segi gizi sesuai dengan apa yang diinginkan oleh konsumen karena mengandung karbohidrat, protein dll. Dari segi harga terbilang mudah dijangkau oleh semua lapisan masyarakat.

  1. Kebutuhan Modal Awal 2 Gerobak / Biaya Tetap
  • Tempat untuk jualan / Gerobak : Rp.2.000.000
  • Tempat untuk bakar roti (Wajan) : Rp. 300.000
  • Kompor : Rp. 200.000
  • Dekelit 3 x 4 m : Rp. 150.000
  • Tempat selai / Toples 4 buah : Rp. 40.000
  • Garpu roti : Rp. 15.000
  • Pisau roti : Rp. 8.000
  • Solet besar 4 biji : Rp. 16.000
  • Solet Kecil 4 biji : Rp. 20.000
  • Parutan keju 2 buah : Rp. 9.000
  • Tempat garpu, pisau : Rp. 45.000
  • Sticker dan daftar harga roti : Rp. 30.000
  • Jumlah : Rp. 2.633.000,-
  1. Kebutuhan Bulanan 2 Gerobak / Biaya Variabel 1
  • Selai strawberry 10 kg : Rp. 70.000
  • Selai nanas 10 kg : Rp. 70.000
  • Simas 12,5 kg : Rp.113.000
  • cokelat ceres 12,5 kg : Rp.175.000
  • kacang 4 kg : Rp. 56.000
  • susu 36 kaleng : Rp.216.000
  • keju10 biji :Rp.140.000
  • pisang 1 tundun :Rp. 40.000
  • plastic 3 pack :Rp. 12.000
  • kertas roti 1 pack :Rp. 15.000
  • Jumlah : Rp.907.000
  1. Kebutuhan 2 hari sekali untuk 2 Gerobak / Biaya Variabel 2
    Roti 40 biji : Rp.88.000
    minyak tanah 4 liter : Rp.10.000
    Jumlah : Rp.98.000
    Maka selama 1 bulan biaya untuk beli roti dan minyak tanah = Rp.98.000 X 15 = Rp.1.470.000

Jadi jumlah total pengeluaran selama 1 bulan Variabel 1 + Biaya Variabel 2
= Rp. 907.000  + Rp.1.470.000 = Rp.2.377.000

  1. Estimasi Biaya dan Pendapatan
    Diperkirakan setiap hari 1 gerobak mampu terjual roti sebanyak 8 buah. Maka selama 1 bulan untuk 1 gerobak diperkirakan = 8 x 30 hari : 240 roti
    2 gerobag maka 1 bulan diperkirakan roti yang terjual = 240 x 2 gerobak : 480 roti

Pendapatan kotor 1bulan (harga roti terendah) = 480 roti x Rp.6.000  = Rp.2.880.000

Pendapatan bersih 1 bulan = Pendapatan kotor – Pengeluaran Biaya keseluruhan
= Rp.2.880.000Rp.2.377.000
= Rp.503.000

Pendapatan sebesar Rp.503.000 adalah pendapatan dari harga jual roti terendah, sedangkan kita mempunyai bermacam–macam harga roti sesuai dengan rasa yang dinginkan ini dapat dilihat pada tabel daftar harga roti berikut ini :

Daftar Harga
Padahal dalam sehari roti yang terjual tidak selamanya index harga yang terendah, index harga roti yang terjual brevariasi sesuai dengan permintaan pembeli rasa apa yang pembeli inginkan. Sehingga bukan tak mungkin pendapatan bersih kita selama 1 bulan bisa mencapai lebih dari Rp.503.000

  • Nanas/Strawbery Rp. 6.000
  • Kombinasi Nanas/Strawbery + Kacang = Rp. 6.500
  • Kombinasi Nanas/Strawbery + Pisang = Rp. 6.500
  • Kombanisi Nanas/Strawbery + Coklat = Rp. 7.000
  • Kombinasi Nanas/Strawbery + Keju = Rp. 7.000
  • Coklat + Coklat = Rp. 7.500
  • Kombinasi Coklat + Pisang = Rp. 7.500
  • Kombinasi Coklat + Kacang = Rp. 7.500
  • Pisang + Pisang = Rp. 8.000
  • Kacang + Kacang = Rp. 8.000
  • Kombinasi Kacang + Pisang = Rp. 8.000
  • Kombinasi Keju + Pisang = Rp. 8.500
  • Kombinasi Keju + Coklat = Rp. 8.500
  • Kombinasi Keju + Kacang = Rp. 8.500
  • Keju + Keju = Rp. 9.000
  • Special = Rp.10.000
  1. Analisis Titik Impas ( BEP )
    Dalam menghitung analisis titik impas kita terlebih dahulu menentukan jumlah total investasi awal.
    Investasi awal = Jumlah Biaya Tetap + Jumlah Biaya Toatal Variabel
    = Rp.2.633.000 + Rp.2.377.000 = Rp.5.010.000

Kemudian kita menentukan pendapatan bersih setiap bulannya, Disini kita menggunakan nilai pendapatan bersih terendah setiap bulan yaitu Rp.503.000 dengan harga terendah yaitu Rp. 6.000
Maka titik balik modal (BEP) akan terjadi pada bulan ke 9,9 bulan ~ 10 bulan
Jika harga Roti kita bervariasi Jadi bukan tidak mungkin kita akan balik modal lebih cepat dari 10 bulan.

  1. Tenaga Kerja

Dalam bisnis jualan roti ini kita tidak memerlukan sumber daya manusia yang ahli dan skill yang khusus seperti sarjana dll, akan tetapi yang diperlukan adalah orang yang mau bekerja secara tekun / telaten, sabar, kerja keras dan tidak gengsi karena ini merupakan pekerjaan remeh menurut pandangan masyarakat tertentu.

  1. Lokasi

Pilihlah lokasi yang paling bagus yaitu ditempat yang banyak dilalui orang (banyak orang yang melakukan aktifitas) seperti di depan toko (supermarket), di perempatan atau pertigaan jalan dll. Untuk lokasi yang sudah kami dapatkan yaitu di depan rumah, lokasi cukup bagus karena di pinggir jalan dan dekat toko perbelanjaan (ruko-ruko), dan satu lagi di pinggir jalan raya magelang-jogja tepat nya di depan pabrik kertas blabak.

  1. Pesaing

Anda harus mensurvei para pesaing-pesaing anda. Langkah berikutnya, bertanya kepada diri kita sendiri untuk maju selangkah lebih maju. Misalnya, dengan melakukan inovasi. Contoh, bagaimana caranya membuat roti bakar kita beda dengan penjual lain dan terlihat lebih unik serta kalau bisa dengan harga murah.

  1. Strategi Pemasaran

Terdiri dari (Price+Place+Promotion) Harga roti lebih murah, pilih lokasi strategis, Promosi dengan diskon

  1. Faktor- faktor penjualan

Faktor Cuaca

  • Bila hujan turun maka orang malas keluar rumah sehingga pembeli tidak begitu banyak / jarang  dan sepi penjualan juga
  • Bila cuaca terang maka orang banyak yang keluar sehingga target roti 1 hari terjual 16 roti bisa terpenuhi bahkan bisa lebih dari taget.

Faktor Ekonomi Masyarakat

  • Bila musim akhir bulan maka pembeli tidak begitu banyak, namun bila awal bulan maka biasanya pembeli ramai.
  • Bila harga sembako naik walaupun hanya sedikit, kadang bisa mengurangi pembeli.

Apabila faktor tersebut benar-benar mempengaruhi dalam jualan roti, kita masih bisa mendapat untung sekitar Rp.± 300.000 dalam satu bulan. Namun, dengan perencanaan yang baik, maka segala hal bisa menjadi lebih mudah. Semoga dari penjelasan tentang proposal usaha roti bakar sederhana tersebut bisa bermanfaat

Iklan

TUGAS KE 5

Posted: 18 Januari 2015 in Tak Berkategori

1. NAMA JURUSAN MAHASISWA TUGAS 1

NAMA TUGAS 1

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = ” ”

txtnpm.Text = ” ”

txtkelas.Text = ” ”

txtjurusan.Text = ” ”

txtprogram.Text = ” ”

txttahun.Text = ” ”

txturut.Text = ” ”

txtpendaftaran.Text = ” ”

txtpendidikan.Text = ” ”

txtbangunan.Text = ” ”

txtalmamater.Text = ” ”

txttotal.Text = ” ”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = ” ”

txtnpm.Text = ” ”

txtkelas.Text = ” ”

txtjurusan.Text = ” ”

txtprogram.Text = ” ”

txttahun.Text = ” ”

txturut.Text = ” ”

txtpendaftaran.Text = ” ”

txtpendidikan.Text = ” ”

txtbangunan.Text = ” ”

txtalmamater.Text = ” ”

txttotal.Text = ” ”

End Sub

Private Sub cmdproses_Click()

Dim x As String

x = Left(txtnpm.Text, 1)

If x = “E” Then

txtkelas.Text = “Eksekutif”

txtalmamater.Text = “600000”

txtbangunan.Text = “1250000”

ElseIf x = “R” Then

txtkelas.Text = “Reguler”

txtalmamater.Text = “600000”

txtbangunan.Text = “1250000”

End If

txttahun.Text = “20” & Mid(txtnpm.Text, 3, 2)

x = Mid(txtnpm.Text, 5, 1)

If x = “1” Then

txtjurusan.Text = “Sistem Informasi”

ElseIf x = “2” Then

txtjurusan.Text = “Managemen Informatika”

ElseIf x = “3” Then

txtjurusan.Text = “Managemen dan Komp. Akuntansi”

End If

x = Mid(txtnpm.Text, 6, 2)

If x = “01” Then

txtprogram.Text = “Strata Satu”

txtpendaftaran.Text = “200000”

ElseIf x = “02” Then

txtprogram.Text = “Diploma Tiga”

txtpendaftaran.Text = “150000”

ElseIf x = “03” Then

txtprogram.Text = “Diploma Satu”

txtpendaftaran.Text = “150000”

End If

x = Left(txtnpm.Text, 1) & Mid(txtnpm.Text, 6, 2)

If x = “E” & “01” Then

txtpendidikan.Text = “1900000”

ElseIf x = “E” & “02” Then

txtpendidikan.Text = “1650000”

ElseIf x = “E” & “03” Then

txtpendidikan.Text = “1350000”

ElseIf x = “R” & “01” Then

txtpendidikan.Text = “1500000”

ElseIf x = “R” & “02” Then

txtpendidikan.Text = “1250000”

ElseIf x = “R” & “03” Then

txtpendidikan.Text = “1250000”

End If

txturut = Right(txtnpm.Text, 3)

txtalmamater.SetFocus

End Sub

Private Sub txtalmamater_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

txttotal.Text = Val(txtpendaftaran.Text) + Val(txtpendidikan.Text) + Val(txtbangunan.Text) + Val(txtalmamater.Text)

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

2. NAMA NPM MAHASISWA TUGAS 2

NPM TUGAS 2

Private Sub cmdbt_Click()

txtnama.SetFocus

txtnama = ” ”

txtnpm = ” ”

txtjur = ” ”

txtps = ” ”

txttm = ” ”

txtnu = ” ”

txtbp = ” ”

txtterbilang.Text = ” ”

End Sub

Private Sub txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

Private Sub cmdkl_Click()

End

End Sub

Private Sub cmdlg_Click()

txtnama.SetFocus

txtnama = ” ”

txtnpm = ” ”

txtjur = ” ”

txtps = ” ”

txttm = ” ”

txtnu = ” ”

txtbp = ” ”

txtterbilang.Text = ” ”

End Sub

Private Sub cmdproses_Click()

Dim S As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

txtps.Text = “Strata Satu”

txtbp.Text = “1950000”

txtterbilang.Text = “satu juta sembilan ratus lima puluh ribu rupiah”

ElseIf S = “2” Then

txtjur.Text = “Tehnik informasi”

txtps.Text = “Diploma Empat”

txtbp.Text = “1750000”

txtterbilang.Text = “satu juta tujuh ratus lima puluh ribu rupiah”

ElseIf S = “3” Then

txtjur.Text = “Manajemen Informatika”

txtps.Text = “Diploma tiga”

txtbp.Text = “1650000”

txtterbilang.Text = “satu juta enam ratus lima puluh ribu rupiah”

ElseIf S = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

txtps.Text = “Diploma Dua”

txtbp.Text = “1450000”

txtterbilang.Text = “satu juta empat ratus lima puluh ribu rupiah”

End If

txtnu.Text = Right(txtnpm.Text, 3)

End Sub

3. PENJUALAN LEPTOP ASUS TUGAS 3

PENJUALAN ASUS TUGAS 3

Private Sub cbokode_Click()

Dim merk, satuan As String

Select Case cbokode.Text

Case “Asus A43SA”

merk = “Asus A43SA-VX090D”

satuan = “5500000”

Case “Asus A43SD”

merk = “Asus A43SD-VX052D”

satuan = “4500000”

Case “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

satuan = “4300000”

Case “Asus A43TA”

merk = “Asus A43TA-VX034D”

satuan = “4900000”

Case “Asus N43SL”

merk = “Asus N43SL-VX264D”

satuan = “4300000”

Case “Apple MD311”

merk = “Apple MacBook Pro MD311”

satuan = “19300000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD314”

satuan = “24200000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD314”

satuan = “11900000”

Case “Apple MD322”

merk = “Apple MacBook Pro MD322”

satuan = “14700000”

Case “Apple MC965”

merk = “Apple MecBook Air MC965”

satuan = “21300000”

End Select

txtmrt.Text = merk

txths.Text = satuan

txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmrt = “”

txths = “”

txtjj = “”

txthp = “”

txtds = “”

txttb = “”

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp.SetFocus

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

End If

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

Private Sub cmdproses_Click()

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

Private Sub Form_Load()

cbokode.AddItem “Asus A43SA”

cbokode.AddItem “Asus A43SD”

cbokode.AddItem “Asus A43SJ”

cbokode.AddItem “Asus A43TA”

cbokode.AddItem “Asus N43SL”

cbokode.AddItem “Apple MD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MD965”

End Sub

4. DATA BUKU TUGAS 4

DATA BUKU TUGAS 4

Private Sub cmdlg_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Right(txtkb.Text, 2)

S = Mid(txtkb.Text, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi manajemen”

txtp.Text = “Andra setiawan”

ElseIf S = “EDP” Then

txtjb.Text = “elektronik data Procesing”

txtp.Text = “Desi istiqomah”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandi fitrajaya”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri indah sari”

ElseIf S = “RPL” Then

txtjb.Text = “Rekaya Perangkat Lunak ”

txtp.Text = “Ernita sari”

End If

S = Left(txtkb.Text, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txthg.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txthg.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txthg.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txthg.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txthg.Text = “83000”

End If

End Sub

5. PT. PULANG PETANG SETIAP HARI TUGAS 5

PT PULANG TUGAS 5

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtnik.Text, 4)

txttahun.Text = “2015”

s = Mid(txtnik.Text, 5, 1)

If s = “A” Then

txtgol.Text = “A”

txtjabatan.Text = “MANAJER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf s = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “KA.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf s = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “STAF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

s = Mid(txtnik.Text, 7, 1)

If s = “S” Then

txtkode.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkode.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “J” Then

txtkode.Text = “J”

txtstatus.Text = “JANDA”

ElseIf s = “D” Then

txtkode.Text = “D”

txtstatus.Text = “DUDA”

End If

s = Right(txtnik.Text, 3)

If s = “KEU” Then

txtbagian.Text = “ACOUNTING”

ElseIf s = “ADM” Then

txtbagian.Text = “Administrasi”

ElseIf s = “SDM” Then

txtbagian.Text = “General affair”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

End If

txttoga.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

End Sub

Private Sub cmdbatal_click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

Posted: 12 Januari 2015 in Tak Berkategori

HURUF MUTU TUGAS 1 DAN 2

HURUF MUTU MIF

Private Sub Cbonpm_Click()

Dim nama, jurusan As String

Select Case cbonpm.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub Form_Load()

cbonpm.AddItem “09100027”

cbonpm.AddItem “09200048”

cbonpm.AddItem “09300024”

End Sub

Private Sub txtquis_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txttugas.SetFocus

End If

End Sub

Private Sub txttugas_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txtuts.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txtuas.SetFocus

End If

End Sub

Private Sub Cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End Sub

Private Sub txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End If

End Sub

NIDN TUGAS 3

NIDNMIF

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub txtnind_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cbogolongan.SetFocus

End If

End Sub

NPM TUGAS 4

TUGAS 4 MIF

Private Sub bl_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub Form_Activate()

t1.SetFocus

t1.Text = “”

t2.Text = “”

t3.Text = “”

t4.Text = “”

t5.Text = “”

t6.Text = “”

End Sub

Private Sub t1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

t2.SetFocus

End If

End Sub

Private Sub kr_Click()

End

End Sub

Private Sub lg_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub ps_Click()

Dim S As String

t5.Text = “20” & Left(t2.Text, 2)

S = Mid(t2.Text, 3, 1)

If S = “1” Then

t3.Text = “Sistem Informasi”

ElseIf S = “2” Then

t3.Text = “Tehnik informasi”

ElseIf S = “3” Then

t3.Text = “Manajemen Informatika”

ElseIf S = “4” Then

t3.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(t2.Text, 4, 2)

If S = “01” Then

t4.Text = “Strata Satu”

ElseIf S = “02” Then

t4.Text = “Diploma Empat”

ElseIf S = “03” Then

t4.Text = “Diploma Tiga”

ElseIf S = “04” Then

t4.Text = “Diploma Dua”

End If

t6.Text = Right(t2.Text, 3)

End Sub

NPM TUGAS 5

TUGAS 5MIF

Private Sub bl_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub Form_Activate()

t1.SetFocus

t1.Text = “”

t2.Text = “”

t3.Text = “”

t4.Text = “”

t5.Text = “”

t6.Text = “”

End Sub

Private Sub t1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

t2.SetFocus

End If

End Sub

Private Sub kr_Click()

End

End Sub

Private Sub lg_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub ps_Click()

Dim S As String

t5.Text = “20” & Left(t2.Text, 2)

S = Mid(t2.Text, 3, 1)

If S = “1” Then

t3.Text = “Sistem Informasi”

t4.Text = “Strata Satu”

ElseIf S = “2” Then

t3.Text = “Tehnik informasi”

t4.Text = “Diploma Empat”

ElseIf S = “3” Then

t3.Text = “Manajemen Informatika”

t4.Text = “Diploma tiga”

ElseIf S = “4” Then

t3.Text = “Manajemen & Komp. Akuntansi”

t4.Text = “Diploma Dua”

End If

t6.Text = Right(t2.Text, 3)

End Sub

PENJUALAN LEPTOP APPLE TUGAS 6

PENJUALAN EPLLEMIF

Private Sub ds_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tb.SetFocus

End If

End Sub

Private Sub Form_Load()

kp.AddItem “Apple MC965 Macbook Air”

kp.AddItem “Apple MC966 Macbook Air”

kp.AddItem “Apple MC968 Macbook Air”

kp.AddItem “Apple MC969 Macbook Air”

kp.AddItem “Apple MC700 Macbook Pro”

kp.AddItem “Apple MC721 Macbook Pro”

kp.AddItem “Apple MC723 Macbook Pro”

kp.AddItem “Apple MC311 Macbook Pro”

kp.AddItem “Apple MC313 Macbook Pro”

kp.AddItem “Apple MC314 Macbook Pro”

kp.AddItem “Apple MC318 Macbook Pro”

kp.AddItem “Apple MC322 Macbook Pro”

kp.AddItem “Apple MC965 Macbook Air”

kp.AddItem “Apple MC966 Macbook Air”

End Sub

Private Sub hp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ds.SetFocus

End If

End Sub

Private Sub hs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

jj.SetFocus

End If

End Sub

Private Sub ht_Click()

kp.SetFocus

kp.Text = “”

mt.Text = “”

hs.Text = “”

jj.Text = “”

hp.Text = “”

ds.Text = “”

tb.Text = “”

End Sub

Private Sub jj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hp.SetFocus

hp.Text = Val(hs.Text) * Val(jj.Text)

End If

Select Case hp.Text

Case Is > 140000000

ds.Text = Val(hp.Text) * 0.15

Case Is > 135000000

ds.Text = Val(hp.Text) * 0.1

Case Is > 130000000

ds.Text = Val(hp.Text) * 0.5

Case Is > 125000000

ds.Text = Val(hp.Text) * 0.2

End Select

tb.Text = Val(hp.Text) – Val(ds.Text)

End Sub

Private Sub kl_Click()

End

End Sub

Private Sub kp_Click()

If kp.Text = “Apple MC965 Macbook Air” Then

mt.Text = “Apple Macbook Air MC965”

hs.Text = “12800000”

ElseIf kp.Text = “Apple MC966 Macbook Air” Then

mt.Text = “Apple Macbook Air MC965”

hs.Text = “15800000”

ElseIf kp.Text = “Apple MC968 Macbook Air” Then

mt.Text = “Apple Macbook Air MC968”

hs.Text = “9900000”

ElseIf kp.Text = “Apple MC969 Macbook Air” Then

mt.Text = “Apple Macbook Air MC969”

hs.Text = “11900000”

ElseIf kp.Text = “Apple MC700 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC700”

hs.Text = “10800000”

ElseIf kp.Text = “Apple MC721 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC721”

hs.Text = “15900000”

ElseIf kp.Text = “Apple MC723 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC723”

hs.Text = “19300000”

ElseIf kp.Text = “Apple MC311 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC311”

hs.Text = “24200000”

ElseIf kp.Text = “Apple MC313 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC313”

hs.Text = “11900000”

ElseIf kp.Text = “Apple MC314 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC314”

hs.Text = “14700000”

ElseIf kp.Text = “Apple MC318 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC318”

hs.Text = “17600000”

ElseIf kp.Text = “Apple MC322 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC322”

hs.Text = “21300000”

ElseIf kp.Text = “Apple MC965 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC965”

hs.Text = “12800000”

ElseIf kp.Text = “Apple MC966 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC966”

hs.Text = “15800000”

End If

End Sub

Private Sub kp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

mt.SetFocus

End If

End Sub

Private Sub mt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hs.SetFocus

End If

End Sub

Private Sub ps_Click()

hp.Text = Val(hs.Text) * Val(jj.Text)

Select Case hp.Text

Case Is > 140000000

ds.Text = Val(hp.Text) * 0.15

Case Is > 135000000

ds.Text = Val(hp.Text) * 0.1

Case Is > 130000000

ds.Text = Val(hp.Text) * 0.5

Case Is > 125000000

ds.Text = Val(hp.Text) * 0.2

End Select

tb.Text = Val(hp.Text) – Val(ds.Text)

End Sub

PENJUALAN KOMPUTER TUGAS 7

PENJUALAN MIF

Private Sub cmdhitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

Private Sub Cmdclose_Click()

Unload Me

End Sub

Private Sub cboclose_Click()

Unload Me

End Sub

Private Sub cbohitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

Private Sub Cbokodekomputer_Click()

Dim jeniskomputer, hargasatuan As String

Select Case cbokodekomputer.Text

Case “P205”

jeniskomputer = “Pentium II 500 Mega Hz”

hargasatuan = “1500000”

Case “P308”

jeniskomputer = “Pentium III 800 Mega Hz”

hargasatuan = “2100000”

Case “P310”

jeniskomputer = “Pentium III 1 Giga Hz”

hargasatuan = “3500000”

Case “P415”

jeniskomputer = “Pentium IV 1.5 Giga Hz”

hargasatuan = “4000000”

Case “P417”

jeniskomputer = “Pentium IV 1.7 Giga Hz”

hargasatuan = “4200000”

Case “P419”

jeniskomputer = “Pentium IV 1.9 Giga Hz”

hargasatuan = “5500000”

End Select

txtjeniskomputer.Text = jeniskomputer

txthargasatuan.Text = hargasatuan

txtjumlahjual.SetFocus

End Sub

Private Sub cmdproses_Click()

txthargabayar = Val(txthargapenjualan.Text) – Val(txtdiskon.Text)

End Sub

Private Sub Form_Load()

cbokodekomputer.AddItem “P205”

cbokodekomputer.AddItem “P308”

cbokodekomputer.AddItem “P310”

cbokodekomputer.AddItem “P415”

cbokodekomputer.AddItem “P417”

cbokodekomputer.AddItem “P419”

End Sub

Private Sub txthargapenjualan_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

End If

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

Private Sub txthargasatuan_KeyPress(KeyAscii As Integer)

txtjumlahjual.SetFocus

End Sub

Private Sub txtjumlahjual_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.SetFocus

End If

End Sub

PENJUALAN TIKET KERETA API TUGAS 9

PENJUALAN KERETA API

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtkt.Text, 3)

If s = “bim” Then

txtht.Text = “50000”

txtjk.Text = “BIMA”

txtjb.Text = “16.00”

ElseIf s = “eko” Then

txtht.Text = “35000”

txtjk.Text = “EKONOMI”

txtjb.Text = “19.00”

ElseIf s = “mut” Then

txtht.Text = “23000”

txtjk.Text = “MUTIARA”

txtjb.Text = “17.00”

ElseIf s = “sen” Then

txtht.Text = “15000”

txtjk.Text = “SENJA”

txtjb.Text = “20.00”

End If

txtjt.SetFocus

End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TP = Val(txtht) * Val(txtjt)

txttotalp.Text = TP

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub Form_Activate()

txtkt.SetFocus

End Sub

Posted: 24 Desember 2014 in Tak Berkategori

Untitled

Private Sub Cmd1_Click()

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End Sub

Private Sub Cmd3_Click()

End

End Sub

Private Sub Cmd2_Click()

Txtgp = “”

Txttj = “”

Txtpt = “”

Txtgk = “”

txtpj = “”

Txtgd = “”

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttj.SetFocus

End If

End Sub

Private Sub Txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End If

End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpt.SetFocus

End If

End Sub

Posted: 21 Desember 2014 in Tak Berkategori

1JADI

Private Sub Cmd1_Click()

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End Sub

Private Sub Cmd3_Click()

End

End Sub

Private Sub Cmd2_Click()

Txtgp = “”

Txttj = “”

Txtpt = “”

Txtgk = “”

txtpj = “”

Txtgd = “”

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttj.SetFocus

End If

End Sub

Private Sub Txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End If

End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpt.SetFocus

End If

End Sub

2 JADI

Private Sub Checkbold_Click()

If Checkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

Private Sub Checkitalic_Click()

If Checkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

Private Sub Checkstrikethru_Click()

If Checkstrikethru.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

Private Sub Checkunderline_Click()

If Checkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Opt1red_Click()

Lbltext.ForeColor = vbRed

End Sub

Private Sub Opt2green_Click()

Lbltext.ForeColor = vbGreen

End Sub

Private Sub Opt3blue_Click()

Lbltext.ForeColor = vbBlue

End Sub

Private Sub Opt4yellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

3 JADI

Private Sub Chkgb_Click()

If Chkgb.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

Private Sub Chkgt_Click()

If Chkgt.Value = 1 Then

Label2.FontStrikethru = True

Else

Label2.FontStrikethru = False

End If

End Sub

Private Sub Chkmiring_Click()

If Chkmiring.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Chktebal_Click()

If Chktebal.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Cmd1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Cmd2_Click()

End

End Sub

Private Sub Optbiru_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Optkuning_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Optmerah_Click()

Label2.ForeColor = vbRed

End Sub

Posted: 15 Desember 2014 in Tak Berkategori

TUGAS 1

3

Private Sub cmdbt_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnp = ” ”

Textnpm = ” ”

Texttt = ” ”

End Sub

Private Sub cmdkl_Click()

End

End Sub

Private Sub cmdlg_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnp = ” ”

Textnpm = ” ”

Texttt = ” ”

End Sub

Private Sub Textkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnb.SetFocus

End If

End Sub

Private Sub Textnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnp.SetFocus

End If

End Sub

Private Sub Textnp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

Private Sub Textnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttt.SetFocus

End If

End Sub

Posted: 15 Desember 2014 in Tak Berkategori

TUGAS 6 DAN 7

6

Private Sub CMD1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Text6.Text = Val(Text4.Text) * Val(Text5.Text)

Text9.Text = Val(Text7.Text) / Val(Text8.Text)

Text12.Text = Val(Text10.Text) – Val(Text11.Text)

End Sub

Private Sub Cmd2_Click()

Text1.Text = ” ”

Text2.Text = ” ”

Text3.Text = ” ”

Text4.Text = ” ”

Text5.Text = ” ”

Text6.Text = ” ”

Text7.Text = ” ”

Text8.Text = ” ”

Text9.Text = ” ”

Text10.Text = ” ”

Text11.Text = ” ”

Text12.Text = ” ”

End Sub

Private Sub Cmd3_Click()

End

End Sub

Posted: 15 Desember 2014 in Tak Berkategori

TUGAS 4 DAN 5

5

Private Sub CMDHITUNG_Click()

Dim A, B, C As Double

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub CMDQUIT_Click()

End

End Sub

Private Sub CMDULANGI_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Posted: 15 Desember 2014 in Tak Berkategori

4

TUGAS 2 DAN 3

Private Sub cmd1_Click()

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

End Sub

Private Sub cmd2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

End Sub

Private Sub cmd3_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

TUGAS VIBI

Posted: 15 Desember 2014 in Tak Berkategori

TUGAS 1 TUGAS 2 DAN 3 tugas 4 dan 5 tugas 6 dan 7