Tutoriais, Dicas e Artigos GDH:

Artigo: Otimizando seu site para os buscadores

Artigo: Programação Orientada a Objetos: uma introdução

Artigo: CMS – Uma introdução aos Sistemas Gestores de Conteúdo Web

Dica: Comprimindo executáveis com o UPX

Artigo: Criando mini "navegadores" específicos

Artigo: Como aprender a Programar?

Artigo: 5 vícios que devem largar em C

Tópicos destacados

Tópico: Importante: Leiam antes de postar - Highlight de sintaxe

Tópico: Informações sobre domínios, hospedagem e DNS - Atualizado em 15/05/12

Tópico: Ainda não sei engatinhar mas quero correr.
__________________________________________
Envie MP para sugerir tópicos para esta seção.
__________________________________________

Programa diz nome:

program diznome;

uses crt;



var nome,sobrenome,nomecompleto:string;



begin

clrscr;

writeln('Qual o seu nome:');

readln(nome);

writeln('Qual o seu sobrenome:');

readln(sobrenome);

nomecompleto:=(nome+' '+sobrenome);

writeln('Seu nome completo é:',nomecompleto);

readkey;

end.

Matrix numeros:

program numeros;



uses crt;

var a:integer;



begin

clrscr;

Textcolor(green);

a:=1;



repeat



for a:=1 to 100 do



write(a);



until a>=1000;



readkey;

end.

Calculadora de decimo terceiro salário:

program calculadoraDeDecimoTerceiroSalario;

uses crt;



var salario,meses,resultado:real;



begin

clrscr;

writeln('Qual o seu salário:');

readln(salario);

writeln('Qual a quantidade de meses em que trabalhou:');

readln(meses);

resultado:=(salario*meses/12);

writeln('Seu decimo terceiro salário é:',resultado:0:0);

readkey;

end.

Calculadora básica:

program calculadorabasica;

uses crt;

var

  n1,n2,resultado:real;

  operador:char;



begin

  writeln('Digite o primeiro número:');

  readln(n1);

  writeln('Digite o segundo número:');

  readln(n2);

  writeln('Digite o operador:');

  readln(operador);



  if operador='+' then

    resultado:=(n1+n2)

  else

    if operador='-' then

      resultado:=(n1-n2)

    else

      if operador='/' then

        resultado:=(n1/n2)

      else

        if operador='*' then

          resultado:=(n1*n2);

  writeln('O resultado é:',resultado:0:0);



  readkey;

end.

oi boa tarde! eu instalei o pacote do nasm no meu computador mas eu gostaria de saber como eu posso encontrar a ide nele agora

Solução:
Bastou editar o registro A que possui o nome como "at" (@) e apontar para o IP da VM do Google Cloud.

Possuo um domínio da Hostinger, mas preciso apontá-lo para uma VM do Google Cloud, então depois de tentar configurar os registros A e CNAME seguindo este tutorial, https://cloud.google.com/dns/docs/tutorials/create-domain-tutorial?hl=pt-br, resolvi apagar essa configuração na Google e voltar a configurar o domínio pela própria Hostinger apontando para a VM do Google.
Preciso saber se esta linha de registro A está correta, se devo deixar como o nome do meu domínio no campo Nome ou deixar como “@”.


Com essas configurações na Hostinger, o único efeito é essa página da imagem abaixo e, aponto os DNS Nameserver do Google Cloud, a mensagem é de que não foi possível resolver o nome.

Boa tarde companheiros....

Qual a modificação que devo fazer em um aplicativo que está funcionando localmente passe a funcionar em rede local, usando Visual Studio 2022, particularmente em Visual Basic ?
Espero ter sido claro.
Fico aguardando retorno, grato pela atenção de todos.

[ltr]
[/ltr]

[ltr]
[/ltr]

[ltr]
[/ltr]

[ltr]
[/ltr]

[ltr]
[/ltr]

Olá, alguém poderia me ajuda a questão é a seguinte tô criando um sistema bancário básico com interface grafica, para fim didático, tem uma janela com os comandos de login e cadastro e outra janela com já os sistema de depósito e saque e mostrador de saldo que são apenas áreas de textos e os botões a minha dificuldade no caso é na hora de fazer a transição de uma janela para outra quando o usuário preciona botão de login fecha essa janela e abre as com os botões de depósito e saque, aí gostaria de saber alguém tem um exemplo de código ou algum site em que eu possa aprender 
Uso Windows.h win32 
Quero aprender nesse primeiro antes de passa para sistemas que já me dá tudo mastigado como gtk.

Boa tarde, pessoal.
Poderiam dar ajuda com dump no PHP por favor?
Bom, tenho um script em php para fazer dump dos bancos MySQL tanto do servidor local quando dos servidores online. Roda local.
Depois que atualizei a versão do meu Linux (Kubuntu) para versão 22.04 só consigo fazer dump dos bancos locais, os banco online até começa mas para no pouco depois. Sabem dizer o que pode estar acontecendo? Seria algum block do php8? Antes estava usando o Kubuntu 18.04 com PHP7.
Estou usando a função abaixo.
exec("mysqldump... )

Ah, teria alguma outra função que fizesse a algo semelhante a função exec? Pois o servidor de hospedagem que tenho está desativado essa função, pois tentei para os backup online para o servidor online e não deu certo.

Obrigado.

Como criar essa tabela da imagem abaixo.

Tabela com html5, com a semântica.

Não importa a cor,pode ser qualquer uma

olá pessoal, sei um pouco de VBA e queria fazer uma macro que quando executada dentro de manual ele pegue uma imagem que esta na mesma pasta do arquivo CorelDraw, posicione no espaço e dimensione já com as medidas, depois disso ele apague a imagem existente e coloque a nova imagem na mesmo posição da imagem antiga dentro da camada.
Estou usando o comando ActiveWorkbook.Path para pegar o caminho na rede onde esta o arquivo CorelDraw mas parece que ele não reconhece e esta dando o segui erro: Objeto requerido (Erro 424).
Poderia me ajudar?
OBS: código ainda não esta completo!

Código:

[code=VB]Sub trocar_imagens()
' Recorded 03/03/2023

Dim impopt As StructImportOptions
Set impopt = CreateStructImportOptions
With impopt
.Mode = cdrImportFull
.MaintainLayers = True
With .ColorConversionOptions
.SourceColorProfileList = "sRGB IEC61966-2.1,U.S. Web Coated (SWOP) v2,Dot Gain 20%"
.TargetColorProfileList = "sRGB IEC61966-2.1,U.S. Web Coated (SWOP) v2,Dot Gain 20%"
End With
End With
'Dim pasta As ImportFilter
'Set pasta = ActiveWorkbook.Path & "\" & "\IMAGENS\FIG. A1.JPG"
'pasta.Finish

'pasta = A
'MsgBox pasta
Dim impflt As ImportFilter
Set impflt = ActiveDocument.Pages(24).Layers("Camada 1").ImportEx(ActiveWorkbook.Path & "\IMAGENS\FIG. A1.JPG", cdrJPEG, impopt)
impflt.Finish
Dim s1 As Shape
Set s1 = ActiveShape
ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1).Move -0.198937, -0.752177
ActiveDocument.ReferencePoint = cdrCenter
ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1).SetSize 6.889764, 4.774157
ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1).SetPosition 4.133858, 5.11811
ActiveDocument.Pages(24).Layers("Camada 1").Shapes(3).Delete
ActiveDocument.Pages(24).Layers("Camada 1").Shapes(2).OrderBackOf ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1)
ActiveDocument.Pages(25).Activate
End Sub[/code]

Estou tentando criar um bat que copia arquivos da minha área de trabalho e manda para a pasta em rede, mas esta dando erro não consigo identificar oque estou fazendo errado. Alguém poderia ajudar por favor kkk ?

Segue abaixo o bat :
@echo OFF
net use S:
ECHO .
ECHO .
ECHO *** COPIANDO ARQUIVOS DA PASTA PARA O NCLOUD ***
ECHO .
ECHO ******* COPIANDO ARQUIVOS *******
ECHO .
ECHO .

copy "C:\Users\LABORATORIO\Desktop\Isaias\*.*" "S:\Isaias


Pause



---------------------------------------------------------------------------------------------------------------------------------------------------------

O erro que retorna:


Nome local S:
Nome remoto \\ncloud.grupod.......................
Tipo de recurso Disco
Comando concluído com êxito.

.
.
*** COPIANDO ARQUIVOS DA PASTA PARA O NCLOUD ***
.
******* COPIANDO ARQUIVOS *******
.
.
C:\Users\LABORATORIO\Desktop\Isaias\*.*
O sistema não pode encontrar o arquivo especificado.
0 arquivo(s) copiado(s).
Pressione qualquer tecla para continuar. . .

jQuery(".progress-bar&quot.css("width",  time ? 100*(min_max-time)/min_max +"%" : "100%"

                        jQuery(this).html(time ? event.strftime(format) : "00:00:00"

                    }).on('finish.countdown', function(){

                        document.location.reload(true);

                    });

                }

Esse código acima ele é de um relogio de tempo, apos esse relogio zerar o tempo a página atualizar, mas ela depois de atualizar está com reload em loop atualizando a página direto, queria deixa esse código para ele dar apenas 1 reload de página e nao fica dando varios reload em loop.

Olá, boa tarde a todos, me chamo Lucas e estou engajado em aprender sobre programação e desenvolvimento de sites, já estudei um pouco sobre HTML e CSS a um tempo atrás e estou interessado em retomar os estudos e me tornar um profissional Freelancer, entretanto no momento eu trabalho e meu tempo para estudo é um pouco escasso, sei que atualmente existe uma linguagem de programação chamada Phyton, que segundo dizem é a mais atualizada programação que consegue substituir HTML, CSS e até mesmo JAVA, gostaria de saber se Programando em Phyton apenas eu consigo desenvolver bons projetos, pelo menos para começar, ou se vou precisar do auxilio de outras linguagens para meu portifólio? E qual maneira mais eficiente para me tornar um programador de sucesso? Estou muito ansioso para começar os projetos, entretanto preciso saber mecanismos para estudar e desenvolver websistes da melhor maneira possível sem perder tempo.

Desde já agradeço a atenção e disponibilidade de todos!

Bom dia, alguém pode me passar um ?

Como faço pra deixar uma lista ordenada em alfabeto automaticamente?

Deve se desenvolver um sistema de compra venda e aluguel de veículos.

O usuário poderá escolher entre quaisquer das 3 principais funções do sistema:
VENDA – o usuário poderá oferecer a venda um veículo para a empresa, onde será avaliado segundo a tabela FIPE, e haverá uma contraproposta da empresa, porém com o abatimento 12% em relação ao valor encontrado na tabela. Caso o usuário aceite a proposta ele recebe o dinheiro, e o veículo é adicionado à lista de veículos da empresa.
ALUGUEL – será apresentado a lista de veículos disponíveis, o usuário então escolhe uma das opções, e o usuário deve informar então quantos dias desejará alugar o veículo e caso tenha saldo suficiente a contratação é realizada
COMPRA – será apresentado a lista de veículos disponíveis, o usuário então escolhe uma das opções, a empresa avalia a escolha também pela tabela FIPE e calcula um acréscimo de 25% do valor do veículo ao valor final da proposta, caso o cliente deseje efetivar a contratação a empresa então verifica se o saldo do cliente é o suficiente para a contratação ser realizada

Estou precisando de ajudar pra resolver esse problema no Single Post (single.php)
Não consigo de jeito nenhum deixar a imagem aparecendo no post, quando atualizo a página do post a imagem aparece e em segundos some, tento arrumar o código mais não conseguir ainda pois sou iniciante na programação, por isso estou pedindo a ajudar de alguém aqui vou deixa o código abaixo, qualquer coisa eu mando o link do post se poder enviar o link aqui.

[php]

Boa tarde
Qual evento usar quando ao clicar no botão Ok ou botão Cancel da caixa de dialogo de impressão e executasse uma macro, semelhante ao código abaixo ?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 MsgBox "teste"
End Sub
 
Obrigado  a todos.

cameraman44 disse:

Veja se é isso que você quer:

@echo off



Rem Isso pega o IP versão 4 local:

for /f "delims=[] tokens=2" %%a in ('ping -4 -n 1 %computername%') do set IP=%%a



echo %IP% >>SeuIp.txt

Desculpe-me por ressuscitar este tópico, mas...

Quero executar este bat de salvar IP como administrador, visto que o mesmo só funciona sem ser como root (realizei os testes). Gostaria de uni-lo com outro arquivo bat, arquivo esse que só executa como root (já que se usa o comando netsth), tem como?