Kumpulan Kata Mutiara, SMS, Ucapan Untuk Tahun Baru 2011

Pak Camat traktir Bu Guru
Bu guru makan es sama bakwan
Selamat Tahun Baru!
Semoga sukses selalu kawan

,.+””-., ,.-””+,
#( -_-)(-_- )#
(”<*>”)(”<>”)
“”-.,*,.-””

Yesterday is memory. Today is a gift. TOmmorow is a Hope. Let’s begin New Year ..... with faith, love, peace and new hope. GBU

Perah sapi sambil mikir
Hepi new year!

Makan tomat bareng kangguru
Ada Ikan beku di peti es
SELAMAT TAHUN BARU!
Semoga selalu sukses

|””|__|””|.*.*.*.*.
| APPY.*.*.*
|__|””|__|.*.*.*.*
*.*.*.*.*.*.*.*.*.
*. NEW YEAR ..... *
*.==.== .*

Hakim Putus Bebas Prita

Setelah melalui proses persidangan yang cukup lama, akhirnya hakim pengadilan negeri Tanggerang memvonis bebas terhadap Prita dari segala tuduhan. Dari vonis hakim tersebut, maka termentahkanlah semua tuduhan dari jaksa penuntut umum. sebagaimana diberitakan sebelumnya, jaksa penuntut umum menuntut prita dengan tuduhan pencemaran nama baik dengan tuntutan 6 bulan penjara dan denda lebih dari 200 juta.
Keputusan ini tentu saja membuat semua pendukung Prita dari seluruh nusantara merasa sangat lega.

Putusan Hakim ini juga tidak lepas dari dukungan masyarakat seluruh Indonesia, "Koin Untuk Prita" merupakan bentuk dukungan yang nyata dari masyarakat Indonesia. Koin yang berhasil dikumpulkan dikabarkan hampir mencapai 1 milyar.
Dalam persidangan tadi juga dihadiri oleh komisi 9 dan komnas HAM.
UU ITE Pasal 27 sepertinya memang harus dikaji kembali. kasus Prita ini merupakan kasus UU ITE pasal 27 yang pertama.

Sepak terjang George Junus Aditjondro

George Junus Aditjondro lahir pada 27 Mei 1946 di Pekalongan, Jawa Tengah adalah seorang sosiolog asal Indonesia. Dia adalah lulusan salah satu universitas di Amerika Serikat dan mengambil jurusan sosiologi korupsi. Mendapat Gelar doktor George dari Cornell University, Amerika Serikat

Pada sekitar tahun 1994 dan 1995 nama Aditjondro menjadi dikenal luas sebagai pengkritik pemerintahan Soeharto mengenai kasus korupsi dan Timor Timur. Ia sempat harus meninggalkan Indonesia ke Australia dari tahun 1995 hingga 2002 dan dicekal oleh rezim Soeharto pada Maret 1998. Di Australia ia menjadi pengajar di Universitas Newcastle dalam bidang sosiologi. Sebelumnya saat di Indonesia ia juga mengajar di Universitas Kristen Satya Wacana.

Nesting File Dengan C++

Membuat menu dalam menu???bukan hal yang aneh dalam bahasa pemrograman. Yang akan saya coba bahas kali ini adalah membuat menu dalam menu atau "mungkin" disebut nesting file atau apalah saya sendiri kurang ngerti.

Daripada friend tambah bingung dengan kata-kata saya yang tambah njelimet, mending friend langsung donlot ja programnya. Bisa klik disini

Program Terbilang dengan C++(1550 = "Seribu Lima Ratus lima Puluh")

Aku sampe sekarang masih bingung, harus kasih nama apa program ini. Pokoknya, intinya dengan program ini kita mengetahui Nilai pecahan nominal uang. Misalnya Kita inputkan nominal angka 175500. Maka outputnya adalah :
1 Lembar seratus ribuan
1 lembar lima puluh ribuan
1 lembar dua puluh ribuan
0 lembar sepuluh ribuan
1 lembar lima ribuan
0 lembar dua ribuan
0 lembar seribuan
1 lembar lima ratusan

terbilang = seratus tujuh puluh lima ribu lima ratus.
friend tinggal copas code berikut di c++ friend

#include
#include

void satuan(int x)
{
if(x==1) printf("Satu ");
else if(x==2) printf(" Dua ");
else if(x==3) printf(" tiga ");
else if(x==4) printf(" empat ");
else if(x==5) printf(" Lima ");
else if(x==6) printf(" enam ");
else if(x==7) printf(" tujuh ");
else if(x==8) printf(" delapan ");
else if(x==9) printf(" sembilan ");
else if(x==10) printf(" sepuluh ");
else if(x==11) printf(" sebelas ");
}

void terbilang(long a)
{
if(a<=11) satuan(a);
else if((a>11) && (a<=19))
{
terbilang(a%10);
printf("Belas ");
}
else if((a>=20) && (a<=99))
{
terbilang(a/10);
printf("puluh ");
terbilang(a%10);
}
else if((a>=100) && (a<=199))
{
printf("seratus ");
terbilang(a%100);
}
else if((a>=200) && (a<=999))
{
terbilang(a/100);
printf("ratus ");
terbilang(a%100);
}
else if((a>=1000) && (a<1999))
{
printf("Seribu");
terbilang(a%1000);
}
else if((a>=2000) && (a<=9999))
{
terbilang(a/1000);
printf(" ribu");
terbilang(a%1000);
}
else if((a>=10000) && (a<99999))
{
terbilang(a/1000);
printf(" ribu");
terbilang(a%1000);
}
else if((a>=100000) && (a<=999999))
{
terbilang(a/1000);
printf(" ribu");
terbilang(a%1000);
}


}

void pecahan(long y)
{

int sisa = 0;
int seratusribu = y / 100000;
printf("%d Lembar Uang Seratus Ribuan \n",seratusribu);
sisa = y % 100000;

int limapuluhribu = sisa / 50000;
printf("%d Lembar Lima Puluh Ribuan \n",limapuluhribu);
sisa = sisa % 50000;

int duapuluhribu = sisa / 20000;
printf("%d Lembar dua puluh ribuan \n",duapuluhribu);
sisa = sisa % 20000;

int sepuluhribu = sisa / 10000;
printf("%d Lembar Sepuluh Ribuan \n",sepuluhribu);
sisa = sisa % 10000;

int limaribu = sisa / 5000;
printf("%d Lembar Lima ribuan \n",limaribu);
sisa = sisa % 5000;

int duaribu = sisa / 2000;
printf("%d Lembar Dua ribuan \n",duaribu);
sisa = sisa % 2000;

int seribu = sisa / 1000;
printf("%d Lembar seribu \n",seribu);
sisa = sisa % 1000;

int limaratus = sisa / 500;
printf("%d Lembar lima ratusan \n",limaratus);
sisa = sisa % 500;

}

void main()
{
long nilai;
printf("Masukkan Nominal = ");scanf("%d",&nilai);
pecahan(nilai);
terbilang(nilai);
getche();

}

Membalik Kata Dengan C++ (dengan Pointer)

Hari ini dapet tugas dari dosen buat bikin algoritma balik kata dengan c++. Karena bingung mo posting apa'an, akhirnya tugas dari Dosen tersebut gak pake lama langsung aku kerjain. Di bawah ini adalah code nya.

// Program Membalik Kata dengan menggunakan pointer

#include
#include
#include
#include
main()
{
char kalimat[99];
char *p;
char m;
char *k;
k=&m;
int a,b;
printf("Masukkan kalimat = ");scanf("%s",&kalimat);
a=strlen(kalimat);
p=kalimat;
for(b=0;b<((a/2));b++)
{
*(k+b)= *(p+a-(b+1));
*(p+a-(b+1))= *(p+b);
*(p+b)= *(k+b);
}
printf("Hasil = %s",kalimat);
getche();
}


Klo project jadinya juga bisa di download, pilih menu download diatas

Cara Mengelompokkan Teman Dengan Kategori Tertentu

Mungkin kita pernah berfikir, untuk apa mengelompokkan teman??, tapi tenyata kegunaan dari Daftar teman atau friend list sangat banyak. Misalnya kita ingin mengirimkan pesan atau undangan kepada semua teman-teman kita di SMA, maka kita tidak usah mencari teman kita dan mengirim satu-persatu, jika kita sudah membuat friend list. Sehingga kita tinggal memilih salah satu daftar friend list. Selain itu kita juga mengatur status online atau offline kepada friend list tertentu sehingga kita tidak akan terganggu ketika kita hanya ingin chatting dengan orang tertentu.
Dan masih banyak sekali kegunaan dari pengelompokkan teman.
Cara mengelompokkan teman :
> Klik Menu teman yang ada diatas
> Pada Rincian pilih teman
> Pada List teman, kita tinggal pilih tambahkan ke daftar


> Pada box yang muncul kita tinggal memilih buat daftar baru jika kita ingin membuat daftar baru atau kita bisa memilih daftar kategori diatasnya jika kita telah membuat daftar kategori sebelumnya
> Maka pada Rincian akan muncul Daftar kategori yang baru kita tambahkan

Cara Mengatur Status Online/Offline Kepada Teman Yang Dikehendaki

Chatting di facebook merupakan kegiatan yang sangat menyenangkan. Tapi kadang kita merasa jengkel karena misalnya kita hanya ingin dengan chatting dengan orang tertentu misal pacar kita, tapi di lain pihak ada teman-teman kita yang juga mengajak kita untuk Chatting. Tentu kita merasa tidak enak jika tidak membalas ajakan teman kita itu. lalu terpikirkan bagaimana caranya supaya status online kita hanya bisa dilihat oleh orang tertentu. Ternyata kita bisa melakukannya dengan sangat mudah. Langkah pertama yang harus dilakukan adalah mengelompokkant teman-teman kita dalam kategori tertentu.

Klik kanan Pada Chat atau Obrolan di Kanan bawah.

Kita tinggal mengaturnya, apakah akan dijadikan Online atau Offline
simbel bukan!!

Buat Tulisan Terbalik di Facebook

Bagi para pecandu facebook atau biasa disebut facebooker, kegiatan seperti update status, chatting, ataupun mengomentari foto teman merupakan hal yang wajib dilakukan. Bahkan disaat kerja ataupun kuliah, sambil mencuri-curi waktu mereka menyempatkan untuk sekedar update status atau membalas komentar teman. Tapi mungkin kita merasa bosan dengan model tulisan saat kita mengupdate status atau membalas komentar teman. Bagaiman kalau kita balik tulisan komentar seperti gambar dibawah ini


tentu sangat menarik bukan.
sebenarnya cara nya sangat mudah karena kita tinggal memanfaatkan fasilitas yang disediakan oleh salah satu website yaitu Setelah anda membukan website tersebut, maka akan tampil dua buah kolom.

Isikan kalimat atau pesan yang akan anda balik pada kolom yang diatas, maka secara otomatis pada kolom yang dibawah akan tampil hasil dari tulisan yang anda ketik di kolom yang diatas berupa tulisan terbalik. Anda tinggal copy paste tulisan tersebut ke dalam Facebook, blog, ataupun website anda.

Jasakom di Hack Newbie Umur 16 tahun asal Malaysia

Pada Tanggal 3 Oktober yang lalu, salah satu tempat bernaungnya para hacker di Indonesia yaitu Jasakom telah di hack oleh newbie yang menurut kabar masih berumur 16 tahun yang berasal dari Malaysia. Serangan dari Malaysia ini merupakan serangan balasan atas aksi hacker Indonesia yang telah lebih dari 100 kali berhasil melakukan serangan terhadap situs-situs di Malaysia (klik di sini utk melihat list). Akibat dari serangan ini situs jasakom tidak bisa diakses dan hanya bisa menampilkan pesan

selain itu newbie asal Malaysia ini juga berhasil menghapus semua data yang ada di server. Akibatnya, forum yang menaungi lebih dari 40.000 anggota tidak dapat diakses sama sekali. Namun hanya dalam hitungan jam situs jasakom berhasil pulih dan dapat diakses kembali.

Buntut dari serangan ini, hacker Indonesia melakukan serangan balasan terhadap situs tempat si newbie bernaung yaitu www.tbd.my.

Samapi tulisan ini di posting situs tersebut tidak dapat diakses. Bahkan disalah satu forum dikatakan bahwa serangan ini akan terus berlanjut.
http://www.topix.com/forum/world/malaysia/TBF4O4NCFFNI8KRNR
http://www.topix.com/forum/world/malaysia/T90VM1NH2BSNHRNFS/p5

sumber:http://www.jasakom.com/index.php?categoryid=11&p2_articleid=845

Puisi, Pantun, Kata Mutiara untuk Lebaran

Memberikan ucapan selamat Lebaran kepada Saudara maupun kerabat sudah menjadi tradisi di kalangan kita. Pada tahun-tahun sebelumnya, sebelum perkembangan teknologi seperti ini, mengirim kartu lebaran adalah solusi terbaik untuk memberikan ucapan selamat lebaran kepada saudara maupun kerabat dekat. Tapi, seiring dengan perkembangan zaman dan teknologi, orang mulai beralih dari yang sebelumnya menggunakan kartu lebaran kini bisa menggunakan SMS, selain lebih praktis, harga SMS yang cukup terjangkau juga menjadi alasan kenapa orang mulai beralih menggunakan SMS untuk mengucapakan selamat lebaran. Selain SMS, adanya jejaring seperti Facebook juga menjadi sarana kita dalam memberikan ucapan selamat. Namun, terkadang kita bingung kata-kata apa yang bisa kita tulis untuk mengucapkan selamat lebaran.
Dibawah ini adalah contoh-contoh Pantun, Puisi maupun kata-kata Mutiara

Pantun
Anak Kodok Makan Ketupat, Makan Ketupat Sambil MeLompat
Ngirim Kartu Udah Ga Sempat,
Pake Sms pun, No What What

NAIK TOWER KARENA KEWAJIBAN
PENGAWAS LAPANGAN HARUS JADI PANUTAN
PUASA HARUS KITA JALANKAN
KALO MASIH ADA SALAH MAAFKAN AQ KAWAN…..

Pertolongan Persalinan Oleh Tenaga Kesehatan Non-Medis

Kali ini dianvb.blogspot.com memposting sebuah artikel yang agak nyleneh . Tapi inilah secuil pengabdian bagi orang-orang yang membutuhkan informasi karena sekali lagi Sharing Itu Berbagi, dan utamanya artikel ini ditujukan bagi "dya" yang lagi kuliah kebidanan di salah satu PERTI di Banjarbaru. Mudah-mudahan artikel ini bisa banyak berguna.
A. Pengertian
Pertolongan persalinan oleh tenaga kesehatan non-medis seringkali dilakukan oleh seseorang yang disebut sebagai dukun beranak, dukun bersalin atau peraji. Pada dasarnya dukun bersalin diangkat berdasarkan kepercayaan masyarakat setempat atau merupakan pekerjaan yang sudah turun temurun dari nenek moyang atau keluarganya dan biasanya sudah berumur ± 40 tahun ke atas ( Prawirohardjo, 2005).
Pendidikan dukun umumnya adalah Kejar Paket A atau tamat SD, bisa baca tulis dengan kapasitas yang rendah, mereka tidak mendapat ilmu tentang cara pertolongan persalinan secara teori di bangku kuliah, tetapi mereka hanya berdasarkan pengalaman saja. Peralatan yang digunakannya hanya seadanya seperti memotong tali pusat menggunakan bambu, untuk mengikat tali pusat menggunakan tali naken, dan untuk alasnya menggunakan daun pisang

B. Cara-cara Pertolongan Oleh Tenaga Non-medis
Tak berbeda dengan seorang bidan, dukun beranak melakukan pemeriksaan kehamilan melalui indri raba (palpasi). Biasanya perempuan yang mengandung, sejak mengidam sampai melahirkan selalu berkonsultasi kepada dukun, bedanya dibidan perempuan yang mengandunglah yang datang ketempat praktek bidan untuk berkonsultasi. Sedangkan dukun ia sendiri yang berkeliling dari pintu ke pintu memeriksa ibu yang hamil. Sejak usia kandungan 7 bulan control dilakukan lebih sering. Dukun menjaga jika ada gangguan, baik fisik maupun non fisik terhadap ibu dan janinnya. Agar janin lahir normal, dukun biasa melakukan perubahan posisi janin dalam kandungan dengan cara pemutaran perut (diurut-urut)disertai doa
Ketika usia kandungan 4 bulan, dukun melakukan upacara tasyakuran katanya janin mulai memiliki roh.hal itu terasa pada perut ibu bagian kanan ada gerakan halus. Pada usia kandungan 7 bulan, dukun melakukan upacara tingkeban. Katanya janin mulai bergerak meninggalkan alam rahim menuju alam dunia, melalui kelahiran. Calon ibu mendapat perawatan khusus, selain perutnya dielus-elus, badannya juga dipijat-pijat, dari ujung kepala sampai ujung kaki. Malah disisir dan di bedaki agar ibu hamil tetap cantik meskipun perutnya makan lama makin besar

C. Fakto-faktor Penyebab Mengapa Masyarakat Lebih Memilih Penolong Bersalin Dengan tenaga Kesehatan Non-medis
Masih banyak masyarakat yang memilih persalinan ditolong oleh tenaga kesehatan non- medis daripada tenaga kesehatan disebabkan oleh beberapa faktor antara lain:
A. Kemiskinan
Tersedianya berbagai jenis pelayanan public serta persepsi tentang nilai dan mutu pelayanan merupakan faktor penentu apakah rakyat akan memilih kesehatan atau tidak. Biasanya, perempuan memilih berdasakan penyedia layanan tersebut, sementara laki-laki menentukan pilihan mereka berdasarkan besar kecilnya biaya sejauh dijangkau oleh masyarakat miskin.
Sekitar 65% dari seluruh masyarakat miskin yang diteliti menggunakan penyesia layanan kesehatan rakyat seperti bidan di desa, puskesmas atau puskesmas pembantu(pustu), sementara 35% sisanya menggunakan dukun beranak yang dikenal dengan berbagai sebutan. Walaupun biaya merupakan alasan yang menentukan pilihan masyarakat miskin, ada sejumlah faktor yang membuat mereka lebih memilih layanan yang diberikan oleh dukun. Biaya pelayanan yang diberikan oleh bidan di desa untuk membantu persalinan lebih besar daripada penghasilan RT miskin dalam satu bulan. Disamping itu, biaya tersebut pun harus dibayar tunai. Sebaliknya, pembayaran terhadap dukun lebih lunak secara uang tunai dan ditambah barang. Besarnya tariff dukun hanya sepersepuluh atau seperlima dari tariff bidan dea. Dukun juga bersedia pembayaran mereka ditunda atau dicicil(Suara Merdeka, 2003).

B. Masih langkanya tenaga medis di daerah-daerah pedalaman
Sekarang dukun di kota semakin berkurang meskkipun sebetulnya belum punah sama sekali bahkan disebagian besar kabupaten, dukun beranak masih eksis dan dominant. Menurut data yang diperoleh Dinas Kesehatan Jawa Barat jumlah bidan jaga di Jawa Barat sampai tahun 2005 ada 7.625 orang. Disebutkan pada data tersebut, junlah dukun di perkotaan hanya setengah jumlah bidan termasuk di kota Bandung. Namun, di 9 daerah (kabupaten) jumlah dukun lebih banyak (dua kali lipat) jumlah bidan. Malah di Jawa Barat masih ada 10 kabupaten yang tidak ada bidan (Ketua Mitra Peduli/Milik Jabar).

C. Kultur budaya masyarakat
Masyarakat kita terutama di pedesaan, masih lebih percaya kepada dukun beranak daripada kepada bidan apalagi dokter. Rasa takut masuk rumah sakit maih melekat pada kebanyakan kaum perempuan. Kalaupun terjadi kematian ibu atau kematian bayi mereka terima sebagai musibah yang bukan ditentukan manusia
Selain itu masih banyak perempuan terutama muslimah yang tidak membenarkan pemeriksaan kandungan, apalagi persalinan oleh dokter atau para medis laki-laki. Dengan sikap budaya dan agama seperti itu, kebanyakan kaum perempuan di padesaan tetap memilih dukun beranak sebagai penolong persalinan meskipun dengan resiko sangat tinggi.

D. Masalah Yang Dapat Ditimbulkan Apabila Persalinan Ditolong Oleh Non-medis
Menurut sinyalemen Dinkes AKI cenderung tinggi akibat pertolongan persalinan tanpa fasilitas memadai, antara lain tidak adanya tenaga bidan apalagi dokter obsgin. Karena persalinan masih ditangani oleh dukun beranak atau peraji, kasus kematian ibu saat melahirkan masih tetap tinggi. Pertolongan gawat darurat bila terjadi kasus perdarahan atau infeksi yang diderita ibu yang melahirkan, tidak dapat dilakukan.
Penelitian menunjukkan bahwa kebanyakan orang lebih memilih untuk menggunakan dukun beranak. Sementara itu, definisi merekatentang mutu pelayanan berbeda dengan definisi standar medis. Kelemahan utama dari mutu pelayanan adalah tidak terpenuhinya standar minimal medis oleh para dukun beranak, seperti dengan praktek yang tidak steril(memotong tali pusat dengan sebilah bambu dan meniup lubang hidung bayi yang baru lahir dengan mulut). Riwayat kasus kematian ibu dan janin dalam penelitian ini menggambarkan apa yang terjadi jika dukun beranak gagal mengetahui tanda bahaya dalam masa kehamilan dan persalinan serta rujukan yang terlambat dan kecacatan janin pun bisa terjadi dari kekurangtahuan dukun beeranak akan tanda-tanda bahaya kehamilan yang tidak dikenal(Suara Merdeka, 2003).

Selain itu, pertolongan persalinan oleh dukun sering menimbulkan kasus persalinan, diantaranya kepala bayi sudah lahir tetapi badannya masih belum bisa keluar atau partus macet, itu disebabkan karena cara memijat dukun bayi tersebut kurang profesional dan hanya berdasarkan kepada pengalaman.

E. Usaha Untuk Menjalin Kerjasama Antara Tenaga Medis dan Non-medis Dalam Menolong Persalinan
Berdasarkan dukun di Indonesia masih mempunyai peranan dalam menolong suatu persalinan dan tidak bisa dipungkiri, masih banyak persalinan yang ditolong oleh dukun beranak, walaupun dalam menolong persalinan dukun tidak berdasarkan kepada pengalaman dan berbagai kasus persalinan oleh dukun seringkali terjadi dan menimpa seorang ibu dan atau bayinya. Tetapi keberadaan dukun di Indonesia tidak boleh dihilangkan tetapi kita bisa melakukan kerjasama dengan dukun untuk mengatasi hal-hal atau berbagai kasus persalinan oleh dukun.
Seperti di daerah pedesaan Paminggir, Alas Kokon, Kertajayadan daerah perkotaan Soklat setelah dua dari empat dukun beranak yang diwawacarai telah menerima pelatihan dari dokter-dokter puskesmas pada tahun 1990-1991. Mereka merasa pelatihan dan peralatan persalinan yang diberikan saat pelatihan sangat bermanfaat. Para dukun juga dilatih tentang pencatatan dan pelaporan. Setiap dukun dilatih membaca sampai mengerti bagaimana cara pengisian kolom tersebut. Pelatihan untuk perawatan ibu hamil, pertolongan pada diare, makanan bergizibagi bayi, balita dan ibu hamil juga dilakukan. Membina hubungan baik dengan dukun juga dilakukan agar kita bisa lebih gampang menjalin kerjasama dengan dukun.

F. Pelayanan yang Dapat Diberikan Oleh Tenaga Non-medis
Dalam mutu pelayanan tidak dipenuhinya standar minimal medis oleh para dukun, seperti dengan praktek yang tidak steril(memotong tali pusat dengan sebilah bambu dan meniup lubang hidung bayi baru lahir dengan mulut).
Layanan yang diberikan oleh tenaga kesehatan non-medis misalnya:
1. Dukun mau mendatangi setiap ibu hamil untuk melakukan pemeriksaan kehamilan.
2. Dukun mematok harga muruh, kadang bisa disertai atau diganti dengan sesuatu barang misalnya beras, kelapa, dan bahan dapur lainnya.
3. Dukun beranak dapat melanjutkan layanan untuk 1-44 hari pasca melahirkan dengan sabar memanjakan ibu dan bayinya misalkan dia mencuci dan membersihkan ibu setelah melahirkan.
4. Dukun menemani anggota keluarga agar bisa beristirahat dan memulihkan diri, sebaliknya bidan seringkali tidak bersedia saat dibutuhkan atau bahkan tidak mau datang saat dipanggil.

BAB III
PEMBAHASAN

Tentang Keberadaan Dukun
Walaupun sekarang sudah jaman moderen kita masih memerlukan tenaga dukun sebagai pendamping dalam mengawasi kehamilan disaat tenaga bidan tidak bisa melakukan pengawasan secara penuh dan disuatu daerahyang masih kurang nya tenagqa bidan. Cara pertolongan persalinan yang dilakukan oleh dukun tidak jauh berbeda dari cara pertolongan persalinan oleh bidan, hanya saja dalam penerapannya mereka kurang memperhatikan kesterilan dan alat-alat yang digunakan masih seadanya. Para dukun juga melakukan pengawasan kepada ibu hamil semenjak para dukun tahu tentang kehamilan ibu, hal ini sama dengan lebih mengarah ke spiritual. Dan keberadaan dukun ini tidak bisa dihilangkan dalam pemberian pertolongan persalinan. Dan kita sebagai bidan harus menjalin kerjasama dengan dukun dalam meningkatkan mutu pelayanan dalam pertolongan persalinan untuk mencegah kematian ibu dan janin serta kecacatan yang mungkin terjadi.

Dalam meningkatkan mutu pelayanan kita bisa melakukan pelatihan-pelatihan kepada dukun sehingga para dukun diharapkan bisa mengetahui tentang tanda-tanda bahaya kehamilan dan persalinan. Selain itu diharapkan pula agar para peraji dalam menolong persalinan diajarkan supaya menggunakan prinsip steril untuk menghindari infeksi dimana infeksi itu sering sebagai penyebab kematian ibu dan janin. Dalam mewujudkan dukun yang terlatih, pemerintah harus ikut berpartisipasi memberi dukungan dan membantu dalam memberikan bantuan peralatan persalinan gratis kepada para dukun untuk meminimalkan komplikasi pada saat persalinan.

BAB IV
PENUTUP
A. Kesimpulan
Pertolongan persalinan oleh tenaga non-medis tidak bisa dihilangkan karena sudah merupakan suatu kepercayaan dan sudah melekat dalam budaya. Pertolongan persalinan oleh tenaga kesehatan non-kesehatan masih diperlukan pada daerah-daerah yang masih minimnya tenaga kesehatan khususnya bidan.

Kerjasam antar bidan dan pemerintah dengan tenaga kesehatan non-medis sangat diperlukan dalam meningkatkan mutu pelayanan kesehatan. kerjasama yang bisa dilakukan seperti misalnya dalam pemberian pelatihan kepada para tenaga kesehatan non-kesehatan atau keikut sertaan pemerintah sangat penting untuk menunjang sukesnya pelatihan dengan pemberian bantuan alat-alat untuk menolong persalinan seperti gunting tali pusat, sehingga infeksi saat pemotongan tali pusat bisa diturunkan

B. Saran
1. Untuk masyarakat
- Diharapkan masyarakat ikut lebih memperhatkan tentang kesehatan atau ibu terutama dalam proses persalinannya.
- Diharapkan masyarakat lebih menyeleksi dalam memilih penolong persalinannya.
2. Untuk pemerintah
- Diharapkan pemerintah ikut serta dalam memberikan dukungan seperti pelatihan dan pemberian alat-alat pertolongan peralinan gratis kepada dukun.
- Diharapkan pemerintah bisa membantu alam pemerataan bidan atau tenaga kesehatan sampai daerah pedalaman sehingga mutu kesehatan meningkat sampai daerah-daerah terpencil.
3. Untuk Peraji
Diharapkan para dukun memiliki kesadara untuk meningkatkan pengetahuannya dan menerima pelatihan-pelatihan yang diberikan.

4. Untuk Ibu Hamil
Diharapkan ibu hamil tidak hanya memeriksakan kehamilannya di dukun tetapi jugs di bidan agar bisa mendeteksi dini tanda-tanda bahaya kehamilan.
5. Untuk Tenaga Medis
Diharapkan tenaga medis bersedia menjalin kerjasamadan atau berbagi ilmu dengan para dukun beranak atau peraji.
sumber : Indoskripsi
link terkait :
http://www.bkkbn.go.id/popups/print.php?ItemID=103
http://www.pos-kupang.com/read/artikel/30134/masyarakat-kmt-lebih-percaya-dukun-beranak

Menambahkan Aplikasi SMS Gratis ,ChatSMS, ke Facebook

Mengirim SMS Gratis dengan Facebook. Banyak Kelebihan dari salah satu Website Jejaring seperti Facebook. Selain kita bisa chating dengan teman-teman kita, kita juga mengirim SMS gratis. Dengan menambahkan aplikasi ChatSMS kita bisa berSMS sesuka hati dengan teman-teman kita, sehingga jalinan pertemanan kita bisa semakin erat. Dibawah ini adalah tips untuk menambahkan aplikasi ChatSMS

1. Login Ke account facebook anda
2. Buka Halaman http://www.dodotext.com seperti gambar dibawah

3. klik "Add Our Facebook Aplication" maka akan tampilan akan seperti dibawah

4. klik cantumkan ke dalam profil, maka akan tampilan akan seperti gambar dibawah

5. klik tambahkan
6. jika berhasil maka di profil anda akan ada aplikasi ChatSMS
7. jika sudah ada tampilan dari aplikasi ChatSMS pada profil, kita pilih keep
8. SMS dah sepuasnya
9. Selamat Mencoba

Kata-Kata Mutiara Buat Puasa

Menjelang bulan Ramadhan biasanya kita saling mengucapkan selamat kepada teman-teman kita. Tapi kita bingung bagaimana cara kita menyampaikannya dan kata-kata apa yang akan kita ucapkan. Finally, SMS Menjadi Solusi bagi kita untuk menyampaikan ucapan selamat kita. selain harga SMS yang sangat terjangkau, karena banyak Operator yang memberikan program-program dalam bulan Ramadhan ini, kita juga berekspresi semau kita asal masih dalam konteks kesopanan. Kalo begitu dari pada saya terlalu banyak "Mbacotnya" mending kita langsung liat aja kata-kata mutiara dibawah ini yang bisa kita ucapkan kepada teman-teman kita.

Setting NIAT..
UPgrade IMAN..
Download SABAR..
Delete DOSA..
Install TAUBAT..
Approve MAAF..
Search for PAHALA.
Happy Ramadhan!

C++ : Membuat Menu

Buat Text Edit baru, caranya File,New, Text Edit'
Masukkan Source Berikut

#include< stdio.h >
#include< conio.h >
genap();
pangkat();
pecahan();
menu();
main()
{
char pilih='0';
while(pilih!='4')
{
menu();
scanf("%c",&pilih);
switch(pilih)
{
case '1':
genap();
break;
case '2':
pangkat();
break;
case '3':
pecahan();
break;
}

}
}

menu()
{
clrscr();
//Pembuatan Kotak
int a,c;
char bes=196,b=219,d=179;
for(a=1;a<53;a++)
{
gotoxy(14+a,3);printf("%c",bes);
gotoxy(14+a,4);printf("%c",b);
gotoxy(14+a,22);printf("%c",bes);
gotoxy(14+a,21);printf("%c",b);
}
for(c=1;c<23;c++)
{
gotoxy(18,1+c);printf("%c",b);
gotoxy(19,1+c);printf("%c",d);
gotoxy(62,1+c);printf("%c",d);
gotoxy(63,1+c);printf("%c",b);
}
//Menu Utama
gotoxy(33,7);printf("M E N U U T A M A");
gotoxy(23,10);printf(" [ 1 ] JUMLAHKAN BILANGAN GENAP");
gotoxy(23,11);printf(" [ 2 ] HITUNG PANGKAT");
gotoxy(23,12);printf(" [ 3 ] HITUNG PECAHAN UANG");
gotoxy(23,13);printf(" [ 4 ] KELUAR");
gotoxy(25,17);printf("MASUKKAN PILIHAN ANDA[1-4] = ");
return 0;
}

genap()
{
clrscr(); //bersihkan layar
int bil[100];
int a,b,c;
int total=0;
int j,k;
char bes=196,l=219,d=179;
//pembuatan kotak
for(j=1;j<53;j++)
{
gotoxy(14+j,3);printf("%c",bes);
gotoxy(14+j,4);printf("%c",l);
gotoxy(14+j,22);printf("%c",bes);
gotoxy(14+j,21);printf("%c",l);
}
for(k=1;k<23;k++)
{
gotoxy(18,1+k);printf("%c",l);
gotoxy(19,1+k);printf("%c",d);
gotoxy(62,1+k);printf("%c",d);
gotoxy(63,1+k);printf("%c",l);
}
//operasi perhitungan
gotoxy(23,7);printf("Masukkan Jumlah bilangan = ");scanf("%d",&a);
for(b=0;b < a;b++)
{
gotoxy(23,9+b);
printf("Masukkan bilangan ke %d = ",b+1);
scanf("%d",&bil[b]);
}
for(c=0;c < a;c++)
{
if(bil[c]%2==0)
total=total+bil[c];
}
gotoxy(23,11+b);printf("Total Bilangan Genap = %d",total);
getche();
return 0;
}

pangkat()
{
clrscr();
int a,c;
char bes=196,b=219,d=179;
for(a=1;a<53;a++)
{
gotoxy(14+a,3);printf("%c",bes);
gotoxy(14+a,4);printf("%c",b);
gotoxy(14+a,22);printf("%c",bes);
gotoxy(14+a,21);printf("%c",b);
}
for(c=1;c<23;c++)
{
gotoxy(18,1+c);printf("%c",b);
gotoxy(19,1+c);printf("%c",d);
gotoxy(62,1+c);printf("%c",d);
gotoxy(63,1+c);printf("%c",b);
}
int bil,pangkat,total,z;
do
{
gotoxy(23,8);printf("Masukkan Bilangan = ");
scanf("%d",&bil);
}
while(bil==0);
do
{
gotoxy(23,10);printf("Masukkan Pangkat = ");
scanf("%d",&pangkat);
}
while(pangkat==0);
total=bil;
for(z=1;z < pangkat;z++)
total=total*bil;
gotoxy(23,12);printf("Hasil = %d",total);
getche();
return 0;
}

pecahan()
{
clrscr();
int a,c;
char bes=196,b=219,d=179;
for(a=1;a<53;a++)
{
gotoxy(14+a,3);printf("%c",bes);
gotoxy(14+a,4);printf("%c",b);
gotoxy(14+a,22);printf("%c",bes);
gotoxy(14+a,21);printf("%c",b);
}
for(c=1;c<23;c++)
{
gotoxy(18,1+c);printf("%c",b);
gotoxy(19,1+c);printf("%c",d);
gotoxy(62,1+c);printf("%c",d);
gotoxy(63,1+c);printf("%c",b);
}
int rp,n,rb100,rb50,rb20,rb10,rb5,rb,rt5,rt,pl5,pl;
gotoxy(23,6);printf("Masukkan jumlah uang: ");
scanf("%d",&rp);

n=0;
rb100=rp/100000;
gotoxy(23,8);printf("%d lembar uang seratusribuan\n",rb100);

n=(rp%100000);
rb50=n/50000;
gotoxy(23,9);printf("%d lembar uang limapuluhribuan\n",rb50);

n=(rp%50000);
rb20=n/20000;
gotoxy(23,10);printf("%d lembar uang duapuluhribuan\n",rb20);

if(n>=20000)
{
n=(rp%20000);
rb10=n/10000;
gotoxy(23,11);printf("%d lembar uang sepuluhribuan\n",rb10);
}
else
{
n=(rp%25000);
rb10=n/10000;
gotoxy(23,11);printf("%d lembar uang sepuluhribuan\n",rb10);
}

n=(rp%10000);
rb5=n/5000;
gotoxy(23,12);printf("%d lembar uang limaribuan\n",rb5);

n=(rp%5000);
rb=n/1000;
gotoxy(23,13);printf("%d lembar uang seribuan\n",rb);

n=(rp%1000);
rt5=n/500;
gotoxy(23,14);printf("%d keping uang limaratusan\n",rt5);

n=(rp%500);
rt=n/100;
gotoxy(23,15);printf("%d keping uang seratusan\n",rt);

n=(rp%100);
pl5=n/50;
gotoxy(23,16);printf("%d keping uang limapuluhan\n",pl5);

n=(rp%50);
pl=n/25;
gotoxy(23,17);printf("%d keping uang duapuluhlimaan\n",pl);
gotoxy(23,19);printf("Kembali!!");

getche();
}

Download Project >> Menu.rar

Download

1.Program Penghitung jumlah karakter, spasi, dan kata dalam textbox
2.Program_Konverter_ASCII
3.Program Chatting Dengan Visual Basic dan Winsock
4.Kalender Akademik : Jadwal pengambilan KHS dan KRS PERTI ASIA
5.Kenapa Harus Dukun Beranak?.rar
6.Program Input Mata Kuliah dengan C++.rar
7.Program Membalik Kata dengan C++.rar
8.Program Bilangan 1500 = "seribu lima ratus" dengan C++
9.Program Nesting File Dengan C++

Program Chatting Dengan Visual Basic dan Winsock

Jika pada artikel sebelumnya kita membahas mengenai program chating dengan menggunakan fasilitas dari Net Send, maka kali ini kita akan membahas mengenai program chating dengan menggunakan Visual Basic + Winsock. Okee deh...langsung aja kita lakukan persiapannya...
yang pertama siap kan seperangkat alat sholat..(lho kok..!!!)
kita memerlukan alat sholat, agar meskipun kita sedang mengerjakan program, kita tidak melupakan sholat.

oke langsung saja kita buka visual studio kita tercinta..
Langkah pertama kita harus mengaktifkan komponen winsock, caranya tekan tombol alternatif Ctrl+t. maka akan muncul jendela Component, lalu pada tab Control, centang pada Microsoft Winsock Control 6.0.
- Buat dua buah form. yang satu sebagai client dan yang satu sebagai server
- Buat tampilan form untuk client seperti gambar

pada form client isikan listing berikut
Private Sub cmdkirim_Click()
Winsock1.SendData Winsock1.LocalHostName & " : " & txtkirim.Text
txtData = txtData & Winsock1.LocalHostName & " : " & txtkirim.Text & vbCrLf
txtkirim.Text = ""
txtkirim.SetFocus
End Sub

Private Sub cmdKoneksi_Click()
On Error GoTo a
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.RemoteHost = txtIp
Winsock1.RemotePort = txtPort
Winsock1.Connect

Exit Sub
a:
MsgBox "Error : " & Err.Description, vbCritical, "Error"

End Sub

Private Sub txtkirim_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdkirim_Click
End Sub

Private Sub Winsock1_Connect()
txtData.Text = "Konek ke : " & Winsock1.RemoteHostIP & vbCrLf
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
txtData.Text = txtData.Text & data & vbCrLf
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtData.Text = txtData.Text & Err.Description & vbCrLf
Winsock1.Close
End Sub

- Pada form server buat tampilan seperti gambar

- Pada form Server isi listing berikut
Private Sub cmdbukaport_Click()
On Error GoTo a
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.LocalPort = txtPort
Winsock1.Listen
txtData = "Buka Port : " & txtPort
Exit Sub
a:
MsgBox Err.Description
End Sub

Private Sub cmdKirim_Click()
Winsock1.SendData Winsock1.LocalHostName & " : " & txtkirim.Text
txtData = txtData & Winsock1.LocalHostName & " : " & txtkirim.Text & vbCrLf
txtkirim.Text = ""
txtkirim.SetFocus
End Sub

Private Sub txtkirim_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdKirim_Click
End Sub

Private Sub Winsock1_Close()
txtData = Winsock1.RemoteHostIP & " : " & " : Menutup Koneksi"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
txtData = "Menerima Koneksi dari : " & Winsock1.RemoteHostIP & vbCrLf
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
txtData.Text = txtData.Text & data & vbCrLf
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtData.Text = txtData.Text & Err.Description & vbCrLf
Winsock1.Close
End Sub

Download Project Lengkapnya>> Program Chating Visual Basic + Winsock.rar

Program Konverter Dari Karakter > Hexa > Biner, dan Cek Koneksi Jaringan

Artikel ini terinspirasi dari tugas waktu ambil mata kuliah komunikasi data. Oleh do sen pembimbing kami disuruh untuk membuat program konverter dari karakter > Hexa > biner, dengan ketentuan menggunakan bahasa pemrograman yang kita kuasai. akhirnya aku pilih menggunakan Visual Basic. Dalam Project nya aku menggunakan 1 form menu utama dan 3 sub menu. Berhubung Source cukup banyak (tapi mudah dimengerti), source sengaja tidak aku tulis dan bahas pada artikel ini. Tapi temen-temen jangan khawatir karena aku sediakan project lengkapnya. aku Baik kan..?:)

Oke, Silahkan temen-temen klik link dibawah ini



Download Project Lengkapnya>> Program_Konverter_ASCII.rar

Mengembalikan Partisi Hardisk Yang Hilang

Salah satu gejala dari hilangnya partisi dari sebuah hardisk adalah partisi hardisk tersebut tidak tampak pada Windows Explorer. Gejala lain, Windows mengenali partisi tersebut sebagai partisi mentah (raw partition) dan mencantumkan peringatan “The drive is not formated, do you want to format it now?”. Jika itu terjadi, artinya tabel partisi tidak mengenali data di dalamnya.

Pada kasus ini, yang harus kita lakukan adalah mengembalikan info partisi tersebut. Anda bisa menggunakan aplikasi Paragon Rescue Kit. Paragon Resque Kit adalah aplikasi gratisan yang memiliki fungsi beragam. Aplikasi ini bersifat bootable, artinya bisa di burn ke CD dan menjadi sumber proses booting. Selain menggunakan tool Paragon Rescue Kit, kita juga bisa menggunakan tool yang bernama Tetdisk. Penggunaan Tetdisk sedikit lebih susah karena menggunakan perintah teks (Command line), namun kelebihannya bisa digunakan melalui media flashdisk. Namun perlu dicatat, aplikasi Tetdisk hanya bisa bekerja di dalam sistem operasi. Ini menjadi masalah ketika partisi yang hilang adalah drive C, karena berarti kita tidak bisa masuk ke dalam Windows. Tetapi anda tidak perlu bingung karena aplikasi Tetdisk banyak dikompilasi ke dalam sebuah CD bootable. Salah satunya dengan System Resque CD. Booting ke dalam Resque CD, jalankan aplikasi Tetdisk, lalu ikuti perintah di layar. Tampilan awalnya memang berbasis teks, namun sebenarnya mudah digunakan karena semua perintah dan cara penggunaannya tertulis dengan jelas.

Sistem Keamanan Pada Windows 7

Kali ini kita akan mencoba membahas sedikit mengenai sistem keamanan yang ada di Windows 7. Ada beberapa sistem keamanan yang digunakan oleh windows 7, tapi kali ini saya akan mencoba membahas 2 diantaranya :

BitLocker To Go
BilLocker To Go adalah sebuah fitur keamanan dari Windows 7. Bitlocker To Go merupakan perkembangan dari Bitlocker yang ada pada Windows Vista. Kelebihan Bitlocker To Go yang ada pada Windows 7 dibandingkan dengan Bitlocker pada Windows Vista yaitu mampu memprotek media penyimpanan seperti Flas Drive dan yang lainnya, sementara Bitlocker pada Windows Vista hanya mampu memprotek media penyimpanan lokal. BitLocker To Go ini, meskipun kita mengenkripsi dengan menggunakan Windows 7 tapi apabila kita mengoperasikannya Flas Drive tersebut dengan Windows XP ataupun Windows Vista, maka Flas Drive kita akan tetap terproteksi.
Parental Control
Parental Control adalah fitur dari Windows 7 yang berfungsi untuk mengkontrol komputer. Lebih tepatnya bagaimana ayah/ibu mengontrol anak-anak mereka dalam menggunakan komputer. Mulai dari Web-web apa saja yang boleh dibuka, aplikasi-aplikasi apa saja yang boleh dijalankan, dan jam-jam berapa saja anak-anak bisa memakai komputer. Salah satu kelebihan dari fitur ini adalah pada pelaporan (activity report), sehingga para orang tua bisa melihat laporan (activity report) dari 10 Website apa yang sering dikunjungi, aplikasi-aplikasi yang sering mereka pakai, berapa lama mereka menggunakan komputer, dan lain-lain.

Chatting dengan Net Send

Menyambung dari artikel sebelumnya yaitu "Program Chatting dengan Visual Basic Menggunakan fasilitas Net Send" ada temen-temen saya yang gagal. setelah saya selidiki ternyata masalahnya ada pada fasilitas messenger pada services.msc yang masih di disable (karena dufaultnya memang disable). Oke, dari pada "kakean mbacot", berikut adalah cara untuk mengaktifkan messanger pada services.msc agar kita bisa chatting dengan vasilitas net send

Buka program run atau gunakan shortcut Windows+R,lalu ketikkan services.msc
maka akan muncul jendela dari services seperti pada gambar dibawah,

lalu pada bagian kanan jendela, double klik pada messanger
maka akan muncul sebuah jendela messanger propertis seperti pada gambar

pada startup type pilih automatic lalu apply,start kemudian ok
masuk ke command prompt ketik net send ip tujuan isi pesan
contoh net send 192.168.0.2 hallo

Mematikan Komputer Dengan Visual Basic dan Command Prompt

Project kali ini yang kita buat yaitu program untuk shutdown komputer. Program kita ini akan memanggil program shutdown.exe milik windows XP keatas. Anda bisa modifikasi program ini sebagai sleep (timer) untuk mematikan komputer sesuai keinginan anda. Untuk itu, ikuti langkah berikut ini:

Bukalah program Visual Basic 6 anda dan buatlah Project baru dengan 1 form

Isikan command button dengan name : cmdMatikanKomputer dan captionnya Matikan Komputer dan width button menyesuaikan panjang captionnya.

Isikan coding berikut pada cmdMatikanKomputer dengan menekan F7

Private Sub cmdMati_Click()
Shell “shutdown.exe -s -t 10 -f “, vbHide
End Sub

Program Chating Dengan Visual Basic Menggunakan Fasilitas Net Send

Setahu saya ada beberapa metode yang digunakan untuk membuat program chatting, misalnya kita bisa menggunkan Winsock atau menggunakan fasilitas dari Operating System kita tercinta Windows XP yaitu Net Send
Berikut adalah source untuk membuat program chatting dengan menggunakan net send


Letakkan ini pada module :
Option Explicit

Const ERROR_SUCCESS = 0
Const ERROR_MORE_DATA = 234
Const SV_TYPE_SERVER = &H2
Const SIZE_SI_101 = 24

Private Type SERVER_INFO_101
dwPlatformId As Long
lpszServerName As Long
dwVersionMajor As Long
dwVersionMinor As Long
dwType As Long
lpszComment As Long
End Type

Private Declare Function NetServerEnum Lib "netapi32.dll" (ByVal servername As String, _
ByVal level As Long, buffer As Long, ByVal prefmaxlen As Long, entriesread As Long, _
totalentries As Long, ByVal servertype As Long, ByVal domain As String, resumehandle As Long) As Long

Private Declare Function NetApiBufferFree Lib "netapi32.dll" (BufPtr As Any) As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" _
(hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Private Declare Function lstrcpyW Lib "KERNEL32" _
(ByVal lpszDest As String, ByVal lpszSrc As Long) As Long

Private Const NERR_Success As Long = 0&
Private Const NERR_BASE = 2100
Private Const NERR_NameNotFound = NERR_BASE + 173
Private Const NERR_NetworkError = NERR_BASE + 36
Private Const ERROR_ACCESS_DENIED = 5
Private Const ERROR_INVALID_PARAMETER = 87
Private Const ERROR_NOT_SUPPORTED = 50

Private Declare Function NetMessageBufferSend Lib "netapi32.dll" (servername As Any, _
msgname As Byte, fromname As Any, buf As Byte, ByVal buflen As Long) As Long

Letakkan ini pada Form utama :
Private Sub cmdSend_Click()
Dim nRet As Long
Dim sTo() As Byte
Dim sMsg() As Byte

sTo = lst.List(lst.ListIndex) & Chr(0)
sMsg = txtMsg & Chr(0)
nRet = NetMessageBufferSend(ByVal 0, sTo(0), ByVal 0, sMsg(0), UBound(sMsg))
Select Case nRet
Case NERR_Success: MsgBox "Success"
Case NERR_NameNotFound: MsgBox "NameNotFound"
Case NERR_NetworkError: MsgBox "NetworkError"
Case ERROR_ACCESS_DENIED: MsgBox "ACCESS_DENIED"
Case ERROR_INVALID_PARAMETER: MsgBox "INVALID_PARAMETER"
Case ERROR_NOT_SUPPORTED: MsgBox "NOT_SUPPORTED"
Case Else: MsgBox "Unexpected error"
End Select
End Sub

Private Function PointerToString(lpszString As Long) As String
Dim lpszStr1 As String, lpszStr2 As String, nRet As Long
lpszStr1 = String(1000, "*")
nRet = lstrcpyW(lpszStr1, lpszString)
lpszStr2 = (StrConv(lpszStr1, vbFromUnicode))
PointerToString = Left(lpszStr2, InStr(lpszStr2, Chr$(0)) - 1)
End Function

Private Sub Form_Load()
Dim pszServer As String, pszDomain As String
Dim nLevel As Long, i As Long, BufPtr As Long, TempBufPtr As Long
Dim nPrefMaxLen As Long, nEntriesRead As Long, nTotalEntries As Long
Dim nServerType As Long, nResumeHandle As Long, nRet As Long
Dim ServerInfo As SERVER_INFO_101

nLevel = 101
BufPtr = 0
nPrefMaxLen = &HFFFFFFFF
nEntriesRead = 0
nTotalEntries = 0
nServerType = SV_TYPE_SERVER
nResumeHandle = 0

Do
nRet = NetServerEnum(pszServer, nLevel, BufPtr, nPrefMaxLen, nEntriesRead, _
nTotalEntries, nServerType, pszDomain, nResumeHandle)
If ((nRet = ERROR_SUCCESS) Or (nRet = ERROR_MORE_DATA)) And (nEntriesRead > 0) Then
TempBufPtr = BufPtr
For i = 1 To nEntriesRead
RtlMoveMemory ServerInfo, TempBufPtr, SIZE_SI_101
lst.AddItem PointerToString(ServerInfo.lpszServerName)
TempBufPtr = TempBufPtr + SIZE_SI_101
Next i
Else
MsgBox "NetServerEnum failed: " & nRet
End If
NetApiBufferFree (BufPtr)
Loop While nEntriesRead < nTotalEntries
End Sub

enjoy it!!!

Menghitung Jumlah Karakter, Kata dan Spasi Dalam Textbox di Visual Basic

Berikut adalah langkah Langkah menghitung jumlah kata, jumlah karakter, jumlah spasi dalam textbox dan merubah huruf kecil menjadi huruf besar di Vusial Basic
Pertama kita buat tampilan form sebagai berikut


Private Sub Command1_Click() 'jalan
Dim i, jmlA, jmlB As Integer
Dim a, b As String
Dim nItem As Integer
Dim aItem As Variant
Dim sTeks As String
If Text1.Text = "" Then
Text1.SetFocus
Exit Sub
End If

'Tampilkan Jumlah Kata
a = Text1.Text
jmlA = 1
For i = 1 To Len(Trim$(a))
If Asc(Mid(a, i, 1)) = 13 Or Asc(Mid(a, i, 1)) = 32 Then jmlA = jmlA + 1
Next i
Text2 = jmlA

'Tampilkan Jumlah Karakter
Text3 = Len(Text1)

'Tampilkan Jumlah spasi
sTeks = Text1
aItem = Split(sTeks, " ")
nItem = UBound(aItem)
Text4 = nItem

'Ganti Huruf
If Text1.Text = LCase$(Text1) Then
Text5.Text = UCase$(Text1)
Else
Text5.Text = LCase$(Text1)
End If
End Sub

Private Sub Command2_Click() 'keluar
If MsgBox("Keluar?", vbQuestion + vbOKCancel) = vbOK Then End
End Sub

Private Sub Command3_Click() 'clear
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus
End Sub

Download Project Lengkapnya>> Program Textbox.rar