Código fonte de um gerador de gráficos de equações

[Flatronez 1]

Bem pessoal, como eu não sei fazer um tutorial, aqui vai o código para voces fazerem um gerador de gráficos de equações:

 

'Declaração de variáveis

Option Explicit

Dim i As Integer

Dim x As Single

Dim y As Single

Dim A As Integer

Dim B As Integer

Dim C As Integer

 

Private Sub Command1_Click()

'Aqui não deixa os TextBoxs serem nulos

If Text1 <> vbNullString And Text2 <> vbNullString And Text3 <> vbNullString Then

'Desenha os eixos X e Y

Picture1.Scale (-10, 10)-(10, -10)

Picture1.Line (-10, 0)-(10, 0), , BF

For i = -9 To 9

Next i

Picture1.Line (0, -10)-(0, 10)

For i = -9 To 9

Next i

'Aqui define o conteúdo de A, B e C

A = Text1

B = Text2

C = Text3

'Define a cor do gráfico

Picture1.ForeColor = vbBlue

'Define as coordenadas

x = 10

y = A * x ^ 2 + B * x + C

Picture1.CurrentX = x

Picture1.CurrentY = y

'Aqui mostra a "qualidade" do gráfico, quanto menos for o número mais perfeito é

For x = -10 To 10 Step 0.001

y = A * x ^ 2 + B * x + C

'Aqui desenha o gráfico

Picture1.Line -(x, y)

Next x

End If

End Sub[/b]

 

Bem, obviamente um iniciante olharia isso acima e falaria: "lol! o que é isso?"

 

Pensando isso, eu vou liberar o código-fonte do meu gerador de gráficos, eu coloquei tudo bem explicadinho lá.

 

Para voces verem, baixe o código aqui: Link Rapidshare

[Kevox 0]

Boa Flat! Baixei o form e realmente está ótimo pra ser estudado. Você poderia ter postado bem explicadinho também, né mesmo? Tem gente que tem preguiça de baixar os arquivos. Uma pergunta, o que significa aquele Option Explicit no início? Nunca vi isso em meu pouco tempo de vb ;x

O código ta bem pequeno e útil, parabéns.

[Flatronez 1]

ok, ok Kevox vou dar tentar dar uma explicadinha aqui no tópico mesmo.

 

@Off

 

O Option Explicit é uma instrução no VB que "obriga" você a declarar as variáveis, com ela se haver alguma variavel não declarada, assim que o programa for executado vai aparecer uma mensagem de erro falando que existem variáveis não-declaradas.

[Kevox 0]

Entendi, mas se eu quiser aplicar a declaração de uma variável em outro lugar eu poderei? Ou tenho que colocar todas aí no Option Explicit?

As variáveis declaradas nesta opção servem para todo o programa? Como um public?

[Flatronez 1]

Exatamente =]

 

É por isso que ela fica ali na parte das declarações públicas, para funcionar em todo o programa.

[Kepow 0]

Na verdade, que eu saiba as variáveis que você declara logo no começo do código são válidas apenas para aquela janela(Form). Não sei se há alguma outra utilidade para aquele Option Explicit, mas eu costumo usá-lo para ter mais segurança contra possíveis problemas de BIOS(Bicho Ignorante Operando o Sistema), saca?

Aquela história de sair usando a variável sem declarar ela antes acaba quando você usa isso...

Se não entendeu o que eu disse, faz um teste!

[Kevox 0]

Kepow:

 

Acho que no Options Explicit o valor pra variável é pra todo o formulário, assim como o Public

[Bogos 0]

Váriaveis declaradas dentro de determinado evento (por ex. form_load) só ficaram disponíveis dentro deste evento. Se à necessidade de utilizar váriaveis para todo o formulário, declare variáveis 'Publics' no Option Explicit, assim:

 

Option Explicit
Public abc as Integer
Public linha as String

 

Se quiser variáveis para ser usadas em todo o projeto (todos os formulários) cria-se um módulo e é feito a declaração de variáveis Globais ali. Por ex.

 

Global teste as Integer

 

Simples e funcional. Eu amo VB

 

Abraços