Clube VB - Verificando o hardware com o VB6 - Parte III

Aula 38

27. Retornando a nossa aplicação vamos criar o arquivo de módulos, para isso clique na opção de menu PROJECT e em seguida, selecione a opção ADD MODULE, sua área de trabalho passará a ter a seguinte aparência:

28. No código do módulo, insira a declaração de nossas APIs, colando o conteúdo da API Viewer;

29. Salve as alterações realizadas até o momento;

30. Vamos agora codificar o botão "Modelo CPU". Dê um duplo clique no mesmo e entre com a seguinte codificação:

Private Sub Command1_Click()
Dim minhacpu As SYSTEM_INFO
GetSystemInfo minhacpu
Text1.Text = CStr(minhacpu.dwprocessortype)
End Sub

31. Entre com a seguinte codificação para o botão "ESPAÇO LIVRE EM DISCO":

Private Sub Command2_Click()
Dim NUMSETS As Long
Dim NUMBYTES As Long
Dim NUMCLUST As Long
Dim TOTALCLUST As Long
Dim ESPACOLIVRE As Single
ESPACOLIVRE = NUMCLUST * NUMSETS * NUMBYTES
Text2.Text = Format(ESPACOLIVRE, "#,###,###,###,##0 BYTES")

End Sub

32. Salve todas as alterações. Está finalizado o nosso sistema.

Voltar

Principal | Cursos Gratuitos | Cursos Diversos | Dicas | Promoções | Mapa do Site | QUIZ |
| Classificados | Central Currículo | Fórum | Fale Conosco