SOAL UTS ALGORITMA TENTANG QBASIC

uts algoritma 1c

CLS
n = 0: no = 0: h = 1: u = 0: tp = 0: tw = 0
INPUT "TAHUN SEKARANG : ", TS: CLS
20 PRINT
PRINT TAB(30); "PT. MAVINDO"
PRINT TAB(59); "HAL : "; h
PRINT "------------------------------------------------------------------"
PRINT "NO", "NOMOR INDUK", "NAMA", "UMUR", "KETERANGAN"
PRINT "------------------------------------------------------------------"
30 READ NIK$, NAMA$, TL, JK$
IF NIK$ = "0" THEN PRINT "------------------------------------------------------------------": PRINT TAB(36); "TOTAL SELURUH PRIA   : "; tp; "ORANG": PRINT TAB(36); "TOTAL SELURUH WANITA : "; tw; "ORANG": END
u = TS - TL
IF u <= 56 THEN GOTO 30
IF JK$ = "0" THEN Ket$ = "PRIA": tp = tp + 1: GOTO 60
IF JK$ = "1" THEN Ket$ = "WANITA": tw = tw + 1: GOTO 60
JK$ = "SALAH"
60 n = n + 1: no = no + 1
PRINT no, NIK$, NAMA$, u, Ket$
IF n = 5 THEN PRINT "------------------------------------------------------------------": INPUT "NEXT HAL (TEKAN ENTER)"; Y: CLS: n = 0: h = h + 1: GOTO 20
GOTO 30

DATA 54123,ACEP,1951,0,54122,LIEN,1941,1,54233,AMELIA,1958,1
DATA 54321,FUAD,1950,0,54222,NAUVAL,1935,0,54333,HAMDA,1940,0
DATA 53244,EGA,1948,0,56233,IRMA,1930,1,57345,RINA,1952,1
DATA 0,0,0,0

PROGRAM QBASIC SEDERHANA

AGAR LEBIH JELAS LIHAT DULU GAMBAR DI ATAS

CLS
n = o: no = 0: h = 1: th = 0: tk = 0
10 PRINT
PRINT TAB(17); "DATA REKAP GAJI KARYAWAN"
PRINT
PRINT TAB(40); "HAL "; h
PRINT "-------------------------------------------------"
PRINT "NO", "NIK", "NAMA", "GAJI"
PRINT "-------------------------------------------------"
30 READ NIK$, NAMA$, JK
IF NIK$ = "0" THEN PRINT "------------------------------------------------": PRINT TAB(26); "TOTAL GAJI : Rp. "; th: PRINT TAB(19); "JUMLAH TOTAL GAJI : Rp. "; tk: END
G = JK * 100000 + 50000
n = n + 1
no = no + 1
th = th + G
tk = tk + th
PRINT no, NIK$, NAMA$, G
IF n = 2 THEN PRINT "------------------------------------------------": PRINT TAB(26); "TOTAL GAJI : Rp. "; th: INPUT "NEXT HAL (TEKAN ENTER) "; Y: CLS: n = 0: h = h + 1: th = 0: GOTO 10
GOTO 30

DATA 001,ACEP,12,002,DEWI,10,003,SRI,12
DATA 004,AMEL,14,005,MELA,20,0,000,00

Q-BASIC MENULIS, MENAMBAH, MENGEDIT, MENGHAPUS DATA PADA NOTEPAD

BELAJAR OPEN FILE DAN MANIFULASI STRING

 

"I" (Input) – file dibuka hanya untuk dibaca.

"O" (Output) – file dibuka hanya untuk ditulisi.

"A" (Append) – file dibuka untuk menambah record.

untuk melakukan penulisan, penambahan dan membaca ada 2 macam source code yang dapat di gunakan :

Pertama :

OPEN "I", #1, "MAHASISWA.TXT"

OPEN "O", #1, " MAHASISWA.TXT"

OPEN "A", #1, " MAHASISWA.TXT"

Kedua :
OPEN " MAHASISWA.TXT" FOR OUTPUT AS # 1
OPEN " MAHASISWA.TXT" FOR INPUT AS # 1
OPEN " MAHASISWA.TXT" FOR APPEND AS # 1
LANGSUNG UNTUK MENULIS DATA :
10 ' *** PROGRAM ISI DATA ***
15 OPEN "O", #1, "D:\DATA\SISWA.TXT"
20 CLS
30 INPUT "Nomor Induk Mahasiswa : ", NIM$
40 INPUT "Nama Mahasiswa        : ", NAMA$
50 INPUT "Nilai Mahasiswa       : ", NILAI
60 WRITE #1, NIM$, NAMA$, NILAI
70 INPUT " ISI DATA LAGI [Y/T] : ", JAWAB$
80 IF JAWAB$ = "Y" OR JAWAB$ = "y" THEN GOTO 20
90 CLOSE #1
100 END
MENAMBAH DATA :
10 ' *** PROGRAM TAMBAH DATA ***
15 OPEN "A", #1, "D:\DATA\SISWA.TXT"
20 CLS
30 INPUT "Nomor Induk Mahasiswa : ", NIM$
40 INPUT "Nama Mahasiswa        : ", NAMA$
50 INPUT "Nilai Mahasiswa       : ", NILAI
60 WRITE #1, NIM$, NAMA$, NILAI
70 INPUT " ISI DATA LAGI [Y/T] : ", JAWAB$
80 IF JAWAB$ = "Y" OR JAWAB$ = "y" THEN GOTO 20
90 CLOSE #1
100 END

MENGEDIT DATA :

10 CLS

20 OPEN "I", #1, "D:\DATA\SISWA.TXT"

30 OPEN "O", #2, "D:\DATA\BARU.TXT"

40 INPUT "NIM YANG AKAN DIKOREKSI NILAINYA : ", NIMCARI$

50 PRINT

60 SWITCH = 0

70 WHILE NOT EOF(1)

80 INPUT #1, NIM$, NAMA$, NILAI

90 IF NIM$ <> NIMCARI$ THEN GOTO 170

100 PRINT " NOMOR INDUK MAHASISWA : "; NIM$

110 PRINT " NAMA MAHASISWA : "; NAMA$

120 PRINT " NILAI MAHASISWA : "; NILAI

 130 PRINT

 140 INPUT " NILAI YANG BARU : ", B$

 150 SWITCH = 1

 160 IF B$ <> "" THEN NILAI = VAL(B$)

 170 WRITE #2, NIM$, NAMA$, NILAI

180 WEND

190 CLOSE

310 KILL "D:\DATA\SISWA.TXT"

320 NAME "D:\DATA\BARU.TXT" AS "D:\DATA\SISWA.TXT"

330 IF SWITCH = 0 THEN PRINT "MAAF, NIM TERSEBUT TIDAK ADA DALAM FILE!"

340 PRINT

350 INPUT "ADA KOREKSI LAGI [Y/T] : ", KOREKSI$

360 IF KOREKSI$ = "y" OR KOREKSI$ = "Y" THEN GOTO 10

370 END

MENGHAPUS DATA :

10 CLS

20 OPEN "I", #1, "D:\DATA\SISWA.TXT"

30 OPEN "O", #2, "D:\DATA\BARU.TXT"

40 INPUT "NIM YANG AKAN DIKOREKSI NILAINYA : ", NIMCARI$

50 PRINT

60 SWITCH = 0

70 WHILE NOT EOF(1)

    INPUT #1, NIM$, NAMA$, NILAI

    IF NIM$ <> NIMCARI$ THEN GOTO 171

    PRINT " NOMOR INDUK MAHASISWA : "; NIM$

    110 PRINT " NAMA MAHASISWA : "; NAMA$

    120 PRINT " NILAI MAHASISWA : "; NILAI

    PRINT

    140 SWITCH = 1

    INPUT "INGIN DIHAPUS DARI FILE [Y/T] : ", HAPUSOK$

    IF HAPUSOK$ = "Y" OR HAPUSOK$ = "y" THEN GOTO 180

    171 WRITE #2, NIM$, NAMA$, NILAI

180 WEND

190 CLOSE

310 KILL "D:\DATA\SISWA.TXT"

320 NAME "D:\DATA\BARU.TXT" AS "D:\DATA\SISWA.TXT"

330 IF SWITCH <> 1 THEN PRINT "MAAF, NIM TERSEBUT TIDAK ADA DALAM FILE!"

340 PRINT

350 INPUT "ADA RECORD YANG AKAN DIHAPUS LAGI [Y/T] : ", HAPUS$

360 IF HAPUS$ = "y" OR HAPUS$ = "Y" THEN GOTO 10

370 END

CARA NGEPRINT DATA :

10 ' *** PROGRAM CETAK DATA ***

15 CLS

20 OPEN "I", #1, "D:\DATA\SISWA.TXT"

30 IF EOF(1) THEN CLOSE #1: END

40 INPUT #1, NIM$, NAMA$, NILAI

PRINT NIM$, NAMA$, NILAI

60 GOTO 30

MANIPULASI STRING :

DIM Y AS STRING * 31

DIM Z AS LONG

HURUP$ = " AKU INGIN BELAJAR MENCINTAI MU"

GABHUR = LEN(HURUP$)

X = 0

DO

    CLS

    LOCATE 12, 21

    X = X + 1

    IF X = GABHUR + 1 THEN X = 0

    Y = MID$(HURUP$, X) + HURUP$

    COLOR 10

    PRINT Y

    Z = 0

    DO

        Z = Z + 1

    LOOP UNTIL Z = 100000000

LOOP UNTIL CEP$ <> ""

END

MEMBUWAT TEXT BERJALAN PADA QBASIC

YUK KITA BELAJAR MANIFULASI STRING UNTUKTEXT BERJALAN

NIE SOURCE CODE NYA
DIM Y AS STRING * 31
DIM Z AS LONG

HURUP$ = " AKU INGIN BELAJAR MENCINTAI MU"
GABHUR = LEN(HURUP$)
X = 0

DO
    CLS
    LOCATE 12, 21
    X = X + 1
    IF X = GABHUR + 1 THEN X = 0
    Y = MID$(HURUP$, X) + HURUP$
    COLOR 10
    PRINT Y
    Z = 0
    DO
        Z = Z + 1
    LOOP UNTIL Z = 100000000
LOOP UNTIL CEP$ <> ""
END

OKE SEKARANG PENJELASANNYA:
DISINI SAYA MENDEFINISIKAN PROGRAM DALAM 3 VARIABEL X, Y, Z
X = DIGUNAKAN UNTUK MENAMBAH 1 HURUP TIAP SESUDAH MENGHILANG
Y= DIGUNAKAN UNTUK MENJALANKAN HURUP DENGAN CARA MENGHILANGKAN HURUP SATU PERSATU
Z= DIGUNAKAN UNTUK CEPAT ATAU LAMBATNYA HURUP BERJALAN

DIM Y AS STRING * 31 , ANGKA 31 ITU DI DAPAT DARI PERHITUNGAN BANYAK HURUP+SPASI ( " AKU INGIN BELAJAR MENCINTAI MU" )

LOCATE 12, 21 , DIGUNAKAN UNTUK MENENTUKAN POSISI HURUP ITU BERADA

X = X + 1, DIGUNAKAN UNTUK MENAMBAH 1 HURUP SETELAH MENGHILANG JIKA INGIN 2 ATAU 3 ATAU SESUAI DENGAN KEINGINAN KITA MAKA RUBAH ANGKA +1 SESUAI DENGAN YANG KITA INGINKAN

Y = MID$(HURUP$, X) + HURUP$ , UNTUK VARIABEL Y BISA KITA RUBAH-RUBAH
SILAHKAN TENTUKAN MANA YANG KITA SUKAI
Y=LEFT$(HURUP$,X)
Y=LEFT$(HURUP$,X)+HURUP$
Y=RIGHT$(HURUP$,X)
 Y=RIGHT$(HURUP$,X)+HURUP$
Y=MID$(HURUP$,X)
SILAHKAN PILIH SALAH SATU :)

 LOOP UNTIL Z = 100000000, JUMLAH NOL MENENTUKAN CEPAT LAMBATNYA


SEKIAN MOGA BERMANFAAT :)

CARA MEMBUWAT FILE .TXT PADA QBASIC

1.MEMBUWAT FILE .TXT

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR OUTPUT AS #1
150 CLS
PRINT TAB(10); "DATA NILAI MAHASISWA"
PRINT
INPUT "NPM         : ", NPM
INPUT "NAMA        : ", NAMA
INPUT "KELAS       : ", KELAS
INPUT "MATEMATIKA  : ", MATEMATIKA
INPUT "B.INGGRIS   : ", B.ENGGLIS
INPUT "B.INDONESIA : ", B.INDONESIA
INPUT "PEMROGRAMAN : ", PEMROGRAMAN
PRINT

NPMO$ = NPM
NMO$ = NAMA
KLO$ = KELAS
MTKO = MATEMATIKA
BEO = B.ENGGLIS
BIO = B.INDONESIA
PMO = PEMROGRAMAN

WRITE #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO

INPUT "MAHASISWA SELANJUTNYA (Y/T) : ", MAHASISWA$
IF MAHASISWA$ = "Y" THEN GOTO 150
CLOSE #1
END

2. MENAMBAHKAN DATA KE FILE YANG TELAH DIBUWAT
 200 DIM NPM1 AS STRING
DIM NAMA1 AS STRING
DIM KELAS1 AS STRING
DIM MATEMATIKA1 AS INTEGER
DIM B.INGGRIS1 AS INTEGER
DIM B.INDONESIA1 AS INTEGER
DIM PEMROGRAMAN1 AS INTEGER

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR APPEND AS #1
250 CLS
PRINT TAB(10); "DATA NILAI MAHASISWA"
PRINT
INPUT "NPM         : ", NPM1
INPUT "NAMA        : ", NAMA1
INPUT "KELAS       : ", KELAS1
INPUT "MATEMATIKA  : ", MATEMATIKA1
INPUT "B.INGGRIS   : ", B.ENGGLIS1
INPUT "B.INDONESIA : ", B.INDONESIA1
INPUT "PEMROGRAMAN : ", PEMROGRAMAN1
PRINT

NPMO$ = NPM1
NMO$ = NAMA1
KLO$ = KELAS1
MTKO = MATEMATIKA1
BEO = B.ENGGLIS1
BIO = B.INDONESIA1
PMO = PEMROGRAMAN1

WRITE #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO

INPUT "MAHASISWA SELANJUTNYA (Y/T) : ", MAHASISWA$
IF MAHASISWA$ = "Y" THEN GOTO 250
CLOSE #1
END

3. UNTUK PRINT DATA DARI FILE .TXT
CLS
N = 0: P = 0
PRINT TAB(15); "HASIL UTS MAHASISWA"
PRINT
PRINT "NO", "NPM", "NAMA", "PRESTASI"
OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR INPUT AS #1
30 INPUT #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO
IF NPMO$ = "0" THEN CLOSE #1: END
P = (MTKO + BEO + BIO + PMO) / 4
N = N + 1
PRINT N, NPMO$, NMO$, P
GOTO 30

PENJELASAN :
OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR OUTPUT AS #1
1. code diatas digunakan untuk menulis file baru dengan file berbentuk .txt, D:\NOTEPAD\DATA NILAI MAHASISWA itu artinya saya membuwat di partisi D Folder Notepad dan nama filenya Data Nilai Mahasiswa
2. FOR OUTPUT AS #1 saya menggunakan MODE OUTPUT yang artinya output untuk membuwat data baru

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR APPEND AS #1
1. code diatas digunakan untuk melanjutkan memasukan data tanpa menghapus data terdahulu
2.  FOR APPEND AS #1 ini artinya (Append) untuk melanjutkan data

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR INPUT AS #1
1.  FOR INPUT AS #1 , INPUT disini artinya bahwa file .txt telah ada di "D:\NOTEPAD\ sehingga input disini di artikan untuk melihat isi dari data yang telah kita buwat.
2. IF NPMO$ = "0" THEN CLOSE #1: END code ini digunakan untuk mengakhiri proses tanpa ada pesan error. "karena program tersebut digunakan untuk pembelajaran maka saya menggunanan NPM=0 untuk mengakhiri prosesprogramnya.
catatan : pada saat pembuwatan data baru jangan lupa untuk menuliskan npm =0 jika ingin menyamakan program dengan code diatas.

jangan lupa menggunakan WRITE #no_file jika program no. 3 ingin berjalan
karena jika menggunakan PRINT # no_file atau PUT #no_file suka error.

hehe cukup sekian semoga bermanfaat ya :) mohon maaf jika bnyak kesalahan

MATERI Q-BASIC

YANG MASIH MAU PROGRAM SOFTFILE Q-BASIC SILAHKAN DOWNLOAD sotffile.rar SELMAT BELAJAR

CARA MEMBUWAT FIBONACI PADA JAVA

NIE CARA MEMBUWAT FIBONACI DENGAN PERULANGAN FOR, WHILE, DO WHILE

SELAMAT MECOBA ^^

MANIFULASI STRING

NIE CARA MEMANIFULASI STRING DI Q-BASIC
ATAU CARA HURUF BERJALAN

SELAMAT MENCOBA

TUGAS ILMU SOSIAL DASAR 2 TENTANG CINTA

CINTA

Cinta merupakan suatu anugerah dari tuhan yang maha kuasa kepada para hambanya, seorang manusia terlahir kedunia tiada lain karena cinta dari ayah dan ibunya. Sehingga bisa diartikan cinta merupakan awal terbentuknya suatu kehidupan.

Setiap orang pasti sudah mengetahui apa itu cinta, contoh dari cinta itu sendiri yaitu :Cintanya sang pencipta kepada para hambanya, Cintanya orang tua yang selalu melindungi anaknya. Cinta merupakan suatu anugerah yang sangat indah , saat kita merasakan cinta seakan setiap hal yang kita pandang terasa indah, seakan diri ini memiliki kekuatan yang sangat kuat untuk dapat menjalani hidup ini lebih bermakana.

Namun apa daya jika cinta yang kita rasakan ternodai, hal ini akan menyebabkan kebalikan dari cinta yang indah, karena jika cinta kita ternodai hidup serasa hamba dan diri ini menjadi semakin melemah serta kita tak mampu memilih arah yang lebih baik pula.

Maka dari sebab itu pada kesempatan kali ini saya akan membahas salah satu bagian dikalangan anak muda yang tak lain yaitu tentang PACARAN. Anak muda atau bisa kita klasifikasikan menjadi anak yang baru menginjak kedewasaan SMP, SMA, ataupun MAHASISWA terkadang salah mendifinisikan tentang cinta. Sehingga timbulah dalam pemikiran mereka tentang Cinta dalam arti pacaran. Jika kita gambarkan awal mulanya seseorang ingin melakukan pacaran ada berbagai tujuan diantara :

1. Ingin memiliki seseorang yang dapat memperhatikan kita

2. Sudah merasa bosannya sendirian sehingga ingin ada orang yang selalu menemani

3. Terbawa suasa karena kalangannya banyak yang pacaran

4. Keinginan merubah seseorang untuk lebih baik

5. Sebagai sarana sharing pembelajar

6. dll

baik apapun tujuan dari pacaran tersebut pacaran tetaplah pacaran. Terkadang saat kita pacaran ,pada awalnya setiap hari yang kita lalui serasa indah , serasa tiap waktu yang kita jalani ada yang menunggu kita, seakan diri ini semakin kuat karena cinta yang kita rasakan kepada lawan jenis sudah merubah semua hal yang biasa menjadi luar biasa. Namun terkadang keindahan tersebut menjadi sebaliknya disaat cinta tersebut menjadi luntur, hal yang biasanya terjadi kita mudah putus asa, waktu seakan berjalan lambat, mudah merasa frustasi, sakit ketika melihat orang yang kita sukai berjalan dengan yang laian bahkan yang sering terjadi dalam berita sehari-hari terjadinya pembunuhan karena pacar yang kita cintai berjalan dengan yang lain atau bunuh diri karena frustasi. Atau bahkan cinta yang diluar batas kewajaranpun menimbulkan melakukan hubungan intim yang tak senonoh sehingga menimbulkan kehamilan dll. Jadi bisa kita simpulkan cinta itu dapat memberikan efek yang positif dan negatif terhadap orang yang terkena virus cinta tersebut. Namun apakah kita tahu , apa itu cinta yang lebih baik? atau cinta yang hakiki? cinta yang hakiki yaitu cinta yang diridhai oleh Allah SWT, dimana rasa cinta tersebut akan selalu Allah jaga sehingga terjalinlah sesuatu yang harmonis dalam kehidupan kita. Lalu bagaimanakah cara menjaga cinta yang hakiki tersebut? jawabannya yaitu dengan mendekatkan diri kita kepada Allah SWT menjauhi hal -hal yang tidak ia sukai dan menjalankan setiap hal yang ia sukai, contohnya menjauhkan diri dari pacaran sehingga tidak terjalin zinah -zinah yang akan mengotori arti cinta tersebut. Kemudian apa manfaat dari cinta yang hakiki tersebut? manfaat dari cinta yang hakiki tersebut yaitu jalinan sosial yang kita lakukan akan terasa hidup, jalinan kearah vertikal atau bisa disebut jalinan Rabb dengan hambanya akan sangat kuat sehingga walawpun kita sendirian baik didalam kesendirian ataupun dalam keramaian kita serasa hidup karena Allah selalu bersama kita, Jalinan kearah Hozrizontal yaitu jalinan antara ciptaan -ciptaan Allah yang tebagi menjadi dua yaitu jalinan manusia terhadap manusia dan jalinan manusia terdahap hewan dan tumbuhan dimana jalinan manusia terhadap manusia jika kita memiliki cinta yang hakiki atau cinta yang diridhai niscaya kita akan dicintai oleh banyak orang terutama orang - orang terdekat kita baik Ibu atau Ayah sehingga memudahkan kita untuk dapat mencapai sesuatu. kemudian terhadap hewan dan tumbuhan maka kita akan lebih menyayangi mereka tidak membuang makanan dan terkadang selalu ingin memelihara pepohonan dan terhadap hewan serasa mereka selalu bersama dan menemani kita.

Jadi dapat kita ambil dari cerita diatas, apakah kita hanya ingin merasakan cinta sesaat atau cinta yang diridhai oleh sang pencipta, jawabannya hanya kita yang tau namun jika kita memilih cinta yang diridhai niscaya masa depan atau cita- cita kita yang kita ingin kan akan mudah terwujud beda halnya dengan cinta sesaat atau cinta asmara pacaran. Maka oleh sebab itu bersabarlah karena dengan sabar dan memelihara cinta kita yang senantiasa menjadi cinta yang hakiki dan dikemudian hari kita bertemu dengan jodoh kita niscaya itu akan lebih indah dibandingkan kita melakukan pacaran yang diakhirnya  hanya menimbulkan rasa sakit dan penyesalan.

Akhir kata semoga Allah selalu menjaga cinta kita menjadi cinta yang hakiki, cinta yang diridhai oleh Allah SWT.

L3 PRAKTIKUM LAB FISIKA

L3 INI DOWNLOAD ---->>> MAKALAH.docx

PTKI 1B SISTEM OPERASI DAN JENIS OPERASI

DOWNLOAD -->> MAKALAH.docx

JADWAL KURSUS GUNADARMA TERBARU

Selamat pagi perwakilan kelas 1KA, 1IA dan 2IA. Kami sampaikan lampiran terbaru untuk jadwal kursus yang sudah fix. Mohon maaf kami sudah tidak menerima perubahan jadwal lagi KECUALI bentrok dengan kuliah atau jadwal praktikum lainnya. Untuk perpindahan jadwal dari malam hari menjadi pagi atau siang juga tidak dapat kami layani. Bagi yang mendapat pesan dari orang tua untuk mengubah jadwal kursus malam menjadi pagi atau siang, kami tunggu paling lambat hari ini sampai jam 2 siang untuk menyerahkan surat keterangan dari orang tua beserta fotokopi ktp orangtua. Bagi yang mendapatkan materi kursus tidak sesuai dengan pilihan 1, 2 atau 3, kami juga mohon maaf karena kuota pada pilihan tersebut telah penuh. Tolong pesan ini disampaikan kepada teman-teman yang lainnya karena kalian merupakan perwakilan. Jika ada yang merasa tidak mendapatkan info, kami tidak bertanggung jawab karena telah menyampaikan kepada perwakilan ini kecuali bagi yang kelasnya tidak ada satupun yang hadir ke kampus UG F4. Terima kasih. Link Download JADWAL KURSUS terbaru silahkan --->> data_kelas_depok_sort2(1).xlsx LINK JADWWAL KURSUS YANG LAMA --->> data_kelas_depok_sort2.xlsx

Alasan Memilih Jurusan Teknik Informatika Gunadarma

MAKALAH

ILMU SOSIAL DASAR

" Alasan Memilih Jurusan Teknik Informatika Gunadarma "

Dibuwat Oleh :

     Acep Mulya Diwargana     (50414090)

KELAS 1IA08

FAKULTAS TEKNOLOGI INDUSTRI

Mata Kuliah : Ilmu Sosial Dasar

Dosen : Ibu Sri Hermawati

KATA PENGANTAR

            Puji syukur kami panjatkan kehadirat Allah SWT yang telah memberikan rahmat serta karunia-Nya kepada saya sehingga saya berhasil menyelesaikan Makalah ini tepat pada waktunya yang berjudul " Alasan Memilih Jurusan Teknik Informatika Gunadarma ".

            Makalah ini berisi tentang informasi diri saya pribadi meliputi visi dan misi yang ingin saya capai. Diharapkan apa yang akan saya bahas ini  beberapa manfaat bagi pembaca.

            Saya menyadari bahwa makalah ini masih jauh dari sempurna, oleh karena itu kritik dan saran dari semua pihak yang bersifat membangun selalu saya harapkan demi kesempurnaan makalah ini.

            Akhir kata, saya sampaikan terima kasih.

                        Depok, 10 Oktober 2014

Penyusun

                       

BAB I

PENDAHULUAN

A.        LATAR BELAKANG

            Hidup tak terlepas dari apa yang ingin kita gapai, maka oleh sebab itu setiap orang wajib memiliki visi dan misi agar arah dan tujuan kita tidak melenceng, karena jika melenceng maka hanya akan membuwang-buwang waktu untuk hal yang tidak bermanfaat. Maka dari itu Ibu Mata Kuliah Ilmu Sosial Dasar memberikan tugas yang berjudul ' Mengapa Kita Memilih Jurusan Teknik Informatika".

B.        BATASAN MASALAH

            Dalam pembahasan makalah ini saya akan menguraikan tentang :

1.      Visi dan Misi

2.      Alasan Memilih Jurusan Teknik Informatika

C.        TUJUAN DAN MANFAAT

            Tujuan pembuwatan makalah ini semata-mata untuk memenuhi tugas dari mata kuliah Ilmu Sosial Dasar dan Manfaatnya mengingatkan saya kembali tentang tujuan yang ingin saya capai untuk menuju masa depan yang bahagia.

BAB II

PEMBAHASAN

A. Visi dan Misi

            Di dalam hidup terkadang kita selalu melangkah tanpa tujuan dan arah menghabiskan waktu secara sia-sia dengan melakukan kegiatan yang tidak bermanfaat, Namun jika kita mau meluangkan waktu sebentar untuk meluangkan waktu, bahwa disatu sisi lain orang lain sedang berusaha keras untuk mencapai tujuan hidupnya. Maka oleh sebab itu marilah kita buang gaya hidup kita yang hanya menyia-nyiakan sesuatu untuk hal yang tidak bermanfaat karena hidup itu adalah kompetisi, jika kita lalai maka kita akan tertinggal.

            Dari secuplik penggalan kata diatas maka dari sebab itu kita harus mempunyai suatu arah dan tujuan akan hidup kita, yang mana akan di bawa kemanakah hidup kita ini selanjutnya. Oleh karena itu maka marilah kita buwat visi dan misi untuk tujuan hidup kita.

            Visi adalah pandangan jauh kedepan / arah kemana kita ini akan melangkah, sedangkan misi adalah kegiatan untuk mencapai sasaran atau target untuk mencapai misi atau tujuan yang telah kita buwat.

            Pada makalah ini saya akan menjabarkan mengenai visi dan misi saya pribadi untuk menjalani hidup yang lebih baik kedepannya.

Visi : Saya pribadi yaitu ingin menjadi seorang pemilik perusahaan dibidang perkembangan teknologi dan informasi.

Misi :

v  Masuk ke SMK Teknik Bidang Permesinan

v  Masuk ke Universitas dengan Jurusan Teknik Informatika

v  Mengikuti pelatihan dan seminar

v  Memperbanyak Link ke Perusahaan perusahaan

itulah salah satu visi dan beberapa misi yang saya jabarkan.

B. Mengapa Memilih Teknik Informatika di Universitas Gunadarma

            Universitas di Indonesia yang memiliki jurusan Teknik Informatika memang banyak dan tersebar di seluruh Indonesia, namun yang saya dapatkan dari sekian banyak universitas di Indonesia yang terbaik yaitu Universitas Gunadarma dan Universitas Mercu Buana.

Universitas Mercu Buana memang menghasilkan lulusan yang ahli dibidang Teknik Informatika tetapi biaya untuk masuk ke Universitas tersebut sangat mahal bagi diri saya pribadi dan keluarga karena kami dari golongan menengah kebawah. Oleh sebab itulah setelah saya bertanya kepada keluarga dan akhirnya saya memilih Universitas Gunadarma yang tak kalah bersaing dari segi lulusannya yang menghasilkan ahli dibidang Teknik Informatika.

            Saya memilih Universitas Gunadarma bukan karena paksaan dari orang tua melainkan keinginan sendiri untuk menunjang masa depan saya kedepannya, sesuai dengan visi dan misi yang telah saya jabarkan di atas.

            Ada beberapa hal yang tak bisa saya lupakan pada saya masuk ke Universitas Gunadarma, untuk dapat masuk ke jurusan Teknik Informatika maka seorang mahasiswa baru harus keluaran dari SMA dan SMK Teknik yang sejurusan, sedangkan saya pribadi lulusan dari sekolah SMK Teknik Mesin dari SMK Negeri 1 Sukabumi. Pada saat itu saya sangat sedih pada saat saya datang ke Universitas Gundarama untuk melakukan test tulis. Pada saat saya masuk ke ruangan test di kampus D seorang petugas bertanya kepada saya, "maaf de, jika boleh tahu ade SMK nya jurusan apa?" saya kemudian jawab teknik mesin dan petugas yang menjagapun berkata " Oh maaf de untuk bisa masuk ke Universitas Gundarma ade harus lulusan dari SMA atau SMK Sejurusan jadi kalo bisa nanti ade kalo sudah selesai test mohon untuk diganti jurusan yang ade pilih, kalau bisa sesuai dengan jurusan ade yaitu Teknik Mesin". Setelah petugasnya selesai bertanya saya di persilahkan untuk melakukan test tulis masuk Universitas Gunadarma. Test pun selesai di laksanakan di gedung 3 Lt 2 kemudian petugas bertanya kembali "ade ini yang tadi dari jurusan teknik mesin kan, mohon maaf nanti ade silahkan isi kembali jurusannya di Lt. 1". Saya turun kebawah sambil berfikir ganti atau tidak jurusan yang saya pilih dan akhrnya saya lebih memilih untuk tidak mengganti jurusan itu. Selang 1 bulan pengumumanpun di terbitkan dan akhirnya saya di terima jadi Calon Mahasiswa Baru di Universitas Gunadarma, rasa syukur tak henti - hentinya saya panjatkan saat itu karena Allah masih memberikan kesempatan kepada saya untuk bisa melanjutkan kuliah sesuai dengan keinginan saya dan saya bertekad tidak akan menyia-nyiakan kesempatan yang diberikan tersebut dengan belajar sungguh - sungguh di Universitas Gunadarma Jurusan Teknik Informatika. Dan semua ini tidak terlepas dari do'a dan dukungan orang tua oleh sebab itu saya ucapkan terimakasih untuk ibu , ayah , dan saudara-saudara saya yang selalu mendo'akan dan mendukung saya yang akhirnya saya bisa mencapai salah satu misi saya.

            Ada beberapa hal dalam hidup yang membuwat saya merasa takut setelah kematian datang menjemput saya, apa yang akan saya bawa , apa yang telah saya perbuwat dan lain sebagainya. Maka dari sebab itu bagi saya peribadi ada satu hal yang melebihi Visi dan Misi saya yaitu Ingin Menjadi Orang yang bermanfaat khususnya untuk diri pribadi dan umumnya untuk orang lain. Saat kematian datang apakah masih ada amalan - amalan yang masih akan mengalir kepada saya nantinya? apakah setelah saya meninggal dunia orang - orang akan mengingat atau kah melupakai saya? maka dengan pertanyaan ini lah saya selalu terdorong untuk tidak menyerah karena saya tidak ingin menyia-nyiakan kesempatan saya terlahir didunia ini dan kebaikan orang tua saya yang telah mengasuh mendidik dan membesarkan saya maka dengan inilah saya harus SUKSES.

            Sukses bagi diri saya pribadi yaitu bahagia didunia dan akhirat salah satunya bahagia di akhirat yaitu masih memilikinya amalan - amalan yang akan selalu mengalir setelah kita meninggal dunia. Maka oleh sebab itu saya tak terlepas memikirkan Visi dan Misi dari tujuan saya :

1. Mengamalkan ilmu

2. Sodakoh Jariah

3. Anak yang shaleh yang selalu mendo'akan orang tuanya

mengamalkan ilmu artinya yaitu saya ingin membagi pengalaman saya dari kecil sampai sekarang kepada orang lain baik berupa ilmu pengetahuan atau pengalaman diri pribadi yang salah satunya yaitu ingin menjadi seorang guru. kemudian sodakoh jariah yaitu saya ingin berbagi kepada orang lain dengan segala sesuatu yang bisa digunakan nantinya dan sodakoh jariah ini lah yang menjadi visi saya, karena dalam visi saya ingin menjadi seorang pemilik perusahaan yang berarti dapat memberikan lowongan kerja kepada masyarakat, menderikan sebuah sekolah, mendirikan tempat ibadah dan lain sebagainya. Dan untuk anak yang shaleh itu dengan mencari seorang pendamping yang dapat menuntuk saya ke arah jalan yang di rihai Allah.

            Kemudian dari 3 tujuan tersebut maka saya berharap dapat bahagia didunia setelah saya meninggal nanti yaitu orang-orang dapat mengenang saya yang menunjukan bahwa saya pernah terlahir kedunia ini, secara lebih simpel yaitu saya ingin berumur panjang.

Ya Allah mohon jangan engkau panggil dulu kedua orang tua ku sebelum mereka dapat melihat saya menggapai cita- cita saya , karena begitu banyak kesedihan yang telah saya perbuat sehingga mereka selalu meneteskan air mata karena kekecewaan namun disaat saya menggapai cita-cita saya , saya ingin melihat orang tua meneteskan air mata karena kebahagiaan , karena kesuksesan saya semata - mata hasil dari keberhasilan orang tua saya yang telah merawat saya dengan kasih saya mendidik saya dengan penuh cinta dan membesarkan saya dengan penuh ke sabaran. amin

Ingat pendidikan bukanlah sarana untuk menghasilkan pekerjawan, tapi pendidikan adalah sarana untuk memunculkan orang-orang yang mampu berdiri sendiri untuk menggapai kebahagian di kemudian hari.

 

BAB III

PENUTUP

A.  KESIMPULAN

            Makalah ini saya buwat untuk menjabarkan Visi dan Misi serta alasan memilih jurusan Teknik Informatika . Dimana Visi adalah pandangan jauh kedepan / arah kemana kita ini akan melangkah, sedangkan Misi adalah kegiatan untuk mencapai sasaran atau target untuk mencapai misi atau tujuan yang telah kita buwat. Dapat di contohkan visi kita ingin pergi keJakarta maka misi yang harus di buwat yaitu naik kereta, naik motor, naik pesawat, naik bis, dan jalan kaki.

B.  SARAN

            Mohon maaf jika ada penulisan kata yang salah dan cara pengucapannya tapi saya berharap makalah ini dapat berbagi beberapa masukan buwat pembaca.