Jump to content

[Resolvido] Invalid Cast Exception em .net


sergio.costa
 Share

Recommended Posts

sergio.costa

Boas pessoal...

Ando aqui as volta com um excerto de codigo e nao me tou a safar...

Porque e que isto da erro?!?!?!

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
	'Construir a Mensagem
	Mensagem_Envio = Chr(31) + Chr(3) + Chr(3) + Chr(232) + Chr(0) + Chr(24)

	'Mostrar Mensagem em Hexadecimal
	TextBox4.Text = ""
	Dim Mensagem_Mostrar As String = ""
	For I = 1 To Len(Mensagem_Envio)
		Mensagem_Mostrar = Mensagem_Mostrar + "[" & Hex(Mid(Asc(Mensagem_Envio), I)) & "]"
	Next
	MsgBox(Mensagem_Mostrar)
	TextBox4.Text = Mensagem_Mostrar
End Sub

Na msgbox devia aparecer... [1F][3][3][E8][00][18]

Esta cconversao que faço para hexadwcimal era so pra ver os caracteres que estao escritos na "Mensagem_Envio" e eu acho que o problema começa logo quando eu coloco os caracteres na variavel...

Obrigado desde ja pela ajuda

Link to comment
Share on other sites

A função Asc retorna um integer, e tu tás a fornecer o integer á função Mid que só aceita string.

Isso devia-te dar erro ao compilares? Ou é esse erro que tás a falar? Normalmente te dá solução se estiveres a usar o Visual Studio pelo menos.

Tens de converter o retorno de Asc para string, ou seja '.ToString()' , não sei é se o código vai fazer o que pretendes, mas experimenta.

Link to comment
Share on other sites

sergio.costa

Muito Obrigado

Bastou inverter a conversão... Eu tava a fazer o Mid do Asc e tinha era de fazer o contrario... Hex(Asc(Mid(Mensagem_Envio, I)))

Mais uma vez... Muito Obrigado

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.