ProfileRudy PontPhotosBlogListsMore  |  Tools Help |
|
Rudy PontFly 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.  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 16 A330 Cathay makes successful very high-speed landingCathay 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-OPSZo 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?
 |
|
|||||||
Send a private message
Tell a friend
Add to My MSN
Add as a friend|
|
