Elektronika.lt
 2024 m. kovo 29 d. Projektas | Reklama | Žinokite | Klausimai | Prisidėkite | Atsiliepimai | Kontaktai
Paieška portale
EN Facebook RSS

 Kas naujo  Katalogas  Parduotuvės  Forumas  Tinklaraščiai
 Pirmas puslapisSąrašas
 Forumas / + pokalbiai
 - Paieška forume
 - D.U.K. / Forumo taisyklės
 - Narių sąrašas
 - Registruotis
 - Prisijungti

Elektronika.lt portalo forumas

Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo. Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.

Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius, kurie nesilaiko forumo taisyklių. Pastebėjus nusižengimus, prašome pranešti.

Dabar yra 2024 03 29, 11:20. Visos datos yra GMT + 2 valandos.
 Forumas » Mikrovaldikliai » pic16f84a + hd44780
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
 
  
Puslapis 11
Pradėti naują temą  Atsakyti į pranešimą Rodyti ankstesnį pranešimą :: Rodyti kitą pranešimą 
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 07, 18:18 Pranešti apie taisyklių pažeidimą Atsakyti su citata
karoolis
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
reikalinga programa parasyta asembleriu, kad pic16f84a rodytu teksta lcd 4x20 su hd44780 kontroleriu.
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 08, 07:10 Pranešti apie taisyklių pažeidimą Atsakyti su citata
jedas
Užkietėjęs dalyvis
Užkietėjęs dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą Apsilankyti vartotojo tinklapyje
Google pades. Jei nepades.. geriau imkis ko nors kito.

_________________
-----
That's what she said.
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 08, 10:29 Pranešti apie taisyklių pažeidimą Atsakyti su citata
karoolis
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
google nepadeda, tame ir reikalas.
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 08, 17:04 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Phreakboy
Dažnas dalyvis
Dažnas dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
MES tave uzjauciame Sad
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 08, 18:16 Pranešti apie taisyklių pažeidimą Atsakyti su citata
vitukas
Dažnas dalyvis
Dažnas dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Gal čia padės -> http://www.epemag.wimborne.co.uk/resources.htm
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 08, 18:33 Pranešti apie taisyklių pažeidimą Atsakyti su citata
karoolis
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
vitukas rašo:
Gal čia padės -> http://www.epemag.wimborne.co.uk/resources.htm


tai nepadejo, bet jau viskas gerai.
radau, veikia Smile
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 09, 00:35 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Vytautas
Dažnas dalyvis
Dažnas dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą Siųsti el. laišką
Tipinis temos uzbaigimas... Jeigu jau nepasivargini parasyti, kad veikia, tai nepasivargink ir parasyti kur radai naudinga informacija, ka panaudojai.
Tai labai padetu kazkam kitam susidurusiam su tokia pacia problema ateityje. Nes kai pradedi ieskoti, tai randi kruva temu su panasiais klausimais ir vienodais atsakymais: VEIKIA !!!!!
Bukim draugiski vieni kitiems.
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 13, 11:29 Pranešti apie taisyklių pažeidimą Atsakyti su citata
karoolis
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Vytautas rašo:
Tipinis temos uzbaigimas... Jeigu jau nepasivargini parasyti, kad veikia, tai nepasivargink ir parasyti kur radai naudinga informacija, ka panaudojai.
Tai labai padetu kazkam kitam susidurusiam su tokia pacia problema ateityje. Nes kai pradedi ieskoti, tai randi kruva temu su panasiais klausimais ir vienodais atsakymais: VEIKIA !!!!!
Bukim draugiski vieni kitiems.


kur radau, nepamenu.
programa atrodo taip:

list p=PIC16F84A
include <P16F84A.INC>
;*******************************************
; 4 BIT LCD interface with PIC
; only port B is implemented
; RB7-RB4 = DB7-DB4 ; RB3=E ; RB2=RW ; RB1=RS
;*******************************************

;decleration
BIT_E EQU 3
BIT_RW EQU 2
BIT_RS EQU 1

TEMP EQU 0x020 ;TEMP STORAGE

V_DLY EQU 0x021 ; Variable for DLY
V_DLY1 EQU 0x022 ; for DLY1


org 0h ;start of program at
goto START

;initialise
INITPIC
bsf STATUS,RP0 ;sellect bank 1
movlw b'00000000'
movwf TRISB ;set as output
bcf STATUS,RP0 ;select bank 0
clrf PORTB
return

INITLCD ;INITIALIZE LCD
MOVLW 0xFE ;WAIT LONG
CALL DLY1 ;254 * 0.5 = DELAY OF 127ms

;BUSY FLAG CAN'T BE CHECKED RIGHT NOW

MOVLW B'00111000' ;FUNCTION SET - 8 BIT, BIT_E = HIGH
MOVWF PORTB
BCF PORTB,BIT_E ; BIT_E = LOW

MOVLW 0x0A ;wait for about 5ms
CALL DLY1


MOVLW B'00111000' ;FUNCTION SET - 8 BIT, BIT_E=HIGH
MOVWF PORTB
BCF PORTB,BIT_E

MOVLW 0x02 ;
CALL DLY1


MOVLW B'00111000' ;FUNCTION SET - 8 BIT, BIT_E = high
MOVWF PORTB
BCF PORTB,BIT_E ;BIT_E=LOW
;above i have done same command 3 times, this may be not necessary, i just followed datasheet

CALL LCDBUSY ;BUSY FLAG CAN BE CHECKED NOW!

MOVLW B'00101000' ;FUNCTION SET - 4 BIT ,BIT_E = HIGH
MOVWF PORTB
BCF PORTB,BIT_E
;..........EVERY INSTRUCTION WILL BE OF 2 CYCLE FROM HERE
CALL LCDBUSY ;..FUNCTION SET..
MOVLW B'00101000'
MOVWF PORTB
BCF PORTB,BIT_E ;1 CYCLE COMPLETE
MOVLW B'10001000'
MOVWF PORTB
BCF PORTB,BIT_E ;2 CYCLE

CALL LCDBUSY ;DISPLAY CONTROL -
MOVLW B'00001000' ; 1ST NIBBLE AND BIT_E=1,BIT_RW=0,BIT_RS=0
MOVWF PORTB
BCF PORTB,BIT_E ;1 CYCLY
MOVLW B'11111000' ;DISPLAY CONTROL NIBBLE (DISP=ON,CURSOR=ON,BLINK=ON) AND BIT_E=1,BIT_RW=0,BIT_RS=0
MOVWF PORTB
BCF PORTB,BIT_E ;2 CYCLE

CALL LCDBUSY ;CLEAR DISPLAY AND HOME CURSOR
MOVLW B'00001000'
MOVWF PORTB
BCF PORTB,BIT_E
MOVLW B'00011000'
MOVWF PORTB
BCF PORTB,BIT_E

CALL LCDBUSY ;ENTRY SET -
MOVLW B'00001000' ; BIT_E=1,BIT_RW=0,BIT_RS=0
MOVWF PORTB
BCF PORTB,BIT_E ;1 CYCLE
MOVLW B'01101000' ;ENTRY SET - INCREMENT,NO DISP SHIFT(CUR SHIFT),BIT_E=1,BIT_RW=0,BIT_RS=0
MOVWF PORTB
BCF PORTB,BIT_E ;2 CYCLE

RETURN

LCDBUSY
BSF STATUS,RP0 ;SELLECT BANK 1
MOVLW B'11110000'
MOVWF TRISB ;SET RB7-RB4 INPUT
BCF STATUS,RP0 ;SELLECT BANK 0

BSF PORTB,BIT_RW
BCF PORTB,BIT_RS

BSF PORTB,BIT_E
MOVF PORTB,W ;READ
BCF PORTB,BIT_E ;1 CYCLE complete
BSF PORTB,BIT_RW
BCF PORTB,BIT_RS
BSF PORTB,BIT_E
NOP ;DO NOTTHING COZ BUSY FLAG IS IN FIRST NIBBLE
BCF PORTB,BIT_E ;2nd CYCLE complete

ANDLW 0x80
BTFSS STATUS,Z ;CHECK BUSY
GOTO LCDBUSY ;LOOP IF BUSY

BCF PORTB,BIT_RW ;**
BSF STATUS,RP0 ;NOT BUSY SO MAKE PORT B O/P
MOVLW 0x000
MOVWF TRISB
BCF STATUS,RP0

RETURN

;LCD COMMANDS--- i have written routines for only 2 basic commands,
; one has to write routines for shifting display/crussor, home crussor etc.
;it's easy just follow datasheet and i'll include it someday!

LINE2 ;by selecting DDRAM address = 0x40 in case of 16x4 line LCD, see datasheet of HD44780
MOVLW B'11001000'
MOVWF PORTB
BCF PORTB,BIT_E
MOVLW B'00001000'
MOVWF PORTB
BCF PORTB,BIT_E
RETURN

LCDWRITE ;Writes data/character in W register to sellected CG/DD RAM, see its use in START routine
MOVWF TEMP
CALL LCDBUSY
MOVF TEMP,W
ANDLW B'11110000'
IORLW B'00001010' ;BIT_E=1,BIT_RW=0,BIT_RS=1
MOVWF PORTB
BCF PORTB,BIT_E ;1 CYCLE COMPLETE
SWAPF TEMP,W ;SWAP NIBBLES AND STORE IN W REGISTER
ANDLW B'11110000'
IORLW B'00001010' ;BIT_E=1,BIT_RW=0,BIT_RS=1
MOVWF PORTB
BCF PORTB,BIT_E ;2 CYCLE COMPLETE

RETURN



;Delay routines
;500uS delay with 4MHz
DLY
MOVLW D'165'
MOVWF V_DLY
DLY_LOOP
DECFSZ V_DLY, F
GOTO DLY_LOOP
RETURN

; w times DLY
DLY1
MOVWF V_DLY1
DLY1_LOOP
CALL DLY
DECFSZ V_DLY1, F
GOTO DLY1_LOOP
RETURN


START
CALL INITPIC ;initialize PIC
CALL INITLCD ;initialize LCD

MOVLW D'72' ;H ;Write to DDRAM which is displayed in LCD, DDRAM already sellected at initialization
CALL LCDWRITE

MOVLW D'69' ;E
CALL LCDWRITE

MOVLW D'76' ;L
CALL LCDWRITE

MOVLW D'76' ;L
CALL LCDWRITE

MOVLW D'79' ;O
CALL LCDWRITE

MOVLW D'32' ; 0x20 space
CALL LCDWRITE

MOVLW D'87' ;W
CALL LCDWRITE

MOVLW D'79' ;O
CALL LCDWRITE

MOVLW D'82' ;R
CALL LCDWRITE

MOVLW D'76' ;L
CALL LCDWRITE

MOVLW D'68' ;D
CALL LCDWRITE

MOVLW D'33' ;!
CALL LCDWRITE

CALL LINE2 ;set crussor to line 2
MOVLW D'76' ;L
CALL LCDWRITE
MOVLW D'73' ;I
CALL LCDWRITE
MOVLW D'78' ;N
CALL LCDWRITE
MOVLW D'69' ;E
CALL LCDWRITE
MOVLW D'32' ;space
CALL LCDWRITE
MOVLW D'50' ;2
CALL LCDWRITE

LOOP NOP
GOTO LOOP ;endless loop

END
 pic16f84a + hd44780
PranešimasParašytas: 2007 06 13, 23:48 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Vytautas
Dažnas dalyvis
Dažnas dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą Siųsti el. laišką
Aciu. Tau ilgai netruko atsakyt, o kazkam gal sutaupei pusdieni ir keliadesimt tukstanciu pilkuju lasteliu Smile
Pradėti naują temą  Atsakyti į pranešimą
 
Forumo sistema: phpBB
 „Google“ paieška forume
 Kas naujesnio?
 Naujos temos forume

Global electronic components distributor – Allicdata Electronics

Electronic component supply – „Eurodis Electronics“

LOKMITA – įvairi matavimo, testavimo, analizės ir litavimo produkcija

Full feature custom PCB prototype service

GENERAL FINANCING BANKAS

Mokslo festivalis „Erdvėlaivis Žemė

LTV.LT - lietuviškų tinklalapių vitrina

„Konstanta 42“

Technologijos.lt

Buitinė technika ir elektronika internetu žemos kainos – Zuza.lt

www.esaugumas.lt – apsaugok savo kompiuterį!

PriedaiMobiliems.lt – telefonų priedai ir aksesuarai

„Deinavos baldai“ — šeimos baldai

FS 22 Tractors
Farming Simulator 19 Mods, FS 22 Maps, FS22 Mods
ETS2 Mods
ETS2 Trucks, ETS2 Bus, Euro Truck Simulator 2 Mods
FS22 Tractors
Farming Simulator 22 Mods, FS22 Maps, FS22 Trucks
VAT calculator
VAT number check, What is VAT, How much is VAT
Paskola internetu
Vartojimo paskola, paskola automobiliui, paskola būsto remontui
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope
FS22 Mods
FS22 Harvesters, FS22 Tractors Mods, FS22 Maps Mods
FS22 Mods
FS22 Maps,
FS22 Harvesters,
FS22 Tractors
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija
Sims 4 Mods
Sims 4 CC Clothes,
Sims 4 Hair CC,
Sims 4 Skill Cheat
Optic sight
Binoculars for hunting elk,
Best compact binoculars,
Riflescope hunting
Reklama
‡ 1999– © Elektronika.lt | Autoriaus teisės | Privatumo politika | Atsakomybės ribojimas | Turinys | Reklama | Kontaktai LTV.LT - lietuviškų tinklalapių vitrina
Script hook v, Openiv, Menyoo
gta5mod.net
Farming Simulator 2019 Mods, FS22 Mods, FS22 Maps
farmingsimulator19mods.fr
Optical filters, UV optics, electro optical crystals
www.eksmaoptics.com
Reklamos paslaugos
SEO sprendimai

www.addad.lt
Elektroninių parduotuvių optimizavimas „Google“ paieškos sistemai
www.seospiders.lt
FS22 mods, Farming simulator 22 mods,
FS22 maps

fs22.com
Reklama


Reklama