WesWorld

Source code

'frmTurInfo håndterer interaksjon med turInfo.dat
'frmTurInfo arbeider ikke mot bestilling.dat
'Antar følgende bokser og knapper

Structure TurInfo 
   <VBFixedString(5)> Public Pris As String
   <VBFixedString(15)> Public Maal As String
   <VBFixedString(100)> Public Beskr As String
   'Postlengde blir 120 byte
End Structure

Private vaareTurer As TurInfo
Const postLengdeTurInfo = 120
Private Antall, Posisjon, Filnummer As Integer 

Private Sub frmTurInfo_Load...
FilNummer = FreeFile()
FileOpen(Filnummer, "turFil.dat", OpenMode.Random, , , postLengdeTurInfo)
Antall = FileLen("turFil.dat") / postLengdeTurInfo
End Sub

Private Sub btnLagre.Click...
With TurInfo
   .Pris = txtPris.Text
   .Maal = txt.Maal.Text
   .Beskr = txt.Beskr.Text
End With

Antall = Antall+1
Posisjon = Antall
MsgBox("Du har lagt inn post nr " & Posisjon)

FilePut(FilNummer, TurInfo, Posisjon)

txtPris.Text = ""
txtMaal.Text = ""
txtBeskr.Text = ""

End Sub

'ANTAGELSER
'frmBestilling håndterer hovedsakelig interaksjon med bestilling.dat
'frmBestilling vil i noen tilfeller hente informasjon fra turInfo.dat, 
'men vil ikke skrive dit
'Antar at det er tekstboks txtNyDeltak for a skrive inn antall nye deltagere
'Inkluderer opprettelse/åpning av fil
'cbxDatoDag - komboboks som velger dag i måneden
'cbxDatoMnd - komboboks som velger måned i 2003
'cbxMaal - komboboks som viser reisemål
'txtNyDeltak - Tekstboks der man skriver inn antall nye deltagere til en tur
'btnRegistrer - Knapp som registrerer et antall 
'deltagere fra txtNyDeltak til en gitt tur; 
'oppretter post hvis post ikke finnes
'btnSoekMndMaal - Knapp som søker etter innlagte bestillinger 
'og oppsummerer deltager-antall
'btnProfitt - Knapp som får frem oppsummering av profitt


Structure Bestilling 
   <VBFixedString(3)> Public Tall As String
   <VBFixedString(15)> Public Maal As String
   <VBFixedString(10)> Public Dato As Date
   'Postlengde blir 28 byte
End Structure

'3C - Registrerer og oppdaterer 3 personer til Svea

Private bestillinger As Bestilling
Const postLengdeBestilling = 28
Private postAntall, Posisjon, Filnummer As Integer 
Private DatoStr, Dag, Mnd As String

Private Sub frmBestilling_Load...
FilNummer = FreeFile()
FileOpen(Filnummer, "bestilling.dat", OpenMode.Random, , , postLengdeBestilling)
postAntall = FileLen("bestilling.dat") / postLengdeBestilling
End Sub

Private Sub btnRegistrer.Click...
Dim Destinasjon As String
Dim DeltAntall As Integer
Dim Endret As Boolean
Destinasjon = cbxDestinasjon.SelectedItem
Dag = cbxDatoDag.SelectedItem

'Nedtrekksmenyen har månedene lagt inn med navn for lettere gjenkjennelse
'For å passe med dato-format i filen konverteres månedsnavnene til tall
Select cbxDatoMnd.SelectedItem
   Case Januar
      Mnd = 01
   Case Februar
      Mnd = 02
   Case Mars
      Mnd = 03
   Case April
      Mnd = 04
   Case Mai
      Mnd = 05
   Case Juni
      Mnd = 06
   Case Juli
      Mnd = 07
   Case August
      Mnd = 08
   Case September
      Mnd = 09
   Case Oktober
      Mnd = 10
   Case November
      Mnd = 11
   Case Desember
      Mnd = 12
End Select


DatoStr = Dag & "." & Mnd & ".2003"

'For å være sikker på at regneoperasjoner virker, konverteres strengen til Integer
DeltAntall = CInt(txtNyDeltak.Text)

'Denne Do-Loop løkken sammenligner valgt dato og reisemål med hver post i filen, 
'og legger til antall nye deltagere på riktig plass

Endret = False
Posisjon = 1
Do Until Endret = True
   FileGet(FilNummer, bestillinger, Posisjon)
'Når den finner en post der både dato og reisemål er lik, 
'legges antall deltagere til informasjonen om dette.
   If bestillinger.Dato = DatoStr And bestillinger.Maal = Destinasjon Then
      DeltAntall = DeltAntall + CInt(bestillinger.Tall)
      With bestillinger
         .Tall = CStr(DeltAntall)
      End With
      Endret = true
'Hvis den ikke har funnet noen post der dato og reisemål stemmer 
'etter å ha søkt hele filen, 
'legges informasjon inn som en ny post
   ElseIf Posisjon = postAntall And Endret = False Then 
      Posisjon += 1
      With bestillinger
         .Dato = cbxDato.SelectedItem
         .Maal = cbxDestinasjon.SelectedItem
         .Tall = txtNyDeltak.Text
      Endret = True      
   End If
   Posisjon += 1
Loop

'Til slutt blankes tekst-feltet der en skriver inn antall deltagere
txtNyDeltak.Text = ""

End Sub 

'3D - Søke etter sted og måned og få oppgitt antall reisende til stedet i den måneden
'Har følgende private-variabler, konstanter fra 3b:
'bestillinger - inneholder .Tall, .Maal, .Dato
'postLengdeBestilling
'postAntall
'Posisjon
'Filnummer
'Mnd


Private Sub btnSoekMndMaal_Click...
'Fyller månedsdatokomboboks med innhold
With cbxDatoMnd
   .Items
      .Clear
      .Add ("Januar")
      .Add ("Februar")
      .Add ("Mars")
      .Add ("April")
      .Add ("mai")
      .Add ("Juni")
      .Add ("Juli")
      .Add ("August")
      .Add ("September")
      .Add ("Oktober")
      .Add ("November")
      .Add ("Desember")
End With

Dim AltLagtTil As Boolean
Dim i As integer
Dim Maal, MaalArray(postAntall - 1), Mnd As String

Select cbxDatoMnd.SelectedItem
   Case Januar
      Mnd = 01
   Case Februar
      Mnd = 02
   Case Mars
      Mnd = 03
   Case April
      Mnd = 04
   Case Mai
      Mnd = 05
   Case Juni
      Mnd = 06
   Case Juli
      Mnd = 07
   Case August
      Mnd = 08
   Case September
      Mnd = 09
   Case Oktober
      Mnd = 10
   Case November
      Mnd = 11
   Case Desember
      Mnd = 12
End Select

'Fyller reisemålskomboboks med innhold
'Det er best om hvert reisemål kun forekommer én gang
'Dette gjøres som følger;
'Hvert reisemål nevnt i turinfo.dat sjekkes først mot en matrise
'Hvis reisemålet allerede står en plass i matrisen, 
'legges det ikke inn i komboboksen
'Hvis det ikke er nevnt, legges det inn i matrisen
'Samme reisemål legges deretter inn i matrisen

AltLagtTil = False
Posisjon = 1

For Posisjon = 1 To postAntall
   FileGet(FilNummer, bestillinger, Posisjon)
   i = 0
   For i = 0 To Posisjon - 1
      If bestillinger.Maal = MaalArray(i)
         AltLagtTil = True
      End If
      i += 1
   Next i
   If AltLagtTil = False
      cbxMaal.Items.Add(bestillinger.Maal)
   End If
   MaalArray(Posisjon) = bestillinger.Maal
   AltLagtTil = False
   Posisjon += 1
Next Posisjon


Posisjon = 1
'Begynner med første post i programmet
postAntall = FileLen("bestilling.dat") / postLengdeBestilling
'Sikrer at programmet regner med riktig antall poster
   Do While Posisjon <= Antall
      FileGet(FilNummer, bestillinger, Posisjon)
'Konverterer måned til tallformat; sammenligner med siffer 4 og 5 i filen
'Hvis både måned og reisemål stemmer, leses antall reisende i den posten, 
'og legges til antallet reisende totalt for måneden.
      SokMnd = Mid(bestillinger.Dato, 4, 2)
      If bestillinger.Maal = cbxMaal.SelectedItem And Mnd = SokMnd Then
          BestTall = BestTall + CInt(bestilling.Tall)
      End If
      Posisjon += 1
   Loop Until Posisjon = postantall
   
MsgBox("Det er " & BestTall & " personer som har booket en tur til " _
& cbxMaal.SelectedItem & " i " & cbxDatoMnd.SelectedItem)

End Sub

Private Sub btnProfitt_Click...

Dim tilbudTall, i, j, delBesok as Integer
Dim totalInntekt As Double
Sett = 0

postAntall = FileLen("bestilling.dat") / postLengdeBestilling

Posisjon = 1

'Teller opp hvor mange unike reisemål som tilbys

tilbudTall = FileLen("turInfo.dat") / postLengdeTurInfo
matriseNummer = tilbudTall - 1

'Lager en matrise med riktig antall rader og tre kolonner
'Kolonnene representerer følgende:
'Kolonne (0) inneholder reisemål
'Kolonne (1) inneholder pris for reisemål
'Kolonne (2) inneholder antall reisende til reisemål
Dim Inntekt(matriseNummer, 2) As String

'Legger inn reisemål (som effektivt er primærenøkkel her) og pris per person 
'i matrisens første og andre kolonne
For i = 0 To matriseNummer
   FileGet(FilNummer, turInfo, i)
   Inntekt(i, 0 ) = turInfo.Maal
   Inntekt(i, 1 ) = turinfo.Pris
Next i

'Legger til antall reisende til hvert reisemål 
'i matrisens tredje kolonne

For i = 1 To postAntall
   FileGet(FilNummer, bestillinger, i)
   For j = 0 To matriseNummer
      If bestillinger.Maal = Inntekt(j, 0) Then
         Inntekt(j, 2) = CInt(Inntekt(j, 2)) + CInt(bestillinger.Tall)
      End If
   Next j
Next i

For i = 0 To matriseNummer
   totalInntekt = totalInntekt + Inntekt(i, 1) * inntekt (i, 2)
Next i

MsgBox("Inntektene så langt i år er " & totalInntekt & "kr")
End Sub

'Bruker boble-sortering

Dim antallGjennomLop As Integer
Dim temp0, temp1, temp2 As String
Dim IntetOmbytte As Boolean
antallGjennomLop = 1

'Teller opp hvor mange unike reisemål det er
tilbudTall = FileLen("turInfo.dat") / postLengdeTurInfo
matriseNummer = matriseNummer

'Slik oppgaven er formulert, virker det som det ikke er tilstrekkelig å vite 
'antall besøkende, men også hvor mange reisende.  
'Pris sorteres på samme tid, for å hindre at matrisen degenererer til kaos.
Do
   IntetOmbytte = True
   For i = 0 to 
      If CInt(Inntekt(i, 2)) > CInt(Inntekt(i + 1, 2)) Then
         temp0 = Inntekt(i, 0)
         temp1 = Inntekt(i, 1)
         temp2 = Inntekt(i, 2)
         Inntekt(i, 0) = Inntekt(i + 1, 0)
         Inntekt(i, 1) = Inntekt(i + 1, 1)
         Inntekt(i, 2) = Inntekt(i + 1, 2)
         Inntekt(i + 1, 0) = temp0
         Inntekt(i + 1, 1) = temp1
         Inntekt(i + 1, 2) = temp2
         IntetOmbytte = False
      End If
   Next i
Loop Until IntetOmbytte = True

MsgBox("Reisemålet med flest besøkende i år er " & Inntekt(matriseNummer, 0) _
& ", med " & (matriseNummer, 2) & " besøkende.")