Wednesday, April 30, 2014

"follow the calendar"

CLICK HERE TO SEE THE VIDEO

VBA

VBA is an abbreviation for "Visual Basic for Applications".
It is a computer programming language.
Here is an example:

Option Compare Database

'''''''''
' modification log
' 2014 april yourname wrote this program.
'
    ' 2014 April 30 - yourname changed this code
    ' to fix problem with the button bouncing off the right
    ' edge.
    '''''''''''''''''''''''''''''''''''''''''''''
   
Dim strDirectionHorizontal As String
Dim strDirectionVertical As String

Dim intFormWidth As Integer
Dim intJumpHorizontal As Integer
Dim intJumpVertical As Integer
Dim intKount As Integer

Private Sub Form_Load()

' initialize variables
strDirectionHorizontal = "LEFT"
strDirectionVertical = "UP"

intJumpHorizontal = 10 'pixels picture element
intJumpVertical = 10 'pixels picture element

''''Me.Width = 3000 'setting the width of the form in PIXELS
''''Box1.Width = 3000

'MsgBox "THE WIDTH OF THE FORM IS " & Me.Width & " PIXELS"
intFormWidth = Me.Width


End Sub

Private Sub cmdVBA_Click()

' this event is fired when you click on the button

intKount = 0

' LOOP 10 TIMES              (ENDLESS LOOP)
MOVE:               ' COLON :               SEMI-COLON ;
'call sub-routine
Call MovingButton
intKount = intKount + 1
If intKount < 1000 Then GoTo MOVE ' label

' CTRL-ALT-DEL   TASK MANAGER

End Sub

Public Sub MovingButton()

Dim intRightEdge As Integer
Dim intBottomEdge As Integer
Dim intTopEdge As Integer


' move up UNTIL you reach the top

If cmdVBA.Top < intJumpVertical _
Or strDirectionVertical = "DOWN" Then
    ' moving down
    '''''commented out''''Box1.BackColor = vbGreen
    strDirectionVertical = "DOWN"
    cmdVBA.Top = cmdVBA.Top + intJumpVertical
   
    ' calculate bottom edge
    intBottomEdge = Box1.Height - cmdVBA.Height
   
    If cmdVBA.Top >= intBottomEdge Then
        ' change direction ... move up
        Box1.BackColor = vbBlack
        strDirectionVertical = "UP"
        cmdVBA.Top = cmdVBA.Top - intJumpVertical

    End If
Else
    ' moving up ''''''''''''''''
    cmdVBA.Top = cmdVBA.Top - intJumpVertical
    If cmdVBA.Top < intJumpVertical _
    Or strDirectionVertical = "DOWN" Then
        ' change the color to green
        Box1.BackColor = vbGreen
    End If
End If


' if we are bouncing off the left edge,
' change the direction to 'right'
' change the box color
If cmdVBA.Left <= intJumpHorizontal Then
    strDirectionHorizontal = "RIGHT"
    Box1.BackColor = &H11FFFF  ' hex color
End If

If strDirectionHorizontal = "RIGHT" Then
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' check for the right edge of the form
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' calculate the position of the right edge of the button
    intRightEdge = cmdVBA.Left + cmdVBA.Width
    ' fir testing purposes only
    'MsgBox "intRightEdge=" & intRightEdge
   
    ' 2014 April 30 - yourname changed this code
    ' to fix problem with the button bouncing off the right
    ' edge.
   
    intFormWidth = Box1.Width '''            Me.Width
    'MsgBox "intformwidth=" & intFormWidth ' for testing only
    If intRightEdge >= intFormWidth Then    ' NESTED IF
        strDirectionHorizontal = "LEFT"
        Box1.BackColor = vbBlue ' change background color to blue
    Else
        ' move the button to the right
        cmdVBA.Left = cmdVBA.Left + intJumpHorizontal '      ADD intJumpHorizontal PIXELS
    End If
Else
    ' move the button to the LEFT
    cmdVBA.Left = cmdVBA.Left - intJumpHorizontal ' SUBTRACT intJumpHorizontal PIXELS
End If

' REFRESH THE DISPLAY
' REDRAW THE SCREEN
DoEvents


End Sub

Monday, April 28, 2014

ENGLISH LANGUAGE - PRONUNCIATION - Stress on Syllables

In English, the emphasis is on one syllable in the word.

CLICK HERE FOR THE VIDEO



flower stand

... is a place where someone stands on the street and sells flowers.

'flower shop' is a building with a business that sells flowers.





fruit stand

"fruit stand" or "vegetable stand" is an expression for an outdoor location where someone sells fruits and vegetables.


Sunday, April 27, 2014

Thursday, April 24, 2014

ENGLISH LANGUAGE - Canadian paper money

'dollar bills' are also called 'paper money'.

denominations
transparent
counterfeit

$5
$10
$20
$50
$100

CLICK HERE TO SEE THE VIDEO





Wednesday, April 23, 2014

ENGLISH LANGUAGE - Money - coins

ENGLISH LANGUAGE - Money - coins
===============================

U.S. money
-----------
penny -  1 cent -$0.01 -    1¢
nickel - 5 cents $0.05      5¢
dime    10 cents $0.10     10¢
quarter 25 cents $0.25     25¢    99¢
50 cent piece
dollar coin      $1.00  = face of Sacagawea  

Canada
-------
toonie $2  two dollars
loonie $1  loon

in Canada pennies are obsolete
toonie  $2.00 polar bear
loonie  $1.00 loon
quarter $0.25 caribou
dime    $0.10 sailboat Bluenose
nickel  $0.05 beaver
penny   $0.01 maple leaf

CLICK HERE TO SEE VIDEO


Monday, April 21, 2014

thinking outside the box ...

... is an expression that means:
    thinking in a different way than other people, or
    finding a new solution
For example, some people in Holland are building a house out of plastic blocks (made by a 3D printer). They are thinking outside the box.

The opposite would be: stuck in the box
This means: always doing things the same way, never thinking of a new way
For example: They always drew in the same style; they were stuck in the box.



Toshiba Camileo B10

I bought this cheap video camera a few weeks ago and it's been nothing but trouble.
Yesterday when I plugged it into my PC, it kept giving the message "Windows Driver not Available".
Finally at 3 a.m., I figured out that the battery is not seated touching the electrical contacts properly.
You have to slide the cover off to see the battery.
Take the battery out and then put it back in again.


englishspacedog
https://www.youtube.com/user/EnglishSpaceDog

Sunday, April 20, 2014

Easter Sunday

Easter Sunday

Easter Sunday and Christmas are the 2 days when almost everyone goes to church.


Friday, April 18, 2014

Good Friday

Today is Good Friday.
It is a statutory holiday in North America.
All employees get a holiday.

Good Friday comes from the Easter holiday of the Christian religion.
Monday is Easter Monday, but Easter Monday is not a statutory holiday.
Only government workers get a holiday on Easter Monday.


Thursday, April 17, 2014

dog's breakfast ...

... is an expression meaning:
 a mess, a collection of objects which are not related, put together without any order

For example: His apartment looked like a dog's breakfast.


Wednesday, April 16, 2014

having a ball ...

https://www.youtube.com/watch?v=GWtS2GMaVeo

... is an expression meaning: having fun

For example: He was having a ball until the stock market crashed.

Tuesday, April 15, 2014

rebar ...

'rebar' is a slang abbreviation for 'reinforcing bar', which are the iron bars in concrete which help prevent concrete from breaking apart.


Friday, April 11, 2014

"Out of the frying pan, and into the fire" ...

... is an expression which means:

   One problem ends, but another (bigger) problem begins.


Thursday, April 10, 2014

cat

'cat' is the animal,

 but it is also slang for 'caterpillar': the big piece of construction equipment.

Caterpillars are used to move heavy objects at construction sites.




Tuesday, April 8, 2014

diagonal

A lot of people can't remember the difference between 'horizontal' and 'vertical'.
'Horizontal' means: a straight line running from left to right, like the horizon.
'Vertical' means: a straight line running up and down.
'Diagonal' means a straight line running at a tilted angle, as below.





Sunday, April 6, 2014

Best Before Date ...


... is the date that is stamped on packaged food.
You're not supposed to eat food if the date is past (if the date is before today's date).


Thursday, April 3, 2014

I'm a little under the weather today. ...

... is an expression which means: I'm feeling a little sick today.







The color gray is normally spelled with the letter 'a' in U.S. English,
but the colour grey is normally spelled with the letter 'e' in British English.

Wednesday, April 2, 2014

carpenter's pencil ...

... is a pencil with flat sides, so that it can't roll away when you put it down on a flat surface.

These pencils are often used by carpenters.


Tuesday, April 1, 2014

There's no use crying over spilt milk. ...

... is an expression which means:

There is no point in thinking about the past, because the past cannot be changed.