Fgr

Não seria melhor o FlexGrid não? você formata cada celula do jeito q você quiser!!

Po cara eu nunca usei o Leitor de Cheques mas possivelmente deve ser como as impressoras fiscais... O fabricante deve fornecer algum driver para ser usado em conjunto a sua aplicação...

Esse é o programa de comunicação via por BD para que a lan me reporte em qual maquina está o problema e qual é o problema...

rsrsrs.. nossa.. novato é fogo!! rsrsrsrsrrss nó liga do é só umdar para b )

rsrs, foi mal, apertei o TAB e depois o espaço e a msg foi toda torta!! rsrs Mas vai aí o codigo certinho.. private sub Split_Alternativo(Texto as string,sep as string) dim a as integer dim b as integer dim i as integer dim s as variant a=0:b=0 for i = 1 to len(texto) if mid(texto,i,1) = sep then on error resume next S( = mid(texto,a,i-1) b=b+1 a=i+1 end if end sub -------- rsrs ... no Vb5 não tinha Split daí eu tive q improvisar algo desse tipo!! Claro q no metodo com split é muito mais pratico né!! rsrs

Se quiser pelo comado Mid ficaria algo assim: dim a as integer dim b as integer dim i as integer dim s as variant a=0:b=0 for i = 1 to len(texto) if mid(texto,i,1) = "," then s( = mid(texto,a,i-1) b=b+1 end if

Insira um controle Timer(Timer1) com intervalo de 900ms... Insira 2 TextBox(Text1 e Text2) para q no primeiro seja digitado a hora do evento e no segunto o evento Private Sub Timer1_Timer () dim tmp as string tmp = format(time,"hh:mm:ss") ' Pega a hora atual text1.text = format(text1.text,"hh:mm:ss") ' Formata o Text1 para o padrão(hh:mm:ss) if tmp = text1.text then 'Verifica se a hora atual é igual a hora agendada msgbox text1.text & " -- Evento Agendado" & chr$(13) & text2.text,vbOk,"Alarme..." end if End Sub --------------------- Esse acho q é o método mais simples de verificação de tempo para uma agenda. Acho também que esse método seria o coração da sua agenta, se você quiser algo maior como uma agenda com mais de 1 compromisso você pode fazer isso por meio de textBox indexados e criar uma rotina com For e Next para verificar as de todos os textbox na rotina timer... e Pra que o programa seja executado toda vez q liga o computador você pode adiciona-lo no registro do windows para q ele ligue automaticamente ao ligar a maquina.... -- Abraços.. --FgR--

Fala ae Will.. po entrei hj após muito tempo nesse forum e po me amarrei nesse lance de teste de conhecimento cara!!! Po eu queria saber se ainda tem como eu participar, sei q cheguei super tarde mas se der p mim entra beleza, aceito até fazer sozinho os lances!!!! Se não der tudo bem, eu continuo frequentando o site e vendo os projetos já desenvolvidos pelos nossos amigos!!!!! ----- Abração p você e p galera toda do forum q espero conhecer cm o tempo!!!

dim Ary as variant dim B as Integer No evento click do Armazenar digite: a=bound(ary) a=a+1 ary(a) = (nota1 + nota2) /2 No evento das setas digite: <- B = B-1 if b < 0 then B=0 texto = ary( -> B = B-1 if b > bound(ary) then b=bound(ary) texto = ary( Talvez isso resolva..