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!!!