VB for første gang.

Når man nu sidder der og skal programmere i Visuel Basic hvad gør man så? I løbet af denne artikel vil jeg komme ind på de mest grundlæggende ting i Visuel Basic. Jeg bruger programmet Visuel Basic 6.0 Enterprise og derfor kan tingene godt se anderledes ud på din skærm hvis du har en anden version. Men koderne er de samme. For at komme omkring de mest grundlæggende ting vil jeg lave et program der udregner en ligning. Lad os tage Y=2X+5. Hvis man har Y kan man finde X og omvendt.





Hvad en form er kan du se på billedet ovenover. Nemlig et vindue som man kender det fra windows.


I vinduet skal der være 2 felter hvor man kan skrive tal i, etiketter til felterne og en knap. Til det bruger man værktøjslinien i venstre side af skærmen. Mit vindue kom til at se sådan ud:




Nu skal vi give de forskellige elementer navne og indstille hver af dem. Til det skal vi bruge et vindue der hedder properties. På min skærm er den i højre side. Hvis den ikke er fremme kan den fås frem ved at højreklikke et sted i vinduet og vælge properties.



Her er der en masse ting man kan indstille. Jeg ved ingen gang selv hvad de alle gør men jeg ved de vigtigste og det er dem vi skal bruge. Start med at gøre Form1 - form aktiv.



Her indstille vi det allerøverste først nemlig (name). Det er navnet på vinduet i vores kode senere derfor er det vigtigt at kalde det noget man huske og samtidig kan huske hvad er. Jeg vil derfor kalde min vinduefrm. Frm står for form. Så ved jeg at når dette kommer i min kode er der tale om en form(altså et vindue). Så kan man måske sige hvorfor så ikke bare kalde det vindue og det kunne man også i dette tilfælde men i et større program hvor der er mange flere elementer og mange flere vinduer ville det ikke være så smart. Det næste jeg vil indstille er BorderStyle. Jeg synes nemlig ikke at kan skal kunne trække i hjørnerne at vindue for at gøre det større eller mindre. Derfor ændre jeg 2- sizable til 1 - fixed single. Nu forsvinder minimere og maximere knapperne. Minimere knappen vil jeg gerne have tilbage så jeg ændrer minButton til True. Det næste jeg ændrer er Caption. Caption er det der står som titel i den blå linie i vinduet. Det ændrer jeg til Y=2X+5.

Så skal jeg indstille Label1 og Label2. Det ene skal hedde X den anden Y. Det faktisk det samme der sker som i indstillingerne af formen. Så jeg vil bare lige skrive hvad jeg ændrer til hvad.

Label1:
(Name) : Ylbl  	'lbl er forkortelse for label
Caption : Y =  

Label2:
(Name) : Xlbl
Caption: X =

I indstillingerne til Text1 og Text2 ændrer jeg:

Text1:
(name) : ytxt 		'txt er forkortelse for Text
Text : 		'Her står der Text1 der sletter vi.
Datatype : number	'Her trykker man på de 3 småprikker der er når man trykker

 på feltet derefter vælger man number. Min version har den ide at skrive date men

  det skal du ikke tage dig af, det betyder ikke noget. 

Text2:
(name) : xtxt

De andre det samme som Text1

Knappen indstiller vi sådan:

(Name) : beregncmd	'cmd er forkortelse for Commandbutton 
Caption : Beregn
Default : True	'Hvis Default er True trykker man bare på Enter for at trykke på knappen.

Skærmen ser nu således ud ved mig.




Nu skal vi programmere programmet til at når man trykker på Beregn skal der beregnes.

Selve koden skal lige i knappen så at beregningen udføres når man trykker på knappen. For at få vinduet man skal skrive koden i frem kan man højreklikke et sted på vinduet. Der trykker man på view code. Oppe for oven i vinduet står der general og declarations. Her kan man tildele bogstaver eller ord at være data. Vi skal have x til at være data og y til at være data. Der er mange måder hvorpå man kan tildele et bogstav eller et ord en værdi. De to jeg bruger mest er String og Boolean. En String er en enten noget tekst eller et tal. En Boolean er en værdi der enten kan være sand eller falsk. Her skal vi bruge en string. Vi skriver:

Dim x As String
Dim y As String

Derefter klikker vi der hvor der hvor der står general og trykker på beregncmd. Her vil vi skrive hvad der skal ske når man trykker på knappen. Koden kommer til at se sådan ud.

Private Sub Beregncmd_Click()
x = xtxt.Text
y = ytxt.Text
If x = "" And y = "" Then
  GoTo 10
End If
If x = "" Then
   x = y / 2 - 5
Else
  y = 2 * x + 5
End If
  ytxt.Text = y
  xtxt.Text = x

10
End Sub 

Den øverste linie skriver Visuel Basic selv. og den fortæller blot programmet. at det der står, der skal ske når man trykker på Beregn knappen. I de næste linier fortæller vi programmet at x skal være det der står i tekstfeltet x og til svarende y. De næste 3 linier fortæller at hvis der ikke står noget i feltet y og heller ikke noget i feltet x skal den skrive frem til 10 tallet som vi så skriver nede lige før end sub. Så springer programmet dertil hvis der ikke står noget i felterne. I de næste 5 linier fortæller vi programmet at hvis der ikke står noget i x feltet skal den beregne x ellers skal den beregne y. Næste 2 linier skriver resultatet i felterne. End sub fortæller programmet at nu er handlingen, der sker når man trykker på knappen, færdig.


Nu er tiden kommet hvor vi skal prøvekøre programmet og finde eventuelle fejl. Man kører programmet ved at trykke på F5. Hvis du har lavet indtastningsfejl kommer koden frem på det sted der er fejl og du kan rette dem. Prøv nu at skrive et tal i Y og se hvad der sker når man trykker på Enter/ Beregnknappen. Prøv derefter at skrive et tal i X og tryk på Enter/ Beregnknappen. Nu kunne det måske nok være smart med en knap der renser felterne.


Først trækker/flytter du Beregn-knappen så der er plads til en knap mere og så laver du den. Kan du ikke helt huske hvordan lige skulle gøre så kig på punkt 3 og 4 igen. Indstillingerne for knappen kunne være:

(Name) : rensfeltercmd
Caption : Rens felter

Koden skal så være:

Private Sub rensfeltercmd_Click()
ytxt = ""
xtxt = ""
End Sub

Prøv programmet igen og se om din nye knap virker.


Når du gemmer dit program så lav en mappe til programmet. Det betyder måske ikke meget ved dette lille program men det er en god vane at gøre det, fordi når du skal til at lave større programmer vil der være mange filer til dit program og så er det nemmere at have det i en mappe. Jeg gemte mit program som y=2x+5


Nu skal vi lave programmet om til en exe-fil. Det gør man i menupunktet filer - Make y=2x+5... Nu kan du gå ind i din stifinder og finde programmet i den mappe du gemte den i og prøve at køre det.

Nu har jeg været igennem de mest grundlæggende ting. Nu kan du selv lege videre med Visuel Basic. Et godt råd er at bruge den indbyggede hjælpefil. Hvis der er problemmer med at det ikke virker som der står det gør så er du meget velkommen til at emaile mig spørgsmål samt ris og ros på vinnimik@wanadoo.dk