University of Supervisor:

Sulaimani Mr.Akram Saleh

2011-2012
Faculty
Of Engineering Prepared by:
Rebwar Othman Ibrahim
Sardar Abdullah Ali
Civil Zana Jalal Tahir
Department
 Concrete Formwork Design 2011-2012

Concrete Formwork Design

Index:
Chapter one: Introduction
1.1 Formwork inclusions………………………………………….…...…3
Chapter two: Formwork Materials
2.1 Wood…………………………………………………………………5
2.1.1 Lumber……………………………………………………...…..……5
2.1.2 Plywood………………………………………….………..…….……6
2.1.3 Plyform...........................................................................................7
2.2 Steel……………………………………………………...……..……..7
2.3 Aluminum………………………………………………………..……8
2.4 Glass-Reinforced Plastic…………………………………….…..…….8
2.5 Ties……………………………………………………………....…….9
2.6 Anchors………………………………………………………..….…..10
2.7 Hangers……………………………………………………….....…….11
2.8 Column Clamps……………………………………………...……..…12
Chapter three: Economy & Safety
3.1 Economy in formwork………………………………………….…….13
3.2 Important aspects of the formwork operation…………………...……15
3.2.1 Speed………………………………………………………....……15
3.2.2 Safety………………………………………………………....……15
3.2.3 Quality………………………………………………………....…..16
Chapter four: Formwork Analysis & Design
4.1Calculation Of Beams…………………………………..……….…...18
4.1.1 Beam 1 Form Design……………………………………….…...18
4.1.1.1 Beam 1 beneath design………………………………….……18
4.1.1.2 Lateral Bracing for Beam1(h=55cm) …………………….……21
4.1.2 Beam 2 Form Design……………………………….……….….….23
4.1.2.1 Beam 2 beneath design…………………………………..……23
4.1.2.2 Lateral Bracing for Beam2…………..……………….….….…26
4.1.3 Beam 3 Form Design…………………………………………….…26
4.1.3.1 Beam 3 beneath design…………………………………..……26
4.1.3.2 Lateral Bracing for Beam3……………………………….……29
4.1.4 Beam 4 Form Design…………………………………………….…29
4.1.4.1 Beam 4 beneath design…………………………………..……29
University of Sulaimani - Engineering Projects Page 1
 Concrete Formwork Design 2011-2012

4.1.4.2 Lateral Bracing for Beam4……………………………….……32

4.2 Calculation Of Slabs…………………………………………..….….....33
4.2.1 Slab1 Form Design………………………………………..….…...33
4.2.1.1 Slab1 Beneath Design………………………………..….……33
4.2.1.2 Lateral Bracing for Slab1(15cm) ……………………..………36
4.2.2 Slab2 Form Design………………………………………………...38
4.2.2.1 Slab2 Beneath Design……………………………………...…38
4.2.2.2 Lateral Bracing for Slab2 (18cm) ………………………..……41
4.3 Calculations Of Walls And Columns……………………………………42
4.3.1 Walls Having Tie……………………………………………..…….42
4.3.2 Lateral Bracing for the wall(2.8m) …………………………….……45
4.3.3 Lateral Bracing for the Column (3.1m) …………………………..…46
4.4 Stairs Design…………………………………………………………...48
4.4.1 Stairs Beneath Design…………………………………….………...48
4.4.2 Lateral Bracing for the Stairs(26cm) ………………………..………51
4.5 Foundation Design…………………………………………………......53
4.5.1 Lateral Bracing for the Combined Footing (0.8m) ………………..…53
4.5.2 Lateral Bracing for the Wall Footing (0.6m) …………………..……54
4.6 The building sample consisting of plan of basement, a floor and
section of the building……………………………………………………….……56
Chapter five: Specifications
5.1The specifications and tables required for calculation…………...…..58
Chapter six: Concrete Formwork Software
6.1 Slab and Beam Design…………………………………………...……61
6.2 Wall and Column Design…………………………………….…..……61
6.3 The VB Codes…………………………………………………..……..62
6.3.1 Form1 Codes……………………………………………...….……69
6.3.2 Form2 Codes…………………………………………………….……100
6.3.3 Form3 Codes……………………………………………………….…100
6.3.4 Form4 Codes…………………………………………………….……101
6.3.5 Form5 Codes…………………………………………….……………139
6.3.6 Form6 Codes……………………………………………………….…140
6.3.7 Form7 Codes……………………………………………………….…140
6.3.8 Form8 Codes…………………………………………………….……140
References………………………………………………………..…….……144

University of Sulaimani - Engineering Projects Page 2

 Concrete Formwork Design 2011-2012

Chapter one
Introduction:
Formwork system is the temporary (or rarely permanent) support of
freshly placed concrete till its strength reaches a degree that it would not be
in need of any extra supports , usually it is erected after the curing and
hydration of the concrete gives sufficient strength to the concrete.

Concrete formwork serves as a mold to produce concrete elements

having a desired size and configuration. It is usually erected for this purpose
and then removed after the concrete has cured to a satisfactory strength. In
some cases, concrete forms may be left in place to become part of the
permanent structure.
For satisfactory performance, formwork must be adequately strong
and stiff to carry the loads produced by the concrete, the workers placing
and finishing the concrete, and any equipment or materials supported by
the forms.

1.1 Formwork includes:

 The forms on which concrete is poured.

 The supports to withstand the loads imposed by the forms and

concrete.

 Any bracing added to ensure stability.

Two major categories of formwork are job built and prefabricated.

Job-built forms are often designed, built, and used with the
particular requirements of a single project in mind.
They are most often constructed using plywood sheathing and
lumber framing. Job-built forms are often the economical choice when
complicated forming is required that would be difficult or more expensive if
using commercial form systems.

University of Sulaimani - Engineering Projects Page 3

 Concrete Formwork Design 2011-2012

Prefabricated or commercial forms are usually constructed with

materials that can be reused many times.
Their higher initial cost is offset by the potential for more reuse
cycles than job-built forms of lumber and plywood or possible cost savings
from increased productivity in erecting and stripping the forms.
Commercial concrete forms may be of standard design or custom
built for a particular application.
Some types of commercial forms are designed to span relatively
long distances without intermediate supports. V
Some girder forms of this type are constructed so that the sides of the forms
behave like a plate girder to carry the dead and live loads.
This type of form would be a viable choice for elements constructed
high off the ground, over water, or over difficult terrain, where it would be
difficult to use intermediate supports.
The formwork takes a great role in any concrete structures as the
economy and initial safety of the placed concrete is dependent on the quality
of the formwork materials. Although you may think that shape , finishing ,
and safety are the most important items in concrete formwork , you should
realize economy is also a major consideration.
The cost of formwork greatly affects the overall cost of the concrete
structure and includes a great ratio of the structures cost.
If the safety of the formwork is guaranteed then it can be considered
that a great problem of safety has been solved because the safety of the
concrete can then be easily controlled.
The cost of the formwork which can range from 1/3 to almost 2/3 of
the total cost of a concrete structure, is often more than the cost of both the
concrete and the reinforcing steel. For the average concrete structure, the
formwork is considered to present about 50% of the total cost. From this
discussion it is obvious that any efforts made to improve the economy of the
concrete structures should be primarily concentrated on reducing formwork
costs. formwork must be treated as an integral part of the overall job plan,
and the lowest bidder is likely to be the contractor who has planned the
most economical forming job.

University of Sulaimani - Engineering Projects Page 4

 Concrete Formwork Design 2011-2012

Chapter two
Formwork Materials:
Formwork Materials range from mostly used materials such as wood,
steel, aluminum, and plywood to rarely used materials such as fiberglass.
Wood is the most commonly used materials in formwork system.
The types of formwork materials are:
2.1 Wood
As mentioned above; Wood is the most commonly used material in
formwork system.
Wood is harvested from trees and is classified as hardwood and
softwood. Hardwood comes from trees that have broad leaves such as oaks,
maples, and basswood. Softwood comes from trees that have needlelike
leaves such as pines, cedars, and firs. Softwoods are most commonly used in
construction of formwork.
The wood used for the purpose of building construction is termed as
Lumber.

2.1.1 Lumber
Lumber suitable for constructing concrete forms is available in a
variety of sizes, grades, and species groups. The form designer should determine
what is economically available before specifying a particular grade or species
group of lumber for constructing the forms.
Some of the most widely available species groups of lumber include
Douglas fir-larch, southern pine, ponderosa pine, and spruce-pine-fir. Douglas fir
and southern pine are among the strongest woods available and are often chosen
for use in formwork.
The strength and stiffness of lumber varies widely with different species groups
and grades. Choice of species groups and grade will greatly affect size and
spacing of formwork components.

University of Sulaimani - Engineering Projects Page 5

 Concrete Formwork Design 2011-2012

Lumber size classification:

There are three main size categories for lumber:
1. Boards:
Lumber that nominally is less than (50mm) thick and (50 mm) or
more wide. Boards’ thicknesses refers to the smallest cross-section
dimension of lumber and the term width refers to the largest dimension.
Boards less than (150 mm) wide are classified as strips. Boards are
used for sheathing, roofing, siding, and paneling.

2. Dimension lumber:
Lumber with a nominal thickness of (50–125 mm) and a nominal
width of (50mm) or more. Dimension lumber ranges in size from (50 x 50
mm) to (100 x 400 mm).
Dimension lumber is used for general construction where
appearance is not a factor, such as studding, blocking, and bracing.
3. Timber:
Lumber that is nominally (125 mm) in the smallest dimension.
Timber is used for columns, beams, stringers, struts, caps, sills, and girders.

Among the other types of wood formwork there are

Plywood and plyform:
2.1.2 plywood panels are made of soft wood. It is used extensively for
concrete forms and provides the following advantages:
• It is economical in large panels.
• It is available in various thicknesses.
• It creates smooth, finished surfaces on concrete.
• It has predictable strength.
• It is manufactured in more than 40 surface textures that can provide
various architectural finishes.
The grain of each ply is laid at aright angle to the adjacent pieces. This
process gives plywood extra strength and reduces shrinkage and swelling.
Plywood is commonly sold in sheaths of 1.20 x 2.40 m.

University of Sulaimani - Engineering Projects Page 6

 Concrete Formwork Design 2011-2012

Plywood is available in two

types: exterior and interior. The
exterior type is made with
waterproof glue and has all plies
made with C grade or better
veneers. It is shown in fig. 2.1.

2.1.3 plyform is a special

plywood product made for
concrete formwork. Wood has
particular orientations that effect
their strength. A weak position
can be seen when the face grains
parallel to the span of the support.
A strong orientation is achieved
when the face grain is
perpendicular to the span of
support. As shown in fig 2.1.
Plyform is available in three
classes — Class I, Class II, and Fig 2.1
Structural I(or class III).
Class I is stronger than Class II because of the higher grade of
veneers used in the panel. Structural I is the strongest of the three classes
and is intended for applications where high strength and stiffness or
maximum reuse are desired. Plyform is also available with a surface
treatment of thermosetting, resin-impregnated material that is bonded to the
panel surfaces. This abrasion-resistant surface, which gives an extremely
smooth finish to concrete and allows more reuses of gang forms, is called a
high-density overlay (HDO).
2.2 Steel:
Steel is the strongest material used for formwork system, due to its
strength larger span and more reuses can be gained.
Among the steel sections used for formwork are:
a. steel panel forms,
b. horizontal & vertical shores,
University of Sulaimani - Engineering Projects Page 7
 Concrete Formwork Design 2011-2012

c. steel pan & dome components,

d. steel pipes for formwork bracing.
Other heavy forms and formwork are also made of steel, such as
bridge formwork.
Steel is used for formwork when other materials are impossible to use
because of low strength.
2.3 Aluminum:
Aluminum is the formwork materials generally used for those places
at which less applied loads or light weights are existence, so it is a popular
material for many formwork applications such as lightweight panels, joist,
horizontal, & vertical shoring, and aluminum trusses for flying forms.
The advantages of aluminum are :
 It has lightweight.
 Reduce costs and equalize initial material cost.
 It is very successful in resisting corrosion.

2.4 Glass-Reinforced Plastic:

Glass-reinforced plastic is usually used because of their success in
 Their strength.
 Lightweight.
 High number of reuses.
 Produces high-quality concrete finishes.
 Very flexible.
 Can form complex or non-standard shapes.
Glass-reinforced plastic has two advantages that are:

 Attack by alkalis in the concrete chemical compositions.

 Form expansion because of contact to hot sun or heat from hydration
of cement.
Fabrication of glass-reinforced plastic:
To fabricate glass-reinforced plastic forms, models of plaster, wood,
or steel are prepared to the exact desired dimensions. The model is then

University of Sulaimani - Engineering Projects Page 8

 Concrete Formwork Design 2011-2012

waxed, polished, and sprayed with a parting agent to prevent sticking of the
resin to the master pattern.
Glass mat is then fitted over the model and thoroughly saturated
with a brush coat of polyester resin. When the resin has set and the heat
dissipated, another layer of glass mat and polyester resin is added, and this
process is repeated until the desired thickness of the fiberglass sheet is
achieved.
Another method to build glass-reinforced plastic forms is through
the use of a spray gun to apply the resin to chopped strands of fiberglass,
which are used as the reinforcing material.
To increase the number of potential reuses with any of the methods
of fabrication mentioned, an extra thickness of resin is molded into the
contact surface or additional stiffening and supports are added by means of
built-up ribs, wood struts, steel rods, or aluminum tubing.
2.5 Ties:
As shown in fig 2.2 ; Ties are devices used to hold the sides of
concrete forms together against the fluid pressure of fresh concrete.
Ties are loaded in tension and have an end connector that attaches

Fig 2.2

University of Sulaimani - Engineering Projects Page 9

 Concrete Formwork Design 2011-2012

them to the sides of the form. In order to maintain the correct form width,
some ties are designed to spread the forms and hold them at a set spacing
before the concrete is placed.
Some ties are designed to be removed from the concrete after it sets
and after the forms have been removed. These ties take the form of tapered
steel rods that are oiled or greased so they can be extracted from one side of
the wall. They usually have high strength and are used in heavier panel
systems, where it is desirable to minimize the total number of ties.
The removal of ties allows the concrete to be patched (covered).
V Patching allows for a smoother concrete surface and helps to
eliminate the potential for staining from rusting of steel tie ends.
Another type of tie is designed to be partially removed by either unscrewing
the tie ends from a threaded connector that stays in the concrete or by
breaking the tie ends back to a point weakened by crimping. Some ties have
water-stops attached. These would be used if ordinary grout patching will
not provide a watertight seal.
Nonmetallic ties have recently been introduced. They are
produced of materials such as a resin-fiber composite and are intended to
reduce tie-removal and concrete-patching costs. Because they are made of
nonmetallic materials, they do not rust or stain concrete that is exposed to
the elements.
2.6 Anchors:
As shown in fig. 2.3 ; Form anchors are devices embedded (fixed) in
previously placed concrete, or occasionally in rock, that may be used to
attach or support concrete formwork. There are two basic parts to the
anchors. One part is the embedded device, which stays in the concrete and
receives and holds the second part.
The second part is the external fastener, which is removed after use.
The external fastener may be a bolt or other type of threaded device, or it
may have an expanding section that wedges into the embedded part.
Their holding power depends not only on the anchor strength but on
the strength of the concrete in which they are embedded.

University of Sulaimani - Engineering Projects Page 10

 Concrete Formwork Design 2011-2012

The depth of embedment and the area of contact between the anchor
and concrete are also important in determining capacity. It is necessary to
use the data provided by the manufacturers, which are based on actual load
tests for various concrete strengths, to determine the safe anchor working
load for job conditions. This will require an accurate prediction of the
concrete strength at the time the anchor is loaded. Estimated concrete
strengths at the age when anchor loads will be applied should be used to
select the type and size of anchor required.

Fig. 2.3

2.7 Hangers:
Hangers are used to support concrete formwork by attaching the
formwork to structural steel or precast concrete structural framing members.
Various designs are available, and each manufacturer’s safe load rating

Fig. 2.4

University of Sulaimani - Engineering Projects Page 11

 Concrete Formwork Design 2011-2012

should be used when designing hanging assemblies. For hangers having

more than one leg, the form designer should carefully check to see if the
rated safe load is for the entire hanger or each leg.
2.8 Column Clamps:
Devices that surround a column form and support the lateral
pressure of the fresh concrete are called column clamps. They may be loaded
in tension or flexure or in a combination of both. Several commercial types
of column clamps designed to fit a range of sizes of column forms are
available. Care should be taken to follow the manufacturer’s instructions for
using their clamps. Rate of placement of the concrete and maximum height
of the form may be restricted. Deflection limits for the forms may be
exceeded if only the strength of the clamps is considered. Where deflection
tolerances are important, either previous satisfactory experience with the
form system or additional analysis of the clamp and form sheathing is
suggested.

University of Sulaimani - Engineering Projects Page 12

 Concrete Formwork Design 2011-2012

Chapter Three
Economy & Safety
3.1 Economy in formwork:
The first opportunities for form economy occur during the design
of the structure. Concrete designers can often save the owner agreed deal of
economy if they take into account factors that permit formwork economy in
the design of the structure. Among the items that can be done in this regard
are the following:
1. Attempt to coordinate the design with the architectural design, such
as varying room sizes a little to accommodate standard forms.
2. Keep story heights as well as the sizes of beams, slabs, and columns
the same for as many floors as possible to permit the reuse of forms
without change from floor to floor. Without a doubt the most
important item affecting the total cost of formwork is the number of
times the forms can be used.
3. Make beams as wide as or wider than columns so as to make
connections simpler. When beams are narrower are than columns,
formwork is complicated and expensive.
4. Remember in the design of columns for multistory buildings that
their sizes may kept constant for a good many floors by changing the
percentage of steel used from floor to floor , starting at the top with
approximately (1%) steel and increasing it floor by floor until the
maximum percentage is reached. In addition, the strength of the
concrete can be increased as we move down in the building.
5. Keep columns the same size; the more this is done, the smaller costs
will be.
6. Design structures that permit the use of commercial forms such as
metal pans or corrugated metal deck sheets for floor or roof slabs.
7. It is desirable to use the same thickness for all the reinforced concrete
walls in a particular project. Wall openings should be kept to a
minimum and should if possible be placed in the locations in each
wall. It is also desirable to keep footing elevations constant under a
particular wall. Where this is not possible, as few footing steps as
possible should be used.
University of Sulaimani - Engineering Projects Page 13
 Concrete Formwork Design 2011-2012

8. Use beam and column shapes that do not have complicated haunches,
offsets, and cutouts.
9. Usually wide flat beams are more economical than deep narrow
beams because it may be difficult to place the concrete and the
reinforcement in the later types.
10. For reinforced concrete frames, the floor slabs and their required
formwork are usually the expensive items. From the stand point of
formwork, one-way flat slabs and two-way flat plates are the most
economical floor systems. On the other extreme, the one-way and
two-way beam and slab floors require the most expensive formwork.
11. Allow the contractors to use their own methods in constructing
the forms, holding the contractor responsible for only their adequacy.
Formwork is the largest cost component for a typical multistory
reinforced concrete building. Formwork cost accounts for 40 to 60 percent of
the cost of the concrete frame and for approximately 10 percent of the total
building cost. Figure A,B presents a breakdown of different cost categories
for conventional concrete slab and wall formwork. A large proportion of the
cost of conventional formwork is related to formwork labor costs. Significant
cost saving could be achieved by reducing labor costs.

Concrete 21%

Concrete Placing 3%

Formwork Labor 38%

Formwork Materials Fig. 3.1

10%

Formwork Labor 52%

Concrete Materiels
30%
Formwork Materials
11%
Concrete Labor 7%

Fig. 3.2

University of Sulaimani - Engineering Projects Page 14

 Concrete Formwork Design 2011-2012

The above figure is the distribution of costs for cast-in-place concrete of slab
and wall
Fig. 3.1 is for Concrete Slab and fig. 3.2 is for concrete wall.
3.2 Important aspects of the formwork operation
include speed, safety, and quality:
3.2.1 Speed
Speed of construction is defined as the rate in which concrete
building is raised and can be expressed in terms of number of floors erected
per week or months.
It can be also measured in terms of inches or millimeters of
concrete poured per hour. Formwork operations can control the pace of
construction projects. Formwork is typically supported by several levels of
shores and re-shores that carry the loads until the concrete gains enough
strength to support its own weight and all other externally.
3.2.2 Safety
Formwork operations are risky, and workers are typically exposed to
unsafe working conditions. Partial or total failure of concrete formwork is a
major contributor to deaths, injuries, and property damages within the
construction industry. Another common hazard occurs during stripping of
formwork in which loose formwork elements fall on workers under the
concrete slab being stripped.
Structural collapses and failures involving concrete structures account
for 25 percent of all construction failures. More than 50 percent of concrete
structure failure during construction is attributed to formwork failure.
Formwork failures result from faulty formwork structural design,
inadequate shoring and re-shoring, improper construction practices during
construction, inadequate bracing, unstable support or mudsills, and
insufficient concrete strength to sustain the applied load after construction.
Contractors are generally responsible for stability and safety of
concrete formwork.
Contractors are guided by several federal, state, and local codes and
regulations that regulate formwork safety.
Most of these documents provide general guidelines for safety but
provide no guarantee against failure. Contractors typically are trying to
University of Sulaimani - Engineering Projects Page 15
 Concrete Formwork Design 2011-2012

achieve fast removal of formwork elements without compromising the

safety and integrity of structures.
3.2.3 Quality
The quality of the resulting concrete is dictated by the quality of
formwork materials and workmanship. Many concrete-related problems
such as discoloration, stains, and dusting are attributed to concrete
formwork. Also, some deformed concrete surfaces are due to deformed
formwork systems caused by repetitive reuse and inadequate support of
formwork.

University of Sulaimani - Engineering Projects Page 16

 Concrete Formwork Design 2011-2012

Chapter four
Formwork Analysis & Design:
Table 4.1 _____ Useful Metric (SI) Equations

University of Sulaimani - Engineering Projects Page 17

 Concrete Formwork Design 2011-2012

4.1Calculation Of Beams
The Example frame contains the following beam Depth sizes:
Beam1=55cm
Beam2=45cm
Beam3=40cm
Beam4=35cm
4.1.1 Beam 1 Form Design
4.1.1.1 Beam 1 beneath design
Design of the formwork for an elevated concrete floor beam (55 cm)
thick. Sheathing will be nominal (25 mm) lumber while (100×200 mm)
lumber will be used for joists.
Stringers will be (100×200 mm) lumber. Assume that all members are
continuous over three or more spans. Commercial (17.8 KN) shores will be
used. It is estimated that the weight of the formwork will be (0.24 kpa). The
adjusted allowable stresses for the lumber being used as follows:

Symbols Sheathing (kPa) Other members

(kPa)
Fb 7412 8619
Fv 1200 1241
Fc⊥ 2792
Fc 5861
E

Maximum deflection of form members will be limited to . Use the

minimum live load permitted by ACI-code.

Determine joist spacing, stringer spacing, and shore spacing

SOLUTION:

Beam (55 cm deep):

University of Sulaimani - Engineering Projects Page 18

 Concrete Formwork Design 2011-2012

Concrete pressure = 0.55 x 2400 x

= 12.9492 ≈ 13 Kpa
Formwork weight = 2.4 Kpa
Live stress = 2.4 Kpa
1. Deck Design:
W = 15.64 kpa

a) Bending ( )

( ) = 532 mm
b) Shear

c) Deflection ( ) ( )

( )

NOTE: Deflection governs in this case and the maximum allowable span is
(517 mm), and we reduce it by a factor of (95%) for safety.

we will select ( ) joist spacing.

2. Joist Design:
W= sheathing span × Design Load
W= 0.5 × 15.64 = 7.82 KN/m

a)Bending ( )

( )

University of Sulaimani - Engineering Projects Page 19

 Concrete Formwork Design 2011-2012

b) Shear

c) Deflection ( ) ( )

( )
Here bending governs and the maximum joist span is (227.7443 mm) and
reduce by (95%).

So we will select a stringer-spacing (joist span) of (2240 mm)

3. Stringer spacing:
W= joist span × Design Load
W= 2.24 × 15.64=35 kN/m

a) Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

d)

University of Sulaimani - Engineering Projects Page 20

 Concrete Formwork Design 2011-2012

Thus the maximum stringer span is limited by shore strength to (0.504 m)

and reducing by (95%).
So it is being
Check for crushing:
Check for crushing at the point where each joist rests on a stringer.

Bearing area
⊥

⊥
Final Design:-
Decking nominal (25 mm) lumber.
Joist (100×200 mm) @ 500 mm spacing.
Stringer (100×200 mm) @ 2240 mm spacing.
Shore 17.8 KN commercial @ 500 mm spacing.

4.1.1.2 Lateral Bracing for Beam1(h=55cm)

Thickness=55cm
Width=0.4m
Formwork weight (assumed FOS=3)= 0.72KPa
Allowable Stress:

University of Sulaimani - Engineering Projects Page 21

 Concrete Formwork Design 2011-2012

Fc=5861 KPa
Ft=4999 KPa
E=9.7 x 106 KPa
Assume l'=0.5m and h'=0.4m

Dl= =13.66Kpa
H=0.02 x DL x W
H=0.02 x 13.66 x 0.4 = 0.1 KN/m < 1.46 KN/m (use Min. value)
P'= '= =2.56 Kn/m
Assume Strut Cross-section from Table 4.2:
(19 x 64 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 33.68 <50 OK
Fc' = = = 2564.7 KPa …..use min stress which is Fc'=2564.7Kpa
( )

P=
Spacing = Also provide the same cross-section with
the same spacing for the other types of the beams; beam2, 3 and 4.

University of Sulaimani - Engineering Projects Page 22

 Concrete Formwork Design 2011-2012

4.1.2 Beam 2 Form Design

4.1.2.1 Beam 2 beneath design
Design of the formwork for an elevated concrete floor beam (45cm)
thick. Sheathing will be nominal (25 mm) lumber while (100×200 mm)
lumber will be used for joists.
Stringers will be (100×200 mm) lumber. Assume that all members are
continuous over three or more spans. Commercial (17.8 KN) shores will be
used. It is estimated that the weight of the formwork will be (0.24 kpa). The
adjusted allowable stresses for the lumber being used as follows:

Symbols Sheathing (kPa) Other members (kPa)

Fb 7412 8619
Fv 1200 1241
Fc⊥ 2792
Fc 5861
E

Maximum deflection of form members will be limited to . Use the

minimum live load permitted by ACI-code.

Determine joist spacing, stringer spacing, and shore spacing

SOLUTION:
Beam (45 cm deep):
Concrete pressure = 0.45 x 2400 x
= 10.5948 Kpa
Formwork weight = 2.4 Kpa
Live stress = 2.4 Kpa
1. Deck Design:
W = 13.23 kpa

a) Bending ( )

University of Sulaimani - Engineering Projects Page 23

 Concrete Formwork Design 2011-2012

( ) = 579 mm
b) Shear

c) Deflection ( ) ( )

( )

NOTE: Deflection governs in this case and the maximum allowable span is
(547 mm), and we reduce it by a factor of (95%) for safety.

we will select ( ) joist spacing.

2. Joist Design:
W= sheathing span × Design Load
W= 0.52 × 13.23 = 6.88 KN/m

a)Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

University of Sulaimani - Engineering Projects Page 24

 Concrete Formwork Design 2011-2012

Here bending governs and the maximum joist span is (2509 mm) and reduce
by (95%).

So we will select a stringer-spacing (joist span) of (2400 mm)

3. Stringer spacing:
W= joist span × Design Load
W= 2.4 × 13.23=31.752 kN/m

a) Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

d)
Thus the maximum stringer span is limited by shore strength to (0.561 m)
and reducing by (95%).
So it is being

*check for crushing:

Check for crushing at the point where each joist rests on a stringer.

Bearing area

University of Sulaimani - Engineering Projects Page 25

 Concrete Formwork Design 2011-2012

⊥
Final Design:-
Decking nominal (25 mm) lumber.
Joist (100×200 mm) @ 520 mm spacing.
Stringer (100×200 mm) @ 2400 mm spacing.
Shore 17.8 KN commercial @ 500 mm spacing.
4.1.2.2 Lateral Bracing for Beam2
Strut Cross-section from Table 4.2:
(19 x 64 mm)
Spacing = taken from beam1 since it is greater use its design values.

4.1.3 Beam 3 Form Design

4.1.3.1 Beam 3 beneath design
Design of the formwork for an elevated concrete floor beam (40cm)
thick. Sheathing will be nominal (25 mm) lumber while (100×200 mm)
lumber will be used for joists.
Stringers will be (100×200 mm) lumber. Assume that all members are
continuous over three or more spans. Commercial (17.8 KN) shores will be
used. It is estimated that the weight of the formwork will be (0.24 kpa). The
adjusted allowable stresses for the lumber being used as follows:

Symbols Sheathing (kPa) Other members (kPa)

Fb 7412 8619
Fv 1200 1241
Fc⊥ 2792
Fc 5861
E

Maximum deflection of form members will be limited to . Use the

minimum live load permitted by ACI-code.
Determine joist spacing, stringer spacing, and shore spacing

University of Sulaimani - Engineering Projects Page 26

 Concrete Formwork Design 2011-2012

SOLUTION:
Beam (40 cm deep):
Concrete pressure = 0.4 x 2400 x
= 9.4176 Kpa
Formwork weight = 2.4 Kpa
Live stress = 2.4 Kpa
1. Deck Design:
W = 12.05 kpa

a) Bending ( )

( ) = 598 mm
b) Shear

c) Deflection ( ) ( )

( )

NOTE: Deflection governs in this case and the maximum allowable span is
(563 mm), and we reduce it by a factor of (95%) for safety.

We will select ( ) joist spacing.

2. Joist Design:
W= sheathing span × Design Load
W= 0.528 × 12.05 = 6.36 KN/m

a)Bending ( )

University of Sulaimani - Engineering Projects Page 27

 Concrete Formwork Design 2011-2012

( )

b) Shear

c) Deflection ( ) ( )

( )
Here bending governs and the maximum joist span is (2581 mm) and reduce
by (95%).

So we will select a stringer-spacing (joist span) of (2476 mm)

3. Stringer spacing:
W= joist span × Design Load
W= 2.476 × 12.05=29.835 kN/m

a) Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

University of Sulaimani - Engineering Projects Page 28

 Concrete Formwork Design 2011-2012

d)
Thus the maximum stringer span is limited by shore strength to (0.596 m)
and reducing by (95%).
So it is being
Check for crushing:
Check for crushing at the point where each joist rests on a stringer.

Bearing area
⊥

⊥
Final Design:-
Decking nominal (25 mm) lumber.
Joist (100×200 mm) @ 530 mm spacing.
Stringer (100×200 mm) @ 2480 mm spacing.
Shore 17.8 KN commercial @ 570mm spacing.
4.1.3.2 Lateral Bracing for Beam3
Strut Cross-section from Table 4.2:
(19 x 64 mm)
Spacing = taken from beam1 since it is greater use its design values.
4.1.4 Beam 4 Form Design
4.1.4.1 Beam 4 beneath design
Design of the formwork for an elevated concrete floor beam (35cm)
thick. Sheathing will be nominal (25 mm) lumber while (100×200 mm)
lumber will be used for joists.
Stringers will be (100×200 mm) lumber. Assume that all members are
continuous over three or more spans. Commercial (17.8 KN) shores will be
used. It is estimated that the weight of the formwork will be (0.24 kpa). The
adjusted allowable stresses for the lumber being used as follows:

Symbols Sheathing (kPa) Other members (kPa)

University of Sulaimani - Engineering Projects Page 29

 Concrete Formwork Design 2011-2012

Fb 7412 8619
Fv 1200 1241
Fc⊥ 2792
Fc 5861
E
Maximum deflection of form members will be limited to . Use the
minimum live load permitted by ACI-code.
Determine joist spacing, stringer spacing, and shore spacing
SOLUTION:
Beam (35 cm deep):
Concrete pressure = 0.35 x 2400 x
= 8.2404 Kpa
Formwork weight = 2.4 Kpa
Live stress = 2.4 Kpa
1. Deck Design:
W = 10.88 kpa

a) Bending ( )

( ) = 638 mm
b) Shear

c) Deflection ( ) ( )

( )

NOTE: Deflection governs in this case and the maximum allowable span is
(583 mm), and we reduce it by a factor of (95%) for safety.

University of Sulaimani - Engineering Projects Page 30

 Concrete Formwork Design 2011-2012

we will select ( ) joist spacing.

2. Joist Design:
W= sheathing span × Design Load
W= 0.555 × 10.88 = 6.04 KN/m

a)Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )
Here bending governs and the maximum joist span is (2678 mm) and reduce
by (95%).

So we will select a stringer-spacing (joist span) of (2550 mm)

3. Stringer spacing:
W= joist span × Design Load
W= 2.55 × 10.88=27.744 kN/m

a) Bending ( )

( )

b) Shear

University of Sulaimani - Engineering Projects Page 31

 Concrete Formwork Design 2011-2012

c) Deflection ( ) ( )

( )

d)
Thus the maximum stringer span is limited by shore strength to (0.561 m)
and reducing by (95%).
So it is being
Check for crushing:
Check for crushing at the point where each joist rests on a stringer.

Bearing area
⊥

Final Design:-
Decking nominal (25 mm) lumber.
Joist (100×200 mm) @ 555 mm spacing.
Stringer (100×200 mm) @ 2550 mm spacing.
Shore 17.8 KN commercial @ 600mm spacing.
4.1.4.2 Lateral Bracing for Beam4
Strut Cross-section from Table 4.2:
(19 x 64 mm)
Spacing = taken from beam1 since it is greater use its design values.

University of Sulaimani - Engineering Projects Page 32

 Concrete Formwork Design 2011-2012

4.2 Calculation Of Slabs

The following Slab depths are available:
Slab1:15cm (For Basement, Ground, and First Floor)
Slab2:18cm (For Second floor slab only)

4.2.1Slab1 Form Design

4.2.1.1Slab1 Beneath Design
Design the formwork for an elevated concrete floor slab (15 cm) thick.
Sheathing will be nominal (25 mm) lumber while (50×200 mm) lumber will
be used for joists.
Stringers will be (100×200 mm) lumber. Assume that all members are
continuous over three or more spans. Commercial (17.8 KN) shores will be
used. It is estimated that the weight of the formwork will be (0.24 kpa). The
adjusted allowable stresses for the lumber being used as follows:

Symbols Sheathing (kPa) Other members (kPa)

Fb 7412 8619
Fv 1200 1241
Fc⊥ 2792
Fc 5861
E

Maximum deflection of form members will be limited to . Use the

minimum live load permitted by ACI-code.
Determine joist spacing, stringer spacing, and shore spacing
SOLUTION:
Design Load:
Density of reinforced concrete = γ = 2400 kg/
Slab thickness = 15 cm
Concrete pressure = 0.15 × 2400 × 9.81
Concrete pressure = 3.5316 kpa
Formwork weight = 0.24 kpa
Live Load = 2.4 kpa

University of Sulaimani - Engineering Projects Page 33

 Concrete Formwork Design 2011-2012

Design Load = 6.1716 ≈ 6.2 kpa

1. Deck Design:
W = 6.88 kpa

a) Bending ( )

( ) = 846 mm
b) Shear

c) Deflection ( ) ( )

( )

NOTE: Deflection governs in this case and the maximum allowable span is
(704 mm), and we reduce it by a factor of (95%) for safety.

we will select ( ) joist spacing.

2. Joist Design:
W= sheathing span × Design Load
W= 0.67 × 6.88 = 4.154 KN/m

a)Bending ( )

( )

b) Shear

University of Sulaimani - Engineering Projects Page 34

 Concrete Formwork Design 2011-2012

c) Deflection ( ) ( )

( )
Here bending governs and the maximum joist
span is (2114 mm) and reduce by (95%).

So we will select a stringer-spacing (joist span) of (2000 mm)

3. Stringer spacing:
W= joist span × Design Load
W= 2.000 × 6.2=13.35 kN/m

a) Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

d)
Thus the maximum stringer span is limited by shore strength to (1.43 m)
and reducing by (95%).
So it is being

University of Sulaimani - Engineering Projects Page 35

 Concrete Formwork Design 2011-2012

Check for crushing:

Check for crushing at the point where each joist rests on a stringer.

Bearing area
⊥

Final Design:-
Decking nominal (25 mm) lumber.
Joist (50×200 mm) @ 670 mm spacing.
Stringer (100×200 mm) @ 2000 mm spacing.
Shore 17.8 KN commercial @ 1360 mm spacing.
*Hint: the above design is applicable for:
Basement slab,
Ground floor slab,
First floor slab, and
Penthouse slab.

4.2.1.2 Lateral Bracing for Slab1 (15cm)

Thickness=15cm
Width=Length = 25.3m
Formwork weight (assumed)= 0.72KPa
Allowable Stress:
Fc=5861 KPa
Ft=4999 KPa
E=9.7 x 106 KPa

University of Sulaimani - Engineering Projects Page 36

 Concrete Formwork Design 2011-2012

Assume l'=0.3m and h'=0.15m

Dl= =4.25Kpa
H=0.02 x DL x W
H=0.02 x 4.25 x 25.3 = 2.151 KN/m > 1.46 KN/m (Min. value) >>OK
P'= '= =2.4 Kn/m
Assume Strut Cross-section from Table 4.2:
(19 x 64 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 18 <50 >>OK
Fc' = = = 8981.5 KPa …..use min stress which is Ft=4999Kpa
( )

P=
Spacing =

University of Sulaimani - Engineering Projects Page 37

 Concrete Formwork Design 2011-2012

4.2.2 Slab2 Form Design

4.2.2.1 Slab2 Beneath Design
Design the formwork for an elevated concrete floor slab (18 cm) thick.
Sheathing will be nominal (25 mm) lumber while (50×200 mm) lumber will
be used for joists.
Stringers will be (100×200 mm) lumber. Assume that all members are
continuous over three or more spans. Commercial (17.8 KN) shores will be
used. It is estimated that the weight of the formwork will be (0.24 kpa). The
adjusted allowable stresses for the lumber being used as follows:

Symbols Sheathing (kPa) Other members (kPa)

Fb 7412 8619
Fv 1200 1241
Fc⊥ 2792
Fc 5861
E

Maximum deflection of form members will be limited to . Use the

minimum live load permitted by ACI-code.
Determine joist spacing, stringer spacing, and shore spacing
SOLUTION:
Design Load.
Density of reinforced concrete = γ = 2400 kg/
Slab thickness = 18 cm
Concrete pressure = 0.18 × 2400 × 9.8/1000
Concrete pressure = 4.24 kpa Formwork weight = 0.24 kpa
Live Load = 2.4 kpa Design Load = 6.88 kpa
1. Deck Design:
W = 6.88 kpa

a) Bending ( )

( ) = 803 mm
University of Sulaimani - Engineering Projects Page 38
 Concrete Formwork Design 2011-2012

b) Shear

c) Deflection ( ) ( )

( )

NOTE: Deflection governs in this case and the maximum allowable span is
(680 mm), and we reduce it by a factor of (95%) for safety.

we will select ( ) joist spacing.

2. Joist Design:
W= sheathing span × Design Load
W= 0.646 × 6.88 = 4.444 KN/m

a)Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )
Here bending governs and the maximum joist span is (2043 mm) and reduce
by (95%).

So we will select a stringer-spacing (joist span) of (1940 mm)

University of Sulaimani - Engineering Projects Page 39
 Concrete Formwork Design 2011-2012

3. Stringer spacing:
W= joist span × Design Load
W= 1.94 × 6.88=13.35 kN/m

a) Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

d)
Thus the maximum stringer span is limited by shore strength to (1.43 m)
and reducing by (95%).
So it is being
Check for crushing:
Check for crushing at the point where each joist rests on a stringer.

Bearing area
⊥

University of Sulaimani - Engineering Projects Page 40

 Concrete Formwork Design 2011-2012

Final Design:-
Decking nominal (25 mm) lumber.
Joist (50×200 mm) @ 646 mm spacing.
Stringer (100×200 mm) @ 1940 mm spacing.
Shore 17.8 KN commercial @ 1270 mm spacing.
*Hint: the above design is applicable for:
Second floor slab only.

4.2.2.2 Lateral Bracing for Slab2 (18cm)

Thickness=18cm
Width=Length = 25.3m
Formwork weight (assumed for safety =3*0.24)= 0.72KPa
Allowable Stress:
Fc=5861 KPa
Ft=4999 KPa
E=9.7 x 106 KPa
Assume l'=0.3m and h'=0.15m

Dl= =4.96Kpa
H=0.02 x DL x W
H=0.02 x 4.25 x 25.3 = 2.151 KN/m > 1.46 KN/m (Min. value) >>OK
P'= '= =3.37 Kn/m
Assume Strut Cross-section from Table 4.2:
(19 x 64 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 18 <50 >>OK

University of Sulaimani - Engineering Projects Page 41

 Concrete Formwork Design 2011-2012

Fc' = = = 8981.5 KPa …..use min stress which is Ft=4999Kpa

( )

P=
Spacing =

4.3 Calculations Of Walls And Columns

4.3.1 Walls Having Tie
All The walls and Columns Have the same design in the Example Frame:
Forms are to be poured at rate of 1.219 m/h , internally vibrated , at a
temperature of 32˚. The concrete mixture is Type I cement having a density
of 2400 kg/m3. Sheathing will be 1.2 x 2.4 sheets of 19 mm thick Class I ply
form with face grain perpendicular studs.
Studs and double wales will be 50 x 100 mm lumber. Ties are 13.34 KN with
38 mm wide wedges bearing on wales.
Maximum deflection of form members will be limited to .
Determine stud , wale and tie spacing. Use plyform section properties and
allowable stress from table.
The adjusted allowable stresses for the lumber being used for stud and wale
are as follows:
Symbols Studs and Wales(kPa)
Fb 12480
Fv 827
Fc⊥ 3340
E 11.7 x 106
Determine joist spacing, stringer spacing, and shore spacing
SOLUTION:
Let the factors Cw and Cc be 1.0 from the table.

( )

( )

University of Sulaimani - Engineering Projects Page 42

 Concrete Formwork Design 2011-2012

Live stress = 2.4 Kpa

Total pressure = 28.7 Kpa
1. Stud Spacing :
Material 19 mm Class I Ply-form
Consider a strip of 1 m wide
W= 1 x 1 x 28.7 Kpa
a) Bending ( )

( )

b) Shear

= 477 mm

c) Deflection ( ) ( )
NOTE: Bending governs in this case and the maximum allowable span is
(337 mm), and we reduce it by a factor of (95%) for safety.

we will select ( ) Stud spacing.

2. Wale Spacing:
Since the stud spacing is (320 mm) , Consider a uinform
design load distributed on the wale span of (320mm).

a)Bending ( )

( )

b) Shear

University of Sulaimani - Engineering Projects Page 43

 Concrete Formwork Design 2011-2012

c) Deflection ( ) ( )

( )
Here bending governs and the maximum Wale is (517 mm) and reduce by
(95%).

So we will select a wale-spacing (max. span) of (491 mm)

3. Tie spacing:
Based on wale spacing of 491 mm

a) Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

d)
Thus the maximum stringer span is limited by shore strength to (0.504 m)
and reducing by (95%).

University of Sulaimani - Engineering Projects Page 44

 Concrete Formwork Design 2011-2012

So it is being
Check for crushing:
Check for crushing at the point where each joist rests on a stringer.

Bearing area
⊥

⊥
Final Design:-
Decking nominal (25 mm) lumber.
Joist (100×200 mm) @ 500 mm spacing.
Stringer (100×200 mm) @ 2240 mm spacing.
Shore 17.8 KN commercial @ 500 mm spacing.

4.3.2 Lateral Bracing for the wall(2.8m)

Height=2.8m
Width=0.25 m Length = 5.7m
Formwork weight (assumed)= 0.72KPa
Allowable Stress:
University of Sulaimani - Engineering Projects Page 45
 Concrete Formwork Design 2011-2012

Fc=5861 KPa
Ft=4999 KPa
E=9.7 x 106 KPa
Assume l'=1.53m and h'=1.83m

Dl= =66.64Kpa
H=0.02 x DL x W
H=0.02 x 66.64 x 0.25 = 0.3332 KN/m < 1.46 KN/m (use Min. value)
P'= '= =3.03 Kn/m
Assume Strut Cross-section from Table 4.2:
(64 x 89 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 37.2 <50 OK
Fc' = = = 2102 KPa …..use min stress which is Fc'=2102Kpa
( )

P=
Spacing =
4.3.3 Lateral Bracing for the Column (3.1m)

University of Sulaimani - Engineering Projects Page 46

 Concrete Formwork Design 2011-2012

Height=3.1m
Width=0.5m Length = 0.5m
Formwork weight (assumed)= 0.72KPa
Allowable Stress:
Fc=5861 KPa
Ft=4999 KPa
E=9.7 x 106 KPa
Assume l'=2.0m and h'=2.5m

Dl= =73.71Kpa
H=0.02 x DL x W
H=0.02 x 73.71 x 0.5 = 0.7371 KN/m < 1.46 KN/m (use Min. value)
P'= = =2.9 Kn/m
Assume Strut Cross-section from Table 4.2:
(64 x 89 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 50 ≤50 OK
Fc' = = = 1164 KPa …..Use min stress which is Fc'=1164Kpa
( )

P=
Spacing =

University of Sulaimani - Engineering Projects Page 47

 Concrete Formwork Design 2011-2012

4.4 Stairs Design

4.4.1 Stairs Beneath Design
Design the formwork for a concrete floor stair (26 cm) thick
(maximum depth) . Sheathing will be nominal (25 mm) lumber while
(50×200 mm) lumber will be used for joists.
Stringers will be (100×200 mm) lumber. Assume that all members are
continuous over three or more spans. Commercial (17.8 KN) shores will be
used. It is estimated that the weight of the formwork will be (0.24 kpa). The
adjusted allowable stresses for the lumber being used as follows:

Symbols Sheathing (kPa) Other members (kPa)

Fb 7412 8619
Fv 1200 1241
Fc⊥ 2792
Fc 5861
E

Maximum deflection of form members will be limited to . Use the

minimum live load permitted by ACI-code.
Determine joist spacing, stringer spacing, and shore spacing
SOLUTION:
* Design Load.
Density of reinforced concrete = γ = 2400 kg/
Slab thickness = 26 cm
Concrete pressure = 0.26 × 2400 × 9.8/1000
Concrete pressure = 6.12 kpa
Formwork weight = 0.24 kpa
Live Load = 2.4 kpa
Design Load = 8.76 kpa
1. Deck Design:
W = 8.76 kpa

a) Bending ( )

University of Sulaimani - Engineering Projects Page 48

 Concrete Formwork Design 2011-2012

( ) = 702 mm
b) Shear

c) Deflection ( ) ( )

( )

NOTE: Deflection governs in this case and the maximum allowable span is
(619 mm), and we reduce it by a factor of (95%) for safety.

we will select ( ) joist spacing.

2. Joist Design:
W= sheathing span × Design Load
W= 0.588 × 8.76 = 5.15 KN/m

a)Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )
Here bending governs and the maximum joist span is (1898 mm) and reduce
by (95%).
University of Sulaimani - Engineering Projects Page 49
 Concrete Formwork Design 2011-2012

So we will select a stringer-spacing (joist span) of (1803 mm)

3. Stringer spacing:
W= joist span × Design Load
W= 1.803 × 8.76=15.79 kN/m

a) Bending ( )

( )

b) Shear

c) Deflection ( ) ( )

( )

d)
Thus the maximum stringer span is limited by shore strength to (1.126 m)
and reducing by (95%).
So it is being
Check for crushing:
Check for crushing at the point where each joist rests on a stringer.

Bearing area
⊥

University of Sulaimani - Engineering Projects Page 50

 Concrete Formwork Design 2011-2012

Final Design:-
Decking nominal (25 mm) lumber.
Joist (50×200 mm) @ 590 mm spacing.
Stringer (100×200 mm) @ 1800 mm spacing.
Shore 17.8 KN commercial @ 1070 mm spacing.
4.4.2 Lateral Bracing for the Stairs(26cm)

Thickness=26cm
Width=0.3m
Formwork weight (assumed FOS=3)= 0.72KPa
Allowable Stress:
Fc=5861 KPa
Ft=4999 KPa
University of Sulaimani - Engineering Projects Page 51
 Concrete Formwork Design 2011-2012

E=9.7 x 106 KPa

Assume l'=0.3m and h'=0.18m

Dl= =6.84Kpa
H=0.02 x DL x W
H=0.02 x 6.84 x 0.3 = .04 KN/m < 1.46 KN/m (use Min. value)
P'= '= =2.46 Kn/m
Assume Strut Cross-section from Table 4.2:
(19 x 64 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 18.4 <50 >>OK
Fc' = = = 8595 KPa …..use min stress which is Ft=4999Kpa
( )

P=
Spacing =

University of Sulaimani - Engineering Projects Page 52

 Concrete Formwork Design 2011-2012

4.5 Foundation Design

We only need to provide lateral Bracing:
4.5.1 Lateral Bracing for the Combined Footing (0.8m)

Heitht=0.8m
Width=3.2m
Formwork weight (assumed)= 0.72KPa
Allowable Stress:
Fc=5861 KPa
Ft=4999 KPa
E=9.7 x 106 KPa
Assume l'=0.55m and h'=0.5m

Dl= =19.56Kpa
H=0.02 x DL x W
H=0.02 x 19.56 x 3.2 = 1.25 KN/m < 1.46 KN/m (use Min. value)
P'= '= =3.143 Kn/m
Assume Strut Cross-section from Table 4.2:
(38 x 64 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 19.5 <50 OK

University of Sulaimani - Engineering Projects Page 53

 Concrete Formwork Design 2011-2012

Fc' = = = 7652.9 KPa …..use min stress which is Fc'=4999Kpa

( )

P=
Spacing =
4.5.2 Lateral Bracing for the Wall Footing (0.6m)

Heitht=0.6m
Width=2.0m
Formwork weight (assumed)= 0.72KPa
Allowable Stress:
Fc=5861 KPa
Ft=4999 KPa
E=9.7 x 106 KPa
Assume l'=0.55m and h'=0.5m

Dl= =14.85Kpa
H=0.02 x DL x W
H=0.02 x 14.85 x 2.0 = 0.594 KN/m < 1.46 KN/m (use Min. value)
P'= '= =2.36 Kn/m

University of Sulaimani - Engineering Projects Page 54

 Concrete Formwork Design 2011-2012

Assume Strut Cross-section from Table 4.2:

(38 x 64 mm)
The Ratio of the length of the strut to least dimension of the strut
(
= 19.5 <50 OK
Fc' = = = 7652.9 KPa …..use min stress which is Fc'=4999Kpa
( )

P=
Spacing =

University of Sulaimani - Engineering Projects Page 55

 Concrete Formwork Design 2011-2012

4.6 The building sample consisting of plan of basement,

one of the floors and section of the building.

a Floor Plan

University of Sulaimani - Engineering Projects Page 56

 Concrete Formwork Design 2011-2012

Section(A-A)

Basement Plan

University of Sulaimani - Engineering Projects Page 57

 Concrete Formwork Design 2011-2012

Chapter Five
Specification
Table4.1-for columns and walls only:

University of Sulaimani - Engineering Projects Page 58

 Concrete Formwork Design 2011-2012

Table 4.2. Property of all the components (Beams, walls …etc)

Table2-for all components:

University of Sulaimani - Engineering Projects Page 59

 Concrete Formwork Design 2011-2012

University of Sulaimani - Engineering Projects Page 60

 Concrete Formwork Design 2011-2012

Chapter Six
In our project we have created a software to design the formwork
components. The application is created via Visual basic 6.0 with more than
8000 lines of codes in which the tables and specifications are input , The user
needs only to input the information required.
The software is demonstrated as follows:
6.1 Slab and Beam Design:
The data needed to be input in the form of slab and beam is:
1. Slab thickness (in m).
2. Sheathing thickness (in mm).
3. Joist cross section (in mm).
4. Stringer cross section (in mm).
5. Weight of shore(in KN).
6. Weight Of formwork (in KN).
7. Allowable unit stress in bending for sheathing , joist and stringer(in
KN/m2).
8. Allowable unit stress in horizontal shear for sheathing , joist and
stringer(in KN/m2).
9. Allowable unit stress in compression perpendicular to grain for
sheathing , joist and stringer(in KN/m2).
10. Allowable unit stress in compression parallel to grain for
sheathing , joist and stringer(in KN/m2).
11. Modulus of elasticity for sheathing , joist and stringer(in
KN/m2).

6.2 Wall and Column Design:

The data needed to be input in the form of Wall and Column is:

Rate of pouring (in m).

Temperature (in ℃)
Sheathing thickness (in mm).
Stud cross section (in mm).

University of Sulaimani - Engineering Projects Page 61

 Concrete Formwork Design 2011-2012

Wale cross section (in mm).

Tie cross section (in mm).
Capacity of tie (in KN).
Plyform class.
Face orientation to Support.
Allowable unit stress in bending for for stud and wale (in KN/m2).
Allowable unit stress in horizontal shear for stud and wale (in KN/m2).
Allowable unit stress in compression for stud and wale (in KN/m2).
Modulus of elasticity for stud and wale (in KN/m2).

Note: The command under the name of "the design properties …..from
tables" goes to the table which has been saved by codes in the program and
shows it to the user.

6.3 The VB Codes

Definition of the program forms , the CODE of which are written later:

Form1: is specified to the slab and beam calculation.(Fig. 6.1)

Form2: is specified to the slab and beam table specifications. (Fig. 6.2)
Form3: is the welcome page. (Fig. 6.3)
Form4: is for the wall and column calculations. (Fig. 6.4)
Form5: is specified to the wall and column table specifications. (Fig. 6.5)
Form6: calculates the formwork components per area for the slab
and beams. (Fig. 6.6)
Form7: calculates the formwork components per area for the walls and
columns. (Fig. 6.7)
Form8: Lateral Bracing (Fig. 6.8)

University of Sulaimani - Engineering Projects Page 62

 Concrete Formwork Design 2011-2012

Fig. 6.3

University of Sulaimani - Engineering Projects Page 63

 Concrete Formwork Design 2011-2012

Fig. 6.1

University of Sulaimani - Engineering Projects Page 64

 Concrete Formwork Design 2011-2012

Fig. 6.2

Fig. 6.6

University of Sulaimani - Engineering Projects Page 65

 Concrete Formwork Design 2011-2012

Fig. 6.4

University of Sulaimani - Engineering Projects Page 66

 Concrete Formwork Design 2011-2012

Fig. 6.7

Fig. 6.5

University of Sulaimani - Engineering Projects Page 67

 Concrete Formwork Design 2011-2012

Fig. 6.8










University of Sulaimani - Engineering Projects Page 68
 Concrete Formwork Design 2011-2012

6.3.1 Form1 Codes:

Private Sub Command1_Click() '
Text22.Text = Text1 * 2400 * 9.81 / 1000 '
End Sub '
'
Private Sub Command10_Click() 'If Text78 < Text4 And Text4 < Text48 Then
For i = 19 To 28 'If Text4 - Text78 < Text48 - Text4 Then
If Text4 = i Then 'Text82 = Text78
Text82 = "19" 'End If
End If 'If Text4 - Text78 > Text48 - Text4 Then
Next i 'Text82 = Text48
For i = 29 To 51 'End If
If Text4 = i Then 'End If
Text82 = "38" 'If Text48 < Text4 And Text4 < Text49 Then
End If 'If Text4 - Text48 < Text49 - Text4 Then
Next i 'Text82 = Text48
For i = 52 To 76 'End If
If Text4 = i Then 'If Text4 - Text48 > Text49 - Text4 Then
Text82 = "64" 'Text82 = Text49
End If 'End If
Next i 'End If
For i = 77 To 114 ''
If Text4 = i Then 'If Text49 < Text4 And Text4 < Text50 Then
Text82 = "89" 'If Text4 - Text49 < Text50 - Text4 Then
End If 'Text82 = Text49
Next i 'End If
For i = 115 To 165 'If Text4 - Text49 > Text50 - Text4 Then
If Text4 = i Then 'Text82 = Text50
Text82 = "140" 'End If
End If 'End If
Next i ''
For i = 165 To 216
If Text4 = i Then 'If Text50 < Text4 And Text4 < Text51 Then
Text82 = "191" 'If Text4 - Text50 < Text51 - Text4 Then
End If 'Text82 = Text50
Next i 'End If
For i = 217 To 266 'If Text4 - Text50 > Text51 - Text4 Then
If Text4 = i Then 'Text82 = Text51
Text82 = "241" 'End If
End If 'End If
Next i ''
For i = 267 To 317 'If Text51 < Text4 And Text4 < Text52 Then
If Text4 = i Then 'If Text4 - Text51 < Text52 - Text4 Then
Text82 = "292" 'Text82 = Text51
End If 'End If
Next i 'If Text4 - Text51 > Text52 - Text4 Then
For i = 318 To 343 'Text82 = Text52
If Text4 = i Then 'End If
Text82 = "343" 'End If
End If '
Next i 'If Text52 < Text4 And Text4 < Text53 Then
' here the first column of the table finished 'If Text4 - Text52 < Text53 - Text4 Then
'Text82 = Text52

University of Sulaimani - Engineering Projects Page 69

 Concrete Formwork Design 2011-2012

'End If 'End If
'If Text4 - Text52 > Text53 - Text4 Then 'If Text74 - Text58 > Text59 - Text74 Then
'Text82 = Text53 'Text83 = Text59
'End If 'End If
'End If 'End If
'' ''
'
'If Text59 < Text74 And Text74 < Text60
'If Text53 < Text4 And Text4 < Text54 Then Then
'If Text4 - Text53 < Text54 - Text4 Then 'If Text74 - Text59 < Text60 - Text74 Then
'Text82 = Text53 'Text83 = Text59
'End If 'End If
'If Text4 - Text53 > Text54 - Text4 Then 'If Text74 - Text59 > Text60 - Text74 Then
'Text82 = Text54 'Text83 = Text60
'End If 'End If
'End If 'End If
'' '
'' 'If Text60 < Text74 And Text74 < Text61
'If Text54 < Text4 And Text4 < Text55 Then Then
'If Text4 - Text54 < Text55 - Text4 Then 'If Text74 - Text60 < Text61 - Text74 Then
'Text82 = Text54 'Text83 = Text60
'End If 'End If
'If Text4 - Text54 > Text55 - Text4 Then 'If Text74 - Text60 > Text61 - Text74 Then
'Text82 = Text55 'Text83 = Text61
'End If 'End If
'End If 'End If
'first column finishes here ''
' 'If Text61 < Text74 And Text74 < Text62
'If Text56 < Text74 And Text74 < Text57 Then
Then 'If Text74 - Text61 < Text62 - Text74 Then
'If Text74 - Text56 < Text57 - Text74 Then 'Text83 = Text61
'Text83 = Text56 'End If
'End If 'If Text74 - Text61 > Text62 - Text74 Then
'If Text74 - Text56 > Text57 - Text74 Then 'Text83 = Text62
'Text83 = Text57 'End If
'End If 'End If
'End If '
' 'If Text62 < Text74 And Text74 < Text63
' Then
'If Text57 < Text74 And Text74 < Text58 'If Text74 - Text62 < Text63 - Text74 Then
Then 'Text83 = Text62
'If Text74 - Text57 < Text58 - Text74 Then 'End If
'Text83 = Text57 'If Text74 - Text62 > Text63 - Text74 Then
'End If 'Text83 = Text63
'If Text74 - Text57 > Text58 - Text74 Then 'End If
'Text83 = Text58 'End If
'End If '
'End If 'If Text63 < Text74 And Text74 < Text64
'' Then
'If Text58 < Text74 And Text74 < Text59 'If Text74 - Text63 < Text64 - Text74 Then
Then 'Text83 = Text63
'If Text74 - Text58 < Text59 - Text74 Then 'End If
'Text83 = Text58 'If Text74 - Text63 > Text64 - Text74 Then

University of Sulaimani - Engineering Projects Page 70

 Concrete Formwork Design 2011-2012

'Text83 = Text64 'End If

'End If 'End If
'End If' ''
'If Text69 < Text74 And Text74 < Text70
' Then
'If Text64 < Text74 And Text74 < Text65 'If Text74 - Text69 < Text70 - Text74 Then
Then 'Text83 = Text69
'If Text74 - Text64 < Text65 - Text74 Then 'End If
'Text83 = Text64 'If Text74 - Text69 > Text70 - Text74 Then
'End If 'Text83 = Text70
'If Text74 - Text64 > Text65 - Text74 Then 'End If
'Text83 = Text65 'End If
'End If ''second column finishes here
'End If '
''
'If Text65 < Text74 And Text74 < Text66
Then
'If Text74 - Text65 < Text66 - Text74 Then
'Text83 = Text65 'section area moment of inertia:
'End If 'section area moment of inertia
'If Text74 - Text65 > Text66 - Text74 Then 'section area moment of inertia
'Text83 = Text66 'section area moment of inertia
'End If 'section area moment of inertia
'End If 'section area moment of inertia
' ''''''''''''''''''''''''''''''''''''''''''' check copmatibility
'If Text66 < Text74 And Text74 < Text67 of the c/s
Then If Text82 = "19" And Text83 = "64" Then
'If Text74 - Text66 < Text67 - Text74 Then Text79 = 1210
'Text83 = Text66 Text80 = 12800
'End If Text81 = 406500
'If Text74 - Text66 > Text67 - Text74 Then End If
'Text83 = Text67 If Text82 = "19" And Text83 = "89" Then
'End If Text79 = 1694
'End If Text80 = 250900
'' Text81 = 1115000
'If Text67 < Text74 And Text74 < Text68 End If
Then If Text82 = "19" And Text83 = "140" Then
'If Text74 - Text67 < Text68 - Text74 Then Text79 = 2661
'Text83 = Text67 Text80 = 619600
'End If Text81 = 4238000
'If Text74 - Text67 > Text68 - Text74 Then End If
'Text83 = Text68 If Text82 = "19" And Text83 = "184" Then
'End If Text79 = 3508
'End If Text80 = 107700
' Text81 = 9913000
' End If
'If Text68 < Text74 And Text74 < Text69 If Text82 = "19" And Text83 = "235" Then
Then Text79 = 4476
'If Text74 - Text68 < Text69 - Text74 Then Text80 = 175300
'Text83 = Text68 Text81 = 20590000
'End If End If
'If Text74 - Text68 > Text69 - Text74 Then If Text82 = "19" And Text83 = "286" Then
'Text83 = Text69 Text79 = 5444

University of Sulaimani - Engineering Projects Page 71

 Concrete Formwork Design 2011-2012

Text80 = 259200 If Text82 = "64" And Text83 = "235" Then

Text81 = 37040000 Text79 = 14910
End If Text80 = 584200
If Text82 = "38" And Text83 = "64" Then Text81 = 68630000
Text79 = 2419 End If
Text80 = 25610 If Text82 = "64" And Text83 = "286" Then
Text81 = 812900 Text79 = 18140
End If Text80 = 864200
If Text82 = "38" And Text83 = "89" Then Text81 = 123500000
Text79 = 3387 End If
Text80 = 501900 If Text82 = "64" And Text83 = "337" Then
Text81 = 2231000 Text79 = 21370
End If Text80 = 1199000
If Text82 = "38" And Text83 = "140" Then Text81 = 201700000
Text79 = 5323 End If
Text80 = 123900 If Text82 = "64" And Text83 = "387" Then
Text81 = 8656000 Text79 = 24600
End If Text80 = 1588000
If Text82 = "38" And Text83 = "184" Then Text81 = 307500000
Text79 = 7016 End If
Text80 = 215300 If Text82 = "89" And Text83 = "89" Then
Text81 = 19830000 Text79 = 7903
End If Text80 = 117100
If Text82 = "38" And Text83 = "235" Then Text81 = 5205000
Text79 = 8952 End If
Text80 = 350500 If Text82 = "89" And Text83 = "184" Then
Text81 = 41180000 Text79 = 16370
End If Text80 = 502400
If Text82 = "38" And Text83 = "286" Then Text81 = 46260000
Text79 = 10890 End If
Text80 = 518500 If Text82 = "89" And Text83 = "235" Then
Text81 = 74080000 Text79 = 20890
End If Text80 = 817900
If Text82 = "38" And Text83 = "337" Then Text81 = 96800000
Text79 = 12820 End If
Text80 = 719200 If Text82 = "89" And Text83 = "286" Then
Text81 = 121000000 Text79 = 24400
End If Text80 = 1210000
If Text82 = "64" And Text83 = "89" Then Text81 = 127800000
Text79 = 5645 End If
Text80 = 83640 If Text82 = "89" And Text83 = "337" Then
Text81 = 3718000 Text79 = 29920
End If Text80 = 1678000
If Text82 = "64" And Text83 = "140" Then Text81 = 282400000
Text79 = 8871 End If
Text80 = 206500 If Text82 = "89" And Text83 = "387" Then
Text81 = 14430000 Text79 = 34430
End If Text80 = 2223000
If Text82 = "64" And Text83 = "184" Then Text81 = 430600000
Text79 = 11690 End If
Text80 = 358900 If Text82 = "140" And Text83 = "140" Then
Text81 = 33040000 Text79 = 19520
End If Text80 = 454300

University of Sulaimani - Engineering Projects Page 72

 Concrete Formwork Design 2011-2012

Text81 = 19520000 Text79 = 45970

End If Text80 = 1849000
If Text82 = "140" And Text83 = "191" Then Text81 = 223000000
Text79 = 26610 End If
Text80 = 845000 If Text82 = "191" And Text83 = "292" Then
Text81 = 80480000 Text79 = 55650
End If Text80 = 2709000
If Text82 = "140" And Text83 = "241" Then Text81 = 395700000
Text79 = 33710 End If
Text80 = 1356000 If Text82 = "191" And Text83 = "343" Then
Text81 = 163600000 Text79 = 65320
End If Text80 = 3733000
If Text82 = "140" And Text83 = "292" Then Text81 = 640100000
Text79 = 40810 End If
Text80 = 1987000 If Text82 = "191" And Text83 = "394" Then
Text81 = 290100000 Text79 = 75000
End If Text80 = 4921000
If Text82 = "140" And Text83 = "343" Then Text81 = 968800000
Text79 = 47900 End If
Text80 = 2738000 If Text82 = "191" And Text83 = "445" Then
Text81 = 469400000 Text79 = 84680
End If Text80 = 6273000
If Text82 = "140" And Text83 = "394" Then Text81 = 1394000000
Text79 = 55000 End If
Text80 = 3609000 If Text82 = "191" And Text83 = "495" Then
Text81 = 710400000 Text79 = 94360
End If Text80 = 7789000
If Text82 = "140" And Text83 = "445" Then Text81 = 1929000000
Text79 = 62100 End If
Text80 = 4600000 If Text82 = "191" And Text83 = "546" Then
Text81 = 1022000000 Text79 = 104000
End If Text80 = 9489000
If Text82 = "140" And Text83 = "495" Then Text81 = "2585000000"
Text79 = 69190 End If
Text80 = 5712000 If Text82 = "191" And Text83 = "597" Then
Text81 = 1415000000 Text79 = 113700
End If Text80 = 11310000
If Text82 = "140" And Text83 = "546" Then Text81 = "3376000000"
Text79 = 76290 End If
Text80 = 6944000 If Text82 = "241" And Text83 = "241" Then
Text81 = 1896000000 Text79 = 58230
End If Text80 = 2342000
If Text82 = "140" And Text83 = "597" Then Text81 = 282500000
Text79 = 83390 End If
Text80 = 8296000 If Text82 = "241" And Text83 = "292" Then
Text81 = "2476000000" Text79 = 70480
End If Text80 = 3431000
If Text82 = "191" And Text83 = "191" Then Text81 = 501200000
Text79 = 36290 End If
Text80 = 1152000 If Text82 = "241" And Text83 = "343" Then
Text81 = 109800000 Text79 = 82740
End If Text80 = 4729000
If Text82 = "191" And Text83 = "241" Then Text81 = 810700000

University of Sulaimani - Engineering Projects Page 73

 Concrete Formwork Design 2011-2012

End If Text80 = 14520000

If Text82 = "241" And Text83 = "394" Then Text81 = "3964000000"
Text79 = 95000 End If
Text80 = 6234000 If Text82 = "292" And Text83 = "597" Then
Text81 = 1227000000 Text79 = 174400
End If Text80 = 17340000
If Text82 = "241" And Text83 = "445" Then Text81 = "4276000000"
Text79 = 107300 End If
Text80 = 7946000 If Text82 = "343" And Text83 = "343" Then
Text81 = 1766000000 Text79 = 117500
End If Text80 = 6720000
If Text82 = "241" And Text83 = "495" Then Text81 = 1152000000
Text79 = 119500 End If
Text80 = 9866000 If Text82 = "343" And Text83 = "394" Then
Text81 = "2443000000" Text79 = 135000
End If Text80 = 8858000
If Text82 = "241" And Text83 = "546" Then Text81 = 1744000000
Text79 = 131800 End If
Text80 = 11980000 If Text82 = "434" And Text83 = "445" Then
Text81 = "3275000000" Text79 = 152400
End If Text80 = 11290000
If Text82 = "241" And Text83 = "597" Then Text81 = "2510000000"
Text79 = 144000 End If
Text80 = 14330000 If Text82 = "343" And Text83 = "495" Then
Text81 = "4276000000" Text79 = 169800
End If Text80 = 14020000
If Text82 = "292" And Text83 = "292" Then Text81 = "3472000000"
Text79 = 85320 End If
Text80 = 4154000 If Text82 = "343" And Text83 = "546" Then
Text81 = 594200000 Text79 = 187300
End If Text80 = 17040000
If Text82 = "292" And Text83 = "343" Then Text81 = "4654000000"
Text79 = 100200 End If
Text80 = 5724000 If Text82 = "343" And Text83 = "597" Then
Text81 = 981400000 Text79 = 204700
End If Text80 = 20360000
If Text82 = "292" And Text83 = "394" Then Text81 = "6077000000"
Text79 = 115000 End If
Text80 = 7546000 '
Text81 = 1485000000 '
End If '
If Text82 = "292" And Text83 = "445" Then 'the same # for width
Text79 = 129800 If Text4 <= 19 Then
Text80 = 9619000 Text82 = 19
Text81 = "2138000000" End If
End If If Text4 >= 343 Then
If Text82 = "292" And Text83 = "495" Then Text82 = 343
Text79 = 144700 End If
Text80 = 11940000 If Text4 = 38 Then
Text81 = "2958000000" Text82 = 38
End If End If
If Text82 = "292" And Text83 = "546" Then If Text4 = 64 Then
Text79 = 159500 Text82 = 64

University of Sulaimani - Engineering Projects Page 74

 Concrete Formwork Design 2011-2012

End If End If
If Text4 = 89 Then If Text74 = 495 Then
Text82 = 89 Text83 = 495
End If End If
If Text4 = 140 Then If Text74 = 546 Then
Text82 = 140 Text83 = 546
End If End If
If Text4 = 191 Then If Text74 = 597 Then
Text82 = 191 Text83 = 597
End If End If
If Text4 = 241 Then '
Text82 = 241 '
End If 'check of bending for the joist
If Text4 = 292 Then Text31 = 100 / 1000000 * ((Val(Text17) *
Text82 = 292 Val(Text80)) / (Val(Text24) * Val(Text35)))
End If ^ 0.5
'
'the same # for height
If Text74 = 64 Then End Sub
Text83 = 64
End If Private Sub Command11_Click()
If Text74 = 89 Then Text32 = (1.11 / 1000000 * Val(Text18) *
Text83 = 89 Val(Text79) / (Val(Text24) * Val(Text35)))
End If + (2 * Val(Text83) / 1000)
If Text74 = 140 Then End Sub
Text83 = 140
End If Private Sub Command12_Click()
If Text74 = 184 Then Text33 = 73.8 / 1000000 * ((Val(Text21) *
Text83 = 184 Val(Text81)) / (Val(Text24) * Val(Text35)))
End If ^ (1 / 3)
If Text74 = 235 Then End Sub
Text83 = 235
End If Private Sub Command13_Click()
If Text74 = 286 Then If Text27 < Text26 And Text27 < Text25
Text83 = 286 Then
End If Text34 = 0.95 * Val(Text27)
If Text74 = 292 Then End If
Text83 = 292 If Text26 < Text27 And Text26 < Text25
End If Then
If Text74 = 337 Then Text34 = 0.95 * Val(Text26)
Text83 = 337 End If
End If If Text25 < Text27 And Text25 < Text26
If Text74 = 343 Then Then
Text83 = 343 Text34 = 0.95 * Val(Text25)
End If End If
If Text74 = 387 Then MsgBox "Minimum Span of the Sheathing or
Text83 = 387 Spacing of the Joists >>>Factor of
End If Safety=.95"
If Text74 = 394 Then
Text83 = 394 End Sub
End If
If Text74 = 445 Then Private Sub Command14_Click()
Text83 = 445

University of Sulaimani - Engineering Projects Page 75

 Concrete Formwork Design 2011-2012

If Text30 < Text29 And Text30 < Text28 MsgBox "The height must be smaller than
Then 337mm according to the tables"
Text35 = 0.95 * Val(Text30) End If
End If If Text71 = "64" And Text72 > "387" Then
If Text29 < Text30 And Text29 < Text28 MsgBox "The height must be smaller than
Then 387mm according to the tables"
Text35 = 0.95 * Val(Text29) End If
End If If Text71 = "89" And Text72 > "387" Then
If Text28 < Text30 And Text28 < Text29 MsgBox "The height must be smaller than
Then 387mm according to the tables"
Text35 = 0.95 * Val(Text28) End If
End If If Text71 = "140" And Text72 > "597" Then
MsgBox "Minimum Span of the Joist or MsgBox "The height must be smaller than
Spacing of the Stringers >>>Factor of 597mm according to the tables"
Safety=.95" End If
If Text71 = "191" And Text72 > "597" Then
End Sub MsgBox "The height must be smaller than
597mm according to the tables"
Private Sub Command15_Click() End If
If Text37 < Text31 And Text37 < Text32 If Text71 = "241" And Text72 > "597" Then
And Text37 < Text33 Then MsgBox "The height must be smaller than
Text36 = 0.95 * Val(Text37) 597mm according to the tables"
End If End If
If Text33 < Text37 And Text33 < Text32 If Text71 = "292" And Text72 > "597" Then
And Text33 < Text31 Then MsgBox "The height must be smaller than
Text36 = 0.95 * Val(Text33) 597mm according to the tables"
End If End If
If Text32 < Text31 And Text32 < Text37 If Text71 = "343" And Text72 > "597" Then
And Text32 < Text33 Then MsgBox "The height must be smaller than
Text36 = 0.95 * Val(Text32) 597mm according to the tables"
End If End If ' these were for the joists
If Text31 < Text32 And Text31 < Text37 '
And Text31 < Text33 Then 'for the stringers:
Text36 = 0.95 * Val(Text31) If Text82 = "19" And Text83 > "286" Then
End If MsgBox "The height must be smaller than
MsgBox "Minimum Span of the Stringer or 286mm according to the tables"
Spacing of the Shores >>>Factor of End If
Safety=.95" If Text82 = "38" And Text83 > "337" Then
MsgBox "The height must be smaller than
End Sub 337mm according to the tables"
End If
Private Sub Command16_Click() If Text82 = "64" And Text83 > "387" Then
Text37 = Val(Text5) / (Val(Text24) * MsgBox "The height must be smaller than
Val(Text35)) 387mm according to the tables"
End Sub End If
If Text82 = "89" And Text83 > "387" Then
Private Sub Command17_Click() MsgBox "The height must be smaller than
If Text71 = "19" And Text72 > "286" Then 387mm according to the tables"
MsgBox "The height must be smaller than End If
286mm according to the tables" If Text82 = "140" And Text83 > "597" Then
End If MsgBox "The height must be smaller than
If Text71 = "38" And Text72 > "337" Then 597mm according to the tables"
End If

University of Sulaimani - Engineering Projects Page 76

 Concrete Formwork Design 2011-2012

If Text82 = "191" And Text83 > "597" Then Text42 = Text42 + " x "
MsgBox "The height must be smaller than Text42 = Text42 + Text73 + ")" + "mm"
597mm according to the tables" '
End If Text47 = Text34
If Text82 = "241" And Text83 > "597" Then End Sub
MsgBox "The height must be smaller than
597mm according to the tables" Private Sub Command22_Click()
End If Text43 = Text2
If Text82 = "292" And Text83 > "597" Then Text43 = Text43 + "mm nominal lumber"
MsgBox "The height must be smaller than End Sub
597mm according to the tables"
End If
If Text82 = "343" And Text83 > "597" Then
MsgBox "The height must be smaller than
597mm according to the tables" Private Sub Command23_Click()
End If Text22.Text = Text1 * 2400 * 9.81 / 1000
'
Text23.Text = 10 * Text6.Text
If Text39 < Text14 Then '
Text40 = "THE DESIGN IS OK AND SAFE" Text24 = Val(Text6) + Val(Text22) +
Else Val(Text23)
Text40 = "!!!!!!! THE DESIGN IS NOT SAFE '
, REDESIGN !!!!!!!" Text25 = (40.7 / 1000000) * 0.75 *
End If Val(Text2) * (1000 * Val(Text7) /
Val(Text24)) ^ 0.5
End Sub '
Text26 = (1.11 / 1000 * 1000 * Val(Text8)
Private Sub Command18_Click() * 0.75 * Val(Text2) / Val(Text24) + 2 *
Text39 = (Val(Text34) * Val(Text24) * 0.75 * Val(Text2)) / 1000
Val(Text35)) / (Val(Text71) * Val(Text82)) '
* 1000000 Text27 = (73.8 / 1000000) * ((Val(Text11)
End Sub * 1000 * (0.75 * Val(Text2)) ^ 3) / (12 *
Val(Text24))) ^ (1 / 3)
Private Sub Command19_Click() '
Text38 = "(" + Text5 + "KN" + ")" + " " + If Text27 < Text26 And Text27 < Text25
"Commercial-Shores" Then
Text45 = Text36 Text34 = 0.95 * Val(Text27)
End Sub End If
If Text26 < Text27 And Text26 < Text25
Private Sub Command2_Click() Then
Text23.Text = 10 * Text6.Text Text34 = 0.95 * Val(Text26)
End Sub End If
If Text25 < Text27 And Text25 < Text26
Private Sub Command20_Click() Then
Text41 = "(" + Text4 Text34 = 0.95 * Val(Text25)
Text41 = Text41 + "x" + Text74 + ")" + End If
"mm" '
' For i = 19 To 28
Text46 = Text35 If Text3 = i Then
End Sub Text71 = "19"
End If
Private Sub Command21_Click() Next i
Text42 = "(" + Text3 For i = 29 To 51

University of Sulaimani - Engineering Projects Page 77

 Concrete Formwork Design 2011-2012

If Text3 = i Then End If

Text71 = "38" Next i
End If For i = 115 To 162
Next i If Text73 = i Then
For i = 52 To 76 Text72 = "140"
If Text3 = i Then End If
Text71 = "64" Next i
End If For i = 163 To 209
Next i If Text73 = i Then
For i = 77 To 114 Text72 = "184"
If Text3 = i Then End If
Text71 = "89" Next i
End If For i = 210 To 260
Next i If Text73 = i Then
For i = 115 To 165 Text72 = "235"
If Text3 = i Then End If
Text71 = "140" Next i
End If For i = 261 To 289
Next i If Text73 = i Then
For i = 165 To 216 Text72 = "286"
If Text3 = i Then End If
Text71 = "191" Next i
End If For i = 290 To 314
Next i If Text73 = i Then
For i = 217 To 266 Text72 = "292"
If Text3 = i Then End If
Text71 = "241" Next i
End If For i = 315 To 340
Next i If Text73 = i Then
For i = 267 To 317 Text72 = "337"
If Text3 = i Then End If
Text71 = "292" Next i
End If For i = 341 To 365
Next i If Text73 = i Then
For i = 318 To 343 Text72 = "343"
If Text3 = i Then End If
Text71 = "343" Next i
End If For i = 366 To 390
Next i If Text73 = i Then
' here the first column of the table finished Text72 = "387"
End If
Next i
For i = 391 To 419
If Text73 = i Then
'the second starts from here Text72 = "394"
For i = 64 To 76 End If
If Text73 = i Then Next i
Text72 = "64" For i = 420 To 470
End If If Text73 = i Then
Next i Text72 = "445"
For i = 77 To 114 End If
If Text73 = i Then Next i
Text72 = "89" For i = 471 To 520

University of Sulaimani - Engineering Projects Page 78

 Concrete Formwork Design 2011-2012

If Text73 = i Then Next i

Text72 = "495" For i = 366 To 390
End If If Text74 = i Then
Next i Text83 = "387"
For i = 521 To 546 End If
If Text73 = i Then Next i
Text72 = "546" For i = 391 To 419
End If If Text74 = i Then
Next i ' the second column finished here Text83 = "394"
For i = 64 To 76 End If
If Text74 = i Then Next i
Text83 = "64" For i = 420 To 470
End If If Text74 = i Then
Next i Text83 = "445"
For i = 77 To 114 End If
If Text74 = i Then Next i
Text83 = "89" For i = 471 To 520
End If If Text74 = i Then
Next i Text83 = "495"
For i = 115 To 162 End If
If Text74 = i Then Next i
Text83 = "140" For i = 521 To 546
End If If Text74 = i Then
Next i Text83 = "546"
For i = 163 To 209 End If
If Text74 = i Then Next i ' the second column finished here
Text83 = "184"
End If If Text71 = "19" And Text72 = "64" Then
Next i Text75 = 1210
For i = 210 To 260 Text76 = 12800
If Text74 = i Then Text77 = 406500
Text83 = "235" End If
End If If Text71 = "19" And Text72 = "89" Then
Next i Text75 = 1694
For i = 261 To 289 Text76 = 250900
If Text74 = i Then Text77 = 1115000
Text83 = "286" End If
End If If Text71 = "19" And Text72 = "140" Then
Next i Text75 = 2661
For i = 290 To 314 Text76 = 619600
If Text74 = i Then Text77 = 4238000
Text83 = "292" End If
End If If Text71 = "19" And Text72 = "184" Then
Next i Text75 = 3508
For i = 315 To 340 Text76 = 107700
If Text74 = i Then Text77 = 9913000
Text83 = "337" End If
End If If Text71 = "19" And Text72 = "235" Then
Next i Text75 = 4476
For i = 341 To 365 Text76 = 175300
If Text74 = i Then Text77 = 20590000
Text83 = "343" End If
End If If Text71 = "19" And Text72 = "286" Then

University of Sulaimani - Engineering Projects Page 79

 Concrete Formwork Design 2011-2012

Text75 = 5444 End If

Text76 = 259200 If Text71 = "64" And Text72 = "235" Then
Text77 = 37040000 Text75 = 14910
End If Text76 = 584200
If Text71 = "38" And Text72 = "64" Then Text77 = 68630000
Text75 = 2419 End If
Text76 = 25610 If Text71 = "64" And Text72 = "286" Then
Text77 = 812900 Text75 = 18140
End If Text76 = 864200
If Text71 = "38" And Text72 = "89" Then Text77 = 123500000
Text75 = 3387 End If
Text76 = 501900 If Text71 = "64" And Text72 = "337" Then
Text77 = 2231000 Text75 = 21370
End If Text76 = 1199000
If Text71 = "38" And Text72 = "140" Then Text77 = 201700000
Text75 = 5323 End If
Text76 = 123900 If Text71 = "64" And Text72 = "387" Then
Text77 = 8656000 Text75 = 24600
End If Text76 = 1588000
If Text71 = "38" And Text72 = "184" Then Text77 = 307500000
Text75 = 7016 End If
Text76 = 215300 If Text71 = "89" And Text72 = "89" Then
Text77 = 19830000 Text75 = 7903
End If Text76 = 117100
If Text71 = "38" And Text72 = "235" Then Text77 = 5205000
Text75 = 8952 End If
Text76 = 350500 If Text71 = "89" And Text72 = "184" Then
Text77 = 41180000 Text75 = 16370
End If Text76 = 502400
If Text71 = "38" And Text72 = "286" Then Text77 = 46260000
Text75 = 10890 End If
Text76 = 518500 If Text71 = "89" And Text72 = "235" Then
Text77 = 74080000 Text75 = 20890
End If Text76 = 817900
If Text71 = "38" And Text72 = "337" Then Text77 = 96800000
Text75 = 12820 End If
Text76 = 719200 If Text71 = "89" And Text72 = "286" Then
Text77 = 121000000 Text75 = 24400
End If Text76 = 1210000
If Text71 = "64" And Text72 = "89" Then Text77 = 127800000
Text75 = 5645 End If
Text76 = 83640 If Text71 = "89" And Text72 = "337" Then
Text77 = 3718000 Text75 = 29920
End If Text76 = 1678000
If Text71 = "64" And Text72 = "140" Then Text77 = 282400000
Text75 = 8871 End If
Text76 = 206500 If Text71 = "89" And Text72 = "387" Then
Text77 = 14430000 Text75 = 34430
End If Text76 = 2223000
If Text71 = "64" And Text72 = "184" Then Text77 = 430600000
Text75 = 11690 End If
Text76 = 358900 If Text71 = "140" And Text72 = "140" Then
Text77 = 33040000 Text75 = 19520

University of Sulaimani - Engineering Projects Page 80

 Concrete Formwork Design 2011-2012

Text76 = 454300 If Text71 = "191" And Text72 = "241" Then

Text77 = 19520000 Text75 = 45970
End If Text76 = 1849000
If Text71 = "140" And Text72 = "191" Then Text77 = 223000000
Text75 = 26610 End If
Text76 = 845000 If Text71 = "191" And Text72 = "292" Then
Text77 = 80480000 Text75 = 55650
End If Text76 = 2709000
If Text71 = "140" And Text72 = "241" Then Text77 = 395700000
Text75 = 33710 End If
Text76 = 1356000 If Text71 = "191" And Text72 = "343" Then
Text77 = 163600000 Text75 = 65320
End If Text76 = 3733000
If Text71 = "140" And Text72 = "292" Then Text77 = 640100000
Text75 = 40810 End If
Text76 = 1987000 If Text71 = "191" And Text72 = "394" Then
Text77 = 290100000 Text75 = 75000
End If Text76 = 4921000
If Text71 = "140" And Text72 = "343" Then Text77 = 968800000
Text75 = 47900 End If
Text76 = 2738000 If Text71 = "191" And Text72 = "445" Then
Text77 = 469400000 Text75 = 84680
End If Text76 = 6273000
If Text71 = "140" And Text72 = "394" Then Text77 = 1394000000
Text75 = 55000 End If
Text76 = 3609000 If Text71 = "191" And Text72 = "495" Then
Text77 = 710400000 Text75 = 94360
End If Text76 = 7789000
If Text71 = "140" And Text72 = "445" Then Text77 = 1929000000
Text75 = 62100 End If
Text76 = 4600000 If Text71 = "191" And Text72 = "546" Then
Text77 = 1022000000 Text75 = 104000
End If Text76 = 9489000
If Text71 = "140" And Text72 = "495" Then Text77 = "2585000000"
Text75 = 69190 End If
Text76 = 5712000 If Text71 = "191" And Text72 = "597" Then
Text77 = 1415000000 Text75 = 113700
End If Text76 = 11310000
If Text71 = "140" And Text72 = "546" Then Text77 = "3376000000"
Text75 = 76290 End If
Text76 = 6944000 If Text71 = "241" And Text72 = "241" Then
Text77 = 1896000000 Text75 = 58230
End If Text76 = 2342000
If Text71 = "140" And Text72 = "597" Then Text77 = 282500000
Text75 = 83390 End If
Text76 = 8296000 If Text71 = "241" And Text72 = "292" Then
Text77 = "2476000000" Text75 = 70480
End If Text76 = 3431000
If Text71 = "191" And Text72 = "191" Then Text77 = 501200000
Text75 = 36290 End If
Text76 = 1152000 If Text71 = "241" And Text72 = "343" Then
Text77 = 109800000 Text75 = 82740
End If Text76 = 4729000

University of Sulaimani - Engineering Projects Page 81

 Concrete Formwork Design 2011-2012

Text77 = 810700000 Text75 = 159500

End If Text76 = 14520000
If Text71 = "241" And Text72 = "394" Then Text77 = "3964000000"
Text75 = 95000 End If
Text76 = 6234000 If Text71 = "292" And Text72 = "597" Then
Text77 = 1227000000 Text75 = 174400
End If Text76 = 17340000
If Text71 = "241" And Text72 = "445" Then Text77 = "4276000000"
Text75 = 107300 End If
Text76 = 7946000 If Text71 = "343" And Text72 = "343" Then
Text77 = 1766000000 Text75 = 117500
End If Text76 = 6720000
If Text71 = "241" And Text72 = "495" Then Text77 = 1152000000
Text75 = 119500 End If
Text76 = 9866000 If Text71 = "343" And Text72 = "394" Then
Text77 = "2443000000" Text75 = 135000
End If Text76 = 8858000
If Text71 = "241" And Text72 = "546" Then Text77 = 1744000000
Text75 = 131800 End If
Text76 = 11980000 If Text71 = "434" And Text72 = "445" Then
Text77 = "3275000000" Text75 = 152400
End If Text76 = 11290000
If Text71 = "241" And Text72 = "597" Then Text77 = "2510000000"
Text75 = 144000 End If
Text76 = 14330000 If Text71 = "343" And Text72 = "495" Then
Text77 = "4276000000" Text75 = 169800
End If Text76 = 14020000
If Text71 = "292" And Text72 = "292" Then Text77 = "3472000000"
Text75 = 85320 End If
Text76 = 4154000 If Text71 = "343" And Text72 = "546" Then
Text77 = 594200000 Text75 = 187300
End If Text76 = 17040000
If Text71 = "292" And Text72 = "343" Then Text77 = "4654000000"
Text75 = 100200 End If
Text76 = 5724000 If Text71 = "343" And Text72 = "597" Then
Text77 = 981400000 Text75 = 204700
End If Text76 = 20360000
If Text71 = "292" And Text72 = "394" Then Text77 = "6077000000"
Text75 = 115000 End If
Text76 = 7546000 '
Text77 = 1485000000 '
End If '
If Text71 = "292" And Text72 = "445" Then 'the same # for width
Text75 = 129800 If Text3 <= 19 Then
Text76 = 9619000 Text71 = 19
Text77 = "2138000000" End If
End If If Text3 >= 343 Then
If Text71 = "292" And Text72 = "495" Then Text71 = 343
Text75 = 144700 End If
Text76 = 11940000 If Text3 = 38 Then
Text77 = "2958000000" Text71 = 38
End If End If
If Text71 = "292" And Text72 = "546" Then If Text3 = 64 Then

University of Sulaimani - Engineering Projects Page 82

 Concrete Formwork Design 2011-2012

Text71 = 64 Text72 = 445

End If End If
If Text3 = 89 Then If Text73 = 495 Then
Text71 = 89 Text72 = 495
End If End If
If Text3 = 140 Then If Text73 = 546 Then
Text71 = 140 Text72 = 546
End If End If
If Text3 = 191 Then If Text73 = 597 Then
Text71 = 191 Text72 = 597
End If End If
If Text3 = 241 Then '
Text71 = 241 '
End If 'check of bending for the joist
If Text3 = 292 Then Text28 = 100 / 1000000 * ((Val(Text12) *
Text71 = 292 Val(Text76)) / (Val(Text34) * Val(Text24)))
End If ^ 0.5
' '
'the same # for height '
If Text73 = 64 Then Text29 = (1.11 / 1000000 * Val(Text13) *
Text72 = 64 Val(Text75) / (Val(Text34) * Val(Text24)))
End If + (2 * Val(Text72)) / 1000
If Text73 = 89 Then '
Text72 = 89 '
End If Text30 = 73.8 / 1000000 * ((Val(Text16) *
If Text73 = 140 Then Val(Text77)) / (Val(Text34) * Val(Text24)))
Text72 = 140 ^ (1 / 3)
End If '
If Text73 = 184 Then '
Text72 = 184 '
End If If Text30 < Text29 And Text30 < Text28
If Text73 = 235 Then Then
Text72 = 235 Text35 = 0.95 * Val(Text30)
End If End If
If Text73 = 286 Then If Text29 < Text30 And Text29 < Text28
Text72 = 286 Then
End If Text35 = 0.95 * Val(Text29)
If Text73 = 292 Then End If
Text72 = 292 If Text28 < Text30 And Text28 < Text29
End If Then
If Text73 = 337 Then Text35 = 0.95 * Val(Text28)
Text72 = 337 End If
End If '
If Text73 = 343 Then '
Text72 = 343 For i = 19 To 28
End If If Text4 = i Then
If Text73 = 387 Then Text82 = "19"
Text72 = 387 End If
End If Next i
If Text73 = 394 Then For i = 29 To 51
Text72 = 394 If Text4 = i Then
End If Text82 = "38"
If Text73 = 445 Then End If

University of Sulaimani - Engineering Projects Page 83

 Concrete Formwork Design 2011-2012

Next i Text79 = 3508

For i = 52 To 76 Text80 = 107700
If Text4 = i Then Text81 = 9913000
Text82 = "64" End If
End If If Text82 = "19" And Text83 = "235" Then
Next i Text79 = 4476
For i = 77 To 114 Text80 = 175300
If Text4 = i Then Text81 = 20590000
Text82 = "89" End If
End If If Text82 = "19" And Text83 = "286" Then
Next i Text79 = 5444
For i = 115 To 165 Text80 = 259200
If Text4 = i Then Text81 = 37040000
Text82 = "140" End If
End If If Text82 = "38" And Text83 = "64" Then
Next i Text79 = 2419
For i = 165 To 216 Text80 = 25610
If Text4 = i Then Text81 = 812900
Text82 = "191" End If
End If If Text82 = "38" And Text83 = "89" Then
Next i Text79 = 3387
For i = 217 To 266 Text80 = 501900
If Text4 = i Then Text81 = 2231000
Text82 = "241" End If
End If If Text82 = "38" And Text83 = "140" Then
Next i Text79 = 5323
For i = 267 To 317 Text80 = 123900
If Text4 = i Then Text81 = 8656000
Text82 = "292" End If
End If If Text82 = "38" And Text83 = "184" Then
Next i Text79 = 7016
For i = 318 To 343 Text80 = 215300
If Text4 = i Then Text81 = 19830000
Text82 = "343" End If
End If If Text82 = "38" And Text83 = "235" Then
Next i Text79 = 8952
' here the first column of the table finished Text80 = 350500
If Text82 = "19" And Text83 = "64" Then Text81 = 41180000
Text79 = 1210 End If
Text80 = 12800 If Text82 = "38" And Text83 = "286" Then
Text81 = 406500 Text79 = 10890
End If Text80 = 518500
If Text82 = "19" And Text83 = "89" Then Text81 = 74080000
Text79 = 1694 End If
Text80 = 250900 If Text82 = "38" And Text83 = "337" Then
Text81 = 1115000 Text79 = 12820
End If Text80 = 719200
If Text82 = "19" And Text83 = "140" Then Text81 = 121000000
Text79 = 2661 End If
Text80 = 619600 If Text82 = "64" And Text83 = "89" Then
Text81 = 4238000 Text79 = 5645
End If Text80 = 83640
If Text82 = "19" And Text83 = "184" Then Text81 = 3718000

University of Sulaimani - Engineering Projects Page 84

 Concrete Formwork Design 2011-2012

End If Text80 = 1678000

If Text82 = "64" And Text83 = "140" Then Text81 = 282400000
Text79 = 8871 End If
Text80 = 206500 If Text82 = "89" And Text83 = "387" Then
Text81 = 14430000 Text79 = 34430
End If Text80 = 2223000
If Text82 = "64" And Text83 = "184" Then Text81 = 430600000
Text79 = 11690 End If
Text80 = 358900 If Text82 = "140" And Text83 = "140" Then
Text81 = 33040000 Text79 = 19520
End If Text80 = 454300
If Text82 = "64" And Text83 = "235" Then Text81 = 19520000
Text79 = 14910 End If
Text80 = 584200 If Text82 = "140" And Text83 = "191" Then
Text81 = 68630000 Text79 = 26610
End If Text80 = 845000
If Text82 = "64" And Text83 = "286" Then Text81 = 80480000
Text79 = 18140 End If
Text80 = 864200 If Text82 = "140" And Text83 = "241" Then
Text81 = 123500000 Text79 = 33710
End If Text80 = 1356000
If Text82 = "64" And Text83 = "337" Then Text81 = 163600000
Text79 = 21370 End If
Text80 = 1199000 If Text82 = "140" And Text83 = "292" Then
Text81 = 201700000 Text79 = 40810
End If Text80 = 1987000
If Text82 = "64" And Text83 = "387" Then Text81 = 290100000
Text79 = 24600 End If
Text80 = 1588000 If Text82 = "140" And Text83 = "343" Then
Text81 = 307500000 Text79 = 47900
End If Text80 = 2738000
If Text82 = "89" And Text83 = "89" Then Text81 = 469400000
Text79 = 7903 End If
Text80 = 117100 If Text82 = "140" And Text83 = "394" Then
Text81 = 5205000 Text79 = 55000
End If Text80 = 3609000
If Text82 = "89" And Text83 = "184" Then Text81 = 710400000
Text79 = 16370 End If
Text80 = 502400 If Text82 = "140" And Text83 = "445" Then
Text81 = 46260000 Text79 = 62100
End If Text80 = 4600000
If Text82 = "89" And Text83 = "235" Then Text81 = 1022000000
Text79 = 20890 End If
Text80 = 817900 If Text82 = "140" And Text83 = "495" Then
Text81 = 96800000 Text79 = 69190
End If Text80 = 5712000
If Text82 = "89" And Text83 = "286" Then Text81 = 1415000000
Text79 = 24400 End If
Text80 = 1210000 If Text82 = "140" And Text83 = "546" Then
Text81 = 127800000 Text79 = 76290
End If Text80 = 6944000
If Text82 = "89" And Text83 = "337" Then Text81 = 1896000000
Text79 = 29920 End If

University of Sulaimani - Engineering Projects Page 85

 Concrete Formwork Design 2011-2012

If Text82 = "140" And Text83 = "597" Then Text81 = 282500000

Text79 = 83390 End If
Text80 = 8296000 If Text82 = "241" And Text83 = "292" Then
Text81 = "2476000000" Text79 = 70480
End If Text80 = 3431000
If Text82 = "191" And Text83 = "191" Then Text81 = 501200000
Text79 = 36290 End If
Text80 = 1152000 If Text82 = "241" And Text83 = "343" Then
Text81 = 109800000 Text79 = 82740
End If Text80 = 4729000
If Text82 = "191" And Text83 = "241" Then Text81 = 810700000
Text79 = 45970 End If
Text80 = 1849000 If Text82 = "241" And Text83 = "394" Then
Text81 = 223000000 Text79 = 95000
End If Text80 = 6234000
If Text82 = "191" And Text83 = "292" Then Text81 = 1227000000
Text79 = 55650 End If
Text80 = 2709000 If Text82 = "241" And Text83 = "445" Then
Text81 = 395700000 Text79 = 107300
End If Text80 = 7946000
If Text82 = "191" And Text83 = "343" Then Text81 = 1766000000
Text79 = 65320 End If
Text80 = 3733000 If Text82 = "241" And Text83 = "495" Then
Text81 = 640100000 Text79 = 119500
End If Text80 = 9866000
If Text82 = "191" And Text83 = "394" Then Text81 = "2443000000"
Text79 = 75000 End If
Text80 = 4921000 If Text82 = "241" And Text83 = "546" Then
Text81 = 968800000 Text79 = 131800
End If Text80 = 11980000
If Text82 = "191" And Text83 = "445" Then Text81 = "3275000000"
Text79 = 84680 End If
Text80 = 6273000 If Text82 = "241" And Text83 = "597" Then
Text81 = 1394000000 Text79 = 144000
End If Text80 = 14330000
If Text82 = "191" And Text83 = "495" Then Text81 = "4276000000"
Text79 = 94360 End If
Text80 = 7789000 If Text82 = "292" And Text83 = "292" Then
Text81 = 1929000000 Text79 = 85320
End If Text80 = 4154000
If Text82 = "191" And Text83 = "546" Then Text81 = 594200000
Text79 = 104000 End If
Text80 = 9489000 If Text82 = "292" And Text83 = "343" Then
Text81 = "2585000000" Text79 = 100200
End If Text80 = 5724000
If Text82 = "191" And Text83 = "597" Then Text81 = 981400000
Text79 = 113700 End If
Text80 = 11310000 If Text82 = "292" And Text83 = "394" Then
Text81 = "3376000000" Text79 = 115000
End If Text80 = 7546000
If Text82 = "241" And Text83 = "241" Then Text81 = 1485000000
Text79 = 58230 End If
Text80 = 2342000 If Text82 = "292" And Text83 = "445" Then

University of Sulaimani - Engineering Projects Page 86

 Concrete Formwork Design 2011-2012

Text79 = 129800 If Text4 <= 19 Then

Text80 = 9619000 Text82 = 19
Text81 = "2138000000" End If
End If If Text4 >= 343 Then
If Text82 = "292" And Text83 = "495" Then Text82 = 343
Text79 = 144700 End If
Text80 = 11940000 If Text4 = 38 Then
Text81 = "2958000000" Text82 = 38
End If End If
If Text82 = "292" And Text83 = "546" Then If Text4 = 64 Then
Text79 = 159500 Text82 = 64
Text80 = 14520000 End If
Text81 = "3964000000" If Text4 = 89 Then
End If Text82 = 89
If Text82 = "292" And Text83 = "597" Then End If
Text79 = 174400 If Text4 = 140 Then
Text80 = 17340000 Text82 = 140
Text81 = "4276000000" End If
End If If Text4 = 191 Then
If Text82 = "343" And Text83 = "343" Then Text82 = 191
Text79 = 117500 End If
Text80 = 6720000 If Text4 = 241 Then
Text81 = 1152000000 Text82 = 241
End If End If
If Text82 = "343" And Text83 = "394" Then If Text4 = 292 Then
Text79 = 135000 Text82 = 292
Text80 = 8858000 End If
Text81 = 1744000000 '
End If 'the same # for height
If Text82 = "434" And Text83 = "445" Then If Text74 = 64 Then
Text79 = 152400 Text83 = 64
Text80 = 11290000 End If
Text81 = "2510000000" If Text74 = 89 Then
End If Text83 = 89
If Text82 = "343" And Text83 = "495" Then End If
Text79 = 169800 If Text74 = 140 Then
Text80 = 14020000 Text83 = 140
Text81 = "3472000000" End If
End If If Text74 = 184 Then
If Text82 = "343" And Text83 = "546" Then Text83 = 184
Text79 = 187300 End If
Text80 = 17040000 If Text74 = 235 Then
Text81 = "4654000000" Text83 = 235
End If End If
If Text82 = "343" And Text83 = "597" Then If Text74 = 286 Then
Text79 = 204700 Text83 = 286
Text80 = 20360000 End If
Text81 = "6077000000" If Text74 = 292 Then
End If Text83 = 292
' End If
' If Text74 = 337 Then
' Text83 = 337
'the same # for width End If

University of Sulaimani - Engineering Projects Page 87

 Concrete Formwork Design 2011-2012

If Text74 = 343 Then If Text31 < Text32 And Text31 < Text37
Text83 = 343 And Text31 < Text33 Then
End If Text36 = 0.95 * Val(Text31)
If Text74 = 387 Then End If
Text83 = 387 '
End If Text39 = (Val(Text34) * Val(Text24) *
If Text74 = 394 Then Val(Text35)) / (Val(Text71) * Val(Text82))
Text83 = 394 * 1000000
End If '
If Text74 = 445 Then If Text39 < Text14 Then
Text83 = 445 Text40 = "THE DESIGN IS OK AND SAFE"
End If End If
If Text74 = 495 Then If Text39 > Text14 Then
Text83 = 495 Text40 = "!!!!!!! THE DESIGN IS NOT SAFE
End If , REDESIGN !!!!!!!"
If Text74 = 546 Then End If
Text83 = 546 If Text71 = "19" And Text72 > "286" Then
End If MsgBox "The height must be smaller than
If Text74 = 597 Then 286mm according to the tables"
Text83 = 597 End If
End If If Text71 = "38" And Text72 > "337" Then
' MsgBox "The height must be smaller than
' 337mm according to the tables"
'check of bending for the joist End If
Text31 = 100 / 1000000 * ((Val(Text17) * If Text71 = "64" And Text72 > "387" Then
Val(Text80)) / (Val(Text24) * Val(Text35))) MsgBox "The height must be smaller than
^ 0.5 387mm according to the tables"
End If
' If Text71 = "89" And Text72 > "387" Then
' MsgBox "The height must be smaller than
Text32 = (1.11 / 1000000 * Val(Text18) * 387mm according to the tables"
Val(Text79) / (Val(Text24) * Val(Text35))) End If
+ (2 * Val(Text83) / 1000) If Text71 = "140" And Text72 > "597" Then
' MsgBox "The height must be smaller than
Text33 = 73.8 / 1000000 * ((Val(Text21) * 597mm according to the tables"
Val(Text81)) / (Val(Text24) * Val(Text35))) End If
^ (1 / 3) If Text71 = "191" And Text72 > "597" Then
' MsgBox "The height must be smaller than
Text37 = Val(Text5) / (Val(Text24) * 597mm according to the tables"
Val(Text35)) End If
' If Text71 = "241" And Text72 > "597" Then
If Text37 < Text31 And Text37 < Text32 MsgBox "The height must be smaller than
And Text37 < Text33 Then 597mm according to the tables"
Text36 = 0.95 * Val(Text37) End If
End If If Text71 = "292" And Text72 > "597" Then
If Text33 < Text37 And Text33 < Text32 MsgBox "The height must be smaller than
And Text33 < Text31 Then 597mm according to the tables"
Text36 = 0.95 * Val(Text33) End If
End If If Text71 = "343" And Text72 > "597" Then
If Text32 < Text31 And Text32 < Text37 MsgBox "The height must be smaller than
And Text32 < Text33 Then 597mm according to the tables"
Text36 = 0.95 * Val(Text32) End If ' these were for the joists
End If '

University of Sulaimani - Engineering Projects Page 88

 Concrete Formwork Design 2011-2012

'for the stringers: '

If Text82 = "19" And Text83 > "286" Then Text46 = Text35
MsgBox "The height must be smaller than '
286mm according to the tables" Text38 = "(" + Text5 + "KN" + ")" + " " +
End If "Commercial-Shores"
If Text82 = "38" And Text83 > "337" Then Text45 = Text36
MsgBox "The height must be smaller than '
337mm according to the tables" Text47.Text = Round(Val(Text47.Text), 2)
End If Text45.Text = Round(Val(Text45.Text), 2)
If Text82 = "64" And Text83 > "387" Then Text46.Text = Round(Val(Text46.Text), 2)
MsgBox "The height must be smaller than End Sub
387mm according to the tables"
End If Private Sub Command24_Click()
If Text82 = "89" And Text83 > "387" Then Form2.Show
MsgBox "The height must be smaller than End Sub
387mm according to the tables"
End If Private Sub Command25_Click()
If Text82 = "140" And Text83 > "597" Then Picture1.Visible = False
MsgBox "The height must be smaller than Picture2.Visible = False
597mm according to the tables" Frame1.Visible = True
End If Command1.Visible = True
If Text82 = "191" And Text83 > "597" Then Frame2.Visible = True
MsgBox "The height must be smaller than Frame3.Visible = True
597mm according to the tables" Frame4.Visible = True
End If Frame6.Visible = True
If Text82 = "241" And Text83 > "597" Then Command2.Visible = True
MsgBox "The height must be smaller than Command3.Visible = True
597mm according to the tables" Command4.Visible = True
End If Command5.Visible = True
If Text82 = "292" And Text83 > "597" Then Command6.Visible = True
MsgBox "The height must be smaller than Command7.Visible = True
597mm according to the tables" Command8.Visible = True
End If Command9.Visible = True
If Text82 = "343" And Text83 > "597" Then Command10.Visible = True
MsgBox "The height must be smaller than Command11.Visible = True
597mm according to the tables" Command12.Visible = True
End If Command13.Visible = True
' Command14.Visible = True
' Command15.Visible = True
Text43 = Text2 Command16.Visible = True
Text43 = Text43 + "mm nominal lumber" Command17.Visible = True
' Command18.Visible = True
Text42 = "(" + Text3 Text22.Visible = True
Text42 = Text42 + " x " Text23.Visible = True
Text42 = Text42 + Text73 + ")" + "mm" Text24.Visible = True
' Text25.Visible = True
Text47 = Text34 Text26.Visible = True
' Text27.Visible = True
' Text28.Visible = True
' Text29.Visible = True
Text41 = "(" + Text4 Text30.Visible = True
Text41 = Text41 + "x" + Text74 + ")" + Text31.Visible = True
"mm" Text32.Visible = True

University of Sulaimani - Engineering Projects Page 89

 Concrete Formwork Design 2011-2012

Text33.Visible = True Private Sub Command7_Click()

Text34.Visible = True For i = 19 To 28
Text35.Visible = True If Text3 = i Then
Text36.Visible = True Text71 = "19"
Text37.Visible = True End If
Text38.Visible = True Next i
Text39.Visible = True For i = 29 To 51
Text40.Visible = True If Text3 = i Then
Text71 = "38"
End Sub End If
Next i
Private Sub Command26_Click() For i = 52 To 76
Unload Me If Text3 = i Then
Form1.Show Text71 = "64"
End Sub End If
Next i
Private Sub Command27_Click() For i = 77 To 114
MsgBox "All the units are in (KN,m) except If Text3 = i Then
the joist and stringer sections which are in Text71 = "89"
(mm)" End If
End Sub Next i
For i = 115 To 165
If Text3 = i Then
Text71 = "140"
Private Sub Command28_Click() End If
Form6.Show Next i
End Sub For i = 165 To 216
If Text3 = i Then
Private Sub Command3_Click() Text71 = "191"
Text24 = Val(Text6) + Val(Text22) + End If
Val(Text23) Next i
End Sub For i = 217 To 266
If Text3 = i Then
Private Sub Command4_Click() Text71 = "241"
Text25 = (40.7 / 1000000) * 0.75 * End If
Val(Text2) * (1000 * Val(Text7) / Next i
Val(Text24)) ^ 0.5 For i = 267 To 317
End Sub If Text3 = i Then
Text71 = "292"
Private Sub Command5_Click() End If
Text26 = (1.11 / 1000 * 1000 * Val(Text8) Next i
* 0.75 * Val(Text2) / Val(Text24) + 2 * For i = 318 To 343
0.75 * Val(Text2)) / 1000 If Text3 = i Then
End Sub Text71 = "343"
End If
Private Sub Command6_Click() Next i
Text27 = (73.8 / 1000000) * ((Val(Text11) ' here the first column of the table finished
* 1000 * (0.75 * Val(Text2)) ^ 3) / (12 *
Val(Text24))) ^ (1 / 3)
End Sub

'the second starts from here

For i = 64 To 76

University of Sulaimani - Engineering Projects Page 90

 Concrete Formwork Design 2011-2012

If Text73 = i Then Next i

Text72 = "64" For i = 420 To 470
End If If Text73 = i Then
Next i Text72 = "445"
For i = 77 To 114 End If
If Text73 = i Then Next i
Text72 = "89" For i = 471 To 520
End If If Text73 = i Then
Next i Text72 = "495"
For i = 115 To 162 End If
If Text73 = i Then Next i
Text72 = "140" For i = 521 To 546
End If If Text73 = i Then
Next i Text72 = "546"
For i = 163 To 209 End If
If Text73 = i Then Next i ' the second column finished here
Text72 = "184" For i = 64 To 76
End If If Text74 = i Then
Next i Text83 = "64"
For i = 210 To 260 End If
If Text73 = i Then Next i
Text72 = "235" For i = 77 To 114
End If If Text74 = i Then
Next i Text83 = "89"
For i = 261 To 289 End If
If Text73 = i Then Next i
Text72 = "286" For i = 115 To 162
End If If Text74 = i Then
Next i Text83 = "140"
For i = 290 To 314 End If
If Text73 = i Then Next i
Text72 = "292" For i = 163 To 209
End If If Text74 = i Then
Next i Text83 = "184"
For i = 315 To 340 End If
If Text73 = i Then Next i
Text72 = "337" For i = 210 To 260
End If If Text74 = i Then
Next i Text83 = "235"
For i = 341 To 365 End If
If Text73 = i Then Next i
Text72 = "343" For i = 261 To 289
End If If Text74 = i Then
Next i Text83 = "286"
For i = 366 To 390 End If
If Text73 = i Then Next i
Text72 = "387" For i = 290 To 314
End If If Text74 = i Then
Next i Text83 = "292"
For i = 391 To 419 End If
If Text73 = i Then Next i
Text72 = "394" For i = 315 To 340
End If If Text74 = i Then

University of Sulaimani - Engineering Projects Page 91

 Concrete Formwork Design 2011-2012

Text83 = "337" '

End If
Next i
For i = 341 To 365 '
If Text74 = i Then 'If Val(Text51) < Val(Text3) And Val(Text3)
Text83 = "343" < Val(Text52) Then
End If 'If Val(Text3) - Val(Text51) < Val(Text52) -
Next i Val(Text3) Then
For i = 366 To 390 'Text71 = Val(Text51)
If Text74 = i Then 'End If
Text83 = "387" 'If Val(Text3) - Val(Text51) > Val(Text52) -
End If Val(Text3) Then
Next i 'Text71 = Val(Text52)
For i = 391 To 419 'End If
If Text74 = i Then 'End If
Text83 = "394" '
End If 'If Val(Text52) < Val(Text3) And Val(Text3)
Next i < Val(Text53) Then
For i = 420 To 470 'If Val(Text3) - Val(Text52) < Val(Text53) -
If Text74 = i Then Val(Text3) Then
Text83 = "445" 'Text71 = Val(Text52)
End If 'End If
Next i 'If Val(Text3) - Val(Text52) > Val(Text53) -
For i = 471 To 520 Val(Text3) Then
If Text74 = i Then 'Text71 = Val(Text53)
Text83 = "495" 'End If
End If 'End If
Next i '
For i = 521 To 546 '
If Text74 = i Then
Text83 = "546" 'If Text53 < Text3 And Text3 < Text54 Then
End If 'If Text3 - Text53 < Text54 - Text3 Then
Next i ' the second column finished here 'Text71 = Text53
'End If
'If Text3 - Text53 > Text54 - Text3 Then
'Text71 = Text54
'If Text48 < Text3 And Text3 < Text49 Then 'End If
'If Text3 - Text48 < Text49 - Text3 Then 'End If
'Text71 = Text48 '
'End If '
'If Text3 - Text48 > Text49 - Text3 Then 'If Text54 < Text3 And Text3 < Text55 Then
'Text71 = Text49 'If Text3 - Text54 < Text55 - Text3 Then
'End If 'Text71 = Text54
'End If 'End If
' 'If Text3 - Text54 > Text55 - Text3 Then
'If Text49 < Text3 And Text3 < Text50 Then 'Text71 = Text55
'If Text3 - Text49 < Text50 - Text3 Then 'End If
'Text71 = Text49 'End If
'End If 'If List1.List(0) < Text3 And Text3 <
'If Text3 - Text49 > Text50 - Text3 Then List1.List(1) Then
'Text71 = Text50 'If Text3 - List1.List(0) < List1.List(1) -
'End If Text3 Then
'End If 'Text71 = Val(List1.List(0))

University of Sulaimani - Engineering Projects Page 92

 Concrete Formwork Design 2011-2012

'End If 'If Text59 < Text73 And Text73 < Text60

'If Text3 - List1.List(0) > List1.List(1) - Then
Text3 Then 'If Text73 - Text59 < Text60 - Text73 Then
'Text71 = Val(List1.List(1)) 'Text72 = Text59
'End If 'End If
'End If 'If Text73 - Text59 > Text60 - Text73 Then
'If Text50 < Text3 And Text3 < Text51 Then 'Text72 = Text60
'If Text3 - Text50 < Text51 - Text3 Then 'End If
'Text71 = Text50 'End If
'End If '
'If Text3 - Text50 > Text51 - Text3 Then 'If Text60 < Text73 And Text73 < Text61
'Text71 = Text51 Then
'End If 'If Text73 - Text60 < Text61 - Text73 Then
'End If 'Text72 = Text60
'the first column is finished here 'End If
'If Text73 - Text60 > Text61 - Text73 Then
'Text72 = Text61
'End If
'the second starts from here: 'End If
'
'If Text56 < Text73 And Text73 < Text57 'If Text61 < Text73 And Text73 < Text62
Then Then
'If Text73 - Text56 < Text57 - Text73 Then 'If Text73 - Text61 < Text62 - Text73 Then
'Text72 = Text56 'Text72 = Text61
'End If 'End If
'If Text73 - Text56 > Text57 - Text73 Then 'If Text73 - Text61 > Text62 - Text73 Then
'Text72 = Text57 'Text72 = Text62
'End If 'End If
'End If 'End If
' '
' 'If Text62 < Text73 And Text73 < Text63
'If Text57 < Text73 And Text73 < Text58 Then
Then 'If Text73 - Text62 < Text63 - Text73 Then
'If Text73 - Text57 < Text58 - Text73 Then 'Text72 = Text62
'Text72 = Text57 'End If
'End If 'If Text73 - Text62 > Text63 - Text73 Then
'If Text73 - Text57 > Text58 - Text73 Then 'Text72 = Text63
'Text72 = Text58 'End If
'End If 'End If
'End If '
' 'If Text63 < Text73 And Text73 < Text64
'If Text58 < Text73 And Text73 < Text59 Then
Then 'If Text73 - Text63 < Text64 - Text73 Then
'If Text73 - Text58 < Text59 - Text73 Then 'Text72 = Text63
'Text72 = Text58 'End If
'End If 'If Text73 - Text63 > Text64 - Text73 Then
'If Text73 - Text58 > Text59 - Text73 Then 'Text72 = Text64
'Text72 = Text59 'End If
'End If 'End If
'End If
' '
'If Text64 < Text73 And Text73 < Text65
Then

University of Sulaimani - Engineering Projects Page 93

 Concrete Formwork Design 2011-2012

'If Text73 - Text64 < Text65 - Text73 Then 'End If

'Text72 = Text64 'If Text73 - Text69 > Text70 - Text73 Then
'End If 'Text72 = Text70
'If Text73 - Text64 > Text65 - Text73 Then 'End If
'Text72 = Text65 'End If
'End If 'end of second column
'End If
'
'If Text65 < Text73 And Text73 < Text66
Then
'If Text73 - Text65 < Text66 - Text73 Then '
'Text72 = Text65 'section area moment of inertia
'End If 'section area moment of inertia
'If Text73 - Text65 > Text66 - Text73 Then 'section area moment of inertia
'Text72 = Text66 'section area moment of inertia
'End If 'section area moment of inertia
'End If 'section area moment of inertia
' If Text71 = "19" And Text72 = "64" Then
'If Text66 < Text73 And Text73 < Text67 Text75 = 1210
Then Text76 = 12800
'If Text73 - Text66 < Text67 - Text73 Then Text77 = 406500
'Text72 = Text66 End If
'End If If Text71 = "19" And Text72 = "89" Then
'If Text73 - Text66 > Text67 - Text73 Then Text75 = 1694
'Text72 = Text67 Text76 = 250900
'End If Text77 = 1115000
'End If End If
' If Text71 = "19" And Text72 = "140" Then
'If Text67 < Text73 And Text73 < Text68 Text75 = 2661
Then Text76 = 619600
'If Text73 - Text67 < Text68 - Text73 Then Text77 = 4238000
'Text72 = Text67 End If
'End If If Text71 = "19" And Text72 = "184" Then
'If Text73 - Text67 > Text68 - Text73 Then Text75 = 3508
'Text72 = Text68 Text76 = 107700
'End If Text77 = 9913000
'End If End If
' If Text71 = "19" And Text72 = "235" Then
' Text75 = 4476
'If Text68 < Text73 And Text73 < Text69 Text76 = 175300
Then Text77 = 20590000
'If Text73 - Text68 < Text69 - Text73 Then End If
'Text72 = Text68 If Text71 = "19" And Text72 = "286" Then
'End If Text75 = 5444
'If Text73 - Text68 > Text69 - Text73 Then Text76 = 259200
'Text72 = Text69 Text77 = 37040000
'End If End If
'End If If Text71 = "38" And Text72 = "64" Then
' Text75 = 2419
'If Text69 < Text73 And Text73 < Text70 Text76 = 25610
Then Text77 = 812900
'If Text73 - Text69 < Text70 - Text73 Then End If
'Text72 = Text69 If Text71 = "38" And Text72 = "89" Then

University of Sulaimani - Engineering Projects Page 94

 Concrete Formwork Design 2011-2012

Text75 = 3387 End If

Text76 = 501900 If Text71 = "64" And Text72 = "337" Then
Text77 = 2231000 Text75 = 21370
End If Text76 = 1199000
If Text71 = "38" And Text72 = "140" Then Text77 = 201700000
Text75 = 5323 End If
Text76 = 123900 If Text71 = "64" And Text72 = "387" Then
Text77 = 8656000 Text75 = 24600
End If Text76 = 1588000
If Text71 = "38" And Text72 = "184" Then Text77 = 307500000
Text75 = 7016 End If
Text76 = 215300 If Text71 = "89" And Text72 = "89" Then
Text77 = 19830000 Text75 = 7903
End If Text76 = 117100
If Text71 = "38" And Text72 = "235" Then Text77 = 5205000
Text75 = 8952 End If
Text76 = 350500 If Text71 = "89" And Text72 = "184" Then
Text77 = 41180000 Text75 = 16370
End If Text76 = 502400
If Text71 = "38" And Text72 = "286" Then Text77 = 46260000
Text75 = 10890 End If
Text76 = 518500 If Text71 = "89" And Text72 = "235" Then
Text77 = 74080000 Text75 = 20890
End If Text76 = 817900
If Text71 = "38" And Text72 = "337" Then Text77 = 96800000
Text75 = 12820 End If
Text76 = 719200 If Text71 = "89" And Text72 = "286" Then
Text77 = 121000000 Text75 = 24400
End If Text76 = 1210000
If Text71 = "64" And Text72 = "89" Then Text77 = 127800000
Text75 = 5645 End If
Text76 = 83640 If Text71 = "89" And Text72 = "337" Then
Text77 = 3718000 Text75 = 29920
End If Text76 = 1678000
If Text71 = "64" And Text72 = "140" Then Text77 = 282400000
Text75 = 8871 End If
Text76 = 206500 If Text71 = "89" And Text72 = "387" Then
Text77 = 14430000 Text75 = 34430
End If Text76 = 2223000
If Text71 = "64" And Text72 = "184" Then Text77 = 430600000
Text75 = 11690 End If
Text76 = 358900 If Text71 = "140" And Text72 = "140" Then
Text77 = 33040000 Text75 = 19520
End If Text76 = 454300
If Text71 = "64" And Text72 = "235" Then Text77 = 19520000
Text75 = 14910 End If
Text76 = 584200 If Text71 = "140" And Text72 = "191" Then
Text77 = 68630000 Text75 = 26610
End If Text76 = 845000
If Text71 = "64" And Text72 = "286" Then Text77 = 80480000
Text75 = 18140 End If
Text76 = 864200 If Text71 = "140" And Text72 = "241" Then
Text77 = 123500000 Text75 = 33710

University of Sulaimani - Engineering Projects Page 95

 Concrete Formwork Design 2011-2012

Text76 = 1356000 If Text71 = "191" And Text72 = "343" Then

Text77 = 163600000 Text75 = 65320
End If Text76 = 3733000
If Text71 = "140" And Text72 = "292" Then Text77 = 640100000
Text75 = 40810 End If
Text76 = 1987000 If Text71 = "191" And Text72 = "394" Then
Text77 = 290100000 Text75 = 75000
End If Text76 = 4921000
If Text71 = "140" And Text72 = "343" Then Text77 = 968800000
Text75 = 47900 End If
Text76 = 2738000 If Text71 = "191" And Text72 = "445" Then
Text77 = 469400000 Text75 = 84680
End If Text76 = 6273000
If Text71 = "140" And Text72 = "394" Then Text77 = 1394000000
Text75 = 55000 End If
Text76 = 3609000 If Text71 = "191" And Text72 = "495" Then
Text77 = 710400000 Text75 = 94360
End If Text76 = 7789000
If Text71 = "140" And Text72 = "445" Then Text77 = 1929000000
Text75 = 62100 End If
Text76 = 4600000 If Text71 = "191" And Text72 = "546" Then
Text77 = 1022000000 Text75 = 104000
End If Text76 = 9489000
If Text71 = "140" And Text72 = "495" Then Text77 = "2585000000"
Text75 = 69190 End If
Text76 = 5712000 If Text71 = "191" And Text72 = "597" Then
Text77 = 1415000000 Text75 = 113700
End If Text76 = 11310000
If Text71 = "140" And Text72 = "546" Then Text77 = "3376000000"
Text75 = 76290 End If
Text76 = 6944000 If Text71 = "241" And Text72 = "241" Then
Text77 = 1896000000 Text75 = 58230
End If Text76 = 2342000
If Text71 = "140" And Text72 = "597" Then Text77 = 282500000
Text75 = 83390 End If
Text76 = 8296000 If Text71 = "241" And Text72 = "292" Then
Text77 = "2476000000" Text75 = 70480
End If Text76 = 3431000
If Text71 = "191" And Text72 = "191" Then Text77 = 501200000
Text75 = 36290 End If
Text76 = 1152000 If Text71 = "241" And Text72 = "343" Then
Text77 = 109800000 Text75 = 82740
End If Text76 = 4729000
If Text71 = "191" And Text72 = "241" Then Text77 = 810700000
Text75 = 45970 End If
Text76 = 1849000 If Text71 = "241" And Text72 = "394" Then
Text77 = 223000000 Text75 = 95000
End If Text76 = 6234000
If Text71 = "191" And Text72 = "292" Then Text77 = 1227000000
Text75 = 55650 End If
Text76 = 2709000 If Text71 = "241" And Text72 = "445" Then
Text77 = 395700000 Text75 = 107300
End If Text76 = 7946000

University of Sulaimani - Engineering Projects Page 96

 Concrete Formwork Design 2011-2012

Text77 = 1766000000 Text75 = 117500

End If Text76 = 6720000
If Text71 = "241" And Text72 = "495" Then Text77 = 1152000000
Text75 = 119500 End If
Text76 = 9866000 If Text71 = "343" And Text72 = "394" Then
Text77 = "2443000000" Text75 = 135000
End If Text76 = 8858000
If Text71 = "241" And Text72 = "546" Then Text77 = 1744000000
Text75 = 131800 End If
Text76 = 11980000 If Text71 = "434" And Text72 = "445" Then
Text77 = "3275000000" Text75 = 152400
End If Text76 = 11290000
If Text71 = "241" And Text72 = "597" Then Text77 = "2510000000"
Text75 = 144000 End If
Text76 = 14330000 If Text71 = "343" And Text72 = "495" Then
Text77 = "4276000000" Text75 = 169800
End If Text76 = 14020000
If Text71 = "292" And Text72 = "292" Then Text77 = "3472000000"
Text75 = 85320 End If
Text76 = 4154000 If Text71 = "343" And Text72 = "546" Then
Text77 = 594200000 Text75 = 187300
End If Text76 = 17040000
If Text71 = "292" And Text72 = "343" Then Text77 = "4654000000"
Text75 = 100200 End If
Text76 = 5724000 If Text71 = "343" And Text72 = "597" Then
Text77 = 981400000 Text75 = 204700
End If Text76 = 20360000
If Text71 = "292" And Text72 = "394" Then Text77 = "6077000000"
Text75 = 115000 End If
Text76 = 7546000 '
Text77 = 1485000000 '
End If '
If Text71 = "292" And Text72 = "445" Then 'the same # for width
Text75 = 129800 If Text3 <= 19 Then
Text76 = 9619000 Text71 = 19
Text77 = "2138000000" End If
End If If Text3 >= 343 Then
If Text71 = "292" And Text72 = "495" Then Text71 = 343
Text75 = 144700 End If
Text76 = 11940000 If Text3 = 38 Then
Text77 = "2958000000" Text71 = 38
End If End If
If Text71 = "292" And Text72 = "546" Then If Text3 = 64 Then
Text75 = 159500 Text71 = 64
Text76 = 14520000 End If
Text77 = "3964000000" If Text3 = 89 Then
End If Text71 = 89
If Text71 = "292" And Text72 = "597" Then End If
Text75 = 174400 If Text3 = 140 Then
Text76 = 17340000 Text71 = 140
Text77 = "4276000000" End If
End If If Text3 = 191 Then
If Text71 = "343" And Text72 = "343" Then Text71 = 191

University of Sulaimani - Engineering Projects Page 97

 Concrete Formwork Design 2011-2012

End If End If
If Text3 = 241 Then '
Text71 = 241 '
End If 'check of bending for the joist
If Text3 = 292 Then Text28 = 100 / 1000000 * ((Val(Text12) *
Text71 = 292 Val(Text76)) / (Val(Text34) * Val(Text24)))
End If ^ 0.5
'
'the same # for height
If Text73 = 64 Then
Text72 = 64 End Sub
End If
If Text73 = 89 Then Private Sub Command8_Click()
Text72 = 89 Text29 = (1.11 / 1000000 * Val(Text13) *
End If Val(Text75) / (Val(Text34) * Val(Text24)))
If Text73 = 140 Then + (2 * Val(Text72) / 1000)
Text72 = 140 End Sub
End If
If Text73 = 184 Then Private Sub Command9_Click()
Text72 = 184 Text30 = 73.8 / 1000000 * ((Val(Text16) *
End If Val(Text77)) / (Val(Text34) * Val(Text24)))
If Text73 = 235 Then ^ (1 / 3)
Text72 = 235 End Sub
End If
If Text73 = 286 Then Private Sub Form_Load()
Text72 = 286 'Frame5.Top = 3120
End If 'Frame5.Visible = False
If Text73 = 292 Then
Text72 = 292 'Command22.Top = 3480
End If 'Command21.Top = 3840
If Text73 = 337 Then 'Command20.Top = 4200
Text72 = 337 'Command19.Top = 4560
End If 'Command23.Top = 4200
If Text73 = 343 Then 'Text43.Top = 3480
Text72 = 343 'Text42.Top = 3840
End If 'Text41.Top = 4560
If Text73 = 387 Then 'Text38.Top = 4200
Text72 = 387 'Text47.Top = 3840
End If 'Text46.Top = 4560
If Text73 = 394 Then 'Text45.Top = 4200
Text72 = 394 'Label17.Top = 3840
End If 'Label18.Top = 4560
If Text73 = 445 Then 'Label19.Top = 4200
Text72 = 445 'Label16.Top = 4560
End If 'Line9.Y1 = 3840
If Text73 = 495 Then 'Line9.Y2 = 3840
Text72 = 495 'Line12.Y1 = 4560
End If 'Line12.Y2 = 4560
If Text73 = 546 Then 'Line10.Y1 = 4200
Text72 = 546 'Line10.Y2 = 4200
End If 'Line11.Y1 = 3840
If Text73 = 597 Then 'Line11.Y2 = 4560
Text72 = 597

University of Sulaimani - Engineering Projects Page 98

 Concrete Formwork Design 2011-2012

List2.List(10) = "394"
List2.List(11) = "445"
Text1 = "0.152" List2.List(12) = "495"
Text2 = "25" List2.List(13) = "546"
Text3 = "50" List2.List(14) = "597"
Text73 = "200"
Text4 = "100"
Text74 = "200" End Sub
Text5 = "17.8"
Text6 = "0.24" '
Text7 = "7412" '
Text8 = "1200" ''
Text11 = "9400000" '
Text12 = "8619" '
Text13 = "1241" '
Text14 = "2792" '
Text15 = "5861" '
Text16 = "9700000" '
Text17 = "8619"
Text18 = "1241" Private Sub Label10_Click()
Text19 = "2792" MsgBox "Actual Unit Stress in compression
Text20 = "5861" parallel to grain (Kpa)"
Text21 = "9700000"
End Sub
List1.List(0) = "19"
List1.List(1) = "38" Private Sub Label11_Click()
List1.List(2) = "64" MsgBox "Modulus of Elasticity (Kpa)"
List1.List(3) = "89" End Sub
List1.List(4) = "140"
List1.List(5) = "191" Private Sub Label7_Click()
List1.List(6) = "241" MsgBox "Allowable Unit Stress in Bending
List1.List(7) = "292" (Kpa)"
List1.List(8) = "343" End Sub
'
' Private Sub Label8_Click()
List2.List(0) = "64" MsgBox "Allowable Unit Stress in Horizontal
List2.List(1) = "89" Shear (Kpa)"
List2.List(2) = "140"
List2.List(3) = "184" End Sub
List2.List(4) = "235"
List2.List(5) = "286" Private Sub Label9_Click()
List2.List(6) = "292" MsgBox "Allowable Unit Stress in
List2.List(7) = "337" Compression Perpendicular to Grain (Kpa)"
List2.List(8) = "343"
List2.List(9) = "387" End Sub

University of Sulaimani - Engineering Projects Page 99

 Concrete Formwork Design 2011-2012

6.3.2 Form2 Codes:

Private Sub Command1_Click()
If Combo1.Text = "Joist" Then
Text1.Text = "The Cross section is (" + Form1.Text71.Text + " x " + Form1.Text72.Text + ")
mm"
Text2.Text = "The Cross sectional Area is (" + Form1.Text75.Text + ") mm^2"
Text3.Text = "The Section Modulus is (" + Form1.Text76.Text + ") mm^3"
Text4.Text = "The Moment of Inertia is (" + Form1.Text77.Text + ") mm^4"
End If

If Combo1.Text = "Stringer" Then

Text1.Text = "The Cross section is (" + Form1.Text82.Text + " x " + Form1.Text83.Text + ")
mm"
Text2.Text = "The Cross sectional Area is (" + Form1.Text79.Text + ") mm^2"
Text3.Text = "The Section Modulus is (" + Form1.Text80.Text + ") mm^3"
Text4.Text = "The Moment of Inertia is (" + Form1.Text81.Text + ") mm^4"
End If

End Sub

Private Sub Form_Load()

'Combo1.List(0) = "Cross Section"
'Combo1.List(1) = "Area"
'Combo1.List(2) = "Section Modulus"
'Combo1.List(3) = "Moment of Inertia"
Combo1.List(0) = "Joist"
Combo1.List(1) = "Stringer"
End Sub
6.3.3 Form3 Codes:
Private Sub Command1_Click()
Form1.Show
End Sub

Private Sub Command2_Click()

Form4.Show
End Sub

Private Sub Command3_Click()

MsgBox "The main units are (KN and m) and the Sheathing,Joist,Stringer,Stud and wale
INPUT is in (mm)..."
Private Sub Command4_Click()
Form8.Show
End Sub

End Sub

University of Sulaimani - Engineering Projects Page 100

 Concrete Formwork Design 2011-2012

6.3.4 Form4 Codes:

Private Sub Command1_Click(index As End If
Integer) Next i
text6(0) = 1 * 1 * (7.2 + (785 * Text1 / ' here the first column of the table finished
(Text22 + 18)))
End Sub

Private Sub Command10_Click() 'the second starts from here

For i = 19 To 28 For i = 64 To 76
If Text3 = i Then If Text73 = i Then
Text71 = "19" Text72 = "64"
End If End If
Next i Next i
For i = 29 To 51 For i = 77 To 114
If Text3 = i Then If Text73 = i Then
Text71 = "38" Text72 = "89"
End If End If
Next i Next i
For i = 52 To 76 For i = 115 To 162
If Text3 = i Then If Text73 = i Then
Text71 = "64" Text72 = "140"
End If End If
Next i Next i
For i = 77 To 114 For i = 163 To 209
If Text3 = i Then If Text73 = i Then
Text71 = "89" Text72 = "184"
End If End If
Next i Next i
For i = 115 To 165 For i = 210 To 260
If Text3 = i Then If Text73 = i Then
Text71 = "140" Text72 = "235"
End If End If
Next i Next i
For i = 165 To 216 For i = 261 To 289
If Text3 = i Then If Text73 = i Then
Text71 = "191" Text72 = "286"
End If End If
Next i Next i
For i = 217 To 266 For i = 290 To 314
If Text3 = i Then If Text73 = i Then
Text71 = "241" Text72 = "292"
End If End If
Next i Next i
For i = 267 To 317 For i = 315 To 340
If Text3 = i Then If Text73 = i Then
Text71 = "292" Text72 = "337"
End If End If
Next i Next i
For i = 318 To 343 For i = 341 To 365
If Text3 = i Then If Text73 = i Then
Text71 = "343" Text72 = "343"

University of Sulaimani - Engineering Projects Page 101

 Concrete Formwork Design 2011-2012

End If If Text74 = i Then

Next i Text83 = "286"
For i = 366 To 390 End If
If Text73 = i Then Next i
Text72 = "387" For i = 290 To 314
End If If Text74 = i Then
Next i Text83 = "292"
For i = 391 To 419 End If
If Text73 = i Then Next i
Text72 = "394" For i = 315 To 340
End If If Text74 = i Then
Next i Text83 = "337"
For i = 420 To 470 End If
If Text73 = i Then Next i
Text72 = "445" For i = 341 To 365
End If If Text74 = i Then
Next i Text83 = "343"
For i = 471 To 520 End If
If Text73 = i Then Next i
Text72 = "495" For i = 366 To 390
End If If Text74 = i Then
Next i Text83 = "387"
For i = 521 To 546 End If
If Text73 = i Then Next i
Text72 = "546" For i = 391 To 419
End If If Text74 = i Then
Next i ' the second column finished here Text83 = "394"
For i = 64 To 76 End If
If Text74 = i Then Next i
Text83 = "64" For i = 420 To 470
End If If Text74 = i Then
Next i Text83 = "445"
For i = 77 To 114 End If
If Text74 = i Then Next i
Text83 = "89" For i = 471 To 520
End If If Text74 = i Then
Next i Text83 = "495"
For i = 115 To 162 End If
If Text74 = i Then Next i
Text83 = "140" For i = 521 To 546
End If If Text74 = i Then
Next i Text83 = "546"
For i = 163 To 209 End If
If Text74 = i Then Next i ' the second column finished here
Text83 = "184"
End If
Next i
For i = 210 To 260 'If Text48 < Text3 And Text3 < Text49 Then
If Text74 = i Then 'If Text3 - Text48 < Text49 - Text3 Then
Text83 = "235" 'Text71 = Text48
End If 'End If
Next i 'If Text3 - Text48 > Text49 - Text3 Then
For i = 261 To 289 'Text71 = Text49

University of Sulaimani - Engineering Projects Page 102

 Concrete Formwork Design 2011-2012

'End If 'Text71 = Text54

'End If 'End If
' 'If Text3 - Text54 > Text55 - Text3 Then
'If Text49 < Text3 And Text3 < Text50 Then 'Text71 = Text55
'If Text3 - Text49 < Text50 - Text3 Then 'End If
'Text71 = Text49 'End If
'End If 'If List1.List(0) < Text3 And Text3 <
'If Text3 - Text49 > Text50 - Text3 Then List1.List(1) Then
'Text71 = Text50 'If Text3 - List1.List(0) < List1.List(1) - Text3
'End If Then
'End If 'Text71 = Val(List1.List(0))
' 'End If
'If Text3 - List1.List(0) > List1.List(1) - Text3
Then
' 'Text71 = Val(List1.List(1))
'If Val(Text51) < Val(Text3) And Val(Text3) < 'End If
Val(Text52) Then 'End If
'If Val(Text3) - Val(Text51) < Val(Text52) - 'If Text50 < Text3 And Text3 < Text51 Then
Val(Text3) Then 'If Text3 - Text50 < Text51 - Text3 Then
'Text71 = Val(Text51) 'Text71 = Text50
'End If 'End If
'If Val(Text3) - Val(Text51) > Val(Text52) - 'If Text3 - Text50 > Text51 - Text3 Then
Val(Text3) Then 'Text71 = Text51
'Text71 = Val(Text52) 'End If
'End If 'End If
'End If 'the first column is finished here
'
'If Val(Text52) < Val(Text3) And Val(Text3) <
Val(Text53) Then
'If Val(Text3) - Val(Text52) < Val(Text53) - 'the second starts from here:
Val(Text3) Then
'Text71 = Val(Text52) 'If Text56 < Text73 And Text73 < Text57
'End If Then
'If Val(Text3) - Val(Text52) > Val(Text53) - 'If Text73 - Text56 < Text57 - Text73 Then
Val(Text3) Then 'Text72 = Text56
'Text71 = Val(Text53) 'End If
'End If 'If Text73 - Text56 > Text57 - Text73 Then
'End If 'Text72 = Text57
' 'End If
' 'End If
'
'If Text53 < Text3 And Text3 < Text54 Then '
'If Text3 - Text53 < Text54 - Text3 Then 'If Text57 < Text73 And Text73 < Text58
'Text71 = Text53 Then
'End If 'If Text73 - Text57 < Text58 - Text73 Then
'If Text3 - Text53 > Text54 - Text3 Then 'Text72 = Text57
'Text71 = Text54 'End If
'End If 'If Text73 - Text57 > Text58 - Text73 Then
'End If 'Text72 = Text58
' 'End If
' 'End If
'If Text54 < Text3 And Text3 < Text55 Then '
'If Text3 - Text54 < Text55 - Text3 Then

University of Sulaimani - Engineering Projects Page 103

 Concrete Formwork Design 2011-2012

'If Text58 < Text73 And Text73 < Text59 'If Text73 - Text63 < Text64 - Text73 Then
Then 'Text72 = Text63
'If Text73 - Text58 < Text59 - Text73 Then 'End If
'Text72 = Text58 'If Text73 - Text63 > Text64 - Text73 Then
'End If 'Text72 = Text64
'If Text73 - Text58 > Text59 - Text73 Then 'End If
'Text72 = Text59 'End If
'End If
'End If '
' 'If Text64 < Text73 And Text73 < Text65
Then
'If Text59 < Text73 And Text73 < Text60 'If Text73 - Text64 < Text65 - Text73 Then
Then 'Text72 = Text64
'If Text73 - Text59 < Text60 - Text73 Then 'End If
'Text72 = Text59 'If Text73 - Text64 > Text65 - Text73 Then
'End If 'Text72 = Text65
'If Text73 - Text59 > Text60 - Text73 Then 'End If
'Text72 = Text60 'End If
'End If '
'End If 'If Text65 < Text73 And Text73 < Text66
' Then
'If Text60 < Text73 And Text73 < Text61 'If Text73 - Text65 < Text66 - Text73 Then
Then 'Text72 = Text65
'If Text73 - Text60 < Text61 - Text73 Then 'End If
'Text72 = Text60 'If Text73 - Text65 > Text66 - Text73 Then
'End If 'Text72 = Text66
'If Text73 - Text60 > Text61 - Text73 Then 'End If
'Text72 = Text61 'End If
'End If '
'End If 'If Text66 < Text73 And Text73 < Text67
' Then
'If Text61 < Text73 And Text73 < Text62 'If Text73 - Text66 < Text67 - Text73 Then
Then 'Text72 = Text66
'If Text73 - Text61 < Text62 - Text73 Then 'End If
'Text72 = Text61 'If Text73 - Text66 > Text67 - Text73 Then
'End If 'Text72 = Text67
'If Text73 - Text61 > Text62 - Text73 Then 'End If
'Text72 = Text62 'End If
'End If '
'End If 'If Text67 < Text73 And Text73 < Text68
' Then
'If Text62 < Text73 And Text73 < Text63 'If Text73 - Text67 < Text68 - Text73 Then
Then 'Text72 = Text67
'If Text73 - Text62 < Text63 - Text73 Then 'End If
'Text72 = Text62 'If Text73 - Text67 > Text68 - Text73 Then
'End If 'Text72 = Text68
'If Text73 - Text62 > Text63 - Text73 Then 'End If
'Text72 = Text63 'End If
'End If '
'End If '
' 'If Text68 < Text73 And Text73 < Text69
'If Text63 < Text73 And Text73 < Text64 Then
Then 'If Text73 - Text68 < Text69 - Text73 Then

University of Sulaimani - Engineering Projects Page 104

 Concrete Formwork Design 2011-2012

'Text72 = Text68 If Text71 = "19" And Text72 = "286" Then

'End If Text75 = 5444
'If Text73 - Text68 > Text69 - Text73 Then Text76 = 259200
'Text72 = Text69 Text77 = 37040000
'End If End If
'End If If Text71 = "38" And Text72 = "64" Then
' Text75 = 2419
'If Text69 < Text73 And Text73 < Text70 Text76 = 25610
Then Text77 = 812900
'If Text73 - Text69 < Text70 - Text73 Then End If
'Text72 = Text69 If Text71 = "38" And Text72 = "89" Then
'End If Text75 = 3387
'If Text73 - Text69 > Text70 - Text73 Then Text76 = 501900
'Text72 = Text70 Text77 = 2231000
'End If End If
'End If If Text71 = "38" And Text72 = "140" Then
'end of second column Text75 = 5323
Text76 = 123900
Text77 = 8656000
End If
If Text71 = "38" And Text72 = "184" Then
' Text75 = 7016
'section area moment of inertia Text76 = 215300
'section area moment of inertia Text77 = 19830000
'section area moment of inertia End If
'section area moment of inertia If Text71 = "38" And Text72 = "235" Then
'section area moment of inertia Text75 = 8952
'section area moment of inertia Text76 = 350500
If Text71 = "19" And Text72 = "64" Then Text77 = 41180000
Text75 = 1210 End If
Text76 = 12800 If Text71 = "38" And Text72 = "286" Then
Text77 = 406500 Text75 = 10890
End If Text76 = 518500
If Text71 = "19" And Text72 = "89" Then Text77 = 74080000
Text75 = 1694 End If
Text76 = 250900 If Text71 = "38" And Text72 = "337" Then
Text77 = 1115000 Text75 = 12820
End If Text76 = 719200
If Text71 = "19" And Text72 = "140" Then Text77 = 121000000
Text75 = 2661 End If
Text76 = 619600 If Text71 = "64" And Text72 = "89" Then
Text77 = 4238000 Text75 = 5645
End If Text76 = 83640
If Text71 = "19" And Text72 = "184" Then Text77 = 3718000
Text75 = 3508 End If
Text76 = 107700 If Text71 = "64" And Text72 = "140" Then
Text77 = 9913000 Text75 = 8871
End If Text76 = 206500
If Text71 = "19" And Text72 = "235" Then Text77 = 14430000
Text75 = 4476 End If
Text76 = 175300 If Text71 = "64" And Text72 = "184" Then
Text77 = 20590000 Text75 = 11690
End If Text76 = 358900

University of Sulaimani - Engineering Projects Page 105

 Concrete Formwork Design 2011-2012

Text77 = 33040000 Text75 = 19520

End If Text76 = 454300
If Text71 = "64" And Text72 = "235" Then Text77 = 19520000
Text75 = 14910 End If
Text76 = 584200 If Text71 = "140" And Text72 = "191" Then
Text77 = 68630000 Text75 = 26610
End If Text76 = 845000
If Text71 = "64" And Text72 = "286" Then Text77 = 80480000
Text75 = 18140 End If
Text76 = 864200 If Text71 = "140" And Text72 = "241" Then
Text77 = 123500000 Text75 = 33710
End If Text76 = 1356000
If Text71 = "64" And Text72 = "337" Then Text77 = 163600000
Text75 = 21370 End If
Text76 = 1199000 If Text71 = "140" And Text72 = "292" Then
Text77 = 201700000 Text75 = 40810
End If Text76 = 1987000
If Text71 = "64" And Text72 = "387" Then Text77 = 290100000
Text75 = 24600 End If
Text76 = 1588000 If Text71 = "140" And Text72 = "343" Then
Text77 = 307500000 Text75 = 47900
End If Text76 = 2738000
If Text71 = "89" And Text72 = "89" Then Text77 = 469400000
Text75 = 7903 End If
Text76 = 117100 If Text71 = "140" And Text72 = "394" Then
Text77 = 5205000 Text75 = 55000
End If Text76 = 3609000
If Text71 = "89" And Text72 = "184" Then Text77 = 710400000
Text75 = 16370 End If
Text76 = 502400 If Text71 = "140" And Text72 = "445" Then
Text77 = 46260000 Text75 = 62100
End If Text76 = 4600000
If Text71 = "89" And Text72 = "235" Then Text77 = 1022000000
Text75 = 20890 End If
Text76 = 817900 If Text71 = "140" And Text72 = "495" Then
Text77 = 96800000 Text75 = 69190
End If Text76 = 5712000
If Text71 = "89" And Text72 = "286" Then Text77 = 1415000000
Text75 = 24400 End If
Text76 = 1210000 If Text71 = "140" And Text72 = "546" Then
Text77 = 127800000 Text75 = 76290
End If Text76 = 6944000
If Text71 = "89" And Text72 = "337" Then Text77 = 1896000000
Text75 = 29920 End If
Text76 = 1678000 If Text71 = "140" And Text72 = "597" Then
Text77 = 282400000 Text75 = 83390
End If Text76 = 8296000
If Text71 = "89" And Text72 = "387" Then Text77 = "2476000000"
Text75 = 34430 End If
Text76 = 2223000 If Text71 = "191" And Text72 = "191" Then
Text77 = 430600000 Text75 = 36290
End If Text76 = 1152000
If Text71 = "140" And Text72 = "140" Then Text77 = 109800000

University of Sulaimani - Engineering Projects Page 106

 Concrete Formwork Design 2011-2012

End If Text76 = 4729000

If Text71 = "191" And Text72 = "241" Then Text77 = 810700000
Text75 = 45970 End If
Text76 = 1849000 If Text71 = "241" And Text72 = "394" Then
Text77 = 223000000 Text75 = 95000
End If Text76 = 6234000
If Text71 = "191" And Text72 = "292" Then Text77 = 1227000000
Text75 = 55650 End If
Text76 = 2709000 If Text71 = "241" And Text72 = "445" Then
Text77 = 395700000 Text75 = 107300
End If Text76 = 7946000
If Text71 = "191" And Text72 = "343" Then Text77 = 1766000000
Text75 = 65320 End If
Text76 = 3733000 If Text71 = "241" And Text72 = "495" Then
Text77 = 640100000 Text75 = 119500
End If Text76 = 9866000
If Text71 = "191" And Text72 = "394" Then Text77 = "2443000000"
Text75 = 75000 End If
Text76 = 4921000 If Text71 = "241" And Text72 = "546" Then
Text77 = 968800000 Text75 = 131800
End If Text76 = 11980000
If Text71 = "191" And Text72 = "445" Then Text77 = "3275000000"
Text75 = 84680 End If
Text76 = 6273000 If Text71 = "241" And Text72 = "597" Then
Text77 = 1394000000 Text75 = 144000
End If Text76 = 14330000
If Text71 = "191" And Text72 = "495" Then Text77 = "4276000000"
Text75 = 94360 End If
Text76 = 7789000 If Text71 = "292" And Text72 = "292" Then
Text77 = 1929000000 Text75 = 85320
End If Text76 = 4154000
If Text71 = "191" And Text72 = "546" Then Text77 = 594200000
Text75 = 104000 End If
Text76 = 9489000 If Text71 = "292" And Text72 = "343" Then
Text77 = "2585000000" Text75 = 100200
End If Text76 = 5724000
If Text71 = "191" And Text72 = "597" Then Text77 = 981400000
Text75 = 113700 End If
Text76 = 11310000 If Text71 = "292" And Text72 = "394" Then
Text77 = "3376000000" Text75 = 115000
End If Text76 = 7546000
If Text71 = "241" And Text72 = "241" Then Text77 = 1485000000
Text75 = 58230 End If
Text76 = 2342000 If Text71 = "292" And Text72 = "445" Then
Text77 = 282500000 Text75 = 129800
End If Text76 = 9619000
If Text71 = "241" And Text72 = "292" Then Text77 = "2138000000"
Text75 = 70480 End If
Text76 = 3431000 If Text71 = "292" And Text72 = "495" Then
Text77 = 501200000 Text75 = 144700
End If Text76 = 11940000
If Text71 = "241" And Text72 = "343" Then Text77 = "2958000000"
Text75 = 82740 End If

University of Sulaimani - Engineering Projects Page 107

 Concrete Formwork Design 2011-2012

If Text71 = "292" And Text72 = "546" Then If Text3 = 64 Then

Text75 = 159500 Text71 = 64
Text76 = 14520000 End If
Text77 = "3964000000" If Text3 = 89 Then
End If Text71 = 89
If Text71 = "292" And Text72 = "597" Then End If
Text75 = 174400 If Text3 = 140 Then
Text76 = 17340000 Text71 = 140
Text77 = "4276000000" End If
End If If Text3 = 191 Then
If Text71 = "343" And Text72 = "343" Then Text71 = 191
Text75 = 117500 End If
Text76 = 6720000 If Text3 = 241 Then
Text77 = 1152000000 Text71 = 241
End If End If
If Text71 = "343" And Text72 = "394" Then If Text3 = 292 Then
Text75 = 135000 Text71 = 292
Text76 = 8858000 End If
Text77 = 1744000000 '
End If 'the same # for height
If Text71 = "434" And Text72 = "445" Then If Text73 = 64 Then
Text75 = 152400 Text72 = 64
Text76 = 11290000 End If
Text77 = "2510000000" If Text73 = 89 Then
End If Text72 = 89
If Text71 = "343" And Text72 = "495" Then End If
Text75 = 169800 If Text73 = 140 Then
Text76 = 14020000 Text72 = 140
Text77 = "3472000000" End If
End If If Text73 = 184 Then
If Text71 = "343" And Text72 = "546" Then Text72 = 184
Text75 = 187300 End If
Text76 = 17040000 If Text73 = 235 Then
Text77 = "4654000000" Text72 = 235
End If End If
If Text71 = "343" And Text72 = "597" Then If Text73 = 286 Then
Text75 = 204700 Text72 = 286
Text76 = 20360000 End If
Text77 = "6077000000" If Text73 = 292 Then
End If Text72 = 292
' End If
' If Text73 = 337 Then
' Text72 = 337
'the same # for width End If
If Text3 <= 19 Then If Text73 = 343 Then
Text71 = 19 Text72 = 343
End If End If
If Text3 >= 343 Then If Text73 = 387 Then
Text71 = 343 Text72 = 387
End If End If
If Text3 = 38 Then If Text73 = 394 Then
Text71 = 38 Text72 = 394
End If End If

University of Sulaimani - Engineering Projects Page 108

 Concrete Formwork Design 2011-2012

If Text73 = 445 Then

Text72 = 445 Private Sub Command14_Click()
End If For i = 19 To 28
If Text73 = 495 Then If Text4 = i Then
Text72 = 495 Text82 = "19"
End If End If
If Text73 = 546 Then Next i
Text72 = 546 For i = 29 To 51
End If If Text4 = i Then
If Text73 = 597 Then Text82 = "38"
Text72 = 597 End If
End If Next i
' For i = 52 To 76
' If Text4 = i Then
'check of bending for the joist Text82 = "64"
Text26 = 100 / 1000000 * (Val(Text12) * End If
Val(Text76) / (Val(Text10) * Val(Text23))) ^ Next i
0.5 For i = 77 To 114
If Text4 = i Then
Text82 = "89"
End If
End Sub Next i
For i = 115 To 165
Private Sub Command11_Click() If Text4 = i Then
If Text29 < Text28 And Text29 < Text26 Text82 = "140"
Then End If
Text27 = 0.95 * Val(Text29) Next i
End If For i = 165 To 216
If Text28 < Text29 And Text28 < Text26 If Text4 = i Then
Then Text82 = "191"
Text27 = 0.95 * Val(Text28) End If
End If Next i
If Text26 < Text29 And Text26 < Text28 For i = 217 To 266
Then If Text4 = i Then
Text27 = 0.95 * Val(Text26) Text82 = "241"
End If End If
MsgBox "Minimum Span of the Joist or Next i
Spacing of the Stringers >>>Factor of For i = 267 To 317
Safety=.95" If Text4 = i Then
Text82 = "292"
End Sub End If
Next i
Private Sub Command12_Click() For i = 318 To 343
Text28 = (1.11 / 1000000 * Val(Text13) * If Text4 = i Then
Val(Text75) / (Val(Text23) * Val(Text10))) + Text82 = "343"
(2 * Val(Text72) / 1000) End If
End Sub Next i
' here the first column of the table finished
Private Sub Command13_Click()
Text29 = 73.8 / 1000000 * ((Val(Text16) * '
Val(Text77)) / (Val(Text23) * Val(Text10))) ^ '
(1 / 3) '
End Sub '

University of Sulaimani - Engineering Projects Page 109

 Concrete Formwork Design 2011-2012

'If Text78 < Text4 And Text4 < Text48 Then ''
'If Text4 - Text78 < Text48 - Text4 Then '
'Text82 = Text78
'End If 'If Text53 < Text4 And Text4 < Text54 Then
'If Text4 - Text78 > Text48 - Text4 Then 'If Text4 - Text53 < Text54 - Text4 Then
'Text82 = Text48 'Text82 = Text53
'End If 'End If
'End If 'If Text4 - Text53 > Text54 - Text4 Then
'If Text48 < Text4 And Text4 < Text49 Then 'Text82 = Text54
'If Text4 - Text48 < Text49 - Text4 Then 'End If
'Text82 = Text48 'End If
'End If ''
'If Text4 - Text48 > Text49 - Text4 Then ''
'Text82 = Text49 'If Text54 < Text4 And Text4 < Text55 Then
'End If 'If Text4 - Text54 < Text55 - Text4 Then
'End If 'Text82 = Text54
'' 'End If
'If Text49 < Text4 And Text4 < Text50 Then 'If Text4 - Text54 > Text55 - Text4 Then
'If Text4 - Text49 < Text50 - Text4 Then 'Text82 = Text55
'Text82 = Text49 'End If
'End If 'End If
'If Text4 - Text49 > Text50 - Text4 Then 'first column finishes here
'Text82 = Text50 '
'End If 'If Text56 < Text74 And Text74 < Text57
'End If Then
'' 'If Text74 - Text56 < Text57 - Text74 Then
'Text83 = Text56
'If Text50 < Text4 And Text4 < Text51 Then 'End If
'If Text4 - Text50 < Text51 - Text4 Then 'If Text74 - Text56 > Text57 - Text74 Then
'Text82 = Text50 'Text83 = Text57
'End If 'End If
'If Text4 - Text50 > Text51 - Text4 Then 'End If
'Text82 = Text51 '
'End If '
'End If 'If Text57 < Text74 And Text74 < Text58
'' Then
'If Text51 < Text4 And Text4 < Text52 Then 'If Text74 - Text57 < Text58 - Text74 Then
'If Text4 - Text51 < Text52 - Text4 Then 'Text83 = Text57
'Text82 = Text51 'End If
'End If 'If Text74 - Text57 > Text58 - Text74 Then
'If Text4 - Text51 > Text52 - Text4 Then 'Text83 = Text58
'Text82 = Text52 'End If
'End If 'End If
'End If ''
' 'If Text58 < Text74 And Text74 < Text59
'If Text52 < Text4 And Text4 < Text53 Then Then
'If Text4 - Text52 < Text53 - Text4 Then 'If Text74 - Text58 < Text59 - Text74 Then
'Text82 = Text52 'Text83 = Text58
'End If 'End If
'If Text4 - Text52 > Text53 - Text4 Then 'If Text74 - Text58 > Text59 - Text74 Then
'Text82 = Text53 'Text83 = Text59
'End If 'End If
'End If 'End If

University of Sulaimani - Engineering Projects Page 110

 Concrete Formwork Design 2011-2012

'' 'If Text64 < Text74 And Text74 < Text65

Then
'If Text59 < Text74 And Text74 < Text60 'If Text74 - Text64 < Text65 - Text74 Then
Then 'Text83 = Text64
'If Text74 - Text59 < Text60 - Text74 Then 'End If
'Text83 = Text59 'If Text74 - Text64 > Text65 - Text74 Then
'End If 'Text83 = Text65
'If Text74 - Text59 > Text60 - Text74 Then 'End If
'Text83 = Text60 'End If
'End If ''
'End If 'If Text65 < Text74 And Text74 < Text66
' Then
'If Text60 < Text74 And Text74 < Text61 'If Text74 - Text65 < Text66 - Text74 Then
Then 'Text83 = Text65
'If Text74 - Text60 < Text61 - Text74 Then 'End If
'Text83 = Text60 'If Text74 - Text65 > Text66 - Text74 Then
'End If 'Text83 = Text66
'If Text74 - Text60 > Text61 - Text74 Then 'End If
'Text83 = Text61 'End If
'End If '
'End If 'If Text66 < Text74 And Text74 < Text67
'' Then
'If Text61 < Text74 And Text74 < Text62 'If Text74 - Text66 < Text67 - Text74 Then
Then 'Text83 = Text66
'If Text74 - Text61 < Text62 - Text74 Then 'End If
'Text83 = Text61 'If Text74 - Text66 > Text67 - Text74 Then
'End If 'Text83 = Text67
'If Text74 - Text61 > Text62 - Text74 Then 'End If
'Text83 = Text62 'End If
'End If ''
'End If 'If Text67 < Text74 And Text74 < Text68
' Then
'If Text62 < Text74 And Text74 < Text63 'If Text74 - Text67 < Text68 - Text74 Then
Then 'Text83 = Text67
'If Text74 - Text62 < Text63 - Text74 Then 'End If
'Text83 = Text62 'If Text74 - Text67 > Text68 - Text74 Then
'End If 'Text83 = Text68
'If Text74 - Text62 > Text63 - Text74 Then 'End If
'Text83 = Text63 'End If
'End If '
'End If '
' 'If Text68 < Text74 And Text74 < Text69
'If Text63 < Text74 And Text74 < Text64 Then
Then 'If Text74 - Text68 < Text69 - Text74 Then
'If Text74 - Text63 < Text64 - Text74 Then 'Text83 = Text68
'Text83 = Text63 'End If
'End If 'If Text74 - Text68 > Text69 - Text74 Then
'If Text74 - Text63 > Text64 - Text74 Then 'Text83 = Text69
'Text83 = Text64 'End If
'End If 'End If
'End If' ''
'If Text69 < Text74 And Text74 < Text70
' Then

University of Sulaimani - Engineering Projects Page 111

 Concrete Formwork Design 2011-2012

'If Text74 - Text69 < Text70 - Text74 Then Text80 = 25610

'Text83 = Text69 Text81 = 812900
'End If End If
'If Text74 - Text69 > Text70 - Text74 Then If Text82 = "38" And Text83 = "89" Then
'Text83 = Text70 Text79 = 3387
'End If Text80 = 501900
'End If Text81 = 2231000
''second column finishes here End If
' If Text82 = "38" And Text83 = "140" Then
Text79 = 5323
Text80 = 123900
Text81 = 8656000
End If
'section area moment of inertia: If Text82 = "38" And Text83 = "184" Then
'section area moment of inertia Text79 = 7016
'section area moment of inertia Text80 = 215300
'section area moment of inertia Text81 = 19830000
'section area moment of inertia End If
'section area moment of inertia If Text82 = "38" And Text83 = "235" Then
''''''''''''''''''''''''''''''''''''''''''' check copmatibility of Text79 = 8952
the c/s Text80 = 350500
If Text82 = "19" And Text83 = "64" Then Text81 = 41180000
Text79 = 1210 End If
Text80 = 12800 If Text82 = "38" And Text83 = "286" Then
Text81 = 406500 Text79 = 10890
End If Text80 = 518500
If Text82 = "19" And Text83 = "89" Then Text81 = 74080000
Text79 = 1694 End If
Text80 = 250900 If Text82 = "38" And Text83 = "337" Then
Text81 = 1115000 Text79 = 12820
End If Text80 = 719200
If Text82 = "19" And Text83 = "140" Then Text81 = 121000000
Text79 = 2661 End If
Text80 = 619600 If Text82 = "64" And Text83 = "89" Then
Text81 = 4238000 Text79 = 5645
End If Text80 = 83640
If Text82 = "19" And Text83 = "184" Then Text81 = 3718000
Text79 = 3508 End If
Text80 = 107700 If Text82 = "64" And Text83 = "140" Then
Text81 = 9913000 Text79 = 8871
End If Text80 = 206500
If Text82 = "19" And Text83 = "235" Then Text81 = 14430000
Text79 = 4476 End If
Text80 = 175300 If Text82 = "64" And Text83 = "184" Then
Text81 = 20590000 Text79 = 11690
End If Text80 = 358900
If Text82 = "19" And Text83 = "286" Then Text81 = 33040000
Text79 = 5444 End If
Text80 = 259200 If Text82 = "64" And Text83 = "235" Then
Text81 = 37040000 Text79 = 14910
End If Text80 = 584200
If Text82 = "38" And Text83 = "64" Then Text81 = 68630000
Text79 = 2419 End If

University of Sulaimani - Engineering Projects Page 112

 Concrete Formwork Design 2011-2012

If Text82 = "64" And Text83 = "286" Then Text81 = 80480000

Text79 = 18140 End If
Text80 = 864200 If Text82 = "140" And Text83 = "241" Then
Text81 = 123500000 Text79 = 33710
End If Text80 = 1356000
If Text82 = "64" And Text83 = "337" Then Text81 = 163600000
Text79 = 21370 End If
Text80 = 1199000 If Text82 = "140" And Text83 = "292" Then
Text81 = 201700000 Text79 = 40810
End If Text80 = 1987000
If Text82 = "64" And Text83 = "387" Then Text81 = 290100000
Text79 = 24600 End If
Text80 = 1588000 If Text82 = "140" And Text83 = "343" Then
Text81 = 307500000 Text79 = 47900
End If Text80 = 2738000
If Text82 = "89" And Text83 = "89" Then Text81 = 469400000
Text79 = 7903 End If
Text80 = 117100 If Text82 = "140" And Text83 = "394" Then
Text81 = 5205000 Text79 = 55000
End If Text80 = 3609000
If Text82 = "89" And Text83 = "184" Then Text81 = 710400000
Text79 = 16370 End If
Text80 = 502400 If Text82 = "140" And Text83 = "445" Then
Text81 = 46260000 Text79 = 62100
End If Text80 = 4600000
If Text82 = "89" And Text83 = "235" Then Text81 = 1022000000
Text79 = 20890 End If
Text80 = 817900 If Text82 = "140" And Text83 = "495" Then
Text81 = 96800000 Text79 = 69190
End If Text80 = 5712000
If Text82 = "89" And Text83 = "286" Then Text81 = 1415000000
Text79 = 24400 End If
Text80 = 1210000 If Text82 = "140" And Text83 = "546" Then
Text81 = 127800000 Text79 = 76290
End If Text80 = 6944000
If Text82 = "89" And Text83 = "337" Then Text81 = 1896000000
Text79 = 29920 End If
Text80 = 1678000 If Text82 = "140" And Text83 = "597" Then
Text81 = 282400000 Text79 = 83390
End If Text80 = 8296000
If Text82 = "89" And Text83 = "387" Then Text81 = "2476000000"
Text79 = 34430 End If
Text80 = 2223000 If Text82 = "191" And Text83 = "191" Then
Text81 = 430600000 Text79 = 36290
End If Text80 = 1152000
If Text82 = "140" And Text83 = "140" Then Text81 = 109800000
Text79 = 19520 End If
Text80 = 454300 If Text82 = "191" And Text83 = "241" Then
Text81 = 19520000 Text79 = 45970
End If Text80 = 1849000
If Text82 = "140" And Text83 = "191" Then Text81 = 223000000
Text79 = 26610 End If
Text80 = 845000 If Text82 = "191" And Text83 = "292" Then

University of Sulaimani - Engineering Projects Page 113

 Concrete Formwork Design 2011-2012

Text79 = 55650 End If

Text80 = 2709000 If Text82 = "241" And Text83 = "445" Then
Text81 = 395700000 Text79 = 107300
End If Text80 = 7946000
If Text82 = "191" And Text83 = "343" Then Text81 = 1766000000
Text79 = 65320 End If
Text80 = 3733000 If Text82 = "241" And Text83 = "495" Then
Text81 = 640100000 Text79 = 119500
End If Text80 = 9866000
If Text82 = "191" And Text83 = "394" Then Text81 = "2443000000"
Text79 = 75000 End If
Text80 = 4921000 If Text82 = "241" And Text83 = "546" Then
Text81 = 968800000 Text79 = 131800
End If Text80 = 11980000
If Text82 = "191" And Text83 = "445" Then Text81 = "3275000000"
Text79 = 84680 End If
Text80 = 6273000 If Text82 = "241" And Text83 = "597" Then
Text81 = 1394000000 Text79 = 144000
End If Text80 = 14330000
If Text82 = "191" And Text83 = "495" Then Text81 = "4276000000"
Text79 = 94360 End If
Text80 = 7789000 If Text82 = "292" And Text83 = "292" Then
Text81 = 1929000000 Text79 = 85320
End If Text80 = 4154000
If Text82 = "191" And Text83 = "546" Then Text81 = 594200000
Text79 = 104000 End If
Text80 = 9489000 If Text82 = "292" And Text83 = "343" Then
Text81 = "2585000000" Text79 = 100200
End If Text80 = 5724000
If Text82 = "191" And Text83 = "597" Then Text81 = 981400000
Text79 = 113700 End If
Text80 = 11310000 If Text82 = "292" And Text83 = "394" Then
Text81 = "3376000000" Text79 = 115000
End If Text80 = 7546000
If Text82 = "241" And Text83 = "241" Then Text81 = 1485000000
Text79 = 58230 End If
Text80 = 2342000 If Text82 = "292" And Text83 = "445" Then
Text81 = 282500000 Text79 = 129800
End If Text80 = 9619000
If Text82 = "241" And Text83 = "292" Then Text81 = "2138000000"
Text79 = 70480 End If
Text80 = 3431000 If Text82 = "292" And Text83 = "495" Then
Text81 = 501200000 Text79 = 144700
End If Text80 = 11940000
If Text82 = "241" And Text83 = "343" Then Text81 = "2958000000"
Text79 = 82740 End If
Text80 = 4729000 If Text82 = "292" And Text83 = "546" Then
Text81 = 810700000 Text79 = 159500
End If Text80 = 14520000
If Text82 = "241" And Text83 = "394" Then Text81 = "3964000000"
Text79 = 95000 End If
Text80 = 6234000 If Text82 = "292" And Text83 = "597" Then
Text81 = 1227000000 Text79 = 174400

University of Sulaimani - Engineering Projects Page 114

 Concrete Formwork Design 2011-2012

Text80 = 17340000 Text82 = 140

Text81 = "4276000000" End If
End If If Text4 = 191 Then
If Text82 = "343" And Text83 = "343" Then Text82 = 191
Text79 = 117500 End If
Text80 = 6720000 If Text4 = 241 Then
Text81 = 1152000000 Text82 = 241
End If End If
If Text82 = "343" And Text83 = "394" Then If Text4 = 292 Then
Text79 = 135000 Text82 = 292
Text80 = 8858000 End If
Text81 = 1744000000 '
End If 'the same # for height
If Text82 = "434" And Text83 = "445" Then If Text74 = 64 Then
Text79 = 152400 Text83 = 64
Text80 = 11290000 End If
Text81 = "2510000000" If Text74 = 89 Then
End If Text83 = 89
If Text82 = "343" And Text83 = "495" Then End If
Text79 = 169800 If Text74 = 140 Then
Text80 = 14020000 Text83 = 140
Text81 = "3472000000" End If
End If If Text74 = 184 Then
If Text82 = "343" And Text83 = "546" Then Text83 = 184
Text79 = 187300 End If
Text80 = 17040000 If Text74 = 235 Then
Text81 = "4654000000" Text83 = 235
End If End If
If Text82 = "343" And Text83 = "597" Then If Text74 = 286 Then
Text79 = 204700 Text83 = 286
Text80 = 20360000 End If
Text81 = "6077000000" If Text74 = 292 Then
End If Text83 = 292
' End If
' If Text74 = 337 Then
' Text83 = 337
'the same # for width End If
If Text4 <= 19 Then If Text74 = 343 Then
Text82 = 19 Text83 = 343
End If End If
If Text4 >= 343 Then If Text74 = 387 Then
Text82 = 343 Text83 = 387
End If End If
If Text4 = 38 Then If Text74 = 394 Then
Text82 = 38 Text83 = 394
End If End If
If Text4 = 64 Then If Text74 = 445 Then
Text82 = 64 Text83 = 445
End If End If
If Text4 = 89 Then If Text74 = 495 Then
Text82 = 89 Text83 = 495
End If End If
If Text4 = 140 Then If Text74 = 546 Then

University of Sulaimani - Engineering Projects Page 115

 Concrete Formwork Design 2011-2012

Text83 = 546 End Sub

End If
If Text74 = 597 Then Private Sub Command19_Click()
Text83 = 597 Text38 = "(" + Text5 + "KN" + ")" + " " +
End If "Tie Capacity"
' Text45 = Text31
' End Sub
'check of bending for the joist
Text30 = 100 / 1000000 * ((Val(Text17) * 2 Private Sub Command2_Click()
* Val(Text80)) / (Val(Text27) * Val(Text10))) text6(1) = "2.4"
^ 0.5 End Sub
End Sub
Private Sub Command20_Click()
Private Sub Command15_Click() Text41 = "(" + Text4
If Text33 < Text32 And Text33 < Text30 Text41 = Text41 + "x" + Text74 + ")" +
Then "mm"
Text31 = 0.95 * Val(Text33) '
End If Text46 = Text27
If Text32 < Text33 And Text32 < Text30 End Sub
Then
Text31 = 0.95 * Val(Text32) Private Sub Command21_Click()
End If Text42 = "(" + Text3
If Text30 < Text32 And Text30 < Text33 Text42 = Text42 + " x "
Then Text42 = Text42 + Text73 + ")" + "mm"
Text31 = 0.95 * Val(Text30) '
End If Text47 = Text23
MsgBox "Minimum Span of the Joist or End Sub
Spacing of the Stringers >>>Factor of
Safety=.95" Private Sub Command22_Click()
Text43 = Text2
End Sub Text43 = Text43 + "mm nominal lumber" +
"-" + Combo1.Text
Private Sub Command16_Click() End Sub
Text32 = (1.11 / 1000000 * Val(Text18) *
Val(Text79) / (Val(Text10) * Val(Text27))) + Private Sub Command23_Click()
(2 * Val(Text83) / 1000) text6(0) = 1 * 1 * (7.2 + (785 * Text1 /
End Sub (Text22 + 18)))
text6(1) = "2.4"
Private Sub Command17_Click() Text10 = Val(text6(0)) + Val(text6(1))
Text33 = 73.8 / 1000000 * ((Val(Text21) * '
Val(Text81)) / (Val(Text10) * Val(Text27))) ^ '
(1 / 3) If Text2 < 12.7 Then Text99 = "12.7"
End Sub If Text2 > 28.6 Then Text99 = "28.6"
If Text2 > 12.7 And Text2 <= 14.3 Then
Private Sub Command18_Click() Text99 = "12.7"
Text39 = Val(Text24) * 1000000 / 2 / End If
Val(Text71) / Val(Text82) If Text2 > 14.3 And Text2 <= 17.5 Then
If Val(Text39) <= Val(Text19) Then Text99 = "15.9"
Text36 = "The Ties are safe" End If
End If If Text2 > 17.5 And Text2 <= 20.65 Then
If Val(Text39) > Val(Text19) Then Text99 = "19.1"
Text36 = "The Ties are NOT safe" End If
End If If Text2 > 20.65 And Text2 <= 23.8 Then

University of Sulaimani - Engineering Projects Page 116

 Concrete Formwork Design 2011-2012

Text99 = "22.2" '

End If '1-2
If Text2 > 23.8 And Text2 <= 27 Then If Combo1.Text = "Class-1" And Combo2.Text
Text99 = "25.4" = "Face Grain Parallel to Support" And Text99
End If = "12.7" Then
If Text2 > 27 And Text2 <= 28.6 Then Text100 = "339000000000"
Text99 = "28.6" Text101 = "93000"
End If Text102 = "2880"
' End If
' If Combo1.Text = "Class-1" And Combo2.Text
'1-1 = "Face Grain Parallel to Support" And Text99
If Combo1.Text = "Class-1" And Combo2.Text = "15.9" Then
= "Face Grain Across Support" And Text99 = Text100 = "53700000000"
"12.7" Then Text101 = "125000"
Text100 = "1087000000000" Text102 = "3250"
Text101 = "191000" End If
Text102 = "5410" If Combo1.Text = "Class-1" And Combo2.Text
End If = "Face Grain Parallel to Support" And Text99
If Combo1.Text = "Class-1" And Combo2.Text = "19.1" Then
= "Face Grain Across Support" And Text99 = Text100 = "12990000000000"
"15.9" Then Text101 = "219000"
Text100 = "258000000000" Text102 = "4270"
Text101 = "191000" End If
Text102 = "6010" If Combo1.Text = "Class-1" And Combo2.Text
End If = "Face Grain Parallel to Support" And Text99
If Combo1.Text = "Class-1" And Combo2.Text = "22.2" Then
= "Face Grain Across Support" And Text99 = Text100 = "2132000000000"
"19.1" Then Text101 = "302000"
Text100 = "2810000000000" Text102 = "6350"
Text101 = "326000" End If
Text102 = "7550" If Combo1.Text = "Class-1" And Combo2.Text
End If = "Face Grain Parallel to Support" And Text99
If Combo1.Text = "Class-1" And Combo2.Text = "25.4" Then
= "Face Grain Across Support" And Text99 = Text100 = "3813000000000"
"22.2" Then Text101 = "454000"
Text100 = "4180000000000" Text102 = "7370"
Text101 = "419000" End If
Text102 = "8990" If Combo1.Text = "Class-1" And Combo2.Text
End If = "Face Grain Parallel to Support" And Text99
If Combo1.Text = "Class-1" And Combo2.Text = "28.6" Then
= "Face Grain Across Support" And Text99 = Text100 = "5621000000000"
"25.4" Then Text101 = "572000"
Text100 = "6030000000000" Text102 = "8850"
Text101 = "527000" End If
Text102 = "9850" '
End If '
If Combo1.Text = "Class-1" And Combo2.Text '2-1
= "Face Grain Across Support" And Text99 = If Combo1.Text = "Class-2" And Combo2.Text
"28.6" Then = "Face Grain Across Support" And Text99 =
Text100 = "7824000000000" "12.7" Then
Text101 = "607000" Text100 = "918000000000"
Text102 = "10961" Text101 = "132000"
End If Text102 = "5140"

University of Sulaimani - Engineering Projects Page 117

 Concrete Formwork Design 2011-2012

End If If Combo1.Text = "Class-2" And Combo2.Text

If Combo1.Text = "Class-2" And Combo2.Text = "Face Grain Parallel to Support" And Text99
= "Face Grain Across Support" And Text99 = = "19.1" Then
"15.9" Then Text100 = "918000000000"
Text100 = "159100000000" Text101 = "193000"
Text101 = "176000" Text102 = "4250"
Text102 = "5880" End If
End If If Combo1.Text = "Class-2" And Combo2.Text
If Combo1.Text = "Class-2" And Combo2.Text = "Face Grain Parallel to Support" And Text99
= "Face Grain Across Support" And Text99 = = "22.2" Then
"19.1" Then Text100 = "1505000000000"
Text100 = "2423000000000" Text101 = "267000"
Text101 = "244000" Text102 = "5800"
Text102 = "6970" End If
End If If Combo1.Text = "Class-2" And Combo2.Text
If Combo1.Text = "Class-2" And Combo2.Text = "Face Grain Parallel to Support" And Text99
= "Face Grain Across Support" And Text99 = = "25.4" Then
"22.2" Then Text100 = "2593000000000"
Text100 = "3672000000000" Text101 = "480000"
Text101 = "291000" Text102 = "7340"
Text102 = "8400" End If
End If If Combo1.Text = "Class-2" And Combo2.Text
If Combo1.Text = "Class-2" And Combo2.Text = "Face Grain Parallel to Support" And Text99
= "Face Grain Across Support" And Text99 = = "28.6" Then
"25.4" Then Text100 = "3953000000000"
Text100 = "5163000000000" Text101 = "504000"
Text101 = "372000" Text102 = "8800"
Text102 = "9050" End If
End If '
If Combo1.Text = "Class-2" And Combo2.Text '
= "Face Grain Across Support" And Text99 = '3-1
"28.6" Then If Combo1.Text = "Class-3" And Combo2.Text
Text100 = "6928000000000" = "Face Grain Across Support" And Text99 =
Text101 = "428000" "12.7" Then
Text102 = "10600" Text100 = "1100000000000"
End If Text101 = "194000"
' Text102 = "7310"
' End If
'2-2 If Combo1.Text = "Class-3" And Combo2.Text
If Combo1.Text = "Class-2" And Combo2.Text = "Face Grain Across Support" And Text99 =
= "Face Grain Parallel to Support" And Text99 "15.9" Then
= "12.7" Then Text100 = "165000000000"
Text100 = "245000000000" Text101 = "268000"
Text101 = "92300" Text102 = "7830"
Text102 = "2870" End If
End If If Combo1.Text = "Class-3" And Combo2.Text
If Combo1.Text = "Class-2" And Combo2.Text = "Face Grain Across Support" And Text99 =
= "Face Grain Parallel to Support" And Text99 "19.1" Then
= "15.9" Then Text100 = "2853000000000"
Text100 = "392000000000" Text101 = "332000"
Text101 = "111000" Text102 = "9210"
Text102 = "3230" End If
End If

University of Sulaimani - Engineering Projects Page 118

 Concrete Formwork Design 2011-2012

If Combo1.Text = "Class-3" And Combo2.Text If Combo1.Text = "Class-3" And Combo2.Text

= "Face Grain Across Support" And Text99 = = "Face Grain Parallel to Support" And Text99
"22.2" Then = "25.4" Then
Text100 = "4477000000000" Text100 = "4533000000000"
Text101 = "448000" Text101 = "622000"
Text102 = "11220" Text102 = "10300"
End If End If
If Combo1.Text = "Class-3" And Combo2.Text If Combo1.Text = "Class-3" And Combo2.Text
= "Face Grain Across Support" And Text99 = = "Face Grain Parallel to Support" And Text99
"25.4" Then = "28.6" Then
Text100 = "6785000000000" Text100 = "6684000000000"
Text101 = "532000" Text101 = "785000"
Text102 = "11630" Text102 = "12200"
End If End If
If Combo1.Text = "Class-3" And Combo2.Text '
= "Face Grain Across Support" And Text99 = '
"28.6" Then Text25.Text = 3.16 / 1000 * (Val(Text101) /
Text100 = "8796000000000" Val(Text10)) ^ 0.5
Text101 = "633000" '
Text102 = "13160" '
End If '
' Text20.Text = (1.67 / 1000 * (Val(Text102) /
' Val(Text10))) + 2 * Val(Text2)
'3-3 '
If Combo1.Text = "Class-3" And Combo2.Text Text15.Text = 73.8 / 1000000 *
= "Face Grain Parallel to Support" And Text99 (Val(Text100) / Val(Text10)) ^ (1 / 3)
= "12.7" Then '
Text100 = "41000000000"
Text101 = "127000" If Text25 < Text20 And Text25 < Text15
Text102 = "4100" Then
End If Text23 = 0.95 * Val(Text25)
If Combo1.Text = "Class-3" And Combo2.Text End If
= "Face Grain Parallel to Support" And Text99 If Text20 < Text25 And Text20 < Text15
= "15.9" Then Then
Text100 = "63600000000" Text23 = 0.95 * Val(Text20)
Text101 = "190000" End If
Text102 = "4500" If Text15 < Text25 And Text15 < Text20
End If Then
If Combo1.Text = "Class-3" And Combo2.Text Text23 = 0.95 * Val(Text15)
= "Face Grain Parallel to Support" And Text99 End If
= "19.1" Then '
Text100 = "1525000000000" '
Text101 = "299000" For i = 19 To 28
Text102 = "6300" If Text3 = i Then
End If Text71 = "19"
If Combo1.Text = "Class-3" And Combo2.Text End If
= "Face Grain Parallel to Support" And Text99 Next i
= "22.2" Then For i = 29 To 51
Text100 = "2528000000000" If Text3 = i Then
Text101 = "414000" Text71 = "38"
Text102 = "8900" End If
End If Next i
For i = 52 To 76

University of Sulaimani - Engineering Projects Page 119

 Concrete Formwork Design 2011-2012

If Text3 = i Then End If

Text71 = "64" Next i
End If For i = 163 To 209
Next i If Text73 = i Then
For i = 77 To 114 Text72 = "184"
If Text3 = i Then End If
Text71 = "89" Next i
End If For i = 210 To 260
Next i If Text73 = i Then
For i = 115 To 165 Text72 = "235"
If Text3 = i Then End If
Text71 = "140" Next i
End If For i = 261 To 289
Next i If Text73 = i Then
For i = 165 To 216 Text72 = "286"
If Text3 = i Then End If
Text71 = "191" Next i
End If For i = 290 To 314
Next i If Text73 = i Then
For i = 217 To 266 Text72 = "292"
If Text3 = i Then End If
Text71 = "241" Next i
End If For i = 315 To 340
Next i If Text73 = i Then
For i = 267 To 317 Text72 = "337"
If Text3 = i Then End If
Text71 = "292" Next i
End If For i = 341 To 365
Next i If Text73 = i Then
For i = 318 To 343 Text72 = "343"
If Text3 = i Then End If
Text71 = "343" Next i
End If For i = 366 To 390
Next i If Text73 = i Then
' here the first column of the table finished Text72 = "387"
End If
Next i
For i = 391 To 419
If Text73 = i Then
'the second starts from here Text72 = "394"
For i = 64 To 76 End If
If Text73 = i Then Next i
Text72 = "64" For i = 420 To 470
End If If Text73 = i Then
Next i Text72 = "445"
For i = 77 To 114 End If
If Text73 = i Then Next i
Text72 = "89" For i = 471 To 520
End If If Text73 = i Then
Next i Text72 = "495"
For i = 115 To 162 End If
If Text73 = i Then Next i
Text72 = "140" For i = 521 To 546

University of Sulaimani - Engineering Projects Page 120

 Concrete Formwork Design 2011-2012

If Text73 = i Then Next i

Text72 = "546" For i = 391 To 419
End If If Text74 = i Then
Next i ' the second column finished here Text83 = "394"
For i = 64 To 76 End If
If Text74 = i Then Next i
Text83 = "64" For i = 420 To 470
End If If Text74 = i Then
Next i Text83 = "445"
For i = 77 To 114 End If
If Text74 = i Then Next i
Text83 = "89" For i = 471 To 520
End If If Text74 = i Then
Next i Text83 = "495"
For i = 115 To 162 End If
If Text74 = i Then Next i
Text83 = "140" For i = 521 To 546
End If If Text74 = i Then
Next i Text83 = "546"
For i = 163 To 209 End If
If Text74 = i Then Next i ' the second column finished here
Text83 = "184"
End If
Next i
For i = 210 To 260 'If Text48 < Text3 And Text3 < Text49 Then
If Text74 = i Then 'If Text3 - Text48 < Text49 - Text3 Then
Text83 = "235" 'Text71 = Text48
End If 'End If
Next i 'If Text3 - Text48 > Text49 - Text3 Then
For i = 261 To 289 'Text71 = Text49
If Text74 = i Then 'End If
Text83 = "286" 'End If
End If '
Next i 'If Text49 < Text3 And Text3 < Text50 Then
For i = 290 To 314 'If Text3 - Text49 < Text50 - Text3 Then
If Text74 = i Then 'Text71 = Text49
Text83 = "292" 'End If
End If 'If Text3 - Text49 > Text50 - Text3 Then
Next i 'Text71 = Text50
For i = 315 To 340 'End If
If Text74 = i Then 'End If
Text83 = "337" '
End If
Next i
For i = 341 To 365 '
If Text74 = i Then 'If Val(Text51) < Val(Text3) And Val(Text3) <
Text83 = "343" Val(Text52) Then
End If 'If Val(Text3) - Val(Text51) < Val(Text52) -
Next i Val(Text3) Then
For i = 366 To 390 'Text71 = Val(Text51)
If Text74 = i Then 'End If
Text83 = "387" 'If Val(Text3) - Val(Text51) > Val(Text52) -
End If Val(Text3) Then

University of Sulaimani - Engineering Projects Page 121

 Concrete Formwork Design 2011-2012

'Text71 = Val(Text52) 'End If

'End If 'End If
'End If 'the first column is finished here
'
'If Val(Text52) < Val(Text3) And Val(Text3) <
Val(Text53) Then
'If Val(Text3) - Val(Text52) < Val(Text53) - 'the second starts from here:
Val(Text3) Then
'Text71 = Val(Text52) 'If Text56 < Text73 And Text73 < Text57
'End If Then
'If Val(Text3) - Val(Text52) > Val(Text53) - 'If Text73 - Text56 < Text57 - Text73 Then
Val(Text3) Then 'Text72 = Text56
'Text71 = Val(Text53) 'End If
'End If 'If Text73 - Text56 > Text57 - Text73 Then
'End If 'Text72 = Text57
' 'End If
' 'End If
'
'If Text53 < Text3 And Text3 < Text54 Then '
'If Text3 - Text53 < Text54 - Text3 Then 'If Text57 < Text73 And Text73 < Text58
'Text71 = Text53 Then
'End If 'If Text73 - Text57 < Text58 - Text73 Then
'If Text3 - Text53 > Text54 - Text3 Then 'Text72 = Text57
'Text71 = Text54 'End If
'End If 'If Text73 - Text57 > Text58 - Text73 Then
'End If 'Text72 = Text58
' 'End If
' 'End If
'If Text54 < Text3 And Text3 < Text55 Then '
'If Text3 - Text54 < Text55 - Text3 Then 'If Text58 < Text73 And Text73 < Text59
'Text71 = Text54 Then
'End If 'If Text73 - Text58 < Text59 - Text73 Then
'If Text3 - Text54 > Text55 - Text3 Then 'Text72 = Text58
'Text71 = Text55 'End If
'End If 'If Text73 - Text58 > Text59 - Text73 Then
'End If 'Text72 = Text59
'If List1.List(0) < Text3 And Text3 < 'End If
List1.List(1) Then 'End If
'If Text3 - List1.List(0) < List1.List(1) - Text3 '
Then
'Text71 = Val(List1.List(0)) 'If Text59 < Text73 And Text73 < Text60
'End If Then
'If Text3 - List1.List(0) > List1.List(1) - Text3 'If Text73 - Text59 < Text60 - Text73 Then
Then 'Text72 = Text59
'Text71 = Val(List1.List(1)) 'End If
'End If 'If Text73 - Text59 > Text60 - Text73 Then
'End If 'Text72 = Text60
'If Text50 < Text3 And Text3 < Text51 Then 'End If
'If Text3 - Text50 < Text51 - Text3 Then 'End If
'Text71 = Text50 '
'End If 'If Text60 < Text73 And Text73 < Text61
'If Text3 - Text50 > Text51 - Text3 Then Then
'Text71 = Text51 'If Text73 - Text60 < Text61 - Text73 Then

University of Sulaimani - Engineering Projects Page 122

 Concrete Formwork Design 2011-2012

'Text72 = Text60 'If Text73 - Text65 > Text66 - Text73 Then

'End If 'Text72 = Text66
'If Text73 - Text60 > Text61 - Text73 Then 'End If
'Text72 = Text61 'End If
'End If '
'End If 'If Text66 < Text73 And Text73 < Text67
' Then
'If Text61 < Text73 And Text73 < Text62 'If Text73 - Text66 < Text67 - Text73 Then
Then 'Text72 = Text66
'If Text73 - Text61 < Text62 - Text73 Then 'End If
'Text72 = Text61 'If Text73 - Text66 > Text67 - Text73 Then
'End If 'Text72 = Text67
'If Text73 - Text61 > Text62 - Text73 Then 'End If
'Text72 = Text62 'End If
'End If '
'End If 'If Text67 < Text73 And Text73 < Text68
' Then
'If Text62 < Text73 And Text73 < Text63 'If Text73 - Text67 < Text68 - Text73 Then
Then 'Text72 = Text67
'If Text73 - Text62 < Text63 - Text73 Then 'End If
'Text72 = Text62 'If Text73 - Text67 > Text68 - Text73 Then
'End If 'Text72 = Text68
'If Text73 - Text62 > Text63 - Text73 Then 'End If
'Text72 = Text63 'End If
'End If '
'End If '
' 'If Text68 < Text73 And Text73 < Text69
'If Text63 < Text73 And Text73 < Text64 Then
Then 'If Text73 - Text68 < Text69 - Text73 Then
'If Text73 - Text63 < Text64 - Text73 Then 'Text72 = Text68
'Text72 = Text63 'End If
'End If 'If Text73 - Text68 > Text69 - Text73 Then
'If Text73 - Text63 > Text64 - Text73 Then 'Text72 = Text69
'Text72 = Text64 'End If
'End If 'End If
'End If '
'If Text69 < Text73 And Text73 < Text70
' Then
'If Text64 < Text73 And Text73 < Text65 'If Text73 - Text69 < Text70 - Text73 Then
Then 'Text72 = Text69
'If Text73 - Text64 < Text65 - Text73 Then 'End If
'Text72 = Text64 'If Text73 - Text69 > Text70 - Text73 Then
'End If 'Text72 = Text70
'If Text73 - Text64 > Text65 - Text73 Then 'End If
'Text72 = Text65 'End If
'End If 'end of second column
'End If
'
'If Text65 < Text73 And Text73 < Text66
Then
'If Text73 - Text65 < Text66 - Text73 Then '
'Text72 = Text65 'section area moment of inertia
'End If 'section area moment of inertia

University of Sulaimani - Engineering Projects Page 123

 Concrete Formwork Design 2011-2012

'section area moment of inertia End If

'section area moment of inertia If Text71 = "38" And Text72 = "235" Then
'section area moment of inertia Text75 = 8952
'section area moment of inertia Text76 = 350500
If Text71 = "19" And Text72 = "64" Then Text77 = 41180000
Text75 = 1210 End If
Text76 = 12800 If Text71 = "38" And Text72 = "286" Then
Text77 = 406500 Text75 = 10890
End If Text76 = 518500
If Text71 = "19" And Text72 = "89" Then Text77 = 74080000
Text75 = 1694 End If
Text76 = 250900 If Text71 = "38" And Text72 = "337" Then
Text77 = 1115000 Text75 = 12820
End If Text76 = 719200
If Text71 = "19" And Text72 = "140" Then Text77 = 121000000
Text75 = 2661 End If
Text76 = 619600 If Text71 = "64" And Text72 = "89" Then
Text77 = 4238000 Text75 = 5645
End If Text76 = 83640
If Text71 = "19" And Text72 = "184" Then Text77 = 3718000
Text75 = 3508 End If
Text76 = 107700 If Text71 = "64" And Text72 = "140" Then
Text77 = 9913000 Text75 = 8871
End If Text76 = 206500
If Text71 = "19" And Text72 = "235" Then Text77 = 14430000
Text75 = 4476 End If
Text76 = 175300 If Text71 = "64" And Text72 = "184" Then
Text77 = 20590000 Text75 = 11690
End If Text76 = 358900
If Text71 = "19" And Text72 = "286" Then Text77 = 33040000
Text75 = 5444 End If
Text76 = 259200 If Text71 = "64" And Text72 = "235" Then
Text77 = 37040000 Text75 = 14910
End If Text76 = 584200
If Text71 = "38" And Text72 = "64" Then Text77 = 68630000
Text75 = 2419 End If
Text76 = 25610 If Text71 = "64" And Text72 = "286" Then
Text77 = 812900 Text75 = 18140
End If Text76 = 864200
If Text71 = "38" And Text72 = "89" Then Text77 = 123500000
Text75 = 3387 End If
Text76 = 501900 If Text71 = "64" And Text72 = "337" Then
Text77 = 2231000 Text75 = 21370
End If Text76 = 1199000
If Text71 = "38" And Text72 = "140" Then Text77 = 201700000
Text75 = 5323 End If
Text76 = 123900 If Text71 = "64" And Text72 = "387" Then
Text77 = 8656000 Text75 = 24600
End If Text76 = 1588000
If Text71 = "38" And Text72 = "184" Then Text77 = 307500000
Text75 = 7016 End If
Text76 = 215300 If Text71 = "89" And Text72 = "89" Then
Text77 = 19830000 Text75 = 7903

University of Sulaimani - Engineering Projects Page 124

 Concrete Formwork Design 2011-2012

Text76 = 117100 If Text71 = "140" And Text72 = "394" Then

Text77 = 5205000 Text75 = 55000
End If Text76 = 3609000
If Text71 = "89" And Text72 = "184" Then Text77 = 710400000
Text75 = 16370 End If
Text76 = 502400 If Text71 = "140" And Text72 = "445" Then
Text77 = 46260000 Text75 = 62100
End If Text76 = 4600000
If Text71 = "89" And Text72 = "235" Then Text77 = 1022000000
Text75 = 20890 End If
Text76 = 817900 If Text71 = "140" And Text72 = "495" Then
Text77 = 96800000 Text75 = 69190
End If Text76 = 5712000
If Text71 = "89" And Text72 = "286" Then Text77 = 1415000000
Text75 = 24400 End If
Text76 = 1210000 If Text71 = "140" And Text72 = "546" Then
Text77 = 127800000 Text75 = 76290
End If Text76 = 6944000
If Text71 = "89" And Text72 = "337" Then Text77 = 1896000000
Text75 = 29920 End If
Text76 = 1678000 If Text71 = "140" And Text72 = "597" Then
Text77 = 282400000 Text75 = 83390
End If Text76 = 8296000
If Text71 = "89" And Text72 = "387" Then Text77 = "2476000000"
Text75 = 34430 End If
Text76 = 2223000 If Text71 = "191" And Text72 = "191" Then
Text77 = 430600000 Text75 = 36290
End If Text76 = 1152000
If Text71 = "140" And Text72 = "140" Then Text77 = 109800000
Text75 = 19520 End If
Text76 = 454300 If Text71 = "191" And Text72 = "241" Then
Text77 = 19520000 Text75 = 45970
End If Text76 = 1849000
If Text71 = "140" And Text72 = "191" Then Text77 = 223000000
Text75 = 26610 End If
Text76 = 845000 If Text71 = "191" And Text72 = "292" Then
Text77 = 80480000 Text75 = 55650
End If Text76 = 2709000
If Text71 = "140" And Text72 = "241" Then Text77 = 395700000
Text75 = 33710 End If
Text76 = 1356000 If Text71 = "191" And Text72 = "343" Then
Text77 = 163600000 Text75 = 65320
End If Text76 = 3733000
If Text71 = "140" And Text72 = "292" Then Text77 = 640100000
Text75 = 40810 End If
Text76 = 1987000 If Text71 = "191" And Text72 = "394" Then
Text77 = 290100000 Text75 = 75000
End If Text76 = 4921000
If Text71 = "140" And Text72 = "343" Then Text77 = 968800000
Text75 = 47900 End If
Text76 = 2738000 If Text71 = "191" And Text72 = "445" Then
Text77 = 469400000 Text75 = 84680
End If Text76 = 6273000

University of Sulaimani - Engineering Projects Page 125

 Concrete Formwork Design 2011-2012

Text77 = 1394000000 Text75 = 144000

End If Text76 = 14330000
If Text71 = "191" And Text72 = "495" Then Text77 = "4276000000"
Text75 = 94360 End If
Text76 = 7789000 If Text71 = "292" And Text72 = "292" Then
Text77 = 1929000000 Text75 = 85320
End If Text76 = 4154000
If Text71 = "191" And Text72 = "546" Then Text77 = 594200000
Text75 = 104000 End If
Text76 = 9489000 If Text71 = "292" And Text72 = "343" Then
Text77 = "2585000000" Text75 = 100200
End If Text76 = 5724000
If Text71 = "191" And Text72 = "597" Then Text77 = 981400000
Text75 = 113700 End If
Text76 = 11310000 If Text71 = "292" And Text72 = "394" Then
Text77 = "3376000000" Text75 = 115000
End If Text76 = 7546000
If Text71 = "241" And Text72 = "241" Then Text77 = 1485000000
Text75 = 58230 End If
Text76 = 2342000 If Text71 = "292" And Text72 = "445" Then
Text77 = 282500000 Text75 = 129800
End If Text76 = 9619000
If Text71 = "241" And Text72 = "292" Then Text77 = "2138000000"
Text75 = 70480 End If
Text76 = 3431000 If Text71 = "292" And Text72 = "495" Then
Text77 = 501200000 Text75 = 144700
End If Text76 = 11940000
If Text71 = "241" And Text72 = "343" Then Text77 = "2958000000"
Text75 = 82740 End If
Text76 = 4729000 If Text71 = "292" And Text72 = "546" Then
Text77 = 810700000 Text75 = 159500
End If Text76 = 14520000
If Text71 = "241" And Text72 = "394" Then Text77 = "3964000000"
Text75 = 95000 End If
Text76 = 6234000 If Text71 = "292" And Text72 = "597" Then
Text77 = 1227000000 Text75 = 174400
End If Text76 = 17340000
If Text71 = "241" And Text72 = "445" Then Text77 = "4276000000"
Text75 = 107300 End If
Text76 = 7946000 If Text71 = "343" And Text72 = "343" Then
Text77 = 1766000000 Text75 = 117500
End If Text76 = 6720000
If Text71 = "241" And Text72 = "495" Then Text77 = 1152000000
Text75 = 119500 End If
Text76 = 9866000 If Text71 = "343" And Text72 = "394" Then
Text77 = "2443000000" Text75 = 135000
End If Text76 = 8858000
If Text71 = "241" And Text72 = "546" Then Text77 = 1744000000
Text75 = 131800 End If
Text76 = 11980000 If Text71 = "434" And Text72 = "445" Then
Text77 = "3275000000" Text75 = 152400
End If Text76 = 11290000
If Text71 = "241" And Text72 = "597" Then Text77 = "2510000000"

University of Sulaimani - Engineering Projects Page 126

 Concrete Formwork Design 2011-2012

End If Text72 = 89
If Text71 = "343" And Text72 = "495" Then End If
Text75 = 169800 If Text73 = 140 Then
Text76 = 14020000 Text72 = 140
Text77 = "3472000000" End If
End If If Text73 = 184 Then
If Text71 = "343" And Text72 = "546" Then Text72 = 184
Text75 = 187300 End If
Text76 = 17040000 If Text73 = 235 Then
Text77 = "4654000000" Text72 = 235
End If End If
If Text71 = "343" And Text72 = "597" Then If Text73 = 286 Then
Text75 = 204700 Text72 = 286
Text76 = 20360000 End If
Text77 = "6077000000" If Text73 = 292 Then
End If Text72 = 292
' End If
' If Text73 = 337 Then
' Text72 = 337
'the same # for width End If
If Text3 <= 19 Then If Text73 = 343 Then
Text71 = 19 Text72 = 343
End If End If
If Text3 >= 343 Then If Text73 = 387 Then
Text71 = 343 Text72 = 387
End If End If
If Text3 = 38 Then If Text73 = 394 Then
Text71 = 38 Text72 = 394
End If End If
If Text3 = 64 Then If Text73 = 445 Then
Text71 = 64 Text72 = 445
End If End If
If Text3 = 89 Then If Text73 = 495 Then
Text71 = 89 Text72 = 495
End If End If
If Text3 = 140 Then If Text73 = 546 Then
Text71 = 140 Text72 = 546
End If End If
If Text3 = 191 Then If Text73 = 597 Then
Text71 = 191 Text72 = 597
End If End If
If Text3 = 241 Then '
Text71 = 241 '
End If 'check of bending for the joist
If Text3 = 292 Then Text26 = 100 / 1000000 * (Val(Text12) *
Text71 = 292 Val(Text76) / (Val(Text10) * Val(Text23))) ^
End If 0.5
'
'the same # for height '
If Text73 = 64 Then '
Text72 = 64 Text28 = (1.11 / 1000000 * Val(Text13) *
End If Val(Text75) / (Val(Text23) * Val(Text10))) +
If Text73 = 89 Then (2 * Val(Text72) / 1000)

University of Sulaimani - Engineering Projects Page 127

 Concrete Formwork Design 2011-2012

' End If
Text29 = 73.8 / 1000000 * ((Val(Text16) * Next i
Val(Text77)) / (Val(Text23) * Val(Text10))) ^ For i = 267 To 317
(1 / 3) If Text4 = i Then
' Text82 = "292"
If Text29 < Text28 And Text29 < Text26 End If
Then Next i
Text27 = 0.95 * Val(Text29) For i = 318 To 343
End If If Text4 = i Then
If Text28 < Text29 And Text28 < Text26 Text82 = "343"
Then End If
Text27 = 0.95 * Val(Text28) Next i
End If ' here the first column of the table finished
If Text26 < Text29 And Text26 < Text28
Then '
Text27 = 0.95 * Val(Text26) '
End If '
' '
' 'If Text78 < Text4 And Text4 < Text48 Then
' 'If Text4 - Text78 < Text48 - Text4 Then
For i = 19 To 28 'Text82 = Text78
If Text4 = i Then 'End If
Text82 = "19" 'If Text4 - Text78 > Text48 - Text4 Then
End If 'Text82 = Text48
Next i 'End If
For i = 29 To 51 'End If
If Text4 = i Then 'If Text48 < Text4 And Text4 < Text49 Then
Text82 = "38" 'If Text4 - Text48 < Text49 - Text4 Then
End If 'Text82 = Text48
Next i 'End If
For i = 52 To 76 'If Text4 - Text48 > Text49 - Text4 Then
If Text4 = i Then 'Text82 = Text49
Text82 = "64" 'End If
End If 'End If
Next i ''
For i = 77 To 114 'If Text49 < Text4 And Text4 < Text50 Then
If Text4 = i Then 'If Text4 - Text49 < Text50 - Text4 Then
Text82 = "89" 'Text82 = Text49
End If 'End If
Next i 'If Text4 - Text49 > Text50 - Text4 Then
For i = 115 To 165 'Text82 = Text50
If Text4 = i Then 'End If
Text82 = "140" 'End If
End If ''
Next i
For i = 165 To 216 'If Text50 < Text4 And Text4 < Text51 Then
If Text4 = i Then 'If Text4 - Text50 < Text51 - Text4 Then
Text82 = "191" 'Text82 = Text50
End If 'End If
Next i 'If Text4 - Text50 > Text51 - Text4 Then
For i = 217 To 266 'Text82 = Text51
If Text4 = i Then 'End If
Text82 = "241" 'End If

University of Sulaimani - Engineering Projects Page 128

 Concrete Formwork Design 2011-2012

'' 'If Text57 < Text74 And Text74 < Text58

'If Text51 < Text4 And Text4 < Text52 Then Then
'If Text4 - Text51 < Text52 - Text4 Then 'If Text74 - Text57 < Text58 - Text74 Then
'Text82 = Text51 'Text83 = Text57
'End If 'End If
'If Text4 - Text51 > Text52 - Text4 Then 'If Text74 - Text57 > Text58 - Text74 Then
'Text82 = Text52 'Text83 = Text58
'End If 'End If
'End If 'End If
' ''
'If Text52 < Text4 And Text4 < Text53 Then 'If Text58 < Text74 And Text74 < Text59
'If Text4 - Text52 < Text53 - Text4 Then Then
'Text82 = Text52 'If Text74 - Text58 < Text59 - Text74 Then
'End If 'Text83 = Text58
'If Text4 - Text52 > Text53 - Text4 Then 'End If
'Text82 = Text53 'If Text74 - Text58 > Text59 - Text74 Then
'End If 'Text83 = Text59
'End If 'End If
'' 'End If
' ''

'If Text53 < Text4 And Text4 < Text54 Then 'If Text59 < Text74 And Text74 < Text60
'If Text4 - Text53 < Text54 - Text4 Then Then
'Text82 = Text53 'If Text74 - Text59 < Text60 - Text74 Then
'End If 'Text83 = Text59
'If Text4 - Text53 > Text54 - Text4 Then 'End If
'Text82 = Text54 'If Text74 - Text59 > Text60 - Text74 Then
'End If 'Text83 = Text60
'End If 'End If
'' 'End If
'' '
'If Text54 < Text4 And Text4 < Text55 Then 'If Text60 < Text74 And Text74 < Text61
'If Text4 - Text54 < Text55 - Text4 Then Then
'Text82 = Text54 'If Text74 - Text60 < Text61 - Text74 Then
'End If 'Text83 = Text60
'If Text4 - Text54 > Text55 - Text4 Then 'End If
'Text82 = Text55 'If Text74 - Text60 > Text61 - Text74 Then
'End If 'Text83 = Text61
'End If 'End If
'first column finishes here 'End If
' ''
'If Text56 < Text74 And Text74 < Text57 'If Text61 < Text74 And Text74 < Text62
Then Then
'If Text74 - Text56 < Text57 - Text74 Then 'If Text74 - Text61 < Text62 - Text74 Then
'Text83 = Text56 'Text83 = Text61
'End If 'End If
'If Text74 - Text56 > Text57 - Text74 Then 'If Text74 - Text61 > Text62 - Text74 Then
'Text83 = Text57 'Text83 = Text62
'End If 'End If
'End If 'End If
' '
' 'If Text62 < Text74 And Text74 < Text63
Then

University of Sulaimani - Engineering Projects Page 129

 Concrete Formwork Design 2011-2012

'If Text74 - Text62 < Text63 - Text74 Then 'End If

'Text83 = Text62 'If Text74 - Text67 > Text68 - Text74 Then
'End If 'Text83 = Text68
'If Text74 - Text62 > Text63 - Text74 Then 'End If
'Text83 = Text63 'End If
'End If '
'End If '
' 'If Text68 < Text74 And Text74 < Text69
'If Text63 < Text74 And Text74 < Text64 Then
Then 'If Text74 - Text68 < Text69 - Text74 Then
'If Text74 - Text63 < Text64 - Text74 Then 'Text83 = Text68
'Text83 = Text63 'End If
'End If 'If Text74 - Text68 > Text69 - Text74 Then
'If Text74 - Text63 > Text64 - Text74 Then 'Text83 = Text69
'Text83 = Text64 'End If
'End If 'End If
'End If' ''
'If Text69 < Text74 And Text74 < Text70
' Then
'If Text64 < Text74 And Text74 < Text65 'If Text74 - Text69 < Text70 - Text74 Then
Then 'Text83 = Text69
'If Text74 - Text64 < Text65 - Text74 Then 'End If
'Text83 = Text64 'If Text74 - Text69 > Text70 - Text74 Then
'End If 'Text83 = Text70
'If Text74 - Text64 > Text65 - Text74 Then 'End If
'Text83 = Text65 'End If
'End If ''second column finishes here
'End If '
''
'If Text65 < Text74 And Text74 < Text66
Then
'If Text74 - Text65 < Text66 - Text74 Then
'Text83 = Text65 'section area moment of inertia:
'End If 'section area moment of inertia
'If Text74 - Text65 > Text66 - Text74 Then 'section area moment of inertia
'Text83 = Text66 'section area moment of inertia
'End If 'section area moment of inertia
'End If 'section area moment of inertia
' ''''''''''''''''''''''''''''''''''''''''''' check copmatibility of
'If Text66 < Text74 And Text74 < Text67 the c/s
Then If Text82 = "19" And Text83 = "64" Then
'If Text74 - Text66 < Text67 - Text74 Then Text79 = 1210
'Text83 = Text66 Text80 = 12800
'End If Text81 = 406500
'If Text74 - Text66 > Text67 - Text74 Then End If
'Text83 = Text67 If Text82 = "19" And Text83 = "89" Then
'End If Text79 = 1694
'End If Text80 = 250900
'' Text81 = 1115000
'If Text67 < Text74 And Text74 < Text68 End If
Then If Text82 = "19" And Text83 = "140" Then
'If Text74 - Text67 < Text68 - Text74 Then Text79 = 2661
'Text83 = Text67 Text80 = 619600

University of Sulaimani - Engineering Projects Page 130

 Concrete Formwork Design 2011-2012

Text81 = 4238000 Text79 = 5645

End If Text80 = 83640
If Text82 = "19" And Text83 = "184" Then Text81 = 3718000
Text79 = 3508 End If
Text80 = 107700 If Text82 = "64" And Text83 = "140" Then
Text81 = 9913000 Text79 = 8871
End If Text80 = 206500
If Text82 = "19" And Text83 = "235" Then Text81 = 14430000
Text79 = 4476 End If
Text80 = 175300 If Text82 = "64" And Text83 = "184" Then
Text81 = 20590000 Text79 = 11690
End If Text80 = 358900
If Text82 = "19" And Text83 = "286" Then Text81 = 33040000
Text79 = 5444 End If
Text80 = 259200 If Text82 = "64" And Text83 = "235" Then
Text81 = 37040000 Text79 = 14910
End If Text80 = 584200
If Text82 = "38" And Text83 = "64" Then Text81 = 68630000
Text79 = 2419 End If
Text80 = 25610 If Text82 = "64" And Text83 = "286" Then
Text81 = 812900 Text79 = 18140
End If Text80 = 864200
If Text82 = "38" And Text83 = "89" Then Text81 = 123500000
Text79 = 3387 End If
Text80 = 501900 If Text82 = "64" And Text83 = "337" Then
Text81 = 2231000 Text79 = 21370
End If Text80 = 1199000
If Text82 = "38" And Text83 = "140" Then Text81 = 201700000
Text79 = 5323 End If
Text80 = 123900 If Text82 = "64" And Text83 = "387" Then
Text81 = 8656000 Text79 = 24600
End If Text80 = 1588000
If Text82 = "38" And Text83 = "184" Then Text81 = 307500000
Text79 = 7016 End If
Text80 = 215300 If Text82 = "89" And Text83 = "89" Then
Text81 = 19830000 Text79 = 7903
End If Text80 = 117100
If Text82 = "38" And Text83 = "235" Then Text81 = 5205000
Text79 = 8952 End If
Text80 = 350500 If Text82 = "89" And Text83 = "184" Then
Text81 = 41180000 Text79 = 16370
End If Text80 = 502400
If Text82 = "38" And Text83 = "286" Then Text81 = 46260000
Text79 = 10890 End If
Text80 = 518500 If Text82 = "89" And Text83 = "235" Then
Text81 = 74080000 Text79 = 20890
End If Text80 = 817900
If Text82 = "38" And Text83 = "337" Then Text81 = 96800000
Text79 = 12820 End If
Text80 = 719200 If Text82 = "89" And Text83 = "286" Then
Text81 = 121000000 Text79 = 24400
End If Text80 = 1210000
If Text82 = "64" And Text83 = "89" Then Text81 = 127800000

University of Sulaimani - Engineering Projects Page 131

 Concrete Formwork Design 2011-2012

End If Text80 = 6944000

If Text82 = "89" And Text83 = "337" Then Text81 = 1896000000
Text79 = 29920 End If
Text80 = 1678000 If Text82 = "140" And Text83 = "597" Then
Text81 = 282400000 Text79 = 83390
End If Text80 = 8296000
If Text82 = "89" And Text83 = "387" Then Text81 = "2476000000"
Text79 = 34430 End If
Text80 = 2223000 If Text82 = "191" And Text83 = "191" Then
Text81 = 430600000 Text79 = 36290
End If Text80 = 1152000
If Text82 = "140" And Text83 = "140" Then Text81 = 109800000
Text79 = 19520 End If
Text80 = 454300 If Text82 = "191" And Text83 = "241" Then
Text81 = 19520000 Text79 = 45970
End If Text80 = 1849000
If Text82 = "140" And Text83 = "191" Then Text81 = 223000000
Text79 = 26610 End If
Text80 = 845000 If Text82 = "191" And Text83 = "292" Then
Text81 = 80480000 Text79 = 55650
End If Text80 = 2709000
If Text82 = "140" And Text83 = "241" Then Text81 = 395700000
Text79 = 33710 End If
Text80 = 1356000 If Text82 = "191" And Text83 = "343" Then
Text81 = 163600000 Text79 = 65320
End If Text80 = 3733000
If Text82 = "140" And Text83 = "292" Then Text81 = 640100000
Text79 = 40810 End If
Text80 = 1987000 If Text82 = "191" And Text83 = "394" Then
Text81 = 290100000 Text79 = 75000
End If Text80 = 4921000
If Text82 = "140" And Text83 = "343" Then Text81 = 968800000
Text79 = 47900 End If
Text80 = 2738000 If Text82 = "191" And Text83 = "445" Then
Text81 = 469400000 Text79 = 84680
End If Text80 = 6273000
If Text82 = "140" And Text83 = "394" Then Text81 = 1394000000
Text79 = 55000 End If
Text80 = 3609000 If Text82 = "191" And Text83 = "495" Then
Text81 = 710400000 Text79 = 94360
End If Text80 = 7789000
If Text82 = "140" And Text83 = "445" Then Text81 = 1929000000
Text79 = 62100 End If
Text80 = 4600000 If Text82 = "191" And Text83 = "546" Then
Text81 = 1022000000 Text79 = 104000
End If Text80 = 9489000
If Text82 = "140" And Text83 = "495" Then Text81 = "2585000000"
Text79 = 69190 End If
Text80 = 5712000 If Text82 = "191" And Text83 = "597" Then
Text81 = 1415000000 Text79 = 113700
End If Text80 = 11310000
If Text82 = "140" And Text83 = "546" Then Text81 = "3376000000"
Text79 = 76290 End If

University of Sulaimani - Engineering Projects Page 132

 Concrete Formwork Design 2011-2012

If Text82 = "241" And Text83 = "241" Then Text81 = 1485000000

Text79 = 58230 End If
Text80 = 2342000 If Text82 = "292" And Text83 = "445" Then
Text81 = 282500000 Text79 = 129800
End If Text80 = 9619000
If Text82 = "241" And Text83 = "292" Then Text81 = "2138000000"
Text79 = 70480 End If
Text80 = 3431000 If Text82 = "292" And Text83 = "495" Then
Text81 = 501200000 Text79 = 144700
End If Text80 = 11940000
If Text82 = "241" And Text83 = "343" Then Text81 = "2958000000"
Text79 = 82740 End If
Text80 = 4729000 If Text82 = "292" And Text83 = "546" Then
Text81 = 810700000 Text79 = 159500
End If Text80 = 14520000
If Text82 = "241" And Text83 = "394" Then Text81 = "3964000000"
Text79 = 95000 End If
Text80 = 6234000 If Text82 = "292" And Text83 = "597" Then
Text81 = 1227000000 Text79 = 174400
End If Text80 = 17340000
If Text82 = "241" And Text83 = "445" Then Text81 = "4276000000"
Text79 = 107300 End If
Text80 = 7946000 If Text82 = "343" And Text83 = "343" Then
Text81 = 1766000000 Text79 = 117500
End If Text80 = 6720000
If Text82 = "241" And Text83 = "495" Then Text81 = 1152000000
Text79 = 119500 End If
Text80 = 9866000 If Text82 = "343" And Text83 = "394" Then
Text81 = "2443000000" Text79 = 135000
End If Text80 = 8858000
If Text82 = "241" And Text83 = "546" Then Text81 = 1744000000
Text79 = 131800 End If
Text80 = 11980000 If Text82 = "434" And Text83 = "445" Then
Text81 = "3275000000" Text79 = 152400
End If Text80 = 11290000
If Text82 = "241" And Text83 = "597" Then Text81 = "2510000000"
Text79 = 144000 End If
Text80 = 14330000 If Text82 = "343" And Text83 = "495" Then
Text81 = "4276000000" Text79 = 169800
End If Text80 = 14020000
If Text82 = "292" And Text83 = "292" Then Text81 = "3472000000"
Text79 = 85320 End If
Text80 = 4154000 If Text82 = "343" And Text83 = "546" Then
Text81 = 594200000 Text79 = 187300
End If Text80 = 17040000
If Text82 = "292" And Text83 = "343" Then Text81 = "4654000000"
Text79 = 100200 End If
Text80 = 5724000 If Text82 = "343" And Text83 = "597" Then
Text81 = 981400000 Text79 = 204700
End If Text80 = 20360000
If Text82 = "292" And Text83 = "394" Then Text81 = "6077000000"
Text79 = 115000 End If
Text80 = 7546000 '

University of Sulaimani - Engineering Projects Page 133

 Concrete Formwork Design 2011-2012

' If Text74 = 337 Then

' Text83 = 337
'the same # for width End If
If Text4 <= 19 Then If Text74 = 343 Then
Text82 = 19 Text83 = 343
End If End If
If Text4 >= 343 Then If Text74 = 387 Then
Text82 = 343 Text83 = 387
End If End If
If Text4 = 38 Then If Text74 = 394 Then
Text82 = 38 Text83 = 394
End If End If
If Text4 = 64 Then If Text74 = 445 Then
Text82 = 64 Text83 = 445
End If End If
If Text4 = 89 Then If Text74 = 495 Then
Text82 = 89 Text83 = 495
End If End If
If Text4 = 140 Then If Text74 = 546 Then
Text82 = 140 Text83 = 546
End If End If
If Text4 = 191 Then If Text74 = 597 Then
Text82 = 191 Text83 = 597
End If End If
If Text4 = 241 Then '
Text82 = 241 '
End If 'check of bending for the joist
If Text4 = 292 Then Text30 = 100 / 1000000 * ((Val(Text17) * 2
Text82 = 292 * Val(Text80)) / (Val(Text27) * Val(Text10)))
End If ^ 0.5
' '
'the same # for height '
If Text74 = 64 Then Text32 = (1.11 / 1000000 * Val(Text18) *
Text83 = 64 Val(Text79) / (Val(Text10) * Val(Text27))) +
End If (2 * Val(Text83) / 1000)
If Text74 = 89 Then '
Text83 = 89 Text33 = 73.8 / 1000000 * ((Val(Text21) *
End If Val(Text81)) / (Val(Text10) * Val(Text27))) ^
If Text74 = 140 Then (1 / 3)
Text83 = 140 '
End If If Text33 < Text32 And Text33 < Text30
If Text74 = 184 Then Then
Text83 = 184 Text31 = 0.95 * Val(Text33)
End If End If
If Text74 = 235 Then If Text32 < Text33 And Text32 < Text30
Text83 = 235 Then
End If Text31 = 0.95 * Val(Text32)
If Text74 = 286 Then End If
Text83 = 286 If Text30 < Text32 And Text30 < Text33
End If Then
If Text74 = 292 Then Text31 = 0.95 * Val(Text30)
Text83 = 292 End If
End If '

University of Sulaimani - Engineering Projects Page 134

 Concrete Formwork Design 2011-2012

Text24 = Val(Text31) * Val(Text27) *

Val(Text10) Private Sub Command27_Click()
If Val(Text24) <= Val(Text5) Then Form5.Show
Text34 = "The Ties are safe" End Sub
End If
If Val(Text24) > Val(Text5) Then Private Sub Command28_Click()
Text34 = "The Ties are NOT safe" form7.Show
End If End Sub
'
' Private Sub Command3_Click()
' Text10 = Val(text6(0)) + Val(text6(1))
Text35 = 1000000 * Val(Text23) * End Sub
Val(Text10) * Val(Text27) / 2 / Val(Text71) /
Val(Text82)
If Val(Text35) <= Val(Text14) Then
Text37 = "The Ties are safe" Private Sub Command4_Click()
End If If Text2 < 12.7 Then Text99 = "12.7"
If Val(Text35) > Val(Text14) Then If Text2 > 28.6 Then Text99 = "28.6"
Text37 = "The Ties are NOT safe" If Text2 > 12.7 And Text2 <= 14.3 Then
End If Text99 = "12.7"
' End If
' If Text2 > 14.3 And Text2 <= 17.5 Then
Text39 = Val(Text24) * 1000000 / 2 / Text99 = "15.9"
Val(Text71) / Val(Text82) End If
If Val(Text39) <= Val(Text19) Then If Text2 > 17.5 And Text2 <= 20.65 Then
Text36 = "The Ties are safe" Text99 = "19.1"
End If End If
If Val(Text39) > Val(Text19) Then If Text2 > 20.65 And Text2 <= 23.8 Then
Text36 = "The Ties are NOT safe" Text99 = "22.2"
End If End If
Text43 = Text2 If Text2 > 23.8 And Text2 <= 27 Then
Text43 = Text43 + "mm nominal lumber" + Text99 = "25.4"
"-" + Combo1.Text End If
Text42 = "(" + Text3 If Text2 > 27 And Text2 <= 28.6 Then
Text42 = Text42 + " x " Text99 = "28.6"
Text42 = Text42 + Text73 + ")" + "mm" End If
' '
Text47 = Text23 '
' '1-1
' If Combo1.Text = "Class-1" And Combo2.Text
Text41 = "(" + Text4 = "Face Grain Across Support" And Text99 =
Text41 = Text41 + "x" + Text74 + ")" + "12.7" Then
"mm" Text100 = "1087000000000"
' Text101 = "191000"
Text46 = Text27 Text102 = "5410"
' End If
' If Combo1.Text = "Class-1" And Combo2.Text
Text38 = "(" + Text5 + "KN" + ")" + " " + = "Face Grain Across Support" And Text99 =
"Tie Capacity" "15.9" Then
Text45 = Text31 Text100 = "258000000000"
Text101 = "191000"
Text102 = "6010"
End Sub End If

University of Sulaimani - Engineering Projects Page 135

 Concrete Formwork Design 2011-2012

If Combo1.Text = "Class-1" And Combo2.Text If Combo1.Text = "Class-1" And Combo2.Text

= "Face Grain Across Support" And Text99 = = "Face Grain Parallel to Support" And Text99
"19.1" Then = "22.2" Then
Text100 = "2810000000000" Text100 = "2132000000000"
Text101 = "326000" Text101 = "302000"
Text102 = "7550" Text102 = "6350"
End If End If
If Combo1.Text = "Class-1" And Combo2.Text If Combo1.Text = "Class-1" And Combo2.Text
= "Face Grain Across Support" And Text99 = = "Face Grain Parallel to Support" And Text99
"22.2" Then = "25.4" Then
Text100 = "4180000000000" Text100 = "3813000000000"
Text101 = "419000" Text101 = "454000"
Text102 = "8990" Text102 = "7370"
End If End If
If Combo1.Text = "Class-1" And Combo2.Text If Combo1.Text = "Class-1" And Combo2.Text
= "Face Grain Across Support" And Text99 = = "Face Grain Parallel to Support" And Text99
"25.4" Then = "28.6" Then
Text100 = "6030000000000" Text100 = "5621000000000"
Text101 = "527000" Text101 = "572000"
Text102 = "9850" Text102 = "8850"
End If End If
If Combo1.Text = "Class-1" And Combo2.Text '
= "Face Grain Across Support" And Text99 = '
"28.6" Then '2-1
Text100 = "7824000000000" If Combo1.Text = "Class-2" And Combo2.Text
Text101 = "607000" = "Face Grain Across Support" And Text99 =
Text102 = "10961" "12.7" Then
End If Text100 = "918000000000"
' Text101 = "132000"
'1-2 Text102 = "5140"
If Combo1.Text = "Class-1" And Combo2.Text End If
= "Face Grain Parallel to Support" And Text99 If Combo1.Text = "Class-2" And Combo2.Text
= "12.7" Then = "Face Grain Across Support" And Text99 =
Text100 = "339000000000" "15.9" Then
Text101 = "93000" Text100 = "159100000000"
Text102 = "2880" Text101 = "176000"
End If Text102 = "5880"
If Combo1.Text = "Class-1" And Combo2.Text End If
= "Face Grain Parallel to Support" And Text99 If Combo1.Text = "Class-2" And Combo2.Text
= "15.9" Then = "Face Grain Across Support" And Text99 =
Text100 = "53700000000" "19.1" Then
Text101 = "125000" Text100 = "2423000000000"
Text102 = "3250" Text101 = "244000"
End If Text102 = "6970"
If Combo1.Text = "Class-1" And Combo2.Text End If
= "Face Grain Parallel to Support" And Text99 If Combo1.Text = "Class-2" And Combo2.Text
= "19.1" Then = "Face Grain Across Support" And Text99 =
Text100 = "12990000000000" "22.2" Then
Text101 = "219000" Text100 = "3672000000000"
Text102 = "4270" Text101 = "291000"
End If Text102 = "8400"
End If

University of Sulaimani - Engineering Projects Page 136

 Concrete Formwork Design 2011-2012

If Combo1.Text = "Class-2" And Combo2.Text If Combo1.Text = "Class-2" And Combo2.Text

= "Face Grain Across Support" And Text99 = = "Face Grain Parallel to Support" And Text99
"25.4" Then = "28.6" Then
Text100 = "5163000000000" Text100 = "3953000000000"
Text101 = "372000" Text101 = "504000"
Text102 = "9050" Text102 = "8800"
End If End If
If Combo1.Text = "Class-2" And Combo2.Text '
= "Face Grain Across Support" And Text99 = '
"28.6" Then '3-1
Text100 = "6928000000000" If Combo1.Text = "Class-3" And Combo2.Text
Text101 = "428000" = "Face Grain Across Support" And Text99 =
Text102 = "10600" "12.7" Then
End If Text100 = "1100000000000"
' Text101 = "194000"
' Text102 = "7310"
'2-2 End If
If Combo1.Text = "Class-2" And Combo2.Text If Combo1.Text = "Class-3" And Combo2.Text
= "Face Grain Parallel to Support" And Text99 = "Face Grain Across Support" And Text99 =
= "12.7" Then "15.9" Then
Text100 = "245000000000" Text100 = "165000000000"
Text101 = "92300" Text101 = "268000"
Text102 = "2870" Text102 = "7830"
End If End If
If Combo1.Text = "Class-2" And Combo2.Text If Combo1.Text = "Class-3" And Combo2.Text
= "Face Grain Parallel to Support" And Text99 = "Face Grain Across Support" And Text99 =
= "15.9" Then "19.1" Then
Text100 = "392000000000" Text100 = "2853000000000"
Text101 = "111000" Text101 = "332000"
Text102 = "3230" Text102 = "9210"
End If End If
If Combo1.Text = "Class-2" And Combo2.Text If Combo1.Text = "Class-3" And Combo2.Text
= "Face Grain Parallel to Support" And Text99 = "Face Grain Across Support" And Text99 =
= "19.1" Then "22.2" Then
Text100 = "918000000000" Text100 = "4477000000000"
Text101 = "193000" Text101 = "448000"
Text102 = "4250" Text102 = "11220"
End If End If
If Combo1.Text = "Class-2" And Combo2.Text If Combo1.Text = "Class-3" And Combo2.Text
= "Face Grain Parallel to Support" And Text99 = "Face Grain Across Support" And Text99 =
= "22.2" Then "25.4" Then
Text100 = "1505000000000" Text100 = "6785000000000"
Text101 = "267000" Text101 = "532000"
Text102 = "5800" Text102 = "11630"
End If End If
If Combo1.Text = "Class-2" And Combo2.Text If Combo1.Text = "Class-3" And Combo2.Text
= "Face Grain Parallel to Support" And Text99 = "Face Grain Across Support" And Text99 =
= "25.4" Then "28.6" Then
Text100 = "2593000000000" Text100 = "8796000000000"
Text101 = "480000" Text101 = "633000"
Text102 = "7340" Text102 = "13160"
End If End If
'

University of Sulaimani - Engineering Projects Page 137

 Concrete Formwork Design 2011-2012

' Text15.Text = 73.8 / 1000000 *

'3-3 (Val(Text100) / Val(Text10)) ^ (1 / 3)
If Combo1.Text = "Class-3" And Combo2.Text End Sub
= "Face Grain Parallel to Support" And Text99
= "12.7" Then Private Sub Command6_Click()
Text100 = "41000000000" Text20.Text = (1.67 / 1000 * (Val(Text102) /
Text101 = "127000" Val(Text10))) + 2 * Val(Text2)
Text102 = "4100" End Sub
End If
If Combo1.Text = "Class-3" And Combo2.Text Private Sub Command7_Click()
= "Face Grain Parallel to Support" And Text99 Text24 = Val(Text31) * Val(Text27) *
= "15.9" Then Val(Text10)
Text100 = "63600000000" If Val(Text24) <= Val(Text5) Then
Text101 = "190000" Text34 = "The Ties are safe"
Text102 = "4500" End If
End If If Val(Text24) > Val(Text5) Then
If Combo1.Text = "Class-3" And Combo2.Text Text34 = "The Ties are NOT safe"
= "Face Grain Parallel to Support" And Text99 End If
= "19.1" Then
Text100 = "1525000000000" End Sub
Text101 = "299000"
Text102 = "6300" Private Sub Command8_Click()
End If Text35 = 1000000 * Val(Text23) *
If Combo1.Text = "Class-3" And Combo2.Text Val(Text10) * Val(Text27) / 2 / Val(Text71) /
= "Face Grain Parallel to Support" And Text99 Val(Text82)
= "22.2" Then If Val(Text35) <= Val(Text14) Then
Text100 = "2528000000000" Text37 = "The Ties are safe"
Text101 = "414000" End If
Text102 = "8900" If Val(Text35) > Val(Text14) Then
End If Text37 = "The Ties are NOT safe"
If Combo1.Text = "Class-3" And Combo2.Text End If
= "Face Grain Parallel to Support" And Text99 End Sub
= "25.4" Then
Text100 = "4533000000000" Private Sub Command9_Click()
Text101 = "622000" If Text25 < Text20 And Text25 < Text15
Text102 = "10300" Then
End If Text23 = 0.95 * Val(Text25)
If Combo1.Text = "Class-3" And Combo2.Text End If
= "Face Grain Parallel to Support" And Text99 If Text20 < Text25 And Text20 < Text15
= "28.6" Then Then
Text100 = "6684000000000" Text23 = 0.95 * Val(Text20)
Text101 = "785000" End If
Text102 = "12200" If Text15 < Text25 And Text15 < Text20
End If Then
' Text23 = 0.95 * Val(Text15)
' End If
Text25.Text = 3.16 / 1000 * (Val(Text101) / MsgBox "Minimum Span of the Sheathing or
Val(Text10)) ^ 0.5 Spacing of the Joists >>>Factor of
Safety=.95"
End Sub
End Sub
Private Sub Command5_Click()
Private Sub Form_Load()

University of Sulaimani - Engineering Projects Page 138

 Concrete Formwork Design 2011-2012

Text1 = "1.219"
Text22 = "32" Private Sub Label1_Click()
Text2 = "19" MsgBox "Rate: Rate of
Text3 = "50" Pouring____Temp:Temperature of pouring"
Text4 = "50"
Text73 = "100" End Sub
Text74 = "100"
Text5 = "13.34" Private Sub Label11_Click()
Text12 = "12480" MsgBox "Modulus of Elasticity (Kpa)"
Text17 = "12480" End Sub
Text13 = "827"
Text18 = "827" Private Sub Label7_Click()
Text14 = "3340" MsgBox "Allowable Unit Stress in Bending
Text19 = "3340" (Kpa)"
Text16 = "11700000" End Sub
Text21 = "11700000"
Combo1.List(0) = "Class-1" Private Sub Label8_Click()
Combo1.List(1) = "Class-2" MsgBox "Allowable Unit Stress in Horizontal
Combo1.List(2) = "Class-3" Shear (Kpa)"
Combo2.List(0) = "Face Grain Across End Sub
Support"
Combo2.List(1) = "Face Grain Parallel to Private Sub Label9_Click()
Support" MsgBox "Allowable Unit Stress in
Combo1.Text = Combo1.List(0) Compression (Kpa)"
Combo2.Text = Combo2.List(0)
End Sub End Sub

6.3.5 Form5 Codes:

Private Sub Command1_Click()
If Combo1.Text = "Wales" Then
Text1.Text = "The Cross section is (" + Form4.Text71.Text + " x " + Form4.Text72.Text + ")
mm"
Text2.Text = "The Cross sectional Area is (" + Form4.Text75.Text + ") mm^2"
Text3.Text = "The Section Modulus is (" + Form4.Text76.Text + ") mm^3"
Text4.Text = "The Moment of Inertia is (" + Form4.Text77.Text + ") mm^4"
End If

If Combo1.Text = "Ties" Then

Text1.Text = "The Cross section is (" + Form4.Text82.Text + " x " + Form4.Text83.Text + ")
mm"
Text2.Text = "The Cross sectional Area is (" + Form4.Text79.Text + ") mm^2"
Text3.Text = "The Section Modulus is (" + Form4.Text80.Text + ") mm^3"
Text4.Text = "The Moment of Inertia is (" + Form4.Text81.Text + ") mm^4"
End If

If Combo1.Text = "Studs" Then

Text1.Text = "EI=" + Form4.Text100.Text + "KPamm^4/m"
Text2.Text = "FbKS=" + Form4.Text101.Text + "N.mm/m"
Text3.Text = "FsIb/Q=" + Form4.Text102.Text + "N/m"
Text4 = ""
End If
End Sub

University of Sulaimani - Engineering Projects Page 139

 Concrete Formwork Design 2011-2012

Private Sub Form_Load()

Combo1.List(1) = "Wales"
Combo1.List(2) = "Ties"
Combo1.List(0) = "Studs"
End Sub

6.3.6 Form6 Codes:

Private Sub Command1_Click()
On Error Resume Next
Text3 = Val(Text1) / Val(Form1.Text47)
Text4 = Val(Text2) / Val(Form1.Text46)
Text5 = Val(Text1) / Val(Form1.Text45)
Text4.Text = Round(Val(Text4.Text), 0) + 1
Text5.Text = Round(Val(Text5.Text), 0) + 1
Text3.Text = Round(Val(Text3.Text), 0) + 1
Text8.Text = Round(Val(Text1) / (Val(Text3) - 1), 2)
Text9.Text = Round(Val(Text2) / (Val(Text4) - 1), 2)
Text10.Text = (Round(Val(Text1) / (Val(Text5) - 1), 2))
If Text4 = "1" Then
Text4.Text = Val(Text4) + 1
Text9.Text = Text2 - 2 * Val(Form1.Text4.Text) / 1000
End If

6.3.7 Form7 Codes:

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Form4.Text47)
Text4 = Val(Text2) / Val(Form4.Text46)
Text5 = Val(Text2) / Val(Form4.Text45)
Text4.Text = Round(Val(Text4.Text), 0) + 1
Text5.Text = Round(Val(Text5.Text), 0) + 1
Text3.Text = Round(Val(Text3.Text), 0) + 1
Text8.Text = Round(Val(Text1) / (Val(Text3) - 1), 2)
Text9.Text = Round(Val(Text2) / (Val(Text4) - 1), 2)
Text10.Text = Round(Val(Text2) / (Val(Text5) - 1), 2)
If Text3 = "1" Then
Text3.Text = Val(Text3) + 1
Text8.Text = Text2 - 2 * Val(Form4.Text3.Text) / 1000
End If
End Sub

6.3.8 Form8 Codes:

Private Sub Command1_Click()
Text15 = Round(((Text1(2)) ^ 2 + (Text1(3)) ^ 2) ^ 0.5, 2)
End Sub

Private Sub Command2_Click()

Text8 = Round(Val(Text6(0)) * 0.3 / (Val(Text9)) ^ 2, 1)

University of Sulaimani - Engineering Projects Page 140

 Concrete Formwork Design 2011-2012

If Val(Text8) < Val(Text4) And Val(Text8) < Val(Text5) Then

Label4.Caption = Val(Text8)
End If
If Val(Text4) < Val(Text5) And Val(Text4) < Val(Text8) Then
Label4.Caption = Val(Text4)
End If
If Val(Text5) < Val(Text4) And Val(Text5) < Val(Text8) Then
Label4.Caption = Val(Text5)
End If

End Sub

Private Sub Command3_Click()

Text9 = Round(Text15 * 1000 / Combo1, 1)
If Val(Text9) <= "50" Then
Label3.Caption = "<50 OK"
Label3.ForeColor = &HC00000
End If
If Val(Text9) > "50" Then
Label3.Caption = ">50 NOT-OK"
Label3.ForeColor = &HFF&
End If
End Sub

Private Sub Command4_Click()

Text10 = Round(Text1(0) * 2400 * 9.81 / 1000 + Text7, 2)
End Sub

Private Sub Command5_Click()

Text11 = Text1(1) * Text10 * 0.02
If Text11 <= 1.46 Then
Text14 = 1.46
End If
If Text11 > 1.46 Then
Text14 = Round(Text11, 2)
End If

End Sub

Private Sub Command6_Click()

Text12 = Round(Text14 * Text1(0) * Text15 / Text1(2) / Text1(3), 2)
End Sub

Private Sub Command7_Click()

Text13 = Round(Label4 * Combo1 * Combo2 / 1000000, 2)
End Sub

Private Sub Command8_Click()

Text16 = Round(Text13 / Text12, 2)
Text2.Text = "Use Cross-section of " + "(" + Combo1 + "mm" + " x " + Combo2 + "mm" +
")"

University of Sulaimani - Engineering Projects Page 141

 Concrete Formwork Design 2011-2012

Text3 = Text16 + " m"

End Sub

Private Sub Command9_Click()

Text15 = Round(((Text1(2)) ^ 2 + (Text1(3)) ^ 2) ^ 0.5, 2)

Text9 = Round(Text15 * 1000 / Combo1, 1)
If Val(Text9) <= "50" Then
Label3.Caption = "<50 OK"
Label3.ForeColor = &HC00000
End If
If Val(Text9) > "50" Then
Label3.Caption = ">50 NOT-OK"
Label3.ForeColor = &HFF&
End If

Text8 = Round(Val(Text6(0)) * 0.3 / (Val(Text9)) ^ 2, 1)

If Val(Text8) < Val(Text4) And Val(Text8) < Val(Text5) Then

Label4.Caption = Val(Text8)
End If
If Val(Text4) < Val(Text5) And Val(Text4) < Val(Text8) Then
Label4.Caption = Val(Text4)
End If
If Val(Text5) < Val(Text4) And Val(Text5) < Val(Text8) Then
Label4.Caption = Val(Text5)
End If
Text10 = Round(Text1(0) * 2400 * 9.81 / 1000 + Text7, 2)
Text11 = Text1(1) * Text10 * 0.02
If Text11 <= 1.46 Then
Text14 = 1.46
End If
If Text11 > 1.46 Then
Text14 = Round(Text11, 2)
End If
Text12 = Round(Text14 * Text1(0) * Text15 / Text1(2) / Text1(3), 2)
Text13 = Round(Label4 * Combo1 * Combo2 / 1000000, 2)
Text16 = Round(Text13 / Text12, 2)
Text2.Text = "Use Cross-section of " + "(" + Combo1 + "mm" + " x " + Combo2 + "mm" +
")"
Text3 = Text16 + " m"
End Sub

Private Sub Form_Load() Combo2.AddItem 64

Combo1.AddItem 19 Combo2.AddItem 89
Combo1.AddItem 38 Combo2.AddItem 140
Combo1.AddItem 64 Combo2.AddItem 184
Combo1.AddItem 89 Combo2.AddItem 235
Combo1.AddItem 140 Combo2.AddItem 286
Combo1.AddItem 191 Combo2.AddItem 292
Combo1.AddItem 241 Combo2.AddItem 337
Combo1.AddItem 292 Combo2.AddItem 343
Combo1.AddItem 343 Combo2.AddItem 387

University of Sulaimani - Engineering Projects Page 142

 Concrete Formwork Design 2011-2012

Combo2.AddItem 394 Text1(2) = 2.5

Combo2.AddItem 445 Text1(3) = 2
Combo2.AddItem 495 Combo1 = 38
Combo2.AddItem 546 Combo2 = 69
Combo2.AddItem 597 Text4 = 5861
Text5 = 4999
Text6(0) = 9700000
Text1(0) = 3.1 Text7 = 0.72
Text1(1) = 0.25 End Sub

References:
 Concrete Formwork systems Awad S. Hanna
University of Wisconsin-Ma dis on Madison, Wisconsin.
 Construction Methods and Management by S. W. Nunnally, 7th.
 The Civil Engineering Handbook. Edited by W.f. CHENJ.y.
SECOND EDITION.
 Design of reinforced concrete by Jack McCORMAC and Russel
H. BROWN

University of Sulaimani - Engineering Projects Page 143

View publication stats