Perguntinha básica...

[brasilma]

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

[jonowsky]

: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...

[brasilma]

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"

...

[brasilma]

Repeteco

[jonowsky]

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

[brasilma]

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

[brasilma]

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???

[brasilma]

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á!!!

[jonowsky]

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?

[brasilma]

Obrigado Jono,

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

Cuidados com as "balas".

Abraços.

[Rodrigo_P_A]

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