Graymalkin

Crie objetos DateTime a partir das datas e utilize seus métodos compareTo para realizar uma ordenação bolha (bubble-sort). Abraços, Graymalkin

Beleza. Aproveita e se cadastra aí no fórum, pra ajudar a nossa comunidade a crescer. Abraços, Graymalkin

Faça uma referência ao "Microsoft XML, vx.xx" na opção References do menu Project. Depois é só utilizar os objetos disponibilizados (DOMDocument, IXMLDOMNode, etc.). Abraços, Graymalkin

Ah, então você quer é escolher aleatoriamente uma string e escrevê-la na tela. Então, você pode fazer isso aqui: #include <iostream> #include <stdlib.h> #include <time.h> using namespace std; int main() { srand(time(NULL)); // Renova semente geradora de números randômicos char *frase[] = {"Olá, bem vindo", "Bem-Vindo", "Bom dia"}; int x = rand()%3; // Número randômico de 0 até 2 cout << frase[x] << endl; // Escreve a frase correspondente ao número gerado system("pause"); } Certo? Graymalkin

Dê uma olhada neste exemplo: h1 = TimeSerial(2, 15, 0) h2 = TimeSerial(1, 50, 30) Debug.Print h1, h2, h1 + h2 Certo? Graymalkin

Como assim, "escolher aleatoriamente um 'cout'"? O que você entende por "cout"? Abraços, Graymalkin

Que eu saiba, não tem. Mas, se o "vertical" que você quer é realmente o que coloquei no meu exemplo, então você pode criar uma função para facilitar isso (que concatene o #13 entre os caracteres). Abraços, Graymalkin

Aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=53615 Leia do 4º post em diante. Abraços, Graymalkin

Aqui está o certo: 'dados = "MensagemNick4" dados = "MensagemOutro5" tamanhonick = Mid(dados, Len(dados), Len(dados)) nick = Mid(dados, Len(dados) - tamanhonick, tamanhonick) message = Mid(dados, 1, Len(dados) - tamanhonick - 1) Debug.Print tamanhonick Debug.Print nick Debug.Print message Você precisava do tamanho do nick, mas não o estava utilizando para informar o tamanho que Mid() deveria pegar (na linha [nick = Mid(...]). Sendo que você pode fazer isso de forma mais fácil e prática, sem ter limitação de tamanho e sem ter que informar o mesmo. Exemplo: separador = Chr(0) & "\*\" & Chr(0) 'dados = "Nick" & separador & "Mensagem" 'dados = "Graymalkin" & separador & "Outra mensagem" dados = "renatodex" & separador & "E mais outra mensagem" info = Split(dados, separador) nick = info(0) message = info(1) Debug.Print nick Debug.Print message Veja que "separador" contém caracteres que não poderão estar na mensagem ou no nick (ninguém consegue digitar um chr(0) em uma textbox ou qualquer controle do tipo). E a função Split() divide uma string para um vetor. Certo? Graymalkin

Nesse site você encontra centenas de dicas sobre Windows Forms separadas por categorias/objetos: http://www.syncfusion.com/FAQ/WindowsForms/Default.aspx Abraços, Graymalkin

Para exibir vai ser um pouco diferente. A DataGrid aceita como fontes de dados um DataSet, ou um DataTable, ou um Array, ou qualquer objeto que implemente a interface IList (uma ArrayList, por exemplo). Eu acho que o jeito mais prático seria criar uma DataTable com dez colunas e preenchê-la. Coloque duas DataGrids no form e chame uma de dgHexa e outra de dgChar, depois coloque o seguinte código após a leitura do arquivo (bytes = binarioentrada.ReadBytes(arquivoentrada.Length)): Dim dtHexa As New DataTable Dim dtChar As New DataTable For i As Integer = 0 To 9 dtHexa.Columns.Add("c" & i.ToString(), GetType(String)) dtChar.Columns.Add("c" & i.ToString(), GetType(String)) Next For i As Integer = 0 To (bytes.Length - 10) Step 10 Dim elementos() As Object = {bytes(i), bytes(i + 1), bytes(i + 2), bytes(i + 3), bytes(i + 4), bytes(i + 5), bytes(i + 6), bytes(i + 7), bytes(i + 8), bytes(i + 9)} Dim aH As New ArrayList Dim aC As New ArrayList Dim elemento As String For Each elemento In elementos aH.Add(Hex(elemento).PadLeft(2, "0")) aC.Add(Chr(elemento)) Next dtHexa.Rows.Add(aH.ToArray(Type.GetType("System.Object"))) dtChar.Rows.Add(aC.ToArray(Type.GetType("System.Object"))) Next dgHexa.Font = New Font("Courier New", 9) dgHexa.PreferredColumnWidth = 20 dgHexa.DataSource = dtHexa dgChar.Font = New Font("Courier New", 9) dgChar.PreferredColumnWidth = 20 dgChar.DataSource = dtChar Com isso você vai exibir os dados nas duas DataGrids. Abraços, Graymalkin

Não existe um objeto certo para isso, como eu já disse antes. O ideal seria trocar a maneira como o arquivo é exibido. Já que os "caracteres" de certos bytes não podem ser representados, o melhor seria *não* mostrar os caracteres, e sim utilizar os valores decimais, hexadecimais ou octais. Uma idéia legal seria utilizar duas DataGrids para isso, criando um número de colunas fixas. Daí, em uma DataGrid você veria os valores hexadecimais e em outra você veria os caracteres (já que sua intenção é traduzir, você precisa "ler" o texto). Ao trocar um valor hexa na primeira DataGrid automaticamente o caracter correspondente seria trocado na segunda DataGrid, e vice-versa. E, na hora de salvar você iria pegar apenas os dados da primeira DataGrid (os valores hexadecimais) para recompor os bytes e gravar em um arquivo. Essa idéia acabou de me ocorrer e acredito que a DataGrid ofereça uma edição muito melhor do que você teria na RichTextBox. Abraços, Graymalkin

Em uma RichTextBox? Um arquivo binário? Não tem como você estar mostrando um arquivo binário na RichTextBox com caracteres normais. O primeiro byte 0 que aparecer no arquivo vai finalizar o texto na RichTextBox. É isso que eu venho te falando desde o começo. Se você estiver fazendo testes com arquivos simples, que não possuem bytes sem representação gráfica, vai dar certo, porém experimente abrir um arquivo executável ou um documento do Word e você vai ver que só o começo do arquivo é que vai aparecer (se aparecer alguma coisa). Dê uma lida novamente no começo deste tópico. Abraços, Graymalkin

Então, é só seguir a sugestão do sillier. Faça uma query selecionando todas as quilometragens do veículo, ordenando por data. Daí, vá para o último registro (utilizando o método Last) e pegue o valor contido nele. Abraços, Graymalkin

Experimente colocar um (ou mais de um)... Application.ProcessMessages; ... entre o preenchimento da Label e a chamada da função ExecAndWait(). Abraços, Graymalkin

Label1.Caption := 'v' + #13 + 'e' + #13 + 'r' + #13 + 't' + #13 + 'i' + #13 + 'c' + #13 + 'a' + #13 + 'l'; Seria isso? Abraços, Graymalkin

Na verdade o que ele faz é *atribuir* o elemento atual da iteração para o objeto "dado". Podia ser qualquer outro nome. É igual o For... Next comum, que atribui o valor para a variável iteradora (For i=1 to 10; "i" recebe o valor da iteração atual, sendo que ela [a iteração] vai de 1 até 10). Abraços, Graymalkin

Sim, você poderia mandá-los juntos e separar os dados na hora. Esse outro tutorial ensina como enviar dados que tem significação para nós: http://www.desenvolvedores.net/modules.php...=article&sid=26 Dê uma lida nele e veja se você tem uma idéia do que é necessário. Abraços, Graymalkin

Com a função UBound() você obtém o último índice do vetor. Sendo que você *não* precisa saber o tamanho (ou os índices iniciais e finais) para poder iterar sobre um vetor. Basta utilizar o For Each: dados = array("um", "teste", "e", "mais", "outro", "teste") for each dado in dados msgbox dado next Certo? Abraços, Graymalkin

Veja bem: o conteúdo todo do arquivo não está na RichTextBox? Você não quer salvar *justamente* o que está na RichTextBox? Então você precisa do tamanho dos dados que estão *na* RichTextBox, não? Mas, você ainda não me disse como está representando os dados nela (se é em hexadecimal, decimal, octal, etc.). Seja lá o que for, você *não* vai poder fazer simplesmente... binariosaida.Write(Asc(RichTextBox1.Text)) ... até porque Asc() só converte *um* caracter (se forem caracteres ASCII que estiverem sendo exibidos lá, é claro). Sacou? Dê uma olhada novamente nestes posts: http://scriptbrasil.com.br/forum/index.php...ic=67058&st=15# http://scriptbrasil.com.br/forum/index.php...ic=67058&st=30# Abraços, Graymalkin

Se for no WinXP, basta marcar a caixa que compartilha na aba Avançado das propriedades da conexão. Depois, defina o gateway padrão e o DNS de cada um dos outros computadores como o IP do computador que tem a conexão. Abraços, Graymalkin

Bom, ControlCount é uma propriedade de todo form no Delphi 7 e ela nos fornece a quantidade de controles existentes no mesmo. Acho que era isso que você queria saber, certo? Abraços, Graymalkin

É a função Asc(). Abraços, Graymalkin

Era uma versão gratuita da microsoft derivado do Visual Basic Não, "embedded" quer dizer "embutido", ou seja, é uma versão do VB para desenvolver aplicativos para dispositivos portáteis. Sim. Abraços, Graymalkin

Ah, tá. Mas, no caso aqui eu utilizei code-behind: private void Button1_Click(object sender, System.EventArgs e) { Response.Write("<script language=Javascript>"); Response.Write("alert('oi')"); Response.Write("</script>"); } A sua página não tem *só* aquilo ali, não né? Abraços, Graymalkin