Animasi Dengan Trubo C

Gambar 1. Jendela pertama diminta memasukkan Huruf Max 7 Karakter

Gambar 2. Bentuk animasi yang akan dihasilkan

*Silahkan klik gambar untuk melihat hasil animasi

Tadi sore ada seorang teman bertanya dengan saya, gimana cara buat animasi dengan menggunakan Turbo C. Dengan spontan saya jawab, "Wah kami gak pernah belajar animasi dengan Turbo C". Tetapi si teman tetap ngotot minta buatka salah satu bentuk program animasi yang dibuat dengan Turbo C. Eh ternyata akhirnya saya tau klo itu merupakan salah satu tugas Smester yang diberikan oleh dosennya.
O.K. lah saya mencoba mencari di google, kemudian merobah dan mengedit program animasi tersebut. Nah inilah dia hasil program yang telah dibuat tersebut.

Good Luck ya, moga dapat nilai bagus :)

#include
#include
#include
#include
main()
{
    char kata[10],kata1[10],kata2[10];
    int i,j,k,l,m;
    clrscr();
    gotoxy(24,11);
    printf("Masukkan Kata (Max 7 Karakter) : ");scanf("%s",&kata);
    strcpy(kata1,kata);
    strcpy(kata2,kata);
    for(i=0;i<=strlen(kata)-1;i++)
   {
        if(i%2==1)
          {
              kata1[i]=' ';
          }
              else
          {
              kata2[i]=' ';
          }
       printf("%s",kata);
       printf("%s",kata1);
       printf("%s",kata2);
   }

       while(1)
              {
              for(i=1,j=15-strlen(kata),k=59+strlen(kata),l=11;i<=11;i++,j+=2,k-=2,l--)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata1);
                   gotoxy(k,i);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))-j,12);printf("%s",kata1);
                   gotoxy(j,l+12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata2);
                   gotoxy(k,l+12);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata2);
                   delay(200);
             }

            for(i=11,j=35-strlen(kata),k=39+strlen(kata),l=1;i>=1;i--,j-=2,k+=2,l++)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata2);
                   gotoxy(k,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata)-j,12);printf("%s",kata2);
                   gotoxy(j,l+12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata1);
                   gotoxy(k,l+12);printf("%s",kata1);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata1);
                   gotoxy(k,i);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))-j,12);printf("%s",kata1);
                   gotoxy(j,l+12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata2);
                   gotoxy(k,l+12);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata2);
                   delay(200);
             }

            for(i=1,j=15-strlen(kata),k=59+strlen(kata),l=11;i<=11;i++,j+=2,k-=2,l--)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata1);
                   gotoxy(k,i);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))-j,12);printf("%s",kata1);
                   gotoxy(j,l+12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata2);
                   gotoxy(k,l+12);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata2);
                   gotoxy(k,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata)-j,12);printf("%s",kata2);
                   gotoxy(j,l+12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata1);
                   gotoxy(k,l+12);printf("%s",kata1);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata1);
                   delay(200);
             }

            for(i=11,j=35-strlen(kata),k=39+strlen(kata),l=1;i>=1;i--,j-=2,k+=2,l++)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata2);
                   gotoxy(k,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata)-j,12);printf("%s",kata2);
                   gotoxy(j,l+12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata1);
                   gotoxy(k,l+12);printf("%s",kata1);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata1);
                   delay(200);
             }
                   clrscr();
             }
}