ProfileRudy PontPhotosBlogListsMore Tools Help

HLN Nieuws

Loading...Loading...

Rudy Pont

Fly Thomas Cook!!!
July 12

Wachttijd (aantal beltonen) voor voicemail instellen (BASE)

Bel het volgende nummer **61*+32486191933**30#
waarbij 30 = aantal seconden vertraging
BASE postpaid
June 16

Take a look at my new Flight Safety blog

Take a look at my new blackboard where I will try to put the most interesting articles I come across during my morning flight safety read:
Have fun and remember: if you yourself have some interesting FS info, please send it to me. Verhitte emoticon
May 04

Reducing the number of TCAS RA's when changing flight level

In order to increase safety and to minimise the likelihood of RAs in 1000 ft level-off encounters, it is proposed that aircraft have a reduced vertical rate when approaching their cleared level. Recommendations or rules already exist. The EUROCONTROL ACAS Programme recommends that pilots climb or descend at a rate less than 1000 fpm in the last 1000 ft to level-off. The EUROCONTROL RVSM Programme also recommends a similar rate for RVSM operations.
 
Two core area European States have published regulations in their AIPs, which require the vertical rate, in the last 1000 ft before level-off at the cleared altitude, to be below 1500 fpm. This can be expected to improve the compatibility of TCAS II with ATC, and bring improvements in safety. In addition, a proposal for a recommendation to reduce the vertical rate to less than 1500 fpm in the last 1000 ft before level-off at the cleared altitude, is under discussion within ICAO for inclusion in Annex 6, Aircraft operations.
 
April 29

Men With Talent - Full Version

 
April 25

Men With Talent - Teaser

 
April 16

A330 Cathay makes successful very high-speed landing

Cathay Pacific Airways captain and first officer are being lauded after successfully overcoming apparent erratic power surges in the A330 they were operating and landing at an unusually high speed at Hong Kong International Tuesday afternoon. Problems started for the crew of CX Flight 780 en route to HKG from Surabaya when the aircraft, with 309 passengers and 14 crew aboard, was on descent about 20 min. from Hong Kong. Its two Rolls-Royce Trent 700 engines began to behave erratically with significant variations in thrust. When the A330 touched down at 239 kt.--109 kt. above the typical landing speed--the right engine was at idle while the left was delivering 70% thrust. The braking required to stop the aircraft led to the tires overheating. A small fire resulted that was doused quickly by firefighters. Eight passengers were injured during the evacuation and HKG closed a runway for 2.5 hr.

Hong Kong's Civil Aviation Dept. said it would investigate the "serious aircraft incident" and release a preliminary report within a month. Safety experts from Airbus and Rolls-Royce were due to arrive in Hong Kong yesterday to assist local authorities and the airline with the investigation. CX emphasized that at no time were both engines shut down.

by Geoffrey Thomas

Source: http://www.atwonline.com/news/other.html?issueDate=4%2F15%2F2010

March 02

Create Clock (VBA Macro for MS PowerPoint)

Looking for a great countdown clock in your PowerPoint presentation? Here's a small macro that should do the trick...
You can either copy the code belo or download the sample presentation. (only 43k)
Here's the link to the DS Digital font
 
'------------------------------------------------------------------
' AUTHOR:   Rudy PONT
' DATE:     02/03/2010
'
' TITLE:    CLOCK MAKER
' DESCR:    THIS SMALL MACRO CREATES SLIDES USING THE FIRST SLIDE IN
'           THE PRESENTATION AS TEMPLATE FOR A (DIGITAL) CLOCK
'
' REQ:      THE CHANGING TEXTBOX MUST BE THE FIRST IN THE SLIDE
'           INSTALL THE DS-DIGITAL FONT
'               (JUST GOOGLE IT AND COPY INTO FONTS DIRECTORY)
'
'------------------------------------------------------------------
Option Explicit
Public Sub CreateTimeSlides()
   
    'set a reference to the presentation
    Dim oPres As Presentation
    Set oPres = Application.ActivePresentation
   
    'get the start time from the textbox on the first slide
    Dim sTime As String
    sTime = oPres.Slides(1).Shapes(1).TextFrame.TextRange.Text
   
    'define a variable to hold the reference to the current slide
    Dim oSlide As SlideRange
   
    'loop until the time equals 00:00
    Do While Not sTime = "00:00"
       
        'copy and paste the first slide
        oPres.Slides(1).Copy
        Set oSlide = oPres.Slides.Paste
       
        'calculate the countdown
        sTime = Countdown(sTime)
        Debug.Print sTime
       
        'modify the text with the calculated time
        oSlide.Shapes(1).TextFrame.TextRange.Text = sTime
    Loop
   
    'on digital clocks the 1 should be preceded by a space to maintain correct layout
    ReplaceOnes
End Sub
Public Sub ReplaceOnes()
    'set a reference to the presentation
    Dim oPres As Presentation
    Set oPres = Application.ActivePresentation
   
    'get the start time from the textbox on the first slide
    Dim sTime As String
   
    'define a variable to hold the reference to the current slide
    Dim oSlide As Slide
    For Each oSlide In oPres.Slides
        sTime = oSlide.Shapes(1).TextFrame.TextRange.Text
        sTime = VBA.Replace(sTime, "1", " 1")
        oSlide.Shapes(1).TextFrame.TextRange.Text = sTime
        Debug.Print sTime
    Next oSlide
End Sub
Private Function Countdown(sTime As String) As String
    Dim sHelp() As String
    sHelp = Split(sTime, ":")
    Dim iMin As Integer: iMin = sHelp(0)
    Dim iSec As Integer: iSec = sHelp(1)
    If iSec = 0 Then
        iMin = iMin - 1
        iSec = 59
    Else
        iSec = iSec - 1
    End If
    Countdown = Make2Digits(iMin) & ":" & Make2Digits(iSec)
End Function
Public Function Make2Digits(iNumber As Integer) As String
    If iNumber < 10 Then
        Make2Digits = "0" & CStr(iNumber)
    Else
        Make2Digits = CStr(iNumber)
    End If
End Function
February 12

RVR Requirements (LVP)

Allez, nog maar ne keer  ne mens vraagt zich af - hoe het komt dat hij dit blijft vergeten...

EASA EU-OPS

Zo verlies ik niet steeds de link - want de EASA website is nu niet echt het voorbeeld van een overzichtelijke website. Of ligt het aan mij? Verrast
 
Photo 1 of 21
More albums (60)