Saturday, 7 July 2012

Week 19 - Week 22

Objectives: How to use Proteus 7





 Standart View


Find the component


 Design the circuit(Counter circuit)


 Find the Program


 Put the Program


Click button play for successful or not 

Sunday, 10 June 2012

Friday, 1 June 2012

WEEK 15

Data sheet PIC 16F887

Block Diagram

Pin Functions


The 16F887 is one of the most popular PIC microcontrollers and it's easy to see why - it comes in a 40 pin DIP pinout and it has many internal peripherals. 



Sunday, 27 May 2012

WEEK 14

Objectives


  • Install MPlab Programming

Follow step by step









Friday, 18 May 2012

WEEK 13

Objectives


  • To get knowledge about MPlab

Contents

Introduction for MPlab version 8.83


MPLAB Integrated Development Environment (IDE) is a free, integrated toolset for the development of embedded applications employing Microchip's PIC® and dsPIC® microcontrollers. MPLAB IDE runs as a 32-bit application on MS Windows®, is easy to use and includes a host of free software components for fast application development.
 

Monday, 9 April 2012

WEEK 12

Objectives



  • Changes Visual Basic to MP Lab Programming
  • I change visual basic to mp lab programming because it can save costs because I can get a PIC module and PIC 16F877 with my senior. He is ex BMI student. Before this,he make a fyp using the mplab and same PIC. So, i can borrow the MPlab module and PIC with him and can learn more knowledge about MPlab. 


Result &Analysis



Thursday, 5 April 2012

LESSON VISUAL BASIC


WEEK 9 - WEEK11

Objectives

  • To continues for the Visual Basic

Naming Controls
This is the string of characters that identifies the control in code. This property can't be an empty string, and you can't have two or more controls on a form with the same name. The special nature of this property is indirectly confirmed by the fact that it appears as (Name) in the Properties window.
When to create a control, Visual Basic assigns it a default name. For example, the first TextBox control that you place on the form is named Text1, the second one is named Text2, and so forth. Similarly, the first Label control is named Label1, and the first CommandButton control is named Command1.
 This default naming scheme frees from having to invent a new, unique name each time you create a control. Notice that the Caption property of Label and CommandButton controls, as well as the Text property of TextBox controls, initially reflect the control's Name property, but the two properties are independent of each other. In fact, just modified the Caption and Text properties of the controls in the Rectangle Demo form without affecting their Name properties.
For an example, we will rename the Text1 through Text4 controls as txtWidth, txtHeight, txtPerimeter, and txtArea respectively. The Command1 control will be renamed cmdEvaluate, and the four Label1 through Label4 controls will be renamed lblWidth, lblHeight, lblPerimeter, and lblArea, respectively. However, please note that Label controls are seldom referred to in code, so in most cases you can leave their names unmodified without affecting the code's readability.

The control classes and their recommended prefixes are shown in below Table:
Control Class
Prefix
Control Class
Prefix
CommandButton
cmd
Data
dat
TextBox
txt
HScrollBar
hsb
Label
lbl
VScrollBar
vsb
PictureBox
pic
DriveListBox
drv
OptionButton
opt
DirListBox
dir
CheckBox
chk
FileListBox
fil
ComboBox
cbo
Line
lin
ListBox
lst
Shape
shp
Timer
tmr
OLE
ole
Frame
fra
Form
frm


Adding Code

This simple program, need to extract the values stored in the txtWidth and txtHeight controls, use them to compute the rectangle's perimeter and area, and assign the results to the txtPerimeter and txtArea controls respectively:
Private Sub cmdEvaluate_Click()
' Declare two floating point variables.
Dim reWidth As Double, reHeight As Double
' Extract values from input TextBox controls.
reWidth = CDbl(txtWidth.Text)
reHeight = CDbl(txtHeight.Text)
' Evaluate results and assign to output text boxes.
txtPerimeter.Text = CStr((reWidth + reHeight) * 2)
txtArea.Text = CStr(reWidth * reHeight)
End Sub