' oPWM-lähdöstä analogiasignaaliksi OOPic-esimerkki
'
' Ohjelma lähettää I/O-porttiin 17 pwm-signaalia 20 kHz taajuudella,
' jonka RC-kytkennällä voi muutaa 2,5 V tasajännitteeksi.
' Ohjeet löytyy osoitteesta http://www.esutech.com/OOPic/
'

Dim AnaLahto As New oPWM         ' Luo oPWM-olio

Sub main()
  Setup                          ' Asetukset
  Do
    ' Ja tähän voidaan kirjoittaa mitä tehdään
  Loop
End Sub

Sub SetUp()
    AnaLahto.Prescale = 0        ' Asetetaan 5 MHz perustaajuus
    AnaLahto.Period = 250        ' Asetetaan pulssilaskurin loppuarvo
    AnaLahto.Value = 125         ' Asetetaan pulssilaskurin arvo, jossa lähdön tila 
                                 ' vaihdetaan 0:ksi, tässä tapauksessa 50% maksimista
    AnaLahto.IOLine = 1          ' Asetetaan I/O-portiksi 17
    AnaLahto.Operate = 1         ' Laitetaan pwm-muunnos käyntiin	
End Sub