kuroi

seu programa está meio estranho mesmo, você parece estar trocando o lugar dos begins e ends. tente isso: Label LocalX; Var op: char; alt, comp, preço, area, precom, areapr : integer; crede, arede, avidro, cvidro : real; Begin LocalX: Writeln ('O que pretende das janelas de correr 2 folhas'); Writeln ('A- Area B- Tamanho da rede'); Writeln ('C- Tamanho do vidro D- Preço'); Readln (op); Begin If (op = 'a') or (op = 'A') Then Begin Writeln ('Introduza a altura e o comprimento da janela em centimetros'); Readln (alt, comp); area := alt * comp; Writeln ('A área da janela é de ',area,' centimetros quadrados'); End; If (op = 'b') or (op = 'B') Then Begin Writeln ('Introduza a altura e o comprimento da janela em centimetros'); Readln(alt, comp); crede := (comp/2)- 0.0125; arede := alt - 0.049; Writeln ('O comprimento da rede é de ',crede,' centimetros'); Writeln ('A altura da rede é de ',arede,' centimetros'); End; If (op = 'c') or (op = 'C') Then Begin Writeln ('Introduza a altura e o comprimento da janela em centimetros'); Readln (alt, comp); avidro := (alt - 0.048) - 0.085; cvidro:=(comp / 2) - 0.0745; Writeln ('A altura do vidro é de ',avidro,' centimetros'); Writeln ('O comprimento do vidro é de ',cvidro,' centimetros'); End; If (op = 'd') or (op = 'D') Then Begin Writeln ('Qual o valor de 1metro quadrado das janelas de correr 2 folhas?'); Readln (precom); Writeln ('Qual a área da janela que pretende saber o preço?'); Readln (areapr); preço := areapr * precom; Writeln ('O preço da janela é de ',preço,'euros'); End; End; End.[/code]

isso é foda mesmo, mas ainda não entendi como você quer o select. tipo você tem no banco uma tabela mais o menos assim: Data Campo1 Campo2 -------------------------------------------- 01/01/2006 xxxxxxx yyyyyy 10/01/2006 xxxxxxx yyyyyy 15/01/2006 xxxxxxx yyyyyy 16/01/2006 xxxxxxx yyyyyy 20/01/2006 xxxxxxx yyyyyy 01/02/2006 xxxxxxx yyyyyy[/code] como você quer exatemente retornar o select?? seria tipo isso?? [code]Periodo Quantidade -------------------------------------- 01/01/2006 a 15/01/2006 3 16/01/2006 a 31/01/2006 2 01/02/2006 a 15/02/2006 1 bom, se for isso, acho que funciona assim: Select CStr(DateAdd('d', Num * 15, (Select Min(Data) from x))) & ' a ' & CStr(DateAdd('d', 14, DateAdd('d', Num * 15, (Select Min(Data) from x)))) As Periodo, Count(Data) As Quantidade from (Select Data, int( DateDiff ('d', (Select Min(Data) from x), Data) / 15 ) As Num From x) Group By Num[/code] isso levando em conta que sua tabela se chama x. de uma olhada ai se funciona

programa do pascal?? bom, você pode fazer seu proprio programa, ue você quer compilador, certo?? aqui tem: http://robson.fjaunet.com.br/fatec/pascal/downloads.htm uso esse Turbo Pascal, mas você também pode tenta o Free Pascal.

vixe, isso num sei mas no tópico que eu te passei o link acho que tavam falando sobre isso. tinha um servidor que tinha os codigos já pronto, mas parece que você teria que hospedar neles. num sei, tenta da uma olhada. outra opcao também seria entrar em contato com a operadora e ver se eles não tem como te passar um sistema de teste, algo assim.

cada operadora utiliza um tipo de um software que você tera que implementar no seu site. o primero passo é entrar em contato com ela e fazer um registro pra sua loja. depois disso, eles devem te passar o software e toda a documentacao para você saber como fazer o software funcionar no seu site. veja aqui também: http://scriptbrasil.com.br/forum/index.php?showtopic=74343

tenta assim: document.getElementById("Form1").submit();

boa pergunta, mas so sei que não tem nada a vê com visual basic. pelo que parece você esta se referindo aos scripts do site, ou seriam os scripts do forum, nos subforum Scripts javascript. explica direito pra eu mover pro lugar certo

cara, que visual basic é esse que eu num conheco ahahahah movido

esse aqui, funciona certinho: http://www.macoratti.net/img_bd.htm se não conseguir, poste ai o seu problema

está, mas no banco de dados?? como você grava se ele esta demitido?? você não tem tipo um campo chamado Demitido, ou algo assim?? ai você preenche com sim ou não?? se for isso, você pode preenche a Selection Formula exatamente como eu passei: {Funcionario.Demitido} <> 'S' (com a diferenca que da outra vez passei ao contrario, so pegaria os demitidos) onde Funcionario você troca pelo nome da sua tabela, Demitido você troca pelo nome do campo, e o S você troca pelo que é gravado quando ele esta demitido. entendeu?? no selection formula, você coloca todos os criterios de filtro que você quer. no exemplo, você filtra pra selecionar apenas onde o campo de demissao não estiver marcado com "S".

como você sabe, no seu banco de dados, quando o funcionario esta demitido??

assim mesmo

não entendi bem. stddep é uma variavel?? você não deveria testar a maskedbox?? bom, mas de qualquer jeito, antes de testar se esta em branco, ponha a propriedade PromptInclude da maskedbox como False (isso faz com que a mascara seja desconsiderada) e ai você pode testar se esta em branco. depois disso, não esqueca de voltar o PromptInclude para True

sim, use o controle MaskEdBox (adicione o componente Microsoft Masked Edit Control) e preencha a propriedade Mask com __:__

qual a sua dificuldade?? ponha os tres textbox. ponha um botao OK quando ele clicar no OK, testa se a senha atual esta certa se estiver, testa se as senhas digitadas são iguais, não estao em branco, e se estao com tamanho correto (caso você queira que a senha tenha um tamanho minimo e/ou maximo) se validar, altera a senha e fecha o formulario o que você não conseguiu fazr??

o que você quer exatamente? você pode fazer um running total field que so seja somado nos registros que atendam a uma condicao, clicando em Evaluate -> Use a Formula e colocando a condicao la. exemplo, se você so quer que some quando o campo for um, digite apenas: campo=1

Sim, edite a Selecion Formula (menu Report -> Edit Selecion Formula -> Record) e la você pode filtrar o relatorio mas ou menos como a clausula Where de uma query. exemplo: {Funcionario.Demitido} = 'S'

da uma olhada: http://vbnet.mvps.org/index.html?code/subclass/index.html

sim, você precisa do cd do seu sistema. mas se você tem ele instalado, você deve ter o cd não?? bom, mas certa vez tentei instalar o iis no sp1 cum o cd do sp2 e ai ele não encontrava varias dlls e eu fui buscando uma por uma na internet, fiz o download delas e funcionou sem problemas.

você teria que usar o controle MaskedBox (adicione o componente Microsoft Masked Edit Control). coloque na propriedade Format R$ #,##0.00;R$ -#,##0.00 você teria que fazer isso via programacao no envento validade da MaskedBox

pelo que parece isso não é vba, então to movendo o tópico acho que a propriedade que você quer saber é a ToolTipText, certo??

mas isso é asp ou visual basic??

movido pra .net

você esta dando mid num valor numerico. como o numero é muito grande, na hora da conversao ocorre isso. o que você deve fazer é: mid("4201070001000400",15,2) ou no caso de você pegar o valor duma variavel, ela deve se declarada como string.

então graymalkin, a gente resolveu isso por MSN, faltou o Set na linha: Set Me.DataGrid1.DataSource = preenche