Exemplo de Procedimento na linguagem C (Example Procedure in C)

Olá ! Hoje vou mostrar um pequeno código demonstrando como funciona
o procedimento na linguagem C.



1. Aqui nesse trecho do código, iniciamos com as bibliotecas: a primeira é a biblioteca
padrão de entrada e saída. A segunda é necessária quando se faz o uso de "system(pause)" no código.

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

2. Aqui criamos o procedimento que tem como argumento "X" do tipo "Inteiro".
"Square" vai fazer com que o número digitado pelo usuário tenha como saída o numero ao quadrado.
" Printf " vai ser a mensagem a ser mostrada para o usuário, nesse caso vai mostrar o número digitado ao quadrado.

int square(int x)
{
printf("O numero ao quadrado e %d\n",square(x));
return 0;
}



3. Aqui é o programa principal.
"Scanf" vai ser a leitura da variavel que receberá o numero digitado pelo usuário.
"int num" é a declaração da variável "num" com o tipo "inteiro".
"SQUARE(num)" é o procedimento sendo chamado dentro do programa principal.
"System(pause)" é ultilizado somente no Windows. Serve para pausar a tela do programa, evitando que a mesma se feche. Pode ser substituida por "getchar()".


int main()
{
int num;
printf("Digite um numero para ve-lo ao quadrado :\n");
scanf("%d",&num);
square(num);
system("pause");
return 0;
}

Apostilas para estudo

Aqui estão algumas apostilas para estudo em linguagens como :
C
C++
C#
Delphi (Object Pascal)
Delphi+Mysql
PHP
Banco de Dados .
Conforme o tempo, vou atualizá-la com mais apostilas. Até mais.

APOSTILAS AQUI

Tocando a música do Iron Maiden em linguagem C - Fear of the dark (Playing music Iron maiden in C)

Nesse pequeno tutorial não há nenhum mistério no código e não será preciso você bater cabeça com alguma lógica!
Esse código feito em C executará a música do Iron Maiden - Fear of the dark em bips.
Vale a pena compilar e ouvir ! Vamos lá!

Requisitos :
Windows 7
Dev C++ - www.bloodshed.net/dev/

# include <stdio.h> (Biblioteca padrão de entrada e saída)
# include <windows.h> (Biblioteca do windows)
int divs(float a,float b)
{

int c = a/b;
return c;
}

int main(){
int n=1;
while(n <=2){
printf(" Musica : Fear of the Dark - Iron Maiden ");
Beep(293,250);
Beep(293,250);
Beep(220,250);
Beep(220,250);
Beep(293,250);
Beep(293,250);
Beep(330,250);
Beep(330,250);
Beep(349,250);
Beep(349,250);
Beep(330,250);
Beep(330,250);
Beep(293,250);
Beep(293,250);
Beep(330,250);
Beep(262,250);
Beep(262,250);
Beep(196,250);
Beep(196,250);
Beep(262,250);
Beep(262,250);
Beep(293,250);
Beep(293,250);
Beep(330,250);
Beep(330,250);
Beep(293,250);
Beep(262,250);
Beep(262,250);
Beep(330,250);
Beep(262,250);
n++;
}
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(220,1.33),250);
Beep(divs(220,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(349,1.33),250);
Beep(divs(349,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(262,1.33),250);
Beep(divs(262,1.33),250);
Beep(divs(196,1.33),250);
Beep(divs(196,1.33),250);
Beep(divs(262,1.33),250);
Beep(divs(262,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(262,1.33),250);
Beep(divs(262,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(262,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(220,1.33),250);
Beep(divs(220,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(349,1.33),250);
Beep(divs(349,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(293,1.33),250);
Beep(divs(330,1.33),250);
Beep(divs(293,1.33),250);
Beep(175,250);
Beep(175,250);
Beep(131,250);
Beep(131,250);
Beep(175,250);
Beep(175,250);
Beep(175,250);
Beep(196,250);
Beep(196,250);
Beep(220,250);
Beep(220,250);
Beep(196,250);
Beep(196,250);
Beep(175,250);
Beep(175,250);
Beep(220,500);
Beep(175,500);
return (0);
system("pause");
}

Depois de colocar o código é só apertar "F9",salvar e ele executará.

Criando tela de splash no delphi 2010

Nesse tutorial, vou escrever um pequeno passo a passo para a criação de uma tela de splash no delphi 2010.

Requisitos :
Sistema Operacional : Windows 7
Delphi 2010 - http://www.embarcadero.com/br

Passo nº 1
Abra o Delphi e no menu "File" vá em "New" e em seguida "Vcl Forms Application-Delphi".

Passo nº 2
Depois que abrir a Form altere a largura e altura da Form para o tamanho que você quiser, pode ser pelo mouse diretamente ou à sua esquerda na "Object Inspector" alterando as propriedades. É possível alterar a altura em "Height" e a largura em "Width".

Depois disso, á sua direita encontra-se a "Tool palette" aonde podemos encontrar os componentes que serão necessários para a Form. No campo de busca da "Tool palette" digite "TImage" e arraste-a para a Form.

Passo nº 3
Ajuste a "TImage" ao tamanho da Form.

Volte na "Object Inspector" e vá na propriedade "Picture" e selecione a imagem de sua preferência para ficar no fundo da tela de splash.

Passo nº 4
Depois de colocar a imagem de fundo, você pode adicionar um pequeno texto na tela splash. Para isso vá em "Tool palette" e digite no campo de busca "TLabel" e arraste-a para a Form. Depois ajuste-a com a fonte e o tamanho que achar necessário em "Object Inspector" alterando as propriedades "Font" , "height" e "width". Para editar o texto contido na "TLabel" vá na propriedade "Caption" em "Object Inspector". Após isso você pode personalizar com textos de sua preferência.

Passo nº 5
Clique na Form e vá em "Object Inspector" e selecione a seguinte propriedade: "BorderStyle" e selecione o valor " bsnone ". Isso vai retirar a borda da tela.

Passo nº 6
Vá em "Tool palette" e digite "TTimer" e arraste-o para qualquer parte da Form, ele não será exibido na hora da execução.

Ainda na "Tool palette" digite no campo de busca "TProgressbar" e coloque-o na Form.

Dê dois cliques sobre o relogio(TTimer) que esta na Form e abrirá-se a Unit que é aonde colocaremos o código.
Digite o seguinte código:

TForm3.Timer1Timer(Sender: TObject);
(TForm3 é o nome da nossa Form, esse nome pode variar de acordo com o nome que o Delphi nomear por padrão)
begin
TProgressbar.Position := 10;
sleep(100);
TProgressbar.Position := 20;
sleep(500);
TProgressbar.Position := 30;
sleep(200);
TProgressbar.Position := 40;
sleep(300);
TProgressbar.Position := 50;
sleep(1000);
TProgressbar.Position := 60;
sleep(2000);
TProgressbar.Position := 70;
sleep(700);
TProgressbar.Position := 80;
sleep(800);
TProgressbar.Position := 90;
sleep(900);
TProgressbar.Position := 100;
sleep(1000);

(* Este trecho Termina a tela de carregamento *)

Form3.Close; (Nome da Form com comando close)

(* Fecha a tela de carregamento *)
end;

Passo nº 7
Depois salve seu projeto em "File" > "Save project as", dê um nome ao projeto que vai estar com o nome "Unit" e quando abrir a segunda tela para salvar , não feche, aperte salvar novamente. Após fazer isso , você pode executar seu projeto com o botão "Run" localizado no menu superior ou apertar F9.

Quando executado na primeira vez, será gerado o executável dele na pasta aonde você salvou. Para executar em outro Pc é só copiar o executavel dele (.exe). Pronto terminamos aqui esse pequeno passo a passo , até a próxima.