Para quem não compreendeu 100% algum conteúdo ou quem queira estudar novamente o conteúdo da faculdade, segue um link muito interessante.
É isso ai, todo o conteúdo da faculdade em vídeo e de graça, bom proveito.
error: GeneXus .NET Generator:
Error starting remote protection, using mgtsrv04 server: Not authorized error: Error in reorganization
18 Como fazer para poder editar registros diretamente em uma grid que está em uma web panel?
19 Como fazer que ao fechar uma popup a página de baixo/que chamou seja atualizada?
&Window.Autoresize = True
&Window.Open()
Refresh
|
procedure TFRMPRINCIPAL.Sair1Click(Sender: TObject); begin Close; end;
procedure TForm1.Button1Click(Sender: TObject); var A,B,C,D,R1,R2:double; begin try A := strtofloat(edta.Text); B := strtofloat(edtB.Text); C := strtofloat(edtC.Text); if A <> 0 then begin D := (B*B)-(4*A*C); if D >= 0 then begin R1 := ((-1*B)+SQRT(D))/(2*A); R2 := ((-1*B)-SQRT(D))/(2*A); EDTR.Text := FloatToStr(R1); EDTR2.Text := FloatToStr(R2); { // exibir resultado em outro form final.Edit1.Text := FloatToStr(R1); final.Show; } end else begin ShowMessage('Erro na operação!! Delta menor que zero.'); end; end else begin ShowMessage('Valor de A deve ser diferente de zero (0).'); end; except on e:exception do ShowMessage(e.message); end; end;
procedure TfrmCidades.Button1Click(Sender: TObject); begin DM.ClientDataSet1.ApplyUpdates(0); end;
Depois de algumas aula de matemática financeira, resolvi testar meus conhecimentos e fazer um programa pra cálculos de juros compostos. A idéia é que o usuário veja os campos com os dados necessários para o cálculo e deixe em branco aquele que ele deseja descobrir, por exemplo, pra calcular o montante, informa o capital inicial, taxa e tempo, clica em calcular, o programa verifica que foi deixado em branco o campo Montante e então calcula e exibe o resultado naquele campo.
Como tenho instalado no meu note Ubuntu 9.04 e Lázarus, resolvi fazer nele, já mostrei como instalar ele neste post.
Olá pessoal, como programo em Delphi atualmente e gosto de usar Linux nas horas vagas, a um tempo queria testar o Lázarus, uma IDE muito semelhante ao Delphi mas que roda em Linux, Windows, Mac... e utiliza o FPC (Free Pascal Compiler) pra compilar os códigos em pascal. Hoje instalei ele e fiz um programa bem simples para testar, foi tranquilo. Segue os três comandos pra instalar.
1. Como sempre...
sudo apt-get update/upgrade2. Instalar FPC
sudo apt-get install fpc3. Instalar IDE -> Lazarus
sudo apt-get install lazarus
Agora já pode acessar o programa pelo menu Aplicativos->Programação->Lazarus, o ambiente é muito semelhante ao Delphi 7 mas é bem fácil de usar, para testar pode simplesmente pressionar F9 (compila e executa o programa).
Até.
if(oEvent.keyCode >= 112 && oEvent.keyCode <= 123) { bRet = false; }
apt-get update apt-get upgrade
aptitude install apache2 mysql-server-5.0 php5 php5-mysql php5-cli -y--durante a instalação será necessário definir uma senha para o Mysql.
cd /var/www/
vi teste.php
< ? php phpinfo(); ? >
aptitude install phpmyadmin
8. Para acessar no seguinte endereço, http://localhost/phpmyadmin, precisa fazer o seguinte:cp -r /usr/share/phpmyadmin/ /var/www/phpmyadmin
sudo gedit /etc/apache2/apache2.conf
add esta linha no final do arquivo ou onde desejarInclude /etc/phpmyadmin/apache.conf
e então reiniciar o apache./etc/init.d/apache2 restart
Olá pessoal, neste pequeno tutorial pretendo mostrar um exemplo simples de envio de e-mail em ASP.NET utilizando os serviços do Gmail e DELPHI 2007 for .NET, dica do Edinei.
Primeiramente vamos criar uma nova aplicação, File -> New -> ASP.NET Web Application.
Feito isso, adicione três TextBox, um Button e uma Label, renomeie a propriedade ID das textboxes para: txbdestinatario, txbassunto e txbmensagem respectivamente, a Label para lblretorno e o Button para btnenviar, aumente o tamanho das textboxes de acordo com sua preferência e mude a propriedade textMode da txbmensagem para “Multiline”. Apague o que tiver na propriedade Text da lblretorno e mude a propriedade Text do btnenviar para “Enviar E-mail”. O formulário deve ficar parecido com o da imagem abaixo.
O txtdestinatario vai receber o endereço de e-mail que se deseja enviar uma mensagem, txbassunto o assunto e txbmensagem a mensagem, a lblretorno irá mostrar se o e-mail foi enviado com sucesso ou se ocorreu algum erro durante o envio e o btnenviar chamará a função de envio de e-mail.
Para usar as funções de envio de e-mail do .NET, é necessário adicionar as seguintes bibliotecas na uses.
Uses
System.Net.Mail, System.Net.Configuration, System.Text, System.Net;
procedure TDefault.btnEnviar_Click(sender: TObject; e: System.EventArgs);
var
EmailRemetente: string;
NomeRemetente: string;
Mail: MailMessage;
Client: SmtpClient;
begin
Mail := MailMessage.create;
Client := SmtpClient.create;
EmailRemetente := 'seuEmail@gmail.com'; // O e-mail do remetente
NomeRemetente := 'Seu Nome'; // O nome do remetente
try
Mail.&To.Add(txbDestinatario.text); // Destinatário
Mail.From := MailAddress.create(EmailRemetente, NomeRemetente, System.Text.Encoding.UTF8);
Mail.Subject := txbassunto.text; // Assunto do E-mail
mail.SubjectEncoding := System.Text.Encoding.UTF8;
mail.Body := txbmensagem.text; // Mensagem do e-mail
mail.BodyEncoding := System.Text.Encoding.UTF8;
mail.IsBodyHtml := true;
mail.Priority := MailPriority.High; // Prioridade do E-Mail
client.Credentials := NetworkCredential.create(EmailRemetente, 'AquiSuaSenha'); // usuário e senha do Gmail
client.Port := 587; // Esta porta é a utilizada pelo Gmail para envio
client.Host := 'smtp.gmail.com'; // Definindo o provedor que irá disparar o e-mail
client.EnableSsl := true; // Gmail trabalha com Server Secured Layer
try
client.Send(mail);
lblretorno.text := 'E-mail enviado com sucesso!';
except on erro:exception do
lblretorno.text := 'Erro ao tentar enviar e-mail. '+erro.message;
end;
finally
client.free;
mail.free;
end;
end;
Para abrir uma nova janela usando javascript podemos utilizar o comando window.open(), passando o endereço da página que queremos exibir, o nome da nova janela e as possíveis formas da janela como tamanho e posição dela na tela do usuário.
Veja o exemplo abaixo.
function AbrePopUp() {
// VARIAVEIS COM A RESULUÇÃO DA TELA DO USUÁRIO
var w=screen.width, h=screen.height;
// VARIÁVEIS COM TAMANHO DA POPUP QUE VOCÊ DESEJA ABRIR
var popW = 500, popH = 400;
// FÓRMULA PRA POSICIONAR A POPUP NO CENTRO
var leftPos = (w-popW)/2, topPos = (h-popH)/2;
// ABRIR A POPUP
window.open('pagina.html', 'NOME_JANELA','width=' + popW + ',height=' + popH + ',top=' + topPos + ',left=' + leftPos);
};
Se as funções screen.width e screen.height não funcionarem você pode tentar definir estes valores manualmente ficando um serviço meia boca ou ainda tentar pegar de outras formas estes valores como por exemplo com o código javascript abaixo.
if (document.all) {
w = document.body.clientWidth;
h = document.body.clientHeight;
}
else if (document.layers) {
w = window.innerWidth;
h = window.innerHeight;
}