ActiveX: SLOScop      (Filnamn: SLOSCOP.OCX)

     

SLOScop är en ActiveX som simulerar ett oscilloskop. Värdena kan matas in löpande och ett diagram visas i realtid i ett fönster. 

Not. Datatyperna nedan är angivna enligt VB 6.0 standard. I VB.NET miljö ska Integer ersättas med Short (16 bitar) och Long ersättas med Integer (32 bitar). 


Egenskaper

Namn Datatyp Beskrivning
BkColor Color Sätter bakgrundsfärg.
.
GridColor Color Sätter färg för rutmönstret.
.
NumberOfVisiblePoints Integer Returnerar högsta antal punkter som kan vara synliga i oscilloskop-fönstret på en och samma gång (beräknat i X-led).
.
PixelShift Integer Specificerar antal pixels mellan två punkter i X-led. Är detsamma som antal pixels som bilden skiftar åt vänster när ett nytt värde adderas. Kan vara ett av följande värden: 2, 4, 8, 16, 32.
.
PlotColor Color Sätter färg för punkterna som visas.
.
RangeDecPlaces Integer Anger antal decimaler som värdena i axlarna visas med.
.
RangeLower Double Anger lägsta värdet för Y-axeln.
.
RangeUpper Double Anger högsta värdet för Y-axeln.
.
RangeDecPlaces Integer Anger antal decimaler som värdena i axlarna visas med.
.
TextXAxis String Text som visas under X-axeln.
.
TextYAxis String Text som visas bredvid Y-axeln.
.
Left, Top Integer Sätter X- resp. Y-position för kontrollen.
.
Height, Width Integer Sätter höjd och bredd för kontrollen.
.
Visible Boolean Anger om kontrollen ska vara synlig eller osynlig.
.
XMaxText String Specificerar maxvärdet på X-axeln. Anges som en sträng. Lämnas denna egenskap tom beräknas X-värdet internt och baseras på bredden på kontrollen samt värdet på PixelShift.
.



Metoder 


AddPoint (NewPoint As Double)

Adderar en ny punkt till fönstret och drar en linje till föregående punkt.  

Reset ()

Rensar fönstret från alla linjer.

SetHorizLine (LineNumber As Integer, Value As Double, Color As Color, Visible As Boolean)

Ritar en horisontell linje vid det Y-värde som specificeras av parametern Value. Upp till fyra linjer kan ritas i oscilloskop-fönstret samtidigt och parametern LineNumber specifierar numret på linjen. LineNumber måste vara ett värde mellan 1-4. Parametern Color specificerar färgen på linjen. Parametern Visible bestämmer om linjens ska visas eller inte. Sätts denna parameter till True visas linjen, annars döljs linjen.

SetRange (Lower As Double, Upper As Double, DecPlaces As Integer)

Sätter undre och övre gräns för Y-axeln. Sätter också antal decimaler som värdena i axeln visas med. 
.


Exempel 

Följande programkod utnyttjar Timern i Visual Basic för att löpande visa ett oscilloskop-diagram i ett formulär. 

Private Sub Form_Load()
  Randomize
  SLOScop1.SetRange -10, 10, 2  ' Sätt minsta och högsta värde som ska visas
End Sub

Private Sub Timer1_Timer()
  Dim X As Integer
  Dim V As Single
  V = Rnd() * 20       ' Skapa en punkt slumpmässigt
  X = CInt(V) - 10
  SLOScop1.AddPoint X  ' Addera en punkt till diagrammet
End Sub