kuroi

Dim x As String x = Replace(Text1.Text, "-", "") x = Replace (x, ".", "")[/code]

para saber a diferenca, leia esse tópico aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=125140 como você pode ler la em cima o visual basic 2008 é na verdade a versao mais nova do visual basic .net, então vou mover esse tópico pra .net, pra ver se te ajudam por la.

esse tópico deve ajudar: http://scriptbrasil.com.br/forum/index.php?showtopic=134973

bom, esse codigo não fui eu q fiz, peguei pronto por ai. agora, quanto ao -1, usando a funcao dessa forma, o posicionamento comeca a partir da posicao (1, 1). se você tirar o -1, o posicinamento comeca a partir de (0, 0). e quanto ao SetConsoleCursorPosition(), é uma funcao do windows pra posicionar o cursor. o primeiro parametro deve ser o handle da janela atual, e o segundo são as coordenadas.

adicione o windows.h, e declare essa funcao: void gotoxy(int x, int y) { COORD c; c.X = x - 1; c.Y = y - 1; SetConsoleCursorPosition (GetStdHandle(STD_OUTPUT_HANDLE), c); }[/code] ai é so chama-la pra posicionar o cursor.

ue aqui no crystal 8.5 tem a opcao de zoom do lado do botao pesquisar.

qual a versao do visual basic?? visual basic 6??

aqui um exemplo de como fazer isso: http://www.macoratti.net/pac_arq.htm

é o seguinte, a funcao Count() conta qtos registros existem na tabela. se você fizer simplesmente isso: Count({Tabela.Campo}) ele vai trazer o quantidade total de registros da tabela. tanto faz o campo q você passar por parametro, mas tem q ficar ligado porque se tiver valores nulos no campo, ele não vai contar. adicionando o segundo parametro: Count({Tabela.Campo}, {Tabela.Campo}) você vai pegar a contagem, não a total, mas sim a referente ao grupo do campo passado por parametro (se você tentar passar algum campo q não tenha sido agrupado, não vai funcionar). então, o q esse codigo faz é contar qtos registros existem no agrupamento. agora deu pra entender??

ta, e como você sabe as datas. na primera opcao você vai pegar todas as SEG/QUA/SEX do mes, seria isso?? se for é so você fazer um campo formula pra cada um, não precisa de crosstab.

mas você não precisa abrir o relatorio pra exportar, você faz isso por codigo do visual basic. aqui tem um exemplo de como exportar pra word: http://scriptbrasil.com.br/forum/index.php?showtopic=122749 é so fazer a mesma coisa, mas passar a constante do pdf.

hehe você tem experiencia com jogos?? o q você já consegui fazer?? isso ai é uma coisa muito complicada, principalmente se você for fazer a inteligencia artificial do computador.

caio, as datas das aulas vao estar cadastradas no banco de dados??

mais um post sem resposta, não sei q não respondi antes... é porque o evento MouseDown espera os parametros (Button As Integer, Shift As Integer, X As Single, Y As Single), você tem q passa-los pra poder chamar a sub.

nossa lameira, encontrei esse tópico velho aqui sem resposta... não sei porque não respondi antes, acho q você nem ta precisando mais, mas pra resolver isso q você quer seria so fazer uns replaces tirando os pontos e os tracos.

o q é imgpri?? pelo q entendi esse codigo so vai aumentar o tamanho do form e posiciona-lo em 0, 0. mas vai continuar maior do q a tela, não??

ele retorna a contagem pelo grupo. tipo se você poe o count, o primeiro campo é aquele q você quer contar (podia ser qualquer um, desde q não tivesse nulos). o segundo é o campo do agrupamento (o grupo q você criou). então esse count() vai retornar o total de registros do grupo. veja ai se da pra entender, senao eu tento explicar melhor. é q em Basic Syntax o resultado da formula tem q ser colocado nessa variavel Formula, é obrigatorio. ele já espera q você passe o valor para a Formula, não precisa declarar. já em Crystal Syntax, você simplesmente escreve o valor e ele já espera q seja o retorno. a diferenca é a sintaxe, o Crystal Syntax usa uma sintaxe proprio do crystal, a Basic Syntax é uma sintaxe parecida com a do visual basic. o unico motivo q teve pra mudar é q eu trabalho melhor em Basic Syntax e foi ela q eu usei pra te fazer a formula.

quando você entrar no editor de formulas, deve ter um combo la em cima selecionado Crystal Syntax. mude para Basic Syntax.

com o crystal você tem a opcao de exportar o relatorio pra pdf, não serve pra você??

é, então mude o total para basic syntax e veja se isso funciona: Dim y as Number y = Count({Tabela.CampoPeloQualVoceAgrupou}, {Tabela.CampoPeloQualVoceAgrupou}) If y Mod 2 = 1 Then y = y + 1 End If Formula = y / 2[/code]

faca um running total field (vou chamar de RTotal0) q faca um count do campo pelo qual você agrupou (acho q é o codigo). e na opcao Reset selecione On Change Of Group e selecione o grupo pelo qual você agrupou. ai pra fazer a pagina atual do grupo, faca a seguinte formula: If PreviousIsNull({Tabela.CampoPeloQualVoceAgrupou}) Then 1 Else Int({#RTotal0} / 2) + 1[/code] ontde RTotal0 é o running total field q você criou anteriormente. e pra fazer o total de paginas do grupo, faca: [code]Int(Count({{Tabela.CampoPeloQualVoceAgrupou}}, {{Tabela.CampoPeloQualVoceAgrupou}}) / 2) + 1 note q nas duas formulas o 2 q aparece é o numero de registros q aparecem numa folha no details (como você disse são 2 registros), se isso mudar você deve mudar nas formulas.

se você sabe qtos registros cabem por pagina no details acho q da pra fazer alguma coisa baseado nisso. exemplo, se cabem 10 registros por pagina, a cada dez registros você soma 1.

mas tiago, o group header so vai aparecer uma vez por grupo não?? como vai ter numeros de paginas la, se vai aparecer somente em uma pagina??

pra pegar a resolucao, você usa a api GetSystemMetrics. mas o melhor no visual basic é você fazer os formularios de um tamanho q caiba em qualquer tela. eu tento fazer sempre q os forms fiquem inteiros visiveis ate em 800 X 600, nunca se sabe a resolucao do cara q vai usar.

falando nisso, lembro q uma vez (há mtos anos atras) o forum foi invadido, e se não me engano isso levou a uma atualizacao, então sua ideia não é tão ruim assim.