Math Calculation Project.

Private Sub cmdclear_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub cmdclos_Click()
Unload Me
End Sub

Private Sub cmdmulti_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdsum_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub


Posted by: Wasim Javed

WAP to multiply the two integers

Private Sub Command1_Click()
Dim a, b, c As Integer
a = InputBox("Enter 1st value", "input box")
b = InputBox("Enter 2nd value", "input box")
c = a * b
MsgBox a & "*" & b & "=" & c, -0, "Multiplication"
End Sub


Posted by: Wasim Javed

WAP to print a messege on the screen

Private Sub Command1_Click()
MsgBox "Testing messege", vbOKCancel + -vbExclamation, "messege box
window”
End Sub


Posted by: Wasim Javed

WAP to find Hide/Show forms

Private Sub Command1_Click()
Form2.Show vbModeless
End Sub

Private Sub Command2_Click()
Form3.Show vbModeless
End Sub


Posted by: Wasim Javed

WAP to find the got focus and lost focus

Private Sub Command1_GotFocus()
Command1.Caption = "Got Focus"
End Sub

Private Sub Command1_LostFocus()
Command1.Caption = "Lost Focus"
End Sub

Private Sub Command2_GotFocus()
Command2.Caption = "Got Focus"
End Sub

Private Sub Command2_LostFocus()
Command2.Caption = "Lost Focus"
End Sub

Private Sub Command3_GotFocus()
Command3.Caption = "Got Focus"
End Sub

Private Sub Command3_LostFocus()
Command3.Caption = "Lost Focus"
End Sub


Posted by: Wasim Javed

WAP to find the events

Private Sub Form_Click()
Form1.Caption = "Form was clicked"
End Sub

Private Sub Form_DblClick()
Form1.Caption = "Form was double clicked"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Form1.Caption = "Key was press on keyboard"
End Sub


Posted by: Wasim Javed

Steps of Development of R.B.C's

Pro erythroblast is the first cell which is responsible for the formation of many red blood cells because when these cells formed ,divide several times and form many mature red blood cells.

The 1st generated cells are called besophil erythroblast because they can be stained with basic dyes. The at this time the cell has very little hemoglobin. However in succeeding generation the cell becomes filled approx 33% hemoglobin. At the same time the endoplasmic reticulum is reabsorbed. The cell at this steps is called reticul: eytes.

The remaining bchophilic materiel in reticnlocyte disappear with in 1--2 days and the cell is then converted into mature erythrocytes.

Posted by: Wasim Javed

Development of red blood corpucles

Areas of the body that produce Red cells

1. Embyonic Life:-

In early few weeks of Embyonic life, the primitive nucleated red blood cells are produced in the yolk sea.

Later on in the middle trimester of gestation red blood cells are produced by liver. Through reasonable no of R.B.C's are produced by the spleen and lymph nodes

2. After birth:-

The bone marrow is the main site of erythrogesis during the early year all bones are filled up with blood forming red marrow but by twentieth year almost all the long bones are replaced with inactive yellow and in this location. R.B.C formation stops only the upper ends of femur and humerus certain red marrow and continue to form red cells throughout the life.

In addition to this the vertebrae, the ribs and flat bones produce R.B.C's continuously.

Posted by: Wasim Javed