Svenska ElektronikForumet

Kod: Markera allt

pot = Adc_Read(2) + 1 ' Läser av en potentiometer som test.
resultat = (pot / 256) * 100 ' Räknar ut procenten...
ByteToStr(resultat, resultat_ut) ' Förutsatt att resultat är byte eller word.
skriv_ut(resultat_ut)

Kod: Markera allt

'Lite globala grejjer...
dim tid as byte
dim resultat as byte
dim resultat_ut as string[3]
dim pot as byte

---
**Här ligger normalt init-proceduren som bl.a initierar LCD'n**
---

sub procedure skriv_ut(dim value as string[3])
  tid = 20
  PORTB = value
  PORTC.2 = 1 ' E
  vdelay_ms(tid)
  PORTC.2 = 0
  vdelay_ms(tid)

  delay_ms(200)
end sub


main:
init

  while true
  'Omvandla värdet (0-255) till procent (0-100)
  pot = Adc_Read(2) + 1
  'resultat = ((pot / 256) * 100)
  resultat = 65
  ByteToStr(resultat, resultat_ut)
  
  skriv_ut(resultat_ut)

  ' skriv_ut(37) 'Procenttecken

---
**Här ligger lite kod för rensa skärmen**
---

  wend

Kod: Markera allt

dim text as char[20]

main:
  TRISB = 0                   ' PORTB is output
  Lcd_Init(PORTB)             ' Initialize LCD on PORTB
  Lcd_Cmd(Lcd_CURSOR_OFF)     ' Turn off cursor
  text = "mikroElektronika"
  Lcd_Out(1, 1, text)         ' Print text at LCD
end.

Kod: Markera allt

program adctest

dim value, value_100 as word
dim value_str as char[10]

main:

ADCON1 = $80
TRISA = 1
TRISB = 0
TRISC = 0
TRISD = 0
TRISE = 0

Lcd8_Config(PORTD,PORTB,0,2,1,7,6,5,4,3,2,1,0)
Lcd8_Cmd(Lcd_Cursor_Off)
Lcd8_Cmd(Lcd_Clear)

While TRUE

value = ADC_Read(2)
value_100 = value + 100

WordToStr(value_100, value_str)
Lcd8_Out(2, 1, value_str)

Wend
End.

Kod: Markera allt

dim tid as byte
dim resultat as word
dim resultat_ut as string[3]
dim pot as byte
dim tecken as byte

--- 
**Här ligger normalt init-proceduren som bl.a initierar LCD'n** 
--- 

sub procedure skriv_ut(dim value as string[3])
dim antal as byte
  tid = 20
  antal = length(value) - 1
 for tecken = 0 to antal
  PORTB = value[tecken]
  PORTC.2 = 1 ' E
  vdelay_ms(tid)
  PORTC.2 = 0
  vdelay_ms(tid)
 next tecken
  PORTB = 37 ' Procenttecken
  PORTC.2 = 1 ' E
  vdelay_ms(tid)
  PORTC.2 = 0
  vdelay_ms(tid)
end sub

main:
init

  while true
  'Omvandla värdet (0-255) till procent (0-100)
  pot = Adc_Read(0)
  resultat = (((pot + 1) * 100) / 256)
  ByteToStr(resultat, resultat_ut)
  
  skriv_ut(resultat_ut)
  

--- 
**Här ligger lite kod för flytta markören till position 1:1 på LCD'n** 
--- 

  wend
end.