mengatasi mysql cannot create windows services for mysql error 0 pada konfigurasi mysql

Setelah kegagalan dalam sesi tes wawancara, akhirnya memaksaku untuk kembali turun gunung eh kembali belajar :)

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

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

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

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