Bingkai angka 1-5 Borland C++

Assalamu'alaikum guys, sekarang AnakKuliah akan memulai posting kembali. Setelah sekian lama vakum dari dunia blogging karena tugas mata kuliah yang menumpuk, hehe.. tapi buat kita yang sama-sama berjuang jadi anak kuliahan ya satu kalimat yang pas untuk mewakili keluh kesah kita ya "NIKMATIN AJA".

btw, sekarang AnakKuliah mau bagiin script Borland C++ yang saat ini sudah memasuki semester 2, untuk semester 2 ini kita akan lebih mendalami lagi masalah DOS atau lebih spesifik lagi kita akan mencoba membuat tampilah DOS secara sederhana. walaupun kalau dipikir lagi kita sudah sering make WINDOWS ngapain masih belajar DOS  :D

(Good Luck Have Fun)

Here we go ..!

#include <conio.h>
#include <dos.h>
#include <stdlib.h>

#define VIDEO_INT 0x10
#define UCHAR unsigned char

void getCursorPos(UCHAR *y, UCHAR *x);
void setCursorPos(UCHAR y, UCHAR x);
void writeChar(UCHAR letter, UCHAR attr);
void writeString(UCHAR *str, UCHAR attr);

int main(void)
{
UCHAR baris, kolom;          \\anakkuliahbsi.blogspot.com

   getCursorPos(&baris, &kolom);
   writeString("12345 54321", 0x4f);
   setCursorPos(1, 0);
   writeString("1234   4321", 0x4f);
   setCursorPos(2, 0);
   writeString("123     321", 0x4f);
   setCursorPos(3, 0);
   writeString("12       21", 0x4f);
   setCursorPos(4, 0);
   writeString("1         1", 0x4f);
   setCursorPos(5, 0);
   writeString("12       21", 0x4f);
   setCursorPos(6, 0);
   writeString("123     321", 0x4f);
   setCursorPos(7, 0);
   writeString("1234   4321", 0x4f);
   setCursorPos(8, 0);
   writeString("12345 54321", 0x4f);
   setCursorPos(9, 0);

   getch();

   return EXIT_SUCCESS;
}

void getCursorPos(UCHAR *y, UCHAR *x)
{
UCHAR row, col;

   asm mov ah, 0x03;
   asm mov bh, 0x00;
   asm int VIDEO_INT;
   asm mov row, dh;
   asm mov col, dl;

   *y=row; *x=col;

   return;
}

void setCursorPos(UCHAR y, UCHAR x)
{
asm mov ah, 0x02;
   asm mov bh, 0x00;
   asm mov dh, y;
   asm mov dl, x;
   asm int VIDEO_INT;

   return;
}

void writeChar(UCHAR letter, UCHAR attr)
{
asm mov ah, 0x09;
   asm mov al, letter;
   asm mov bh, 0x00;
   asm mov bl, attr;
   asm mov ch, 0x00;
   asm mov cl, 0x01;
   asm int VIDEO_INT;

   return;
}

void writeString(UCHAR *str, UCHAR attr)
{
UCHAR x,y;

   getCursorPos(&y, &x);

   for (; *str!='\0';str++)
   {
    if (x>79)
      {
      y++; x=0;
      }
      setCursorPos(y, x++);
      writeChar(*str, attr);
   }

   return;
}

Surat Permohonan Pengabdian Masyarakat 2017

𓀔𓀔

Nomor :                                  

Lamp.  :  1 Proposal

Perihal :  Pengabdian Kepada Masyarakat

KepadaYth,

Ketua RPTRA Kembangan Selatan

Jalan Kembang Abadi 2, RT 01/08,

Kelurahan Kembangan Selatan Jakarta Barat

Denganhormat,

            Dalam rangka melaksanakan salah satu tridharma perguruan tinggi yaitu pengabdian kepada masyarakat serta memenuhi tugas mata kuliah Character Building, maka kami mahasiswa AMIK BSI Kampus Cengkareng akan melaksanakan kegiatan berupa Workshop Pelatihan Pengenalan Komputer bagi Anak-anak yang mengunjungi RPTRA Kembangan Selatan Jakarta Barat. Adapun rencana kegiatan ini akan kami laksanakan pada :

Hari/Tgl.          : Sabtu, 15 April 2017

Pukul               : 14.00 – 17.00 WIB

Tempat                        : Halaman RPTRA Kembangan Selatan

  Jalan Kembang Abadi 2, RT 01/08,

  Kelurahan Kembangan Selatan Jakarta Barat

            Demikian surat permohonan pengabdian kepada masyarakat ini kami sampaikan. Hal-hal yang bersifat teknis dari kegiatan ini dapat menghubungi sdr. Ade Maman Suherman melalui telepon nomor 083824977458.

            Atas perhatian dan kerjasama yang baik, kami mengucapkan banyak terimakasih.

Jakarta, 8 April 2017

Hormat kami,

Panitia Pengabdian Kepada Masyarakat

BSI Kampus Cengkareng

Dosen Pendamping                                         Ketua Pelaksana

Yulia Mujiaty, SE, MM                                  Ade Maman Suherman

NIP. 200709322                                             NIM. 13160658

Mengetuhui,

Kepala Kampus BSI Cengkareng

Fajar Akbar, M.Kom

Proposal Pengabdian Masyarakat Mata Kuliah Character Building BSI 2017

PROJECT PROPOSAL
PENGABDIAN KEPADA MASYARAKAT

PELATIHAN PENGENALAN KOMPUTER

KEPADA ANAK-ANAK

AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER

BINA SARANA INFORMATIKA

KAMPUS BSI CENGKARENG JAKARTA

2017

PROJECT PROPOSAL

PENGABDIAN KEPADA MASYARAKAT BERUPA PELATIHAN

PENGENALAN KOMPUTER KEPADA ANAK-ANAK

RPTRA KEMBANGAN SELATAN JAKARTA BARAT

I.         PENDAHULUAN

Kewajiban kepada setiap Perguruan Tinggi sebagaimana dijelaskan dalam Tridharma Perguruan Tinggi adalah Pendidikan, Penelitian, dan Pengabdian Masyarakat. Salah satu kewajiban tersebut Bina Sarana Informatika melaksanakan pengabdian kepada masyarakat, hal ini dilaksanakan berkaitan juga dengan kepedulian setiap lembaga atau institusi yang bergerak dibidang Pendidikan khususnya Pendidikan Tinggi dengan mengikuti perkembangan dan kemajuan teknologi khususnya Indonesia sebagai satu negara yang memiliki potensi sumber daya alam dan manusia yang banyak belum dapat disetarakan dengan negara-negara maju.

Sumber daya manusia yang handal dan  mampu mengikuti perkembangan era globalisasi guna mengakses sumber-sumber informasi, minimal diperlukan pengetahuan dasar tentang alat pengolah informasi yang canggih sejak beberapa dekade bahkan semakin terasa perannya pada abad 21 ini yaitu “Komputer”.

Akademi Manajemen Informatika dan KomputerBina Sarana Informatika (AMIKBSI) yang merupakan salah satu Perguruan Tinggi di bidang Komputer di Jakarta merespon akan kebutuhan sumber daya manusia yang berpotensi bagi Negara yang kita cintai ini, maka dalam rangka tugas salah satu mata kuliah CHARACTER BUILDING, akan menyelenggarakan kegiatan Pengabdian kepada Masyarakat berupa Pelatihan Komputer, mengenal perangkat-perangkat komputer, serta menggunakan aplikasi Microsoft Word dan juga Microsoft Excel bagi anak-anak yang mengunjungiRPTRA Kembangan Selatan Jakarta Barat. Sehingga anak-anak yang mengunjungi RPTRA memiliki kemampuan mengoperasikan komputer dan memiliki modal yang cukup untuk mengarungi era digital sekarang ini.

II.          MAKSUD DAN TUJUAN

1.        Membantu pemerintah dalam rangka mencerdaskan kehidupan dan meningkatkan kualitas sumber daya manusia.

2.        Mahasiswa terpanggil dan memiliki rasa kepedulian terhadap lingkungan sekitar dalam hal berbagi ilmu

3.        Sebagai bentuk tanggungjawab sosial, mahasiswa dan dosen dapat melaksanakan pengabdian pada masyarakat

4.        Memperoleh nilai atau manfaat dari ilmu yang diberikan dalam interaksi sosial masyarakat

5.        Membangun citra positif antara Bina Sarana Informatika dengan masyarakat sekitarnya

III.       NAMA KEGIATAN

Pengabdian kepada masyarakat berupa Pelatihan Komputer dengan materi Mengenal Perangkat-perangkat Komputer, serta Menggunakan Aplikasi Microsoft Word, dan Microsoft Excel bagi Anak-anak yang mengunjungi RPTRA Kembangan Selatan Jakarta Barat.

IV.       PELAKSANAAN 

Hari                    :  Sabtu

Tanggal              :  15April 2017

Waktu                :  14.00 – 17.00 WIB

Tempat               :  RPTRA Kembangan Selatan

Jalan Kembang Abadi 2, RT 01/08,

Kelurahan Kembangan Selatan Jakarta Barat         

V.           FASILITAS

                   Fasilitas yang akan diberikan oleh AMIK BSI bagi peserta Pelatihan Pengenalan Komputer, sebagai berikut :

1.        Modul/Materi Pelatihan Pengenalan Komputer

2.        Sertifikat

VI.        SUSUNAN PANITIA

Pembina                                  : Direktur AMIKBSI Jakarta

Penasehat                                : Kepala Kampus BSI Cengkareng

Dosen Pendamping                 : Yulia Mujiaty, SE, MM

Ketua Pelaksana                      : Ade Maman Seherman

Wakil Ketua                            : Ibnu Rizky

Sekretaris                                : Nanang Suhendro

Bendahara                               : Dimas

Anggota                                  :

1.      Sulaeman

2.      Tobby

3.      Abdul Malik

4.      Rizky Damhudi

5.      Ricky

6.      Ahmad Rizal

VII. PENUTUP

            Demikian proposal Pengabdian Kepada Masyarakat ini kami ajukan dan tak lupa kami ucapkan terimakasih atas perhatian dan partisipasi yang telah diberikan, akhir kata kami selaku  panitia berharap semoga kegiatan yang akan kami laksanakan ini dapat memberi manfaat tersendiri dan dapat terlaksana dengan baik sesuai dengan yang direncanakan.

            Setelah kegiatan pelatihan ini berakhir mohon kiranya Ketua RPTRA Kembangan Selatan Jakarta Selatan dapat memberikan bukti berupa surat keterangan yang berisikan bahwa BINA SARANA INFORMATIKA telah melaksanakan Pengabdian Kepada Masyarakat bagi Anak-anak yang mengunjungi RPTRA Kembangan Selatan Jakarta Barat yang dilampirkan dengan nama-nama panitia sebagaimana tercantum dalam proposal ini.

Jakarta, 8 April2017

Panitia Pengabdian Kepada Masyarakat

BSI Kampus Cengkareng

Dosen Pendamping                                         Ketua Pelaksana

Yulia Mujiaty, SE, MM                                  Ade Maman Suherman

NIP. 200709322                                                NIM. 13160658

Mengetuhui,

Kepala Kampus BSI Cengkareng

Fajar Akbar, M.Kom