electronics mania

Cool Electronics


This Page Is All About Pic Microcontrollers

This is the pic programer bord that i use

 I have used it alot and its very good it can program lots of difrent pics. Its is also good becuse it is usb and i have never had any proberlems with it.

 

Compiler

The language i use most for pic micros are pic basic pro demo version and jal Just anouther Language

Pic Led Flasher

This Program is the equiverlent of hello world on a computer and is very easy to understand

Made For 16f628

Uses Internal Clock So there is no need for a external Xtal or resonator.

The Circut Shown Below Is Very Simple

The 470 Ohm Resistor Can Be Changed For The Aproprate Value For Your Led But 470 Is A Good Value  

Here Is The Code (in Picbasic)

 @ device INTRC_OSC_NOCLKOUT  ;Use Internal Clock And No Clock Output  
Start                        ;Label For Begining We return Here With goto                
High Portb.0                 ;This Sets Portb.0 High (logic 1)                                  
Pause 500                    ;Pause For 500 ms                                                      
Low portb.0                  ;Set Port b back to low (logic 0)                                  
Pause 500                    ;Pause For 500 ms                                                      
Goto start                   ;Go Back To Start Of Program                                       

If You Don't Have PicBasic Then Download the Hex Code BLINK.HEX   

 

 

Pic Led Candel

This Project uses the 16f628 pic

This project projuces a very artactive fliker just like a real candel

The best way to build it is with long wiers to the led (yellow/orange are the best ) and put the led in a candel or candel holder.

 The scematic the same at the led flasher

 The Code (picbasic)

 @ device INTRC_OSC_NOCLKOUT     ;use internal clock                                          
t VAR Word                      ;Set T as A 16bit variabel                                                 
p var byte                      ;set p as 8 bit vairiabel                                                       
stpwm                           ;Label                                                                                 
Random T                        ;Projuce A Random 16bit number                                     
p = t/255                       ;divide the 16bit so it is 8 bit                                               
pwm 0, p, 5                   ;produce pwm on pin one at random %duty                      
goto stpwm                      ;do it forever                                                                   

Download the Hex Code

 

8 rgb led chaser

mediam/hard

This is a cool pic project that i found when looking for some exaples of jal code

 The origional can be found at http://www.semifluid.com/?p=10

 Discription:

It is relitively easy to make as long as you have a bit of patience

This project makes a muti colour chaser effect you can see this in the video.

 

Schematic:

sorry but the image is too big and becomes distorted when shrunk dowm so i will add a link to the picture insted

                                                                                    Schematic.gif

                                                                    

Changes:

 I made a small change wich was to add a dip swich so you can chouse the colors that are shown. 

 Code:

Jal file 8RGBRAM.jal

Hex file 8RGBRAM.hex.

 

Video

 

                                

 

 

 

lcd test program

this is a simple lcd test program that will display some text and then count up to 10000 this project is quite dificut so my schematic might not be correct. please tell me if it dose not work . 

 

 

                                                                 click for lager version

                                  

 

 The code:

The code contains a block off coments that tells you how to conect it . but they are to big to list here so i will upload them so you can download the full code with coments 

@ device INTRC_OSC_NOCLKOUT
  
  t var word
  p var word
 
  Pause 1000     
  lcdout $FE, $0C
    

start

lcdout $fe,1
Lcdout $FE, 2
lcdout "Lcd test by"
lcdout $FE, $C0
Lcdout "electronicsmania"
pause 10000
lcdout $fe,1
for t = 0 to 10000
lcdout $FE, 2
Lcdout "Count = ",#t
pause 10
Next
lcdout $fe,1
lcdout $FE, 2
lcdout "Goodbye"
pause 2000
goto start
stop 
end
     

 

For full comented code click here

Get the hex code here

 

 

Make a free website at Freewebs.com