[Como fazer o controle com usuário, senha e um cookie ?]

Elaborei um sistema na empresa onde trabalho que também não poderia ser acessado de casa, apenas criei um servidor local e um sistema de login. Talvez isso possa te ajudar.

[problemas com o charset]

Boa noite,
estou com um problema no retorno dos meus dados pelo json.

Seguinte criei algumas classes php. em todas coloquei o codigo:
header('Content-Type: text/html; charset=UTF-8');
para tentar minimizar os problemas com o charsert. Porem, na busca por cep tenho uma classe que busca as informações do banco.

Essa classe busca a informação e verifica a quantidade de registros encontrados.
$total = ($arrayCollection) ? mysql_num_rows($arrayCollection):0;

e atribui aos atributos da classe os valores. após volto para a classe buscacep. onde tem o seguinte código

$busca = $buscaCepObj->getCep($cep);(GetCep retorna a quantidade de registros encontrados)

if($busca==1){

$dados["txtSucesso"] = $busca;

$dados["txtLogradouro"] = $buscaCepObj->getNmLogradouro();

$dados["txtBairro"] = $buscaCepObj->getNmBairro();

$dados["txtCidade"] = $buscaCepObj->getNmCidade();

$dados["txtEstado"] = $buscaCepObj->getNm_Uf();

$dados["txtCodCep"]= $buscaCepObj->getCdLogradouro();

}else{

Porem, se mando imprimir o objeto cep imprime corretamente.
echo $buscaCepObj->getNmLogradouro();

Caso mandar imprimir o objeto pelo json, da problema no charset.
echo $dados;
alguém sabe como resolver?

[Passagem de um Form para outro]

Excel?
usa o comando Hide para o formulário que você não quer que aparece.

Private Sub btnDuvida_Click()

frmOcultar.Hide

frmMostrar.Show

End Sub

[(Resolvido) captura de dados sem arredondamento]

Resolvido, foi so mudar o tipo de variavel de float para double

[como calcular a distância entre dois pontos]

Boa tarde,

Alguém poderia me ajudar, estou tentando criar uma rotina vba para calcular no autocad a distância entre dois pontos:

distancia = ThisDrawing.Utility.GetDistance

e inserir um texto com o valor da distância no meio dos dois pontos selecionados.

Set Txt = ThisDrawing.ModelSpace.AddText(distancia, ponto, alturatxt)

porem não tenho a menor noção de como capturar as coordenadas para inserir o texto.

Alguém sabe como pegar a coordenada e calcular o ponto de inserção do texto?

grato.

[(Resolvido) captura de dados sem arredondamento]

Boa tarde pessoal,

Estou desenvolvendo uma rotina vba para autocad, onde faz uma busca no desenho capturando todos os itens. Depois para os textos com determinados layers são calculados e exportados para uma planilha excel, mas, não estou conseguindo capturar os dados mantendo as casas decimais. Alguém sabe como consigo fazer isso. Segue trecho do código:

For Each elem In ThisDrawing.ModelSpace

With elem

'captura do layer do texto

Array1 = .Layer

'acrescenta o valor para cada variavel de acordo com o layer

Select Case Array1

Case "texto-cc-poste"

textoCcPoste = textoCcPoste + Val(elem.TextString)

Case "espinado"

espinado = espinado + Val(elem.TextString)

Case "espinadoJunto"

espinadoJunto = espinadoJunto + Val(elem.TextString)

Case "espinadoSemCordo"

espinadoSemCordo = espinadoSemCordo + Val(elem.TextString)

Case "cordoalha"

cordoalha = cordoalha + Val(elem.TextString)

Case "auto"

auto = auto + Val(elem.TextString)

End Select

'incrementa o numero de objetos verificados

count = count + 1

End With

Next elem