ASM51

Com grande vergonha que faço esta perguntinha, um tutorial que estou seguindo diz o seguinte: "Inclua um módulo no seu projeto e a seguir insira o seguinte código no módulo:", o que tenho de fazer, o que significa este módulo, seria a área de código do form???

Estou usando a versão do VB8 Express.

TKS

brasilma escreveu::oops: Com grande vergonha que faço esta perguntinha, um tutorial que estou seguindo diz o seguinte: "Inclua um módulo no seu projeto e a seguir insira o seguinte código no módulo:", o que tenho de fazer, o que significa este módulo, seria a área de código do form???

Estou usando a ultima versão do VB Express.

TKS

Brasilma, pode colocar parte do tutorial para que eu tete lhe ajudar.. "módulo" é meio genérico...

Sem problemas... veja se isto ajuda:

Vamos então mostrar um projeto que pode ser usado para detectar as portas COM disponíveis ( deve funcionar bem no Win95/98 e NT)

1- Inicie um novo projeto no Visual Basic e no formulário padrão - form1 - insira um botão de comando - command1 , uma label - Portas COM disponíveis , e um controle ComboBox conforme abaixo:

FIGURA

2- Inclua um módulo no seu projeto e a seguir insira o seguinte código no módulo:

"Type DCB
DCBlength As Long
BaudRate As Long
End Type

Type COMMCONFIG
dwSize As Long
wVersion As Integer
End Type
'
Declare Function GetDefaultCommConfig Lib "kernel32" _
Alias "GetDefaultCommConfigA" (ByVal lpszName As String, _
lpCC As COMMCONFIG, lpdwSize As Long) As Long"

3- Ainda no módulo insira o seguinte código para a função DetectaPortaCOM :

"Public Function DetectaPortaCOM(port As Integer) As Long
'retorna zero se a porta com não existir
Dim cc As COMMCONFIG, ccsize As Long

ccsize = LenB(cc)

DetectaPortaCOM = GetDefaultCommConfig("COM" + Trim(Str(port)) + Chr(0), cc, ccsize)

End Function"

...

Repeteco

Ah Brasilma, no vb tem isso sim, modulo eh tipo uma classe, com um fragmento de código... va na opção Project->Add Module

Beleza Jono, a noite vejo e retorno, tks!!!

He, he, como sempre uma coisa puxa a outra... entendi facilmente como criar o módulo, porem ao inserir o código que colei acima deu um "****" erro de sintaxe (28 erros no total): "Error 1 'Type' statements are no longer supported; use 'Structure' statements instead. C:\Documents and Settings\CLIENTE\Configurações locais\Dados de aplicativos\Temporary Projects\WindowsApplication1\Module1.vb 3 5 WindowsApplication1" e "Error 2 Declaration expected. C:\Documents and Settings\CLIENTE\Configurações locais\Dados de aplicativos\Temporary Projects\WindowsApplication1\Module1.vb 4 3 WindowsApplication1"

O que é isso???

He, he, tô apanhando mas caminhando, a questão é que não estou com muito tempo e ai fica dificil mesmo.

Já resolvi o problema de vários comandos, estou tendo esta dor de cabeça, pois o tutorial que sigo é para o VB6 e estou com o NET (VB8).

Mas vamos chegar lá!!!

brasilma escreveu:He, he, tô apanhando mas caminhando, a questão é que não estou com muito tempo e ai fica dificil mesmo.

Já resolvi o problema de vários comandos, estou tendo esta dor de cabeça, pois o tutorial que sigo é para o VB6 e estou com o NET (VB8).

Mas vamos chegar lá!!!

Brasilma, estou numa correria entre RJ e SP, não pude entrar no forum nos ultimos dias...

Você está precisando de alguma ajuda?

Obrigado Jono,

Está tudo tranquilo, estou aprendendo, sempre que der alguma "enroscada" mais grave, posto aqui.

Cuidados com as "balas".

Abraços.

brasilma escreveu:Sem problemas... veja se isto ajuda:

Vamos então mostrar um projeto que pode ser usado para detectar as portas COM disponíveis ( deve funcionar bem no Win95/98 e NT)

1- Inicie um novo projeto no Visual Basic e no formulário padrão - form1 - insira um botão de comando - command1 , uma label - Portas COM disponíveis , e um controle ComboBox conforme abaixo:

FIGURA

2- Inclua um módulo no seu projeto e a seguir insira o seguinte código no módulo:

"Type DCB
DCBlength As Long
BaudRate As Long
End Type

Type COMMCONFIG
dwSize As Long
wVersion As Integer
End Type
'
Declare Function GetDefaultCommConfig Lib "kernel32" _
Alias "GetDefaultCommConfigA" (ByVal lpszName As String, _
lpCC As COMMCONFIG, lpdwSize As Long) As Long"

3- Ainda no módulo insira o seguinte código para a função DetectaPortaCOM :

"Public Function DetectaPortaCOM(port As Integer) As Long
'retorna zero se a porta com não existir
Dim cc As COMMCONFIG, ccsize As Long

ccsize = LenB(cc)

DetectaPortaCOM = GetDefaultCommConfig("COM" + Trim(Str(port)) + Chr(0), cc, ccsize)

End Function"

...

pelo que eu to vendo, esse fragmento de código é para VB6, e não para VB.net ( VB2008 )

dá uma verificada, pois muda muita coisa de VB6 para Vb.net