Andersonjb

então, Gray, so sei que aqui ta fod.... To tentando há mil anos e não consigo, mas eu vou conseguir. E que assim: eu to extraindo textos de uma rom de super nintendo, e o texto que ta la dentro ta em binario, não e? O que acontece e que se eu salvar em caracter ( chr ), ele vai salvar do mesmo jeito? Olha so o meu codigo para salvar: arquivosaida = New FileStream(nomearq, FileMode.Append, FileAccess.Write) binariosaida = New BinaryWriter(arquivosaida) Dim s As New System.Text.StringBuilder s.Append(RichTextBox1.Text) binariosaida.Write(Hex(s)) arquivosaida.Close() binariosaida.Close() crio as instacias para gravar o arquivo, crio a string builder para adicionar o arquivo, escrevo no arquivo em hexa, e isso aqui não salva!!! Aonde e que eu to errando??

Olha so , Gray, você falou para mim fazer simplesmente a ordem reversa e eu fiz, so que não funcionou, de uma olhada na minha lógica: Dim s As New System.Text.StringBuilder 'Criando a StringBUilder s.Append(RichTextBox1.Text) 'Colocando o Texto na Instancia arquivosaida = New FileStream(nomearq, FileMode.Open, FileAccess.Write) binariosaida = New BinaryWriter(arquivosaida) 'Gravando os Arquivos Bem, ele ate salva, mas as vezes aparece alguns caracteres estranhos, você pode me dizer o que são esses caracteres? Me desculpa encher o seu saco mais e que nunca mexi com arquivos em vb.net, então me desculpa ai, beleza? Falows!

No Caso, ficaria assim então: Dim salvar As New SaveFileDialog Dim resultado As DialogResult = salvar.ShowDialog If resultado = DialogResult.Cancel Then Return End If nomearq = salvar.FileName arquivosaida = New FileStream(nomearq, FileMode.Append, FileAccess.Write) binariosaida = New BinaryWriter(arquivoentrada) Dim s As New System.Text.StringBuilder For Each b In bytes s.Append(Hex(b).PadLeft(2, "0")) If qt = 10 Then s.Append(vbCrLf) qt = 0 Else s.Append(" ") End If qt += 1 Next Ai no caso, eu usaria o for para reagrupar os bytes no arquivo, certo? MAs como faria para escrever no arquivo, e assim, esse for ta certo??? porque o append senao me engano ele "posta" os arequivos, certo??

Bem, eu estou mostrando desta maneira: RichTextBox1.Font = New Font("Courier New", 11, FontStyle.Regular, GraphicsUnit.Pixel) RichTextBox1.Text = s.ToString() No caso, se eu mandasse gravar a instancia s, serviria??

Gray, socorro!! rsrs. Bem, eu estava aqui tentando salvar os arquivos modificados, so que não consegui, e mole?? Bem, o meu código e esse: Dim salvar As New SaveFileDialog Dim resultado As DialogResult = salvar.ShowDialog If resultado = DialogResult.Cancel Then Return End If nomearq = salvar.FileName arquivosaida = New FileStream(nomearq, FileMode.Append, FileAccess.Write) binariosaida = New BinaryWriter(arquivoentrada) ... arquivosaida.Close() binariosaida.Close() Bem, aonde estao os tres pontinhos e o problema. O que ue devo fazer? Devo usar o for each para colocar no arquivo byte por byte ou devo criar uma instancia do RichTextBox e mandar gravar no arquivo??

Se eu não me tem um objeto proprio para isso! Vou pesquisar para você e posto aqui, beleza?

E ai, pessoal, consegui achar o que queria sobre Setup, como fazer e tals, bem vo disponibilizar o link pra vocês ai embaixo, se voces quiserem, beleza? Criando projetos de Setup : O que mudou ? Gerando meu primeiro pacote de instalação no VB.NET Gerando meu pacote de instalação - Windows Installer. Para quem precisar e so pesquisar, beleza? Sei que e meio tosco eu responder um tópico meu, mas pode ser util para alguém que assim como eu pode estar precisando, hehe. Falows!!!

Tipo, a função tem dois parametros, e e assim: Outport ( [B]endereço da porta que você quer enviar os dados[/B] , [B] dados que você quer enviar[/B] ); Um exemplo pratico, digamos que você queira mandar dados para todos os pinos do registrador de dados, a função ficaria assim: #include<dos.h> void main() { outport(0x378, 255); } 0x378 e o endereço do LPT1 ( registrador de dados ), e 255 e o valor que correspondente em binario mandaria dados pros 8 pinos do registrador. 255 em binario é 11111111, ou seja, 1 manda dado, 0 não, beleza? Qualquer coisa posta aew! Falows!

Ai pessoal, eu descobri que se eu faço meu programa e passo o executavel normal para os usuarios, ele não funciona se o usuario não tiver o framework, não e? então isso tem que ser resolvido com o Setup, não e mesmo? E como faço meu aplicativo fazer um setup para que ele funcione em qualquer maquina??

Mas porque do 0 ate o 31? Esses numeros não tem representação grafica? Bem, e essa funcao Asc(), ela não converte para codigo ascii tb?

então, há alguma forma de eu contornar isso? E aproveitando o embalo, e pra mim salvar as modificações no arquivo, como eu faço???

Ei gray, mais uma duvidazinha: eu pensei que transformando pra decimal iam aparecer as letras dos valores correspondentes em Hexa , então qual e a função para transformar os valores em codigo ASCII para aparecerem as letras???

Bem, coloca o seu codigo aqui que eu te dou uma ajuda, eu manjo bem de controle por porta paralela. E não outportb, eu uso so outport, sem o b.

então no caso, se eu quiser exibir os dados em decimal, isso aqui fica dessa maneira: For Each b In bytes s.Append(b.PadLeft(2, "0")) If qt = 10 Then s.Append(vbCrLf) qt = 0 Else s.Append(" ") End If qt += 1 E deixa eu perguntar: você e formado em que, gray?

Poxa, Gray, valeu mesmo, se manja muito! Aonde se aprendeu tanto assim? E aproveitando o embalo, nesse codigo ai, as strings elas estao sendo mostradas em hexa, certo? mas e seu quisesse mostrar os valores decimais ( ou ascii ) delas, qual função eu utilizo???

Bem, vou tentar, rsrs: assim, digamos que eu faça meu sistema na resolução 800x600, certo? Essa resolução que eu falo e a resolução em que o monitor esta trabalhando, entenderam? Bem, quando eu abrir esse programa em 1024x768, ele vai modificar os formularios para trabalhar na resolução diferente, em vez da qual foi feito???

Resolução: 800x600, 1024x728, essas resoluções, resoluções do monitor, entendeu?

Pessoal, existe alguma maneira do meu programa iniciar com a resolução que estiver o computador do usuario??

Ei gray, tem como você me explicar esse codigo?? O que faz o metodo lenght??? O que e aquele each no for?? e o append, pra que que serve tb??? E o vbCrLf, o que e tb??? Desculpa ai pelas perguntas, mas e que fiquei mo curioso!! E valeu pelas respostas, falows!!!

Bem, e qual objeto eu uso para exibir corretamente os dados???

Sim, e para exibir arquivos binarios, e que eu nunca mexi com arquivos desse tipo. E um arquivo que dentro dele os textos estao gravados em binario, sabe?

E ai pessoal, alguém poderia me ajudar com manipulação de arquivos? Bem, eu consigo ler os arquivos, so que não consigo ler eles por completo, so le a metade do arquivo e nunca le a primeira letra. Bem, meu codigo e esse: Imports System.IO Imports System.Windows.Forms Public Class Form1 Inherits System.Windows.Forms.Form Private arquivoentrada As FileStream Private binarioentrada As BinaryReader Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim abrir As OpenFileDialog = New OpenFileDialog Dim resultado As DialogResult = abrir.ShowDialog Dim nomearq As String = abrir.FileName If resultado = DialogResult.Cancel Then Return End If arquivoentrada = New FileStream(nomearq, FileMode.Open, FileAccess.Read) binarioentrada = New BinaryReader(arquivoentrada) RichTextBox1.Text = binarioentrada.ReadString End Sub End Class alguém poderia me ajudar???

Paradox

Pessoal, como faço para fazer um relacionamento entre campos de diferentes tabelas no delphi?

é, eu usei varios data adapters e deu certo, valeu gray!