Fgr
-
Total de itens
9 -
Registro em
-
Última visita
Posts postados por Fgr
-
-
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..
Lista Completa Do Registro
em Visual Basic
Postado
Não seria melhor o FlexGrid não?
você formata cada celula do jeito q você quiser!!