Monday 30 December 2013

Backup Restore Database Mysql VB.net

Bakcup database Mysql menggunakan Mysqldumb.exe. Sedangkan Restore menggunakan Mysql.exe.
Fungsi Backup ini untuk menyimpan seluruh isi Database n Strukturnya. Jika kita rajin membackup file kita setiap harinya, maka kita bisa mengetahui database yg kita miliki 5 hari lalu atau bahkan 50tahun lalu dengan me-RESTORE hasil backup database.

Berikut Adalah Langkah2 membuat Backup dan Restore Pada VB.net MYSQL database.
keterangan :
a. Nama database : hobimahasiswa
b. lokasi instalasi mysql / wamp : C:\wamp\bin\mysql\mysql5.5.8\bin\
c. lokasi backup n restore : D:\
d. nama File backup : hobimahasiswa(tanggalbacckup).sql


1. Sediakan masing2 satu buah Button Untuk Backup n Restore.


2. Kemudian Atur Propeties nya sperti berikut :
Button1 : Text : Backup
               Name : Btnbackup
Button2 : Text : Restore
               Name : Btnrestore
3. Kemudian Double Klik pada Btnbackup  / Restore dan ketikan kode berikut :

Wednesday 30 October 2013

Program Hitung Luas Bangun Bahasa C (DO WHILE)

Program Hitung Luas Bangun Bahasa C DO WHILE


Sebenarnya masih kurang lengkap karena jika user memasukkan huruf selain 't' program akan tetap berjalan.. heheheh kalian lengkapi sendiri coba....

#include <stdio.h>
#include <conio.h>

main ()
{
int a;
int t;
int luass;
int p;
int l;
int luasp;
int phi=3.14;
int jari;
int luasl;
char pil;

do {
        printf("1. menghitung luas lingkaran \n");
        printf("2. Menghitung luas persegi panjang \n");
        printf("3. menghitung luas segitiga \n");
        int bil;
        printf("masukkan pilihan anda:  ");
        scanf ("%d",&bil);
        switch(bil)
        {
            case 3:
            printf("masukkan alas segitiga:");
            scanf ("%d",&a);
            printf("masukkan tinggi segitiga:");
            scanf ("%d",&t);
            luass=(a*t)/2;
            printf("Luas segitiga adalah : %d ",luass);
                break;

        case 2:
            printf("masukkan panjang persegi:");
            scanf ("%d",&p);
            printf("masukkan Lebar persegi:");
            scanf ("%d",&l);
            luasp =p*l;
            printf("Luas persegi adalah : %d ",luasp);
            break;

        case 1:
            printf("masukkan Jari-jari lingkaran : ");
            scanf ("%d",&jari);
            luasl=phi*jari*jari;
            printf("Luas Lingkaran adalah : %d ",luasl);
            break;
    }
    printf ("\nHitung Lagi [Y/T]: "); scanf ("%s", &pil);
} while (pil!='t');

}

Monday 28 October 2013

Program matriks Desc Bahasa C ( WHILE )

Program matriks Desc Bahasa C ( WHILE )

Ini penampakannya :

Ini Source nya... Masih mentah n bisa di modifikasi sesuka hati sehingga menghasilkan tampilan yang sesuai keinginan.. Sedot aja gan...


#include <stdio.h>
#include <stdlib.h>

/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int n,i,j;

int main(int argc, char *argv[]) {
printf("Masukkan nilai n: "); scanf("%i",&n);
i=1;
while(i<=n)
{
printf("\n");
j=1;
while(j<=(n-i+1))
{
printf("%3i",i*j);
j=j+1;
}
i=i+1;
}
return 0;
}

--------------------------------THANK YOU------------------------

Saturday 26 October 2013

Program Perklian Matriks Descending Bahasa C

Program Perklian Matriks Descending Bahasa C


                Sebenarnya banyak sekali variasi bentuk yag dapat dihasilkan dengan memakai kombinasi perkalian i dan j. bisa bentuk Pyramid, pyramid terbalik, Trapesium, Jajar genjang, Belah ketupat, dll. Bentuk lain akan dibahas di postingan selanjutnya.. Tunggu ajah yah.
Silahkan sedot ajah nih codingnya.. Pake Dev-C yah...


#include <stdio.h>
#include <stdlib.h>

/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int n,i,j;

int main(int argc, char *argv[]) {
printf("Masukkan nilai n: "); scanf("%i",&n);
for(i=1;i<=n;i++)
{
printf("\n");
for(j=1;j<=(n-i+1);j++)
{
printf("%3i",i*j);
}
}
return 0;
}

Program Cetak Matriks Ascending Bahasa C

Program Cetak Matriks Ascending Bahasa C
Ini salah satu trik dalam penggunaan perulangan for bersarang, atau for dalam for. tipe program semacam ini sering menjadi sola ujian atau tugas dalam mata kuliah pemrograman(bahasa C).

nih penampakannya :



Langsung ajah sedot koding nya... Copas dengan CERMAT yah ....

#include <stdio.h>
#include <stdlib.h>

int n,i,j;
int main(int argc, char *argv[]) {
printf("Masukkan nilai n : "); scanf("%d",&n);
for (i=1;i<=n;i++)
{
printf("\n");
for (j=1;j<=i;j++)
{
printf("%3d",i*j);
}
}
return 0;
}
 

Jangan lupa tinggalkan jejak yah...

Monday 1 July 2013

Program konversi Kalimat dari huruf kecil ke huruf BESAR PASCAL

Kali ini saya akan membagikan program mengonversikan kalimat di pascal dimana dalam satu kali input kalimat akan dikonversikan dari kata-kata dari huruf kecil diubah ke besar dan kata-kata dari huruf besar diubah ke huruf kecil. program ini mengunakkan kode desimal dari huruf sesuai dengan ASCII ( American Standar Code For Information Interchange). Langsung aja cek source codenya. 



=============================================
Program Konversikalimat;
Uses Crt;
Var
i : integer;
kalimat : string;
Begin
Clrscr;

Write('Masukkan Kalimat Anda : ');
Readln(kalimat);
For i := 1 to Length(kalimat) do
if ord(kalimat[i]) > 96 then
begin
kalimat[i] :=chr(ord(kalimat[i]) - 32);
end
else if ord(kalimat[i]) = 32 then
begin
kalimat[i] := chr(32);
end
else if ord(kalimat[i]) < 96 then
begin
kalimat[i] := chr(ord(kalimat[i]) + 32 );
end;
Write('Hasil Konversi Adalah ' ,kalimat);
Readln;
End.

-------------------------NUHUN-----------------

PROGRAM BILANGAN GANJIL GENAP DAN RATA-RATA PASCAL

PROGRAM BILANGAN GANJIL GENAP DAN RATA-RATA PASCAL
User menginputkan sejumlah angka. Dari angka inputan tersebut akan dibagi menjadi bilangan Ganjil dan Bilangan Genap. Kemudian akan dihitung jumlah rata2 dari bilangan Genap dan Ganjil.

Gini tampilannya :


=======================================================================

Program ganjil_genap;
uses crt;
var
bil, i,g1,g2,j1,j2,n: integer;
rt1,rt2:real;
begin
write('Masukkan Banyaknya Data ' );readln(n);
for i := 1 to n do
begin
write('Bilangan ke:',i ,' ');readln(bil);
if bil mod 2 = 0 then
j1:=j1 +1;
g1:=g1+bil;
if bil mod 2 =1 then
j2:=j2+1;
g2:=g2+bil;
end;
rt1:=g1/j1;
rt2:=g2/j2;

writeln('Jumlah bil. Ganjil=' ,j2);
writeln('Jumlah bil. Genap=' ,j1);
writeln('Rerata Ganjil=' ,rt2:4:2);
writeln('Rerata Genap=' ,rt1:4:2);
readln;
readln;
end.

Hatur nuhun semoga bermanfaat.

Program Hitung Rata-Rata (PASCAL)

Program Baca Nilai  Berpasangan ini pada intinya adalah untuk belajar cara penginputan data integer dan kemudian menghitung nilai rata-ratanya. Variabel yang diinputkan akan dibagi menjadi 2 blok, X dan Y. Masing masing angka inputan di tiap blok akan dihitung nilai rata-ratanya..

Silahkan dicopas. Disini saya memakai DEV-PASCAL. untuk TURBO PASCAL.. ganti Uses Crt dgn USES WINCRT
Facebook saya : Lutfi Matahari
Contoh lain : Program Aritmatika Pascal
--------------------------------------------------=================---------------------------------

================================================================
Program Baca_Berpasangan;
Uses Crt;
Var
X,Y,Rx,Ry,Jx,Jy : real;
Nx,Ny,i : integer;
Begin
ClrScr;
Write('Masukkan Banyaknya X :');Readln(Nx);
Write('Masukkan Banyaknya Y :');Readln(Ny);
If Nx = Ny then
For i:=1 to Nx Do
begin
Write('Data X ke-',i,' = ');Readln(X);
Write('Data Y ke-',i,' = ');Readln(Y);
Jx:=Jx+X;
Jy:=Jy+Y;
end
else if Nx > Ny then
begin
For i:=1 to Ny Do
begin
Write('Data X ke-',i,' = ');Readln(X);
Write('Data Y ke-',i,' = ');Readln(Y);
Jx:=Jx+X;
Jy:=Jy+Y;
end;
i:=Ny+1;
Repeat
Write('Data X ke-',i,' = ');Readln(X);
Jx:=Jx+X;
i:=i+1;
until i>Nx;
end
else if Nx < Ny then
begin
For i:=1 to Nx Do
begin
Write('Data X ke-',i,' = ');Readln(X);
Write('Data Y ke-',i,' = ');Readln(Y);
Jx:=Jx+X;
Jy:=Jy+Y;
end;
i:=Nx+1;
Repeat
Write('Data Y ke-',i,' = ');Readln(Y);
Jy:=Jy+Y;
i:=i+1;
until i>Ny;
end;
Rx:=Jx/Nx;
Ry:=Jy/Ny;
writeln('Rata-rata dari data X = ',Rx:6:2);
writeln('Rata-rata dari data Y = ',Ry:6:2);
Readln;

end.

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,<<<<<<<<<<<<<<<<<<NUHUN>>>>>>>>>>>>>>>>>>>>>>,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

Friday 3 May 2013

Program Array of Record C - Operasi File


Program Array of Record C - Array of Record C - Array - Record - data base - Operasi File 
===================================================================
INi tampilannya bro :


Setelah ISI DATA:


======================================================================

#include <stdio.h>
#include <stdlib.h>
#define max 20


typedef struct recdata
  {
   
    char nama[30];
    char jabatan[30];
    char favorit[50];
  }dt;

int n;
dt dat[max];

void data(int n)
{
  FILE *PF;
  int j;
  PF=fopen("flatfile.txt","a+");
  for(j=1;j<=n;j++)
  {
  if(PF != NULL)
    {  
      fprintf(PF,"%s # ",dat[j].nama);
      fprintf(PF,"%s # ",dat[j].jabatan);
      fprintf(PF,"%s\n",dat[j].favorit);
    }
   }
    fclose(PF);
}
int tambah_data(dt dat[],int n)
{  

    printf("Masukkan data : \n");
    printf("-------------\n\n");
    printf("Nama     : "); fflush(stdin);gets(dat[n].nama);
    printf("Posisi   : "); fflush(stdin);gets(dat[n].jabatan);
    printf("Favorit  : "); fflush(stdin);gets(dat[n].favorit);  
    printf("\n");
  system("PAUSE");
  return 0;
}

void tampil_data()
{
FILE *PF;
char kar;
PF=fopen("flatfile.txt","a+");
if ((PF=fopen("flatfile.txt","r+")) == NULL)
{
printf("Data tidak ada\n");
}
else
{
while((kar=fgetc(PF))!=EOF)
putchar(kar);
}
fclose(PF);            
}

void edit(dt dat[],int n)
{
  int index;
 
  printf("Edit Data\n============\n");
  printf("Masukkan index data yg akan diganti : ");scanf("%d",&index);  
  printf("\n");
  printf("Nama       : %s\n",dat[index].nama);
  printf("Posisi     : %s\n",dat[index].jabatan);
  printf("Favorit    : %s\n",dat[index].favorit);
  printf("\n");
  printf("===============================\n");
  printf("Silahkan masukan data yang baru :\n");
  printf("===============================\n");
  printf("Nama       : "); fflush(stdin);gets(dat[index].nama);
  printf("Posisi     : "); fflush(stdin);gets(dat[index].jabatan);
  printf("Favorit    : "); fflush(stdin);gets(dat[index].favorit);    
  system ("PAUSE");

}    
void cari(dt dat[],int n)
{
FILE *PF;
char kar;
int cari,j;
    PF=fopen("flatfile.txt","a+");
printf("\nCari Data Karakter\n");
printf("====================\n\n");
if((PF=fopen("flatfile.txt","a")) == NULL)
    {  
  printf("Data Masih Kosong\n");
  }
  else
  {
 
printf("Masukkan Nomor Karakter : "); scanf("%i",&cari);
j=1;
while((j<=n)&&(j!= cari))
{
j++;
}
if(j == cari)
{
printf("=======================\n");

printf("Nama           : %s\n\n",dat[j].nama);
             printf("Posisi     : %s\n\n",dat[j].jabatan);
             printf("Favorit     : %s\n\n",dat[j].favorit);
}
else
{
printf("Data Tidak Ditemukan \a\n");
}
}
fclose(PF);
system("PAUSE");
}

int hapus_data(dt dat[], int n)
{
int cari,i,j;
char pilih;
printf("\nHapus Data karakter\n");
printf("=====================\n\n");
printf("Masukkan Nomor Urut : "); scanf("%i",&cari);
i=1;
while((i<=n)&&(i != cari))
{
i++;
}
if(i == cari)
{
printf("\n---------------------\n");
      printf("Nama         : %s\n",dat[i].nama);
      printf("Posisi       : %s\n",dat[i].jabatan);
      printf("Favorit      : %s\n\n",dat[i].favorit);
printf("Hapus Data Penghuni Yang Dipilih ? [Y/T] : "); scanf("%s",&pilih);
if((pilih=='Y')||(pilih=='y'))
{
printf("\n\n %i\n",i);
for(j=i; j<=n-1; j++)
{
dat[j]=dat[j+1];
}
n=n-1;
}
  }
  else
  {
printf("\n\nData Tidak Ada\n");
  }
system("PAUSE");
return n;
}



int main(int argc, char *argv[])
{
int menu;

  do
  {
    system("CLS");
    printf("==============================================================\n");
    printf(" Data Anggota Bajak Laut Topi Jerami\n");
    printf(" -----------------------------------\n\n");
    data(n);
   tampil_data();
    printf("\n==============================================================\n");
    printf(" 1.Tambah 2.Ubah 3.Cari 4.Hapus 0.Keluar\n");
printf("==============================================================\n");      
    printf(" Pilih Menu (0-4) : ");scanf("%i",&menu);
    printf("==============================================================\n");
   
    switch(menu)
    {
      case 1 :
             {
               n=n+1;
               system("CLS");
               tambah_data(dat,n);
               break;
             }
      case 2 :
             {
               system("CLS");
               edit(dat,n);
               break;
             }
      case 3 :
             {
               system("CLS");
               cari(dat,n);
               break;
             }
      case 4 :
             {
               system("CLS");
               n=hapus_data(dat,n);
               break;
             }
      case 0 :
             {
               system("CLS");
               printf("Keluar\n");
               break;
             }
      default :
              {            
                printf("Salah Memasukkan Menu!\n");
                getch();
                break;                    
              }                                                    
    }//endcase
  } //endwhile
  while(menu!=0);
  system("PAUSE");
  return 0;
}

========================================================================

Wednesday 17 April 2013

Program Linked List ( Bahasa C)


Contoh Penerapan Linked List Dalam Bahasa C sedikit lebih Rumit daripada PASCAL. Pelajari pelan2 saja...

#include <stdio.h>
#include <stdlib.h>

struct NODE {
 int number;
 struct NODE *next;
};

int  search_value(struct NODE *llist, int num);
void append_node(struct NODE *llist, int num);
void display_list(struct NODE *llist);
void delete_node(struct NODE *llist, int num);

int main(void) {
 int num = 0;
 int input = 1;
 int retval = 0;
 struct NODE *llist;
 
 llist = (struct NODE *)malloc(sizeof(struct NODE));
 llist->number = 0;
 llist->next = NULL;
 
 while(input != 0) {
  printf("\n-- Menu Selection --\n");
  printf("0) Quit\n");
  printf("1) Insert\n");
  printf("2) Delete\n");
  printf("3) Search\n");
  printf("4) Display\n");
  scanf("%d", &input);

  switch(input) {
   case 0:
   default:
    printf("Goodbye ...\n");
    input = 0;
    break;
   case 1:
    printf("Your choice: `Insertion'\n");
    printf("Enter the value which should be inserted: ");
    scanf("%d", &num);
    append_node(llist, num);
    break;
   case 2:
    printf("Your choice: `Deletion'\n");
    printf("Enter the value which should be deleted: ");
    scanf("%d", &num);
    delete_node(llist, num);
    break;
   case 3:
    printf("Your choice: `Search'\n");
    printf("Enter the value you want to find: ");
    scanf("%d", &num);
    if((retval = search_value(llist, num)) == -1)
     printf("Value `%d' not found\n", num);
    else
     printf("Value `%d' located at position `%d'\n", num, retval);
    break;
   case 4:
    printf("You choice: `Display'\n");
    display_list(llist);
    break;
   } /* switch */
  } /* while */

 free(llist);
 return(0);
}

void display_list(struct NODE *llist) {
 while(llist->next != NULL) {
  printf("%d ", llist->number);
  llist = llist->next;
 }

 printf("%d", llist->number);
}

void append_node(struct NODE *llist, int num) {
 while(llist->next != NULL)
  llist = llist->next;

 llist->next = (struct NODE *)malloc(sizeof(struct NODE));
 llist->next->number = num;
 llist->next->next = NULL;
}

void delete_node(struct NODE *llist, int num) {
 struct NODE *temp;
 temp = (struct NODE *)malloc(sizeof(struct NODE));

 if(llist->number == num) {
  temp = llist->next;
  free(llist);
  llist = temp;
 } else {
  while(llist->next->number != num)
   llist = llist->next;

  temp = llist->next->next;
  free(llist->next);
  llist->next = temp;
 }  
}

int search_value(struct NODE *llist, int num) {
 int retval = -1;
 int i = 1;

 while(llist->next != NULL) {
  if(llist->next->number == num)
   return i;
  else
   i++;

  llist = llist->next;
 }

 return retval;
}

Tampilan nya:

Sunday 24 March 2013

Program Selection Sort Descending (PASCAL)

 Penampakan ^^
Silahkan Copas Bos semoga bermanfaat bagi kita semua...


Program Selection_sort_Descending;
uses crt;

const   
maks = 50;

type
Larik = array[1..maks] of integer;

var
n,i,j : integer;
L: larik;
min    : integer;
temp     : integer;

{=======================INPUT LARIK======================}
begin
writeln('Masukkan Jumlah data : '); readln(n);
for i:= 1 to n do
begin
    writeln('Masukkan data ke-',i,' : ');read(L[i]);
end;
    writeln('==================');
    writeln('Data input nya adalah : ');
for i:=1 to n  do
    write(L[i],' ');

{============PROSES SORTING SELECTION SORT DESCENDING========================}
For i:=1 to n-1 do
begin
Min:=i;
For j:= i to n do
begin
            If L[j] > L[min] then
            Min:=j;
End;
Temp:=L[i];
    L[i]:=L[min];
    L[min]:=temp;
End;
{===============TAMPIL DATA=========================}

writeln;
writeln('Data setelah Diurutkan dengan Selection Sort Descending : ');
for i := 1 to n do
write(L[i],' ');
readln;

readln;
end.

Program Bubblesort Ascending (PASCAL)

Tampilan :

Program ini di Run pake Dev_Pas...

Tampilan awal:

Setelah Di enter Bilangan yg diiput telah tersusun secara bubble sort Ascending.. Sorry gan SS nya lum Sempat ganti tulisan Selection nya... kwkwkw


 Langsung ajah bos ini code nya:

-----------------------------------------------------------------------------
Program Bubblesort_ascending;
uses crt;

const
maks = 50;

type
Larik = array[1..maks] of integer;

var
n,i,j : integer;
L: larik;
min    : integer;
temp     : integer;

{=======================INPUT LARIK===============================}
begin
writeln('Masukkan Jumlah data : '); readln(n);
for i:= 1 to n do
begin
    writeln('Masukkan data ke-',i,' : ');read(L[i]);
end;
    writeln('==================');
    writeln('Data input nya adalah : ');
for i:=1 to n  do
    write(L[i],' ');

{============PROSES SORTING Bubble SORT ASCENDING===================}
for i:=1 to n-1 do
begin
     for j:= n downto i+1 do
     begin
          if L[j] > L[j-1] then
          begin
            Temp:=L[j];
            L[j]:=L[j-1];
            L[j-1]:=temp;
          end;
     end;
end;

{===============TAMPIL DATA====================================}
writeln;
writeln('Data setelah Diurutkan dengan Bubble Sort Ascending : ');
for i := 1 to n do
write(L[i],' ');
readln;

readln;
end.











Thanks Bos.. Semoga Bermanfaat.. Alhamdulillah Jazakumuloh Khaira..

Tuesday 8 January 2013

PROGRAM PENGURUTAN ARRAY BAHASA C

Buat yg belajar bahasa C.. nih buat yang belajar materi pengurutan dan array.. hitung rata-rata juga
ini tampilan menu Utamanya:
menu 1 anda menginput data dan langsung mendapatkan hasil rata2 deretan angka yg anda input.
menu 2 anda akan mendapatkan urutan deretan angka yg anda input secara Ascending.





#include <stdio.h>
#include <stdlib.h>
#define max 100

void input(int A[], int n )
{
     int i;
     float rata;
    
     rata=0;
     for(i=0; i<n; i++)
     {
              printf("Angka %d : ",i+1); scanf("%d",&A[i]);
              rata=rata+A[i];
     }
     rata=rata/n;
                 
     printf("Rata-Rata : %.2f\n",rata);
     system("PAUSE");

}


int sorting(int A[], int n)
{
    int i,j,temp,min;
   
    system("CLS");
    printf("================\n");
    printf("Mengurutkan Angka\n");
    printf("================\n");

    for(i=0; i<n-1; i++)
    {
         min=i;
         for(j=i+1; j<n; j++)
         {
                    if(A[j]< A[min])
                    {
                                   min = j;
                    }
         }
         temp = A[min];
         A[min]= A[i];
         A[i]= temp;
    }
     for(i=0; i<n; i++)
     {
             printf("%3d",A[i]);
     }
     printf("\n");
   
system("PAUSE");
}

int main(int argc, char *argv[])
{
 int A[max],nomor,i,n,x;

 do
 {
   system("CLS");
   printf("Program Deretan Angka\n");
   printf("=====================\n");
   printf("\n");
   printf("1. Input dan Hitung Rata-rata\n");
   printf("2. Urutkan Data\n");
   printf("3. Keluar\n");
   printf("\n");
   printf("=====================\n");
   printf("\n");
   printf("Menu pilihan: "); scanf("%d",&nomor);
  
   while((nomor<1)||(nomor>3))
   {
      printf("Nomor Menu Salah! Ulangi! \n");
      printf("\n");
      printf("Menu pilihan : ");scanf("%d",&nomor);
   }
  
switch(nomor)
{
case 1:
     {
       system("CLS");
       printf("Program Deretan Angka\n");
       printf("\n");
       printf("=====================\n");
       printf("Masukkan jumlah deretan angka : "); scanf("%d",&n);
       input(A,n);
       x=1;
     }
     break;
    
case 2:
     {
       if(x==1)
       {
               sorting(A,n);
       }
       else
       {
       system("CLS");
       printf("ARRAY MASIH KOSONG");
       printf("\n");
       system("PAUSE");
       }
     }
     break;
     }
 }
while(nomor!=3);
return 0;
}

Tampilan nya: