Arquivado
Este tópico foi arquivado e está fechado para novas respostas.
DataBiding, Dataset, DataReader - Vocês usam?
Por
josemiltonsampaio, em .NET
Recommended Posts
-
Conteúdo Similar
-
Por igadino
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
-
Por mr22robot
Ola caros amigos.
Estou com uma dúvida aqui que embora nao tenho achado ainda uma resposta, acredito que haja.
Estou estudando a tão sonhada linguagem de programação asp.net core mvc. Linguagem essa que demorei 5 anos pra iniciar os estudos rsrs.
Mas estou agarrado em uma situação.
Estou usando como base de dados nos meus estudos um banco Oracle. Que já tem algumas informações nele. Utilizei o SCAFFOLD para criar as classes e o contexto baseado no banco e tabelas existentes.
Porem agora na fase das consultas, estou perdido em como utilizar o IN que eu utilizo no oracle; no LINQ.
Ex:
SELECT CODPROD,DESCRICAO FROM PRODUTO WHERE CODPROD IN(1,2,3,4,5,6) Como eu utilizo esse filtro com uma restrição de códigos de produtos? no caso o where codprod in(1,2,3,4,5,6) ?.
Desde já obrigado pela ajuda.
-
Por luis0101010
1. Programe uma função que recebe um número inteiro e verifica se todos os dígitos deste número são iguais ou diferente e liste eles em ordens crescentes.
Obs: Código fonte com no mínimo de 10 dígitos.
Como exemplo, os números 456, −235, e 5 satisfazem esta condição, enquanto que o número 6 não.
2. Crie também a função main que recebe o valor do número digitado pelo usuário e exibe na tela uma mensagem informando se os dígitos deste número são iguais.
Exemplo:
--Exemplo 1:
Informe um número:
-555
Numero informado possui todos os dígitos iguais
--Exemplo 2:
Informe um número:
67
Número informado não possui todos os dígitos iguais
-
Por TheLord23
ESTOU COMEÇANDO AGORA NA PROGRAMAÇÃO COM VISUALG E TERIA QUE COLOCAR ESTE CODIGO EM UM LAÇO DE REPETIÇÃO.
POREM NÃO ESTOU CONSEGUINDO PODERIAM ME AJUDAR ?
SÓ PENSANDO QUE O USUÁRIO IRA DIGITAR O TAMANHO DO VETOR, APOS ISSO CADA OPÇÃO QUE ELE ESCOLHER E ELA SER EXECUTADA DE FORMA CORRETA ELE VOLTARA PARA O MEUNU PRINCIPAL DAS OPÇÕES ATE QUE ELE SELECIONE A OPÇÃO "F"
POREM TENTEI ESCREVELO USANDO ENQUANTO MAS ACABOU QUE EU NÃO CONSIGO PREVINIR OS ERROS DO USUÁRIO QUANDO ELE COLOCA AS INFORMAÇÕES
TIPO:
-ARMAZENAR UM NÚMERO NO VETOR E ESSE NÚMERO NÃO SER SOBRESCREVIDO ATE QUE O PROGRAMA SEJA ENCERRADO
-SE ELE DIGITAR PRA BUSCAR OU INSERIR O NÚMERO ZERO O PROGRAMA INFORMAR QUE O VALOR É INVÁLIDO
TENTEI USAR PROCEDIMENTOS E FUNÇÕES MAS OS ERROS CONTINUARAM.
Algoritmo "DESAFIO"
Var
AUX,CONTADOR,BUSCAR:INTEIRO
POSICAO,AUX_TEMP:INTEIRO
OPCAO:CARACTERE
RESULT_BUSCA: LOGICO
SOMA_VET:REAL
NUMERO:VETOR[1..500]DE INTEIRO
Inicio
ESCREVAL("*********************************")
ESCREVAL("* CADASTRO DE VETORES - DESAFIO *")
ESCREVAL("*********************************")
ESCREVA("DIGITE O TAMANHO DO VETOR A SER CADASTRADO: ")
LEIA(AUX)
NUMERO[AUX] <- AUX
ESCREVAL("A - Cadastrar um novo número;")
ESCREVAL("B - Buscar um número")
ESCREVAL("C - Excluir um número;")
ESCREVAL("D - Listar os números cadastrados;")
ESCREVAL("E - Exibir a soma dos números do vetor;")
ESCREVAL("F - Sair do sistema.")
LEIA(OPCAO)
OPCAO <- MAIUSC(OPCAO)
ESCOLHA OPCAO
CASO "A"
PARA CONTADOR DE 1 ATE NUMERO[AUX] FACA
ESCREVA("DIGITE O VALOR QUE SERÁ ARMAZENADO NA",CONTADOR,"ª POSIÇÃO DO VETOR: ")
LEIA(NUMERO[CONTADOR])
FIMPARA
CASO "B"
ESCREVA("QUAL NÚMERO DESEJA ENCONTRAR: ")
LEIA(BUSCAR)
PARA CONTADOR DE 1 ATE NUMERO[AUX] FACA
SE NUMERO[CONTADOR] = BUSCAR ENTAO
RESULT_BUSCA <- VERDADEIRO
POSICAO <- CONTADOR
FIMSE
FIMPARA
PARA CONTADOR DE 1 ATE NUMERO[AUX] FACA
ESCREVAL(NUMERO[CONTADOR])
FIMPARA
ESCREVAL("")
ESCREVAL("---------")
SE RESULT_BUSCA = VERDADEIRO ENTAO
ESCREVAL("O NÚMERO",BUSCAR,"FOI ENCONTRADO E ESTA NA POSIÇÃO",POSICAO)
SENAO
ESCREVAL("O NÚMERO NÃO FOI ENCONTRADO !")
FIMSE
CASO "C"
escreval("QUAL NÚMERO DESEJA EXCLUIR DO VETOR: ")
leia(BUSCAR)
SE NUMERO[CONTADOR] = BUSCAR ENTAO
NUMERO[CONTADOR] <- 0
ESCREVAL("O NÚMERO",BUSCAR,"NA POSIÇÃO",POSICAO,"DO VETOR FOI EXCLUIDO !")
FIMSE
PARA CONTADOR DE 1 ATE NUMERO[AUX]
PARA AUX DE CONTADOR + 1 ATE AUX FACA
SE NUMERO[AUX] > NUMERO[CONTADOR]
AUX_TEMP <- NUMERO[AUX]
NUMERO[AUX] <- NUMERO[CONTADOR]
NUMERO[CONTADOR] <- AUX_TEMP
FIMPARA
FIMPARA
ESCREVA("VALROES DO VETOR: ")
PARA CONTADOR DE 1 ATE NUMERO[AUX] FACA
ESCREVAL(NUMERO[CONTADOR])
FIMPARA
CASO "D"
ESCREVA("VALORES DO VETOR: ")
PARA CONTADOR DE 1 ATE NUMERO[AUX] FACA
ESCREVAL(NUMERO[CONTADOR])
FIMPARA
CASO "E"
PARA CONTADOR DE 1 ATE NUMERO[AUX] FACA
SOMA_VET <- SOMA_VET + NUMERO[CONTADOR]]
FIMPARA
ESCREVAL("")
ESCREVA("A SOMA DO VETOR É:",SOMA_VET)
CASO "F"
ESCREVAL("ENCERRANDO SISTEMA...")
OUTROCASO
ESCREVAL("OPÇÃO INVÁLIDA !")
FIMESCOLHA
Fimalgoritmo
-
Por thiago_tw
eu to com uma tarefa que preciso de ajuda, já tentei alguns algoritmos que achei por aqui mas nunca dá certo, mandei a imagem do que é para ser feito, agradecido se me ajudarem
-