Bom dia pessoal, convertir essa função do C# para vba ele funciona perfeitamento no excel e access porem estou tentendo usar ela no vb.net editor VISUAL STUDIO 2013, aparece o erro conforme a imagem enexo, alguem consegue corrigir esse erro; Function crc_ccitt_ffff(strParam As String) As String Const CRC_POLY_CCITT As Long = &H1021& Const CRC_START_CCITT_FFFF As Long = &HFFFF& Dim crc As Long, b() As Byte, c As Long, i As Long, j As Long Dim crc_tabccitt(0 To 255) As Long For i = 0 To 255 crc = 0 c = i * 256 For j = 0 To 7 If (crc Xor c) And 32768 Then crc = (crc * 2) Xor CRC_POLY_CCITT Else crc = crc * 2 End If c = c * 2 Next j crc_tabccitt(i) = crc Next i b = strParam crc = CRC_START_CCITT_FFFF For i = 0 To UBound(b) Step 2 crc = (crc * 256) Xor crc_tabccitt(((crc \ 256) Xor b(i)) And 255) crc = ((crc \ 65536) * 65536) Xor crc Next i crc_ccitt_ffff = Hex(crc) End Function
Boa noite.
Alguém pode me ajudar a fazer a conexão pra salvar Id, UserID e o nome da pessoa ?
Bdados : cadastro
Tabela : usuario
Sem senha : root somente.
Des de já agradeço.
Boa noite amigos programadores.
Como posso salvar os dados do tracker.dat no MySQL ?
Dados : textbox1.text
Estou usando vb.net
Queria uma tabela no MySQL usando o Wamp .
Poderiam me ajudar ?
Obrigado.
Estou querendo ler todos arquivos que meu sistema gerou na minha máquina no formato .txt e carregar os mesmos em uma gridview, assim deixando apenas uma tela de consulta dos dados salvos nos arquivos txt, porém, meu código não está conseguindo consultar os arquivos, podem me ajudar?
Obs.: Quando utilizo o nome fixo do arquivo, funciona.
Código abaixo:
Public Class formListaTransacao
Private Sub formListaTransacao_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
dt.Columns.Add("Código")
dt.Columns.Add("Descrição")
dt.Columns.Add("Ação")
Dim Arquivo As New System.IO.StreamReader("C:\Users\rl\Desktop\" & Me.Text & ".txt", System.Text.Encoding.Default)
While Arquivo.Peek() <> -1
dt.Rows.Add(Arquivo.ReadLine())
End While
DataGridView2.DataSource = dt
End Sub
Tela do gridview:
Informação que consta no txt e que deve carregar no gridview:
Bom Glr, Tô Fazendo Um Web Site E Quero Fazer Umas Funções Escondidas Nela!
bom meu objetivo era tipo apertas as tecla do teclado CTRL+A e abrir uma janela flutuante
<form action="">
<input type="file" name="tag"><br>
<input type="submit" value="Submit">
</form>
Então vou falar resumidamente: ENTRAVA NO SITE, APERTAVA CTRL+A E APARECIA ESSA JANELA FLUTUANTE!!