Decaff's Garage

Personal work in progress topics go here
User avatar
Shiny Rice
57th Polyvalent Sq
57th Polyvalent Sq
Posts: 1389
Joined: Wed Apr 27, 2011 3:28 pm
Favorite Aircraft: Su-35
Has thanked: 28 times
Been thanked: 42 times

Re: Decaff's Garage

Post by Shiny Rice » Mon Dec 16, 2013 4:33 pm

TB1 wrote:I feel a HAVA painted version of this plane should be done, it looks INCREDIBLE.
Prepare for the lags then. Couple this with the HawaiitoSoCal map and meet Gaben, because the earthquakes and the lags will make you want to axe your comp in two.
CO of the 57th Cloud Rippers
"We rip those clouds apart so you can see the sun!"
Now 100% more decomissioned!

User avatar
Gunny
Business Class Membership
Business Class Membership
Posts: 3224
Joined: Sun Feb 06, 2011 6:17 pm
Favorite Aircraft: Any thing with a prop.
Location: New Iberia.LA.
OS: Windows XP SP3
Has thanked: 575 times
Been thanked: 731 times

Re: Decaff's Garage

Post by Gunny » Mon Dec 16, 2013 5:04 pm

Lady s and gentlemen please observe the seat belt sign as we are experiencing some mild to sever turbulence.Thank you for your attention. ;)
Image[/align=centre]

User avatar
tigershark
Modding Team
Modding Team
Posts: 1430
Joined: Mon Feb 14, 2011 10:07 pm
Favorite Aircraft: uk & germany fighter
Location: gateshead/newcastle
Has thanked: 199 times
Been thanked: 535 times
Contact:

Re: Decaff's Garage

Post by tigershark » Mon Dec 16, 2013 11:03 pm

DECAFF'S how do you glass in blender. can you do of a video of it. I need help how you do it

NightRaven
Senior Veteran
Senior Veteran
Posts: 1843
Joined: Tue Feb 07, 2012 10:00 am
Favorite Aircraft: .
OS: windoze 10 64-bit
Has thanked: 538 times
Been thanked: 608 times

Re: Decaff's Garage

Post by NightRaven » Wed Dec 18, 2013 10:57 am

What

You mean transparencies?

User avatar
decaff_42
Staff
Staff
Posts: 3537
Joined: Sat Oct 29, 2011 7:23 pm
Favorite Aircraft: SR-71 Blackbird
Location: Eastern United States
OS: Mac OSX
Has thanked: 613 times
Been thanked: 1321 times
Contact:

Re: Decaff's Garage

Post by decaff_42 » Thu Dec 19, 2013 4:33 am

Cockpit is nearly done. The instrument panels will only be rendered when in the F1 viewmode. The panels alone are 1.7 mb.

I'm probably going to to go in and reduce the vertices and the some of the 3D things. Still have to add in all the lighting properties, but that shouldn't take too long. I hope to get the file size to 1.5 mb which was about the 727 file size.

Image

Image

Image


I have the dat file mostly done, so woo for that. :D

I also have the coarse model done!

Image




With all my schoolwork done, I can get some more modeling and tutorialing in. Looking forward to completing more on the 727. I tried to get a test flight in, but it couldn't find the aircraft when I searched for it. The IDENTIFY line has way less than 32 characters, and the air.lst loaded up just fine...*sigh* I guess I'll have to try to find out what went wrong...
Check out my website YSDecaff for all my tutorials and addon releases.
Visit by Bitbucket page for Python codes: https://bitbucket.org/decaff42/

Civilian Aviation Server Flight Log

NightRaven
Senior Veteran
Senior Veteran
Posts: 1843
Joined: Tue Feb 07, 2012 10:00 am
Favorite Aircraft: .
OS: windoze 10 64-bit
Has thanked: 538 times
Been thanked: 608 times

Re: Decaff's Garage

Post by NightRaven » Thu Dec 19, 2013 5:04 am

I'm gonna need the coarse file.. badly. :lol:

As for YS not loading the plane, have you added a collision file? Without one, YS will simply ignore the files and not load the aircraft.

User avatar
Dan
Veteran
Veteran
Posts: 548
Joined: Wed Mar 02, 2011 6:17 pm
Favorite Aircraft: Boeing 757-200
Location: United Kingdom
Has thanked: 477 times
Been thanked: 409 times

Re: Decaff's Garage

Post by Dan » Thu Dec 19, 2013 1:46 pm

Really good job Decaff, looking forward to seeing this when completed. :)

User avatar
TB1
Veteran
Veteran
Posts: 868
Joined: Fri Feb 18, 2011 11:51 am
Favorite Aircraft: 202 SQ RAF Sea King
Location: VATSIM.
Has thanked: 19 times
Been thanked: 15 times
Contact:

Re: Decaff's Garage

Post by TB1 » Thu Dec 19, 2013 5:42 pm

Dan wrote:Really good job Decaff, looking forward to seeing this when completed. :)
As am I, that cockpit looks HOT.
Image

[tb1]123[/tb1]

User avatar
Gunny
Business Class Membership
Business Class Membership
Posts: 3224
Joined: Sun Feb 06, 2011 6:17 pm
Favorite Aircraft: Any thing with a prop.
Location: New Iberia.LA.
OS: Windows XP SP3
Has thanked: 575 times
Been thanked: 731 times

Re: Decaff's Garage

Post by Gunny » Thu Dec 19, 2013 7:16 pm

Decaff you might want to move the seat and engineer back a couple of notches.It looks like her foot might be protruding though the bulkhead.
Image[/align=centre]

User avatar
decaff_42
Staff
Staff
Posts: 3537
Joined: Sat Oct 29, 2011 7:23 pm
Favorite Aircraft: SR-71 Blackbird
Location: Eastern United States
OS: Mac OSX
Has thanked: 613 times
Been thanked: 1321 times
Contact:

Re: Decaff's Garage

Post by decaff_42 » Thu Dec 19, 2013 7:19 pm

Gunny wrote:Decaff you might want to move the seat and engineer back a couple of notches.It looks like her foot might be protruding though the bulkhead.
Her foot is, going thru the base of the instrument panels, but not the outer wall of the cockpit, which is nearly the outer surface. Thanks for the notice though! :D
Check out my website YSDecaff for all my tutorials and addon releases.
Visit by Bitbucket page for Python codes: https://bitbucket.org/decaff42/

Civilian Aviation Server Flight Log

User avatar
flyingfisch
Contributor
Contributor
Posts: 167
Joined: Wed Aug 29, 2012 10:50 pm
Favorite Aircraft: Saab Gripen
Has thanked: 1 time
Been thanked: 5 times
Contact:

Re: Decaff's Garage

Post by flyingfisch » Thu Dec 19, 2013 9:17 pm

What liveries are you planning on releasing this with? AA?
Image

lorDuckFeet
Modding Team
Modding Team
Posts: 1085
Joined: Fri Dec 16, 2011 12:42 am
Favorite Aircraft: McDonnell Douglas
Has thanked: 1319 times
Been thanked: 514 times

Re: Decaff's Garage

Post by lorDuckFeet » Fri Dec 20, 2013 12:56 pm

AA is almost complete, we already have MD-11, briefly, MD-80 and A300. With this 727 :D

User avatar
ForeverYMonster
Contributor
Contributor
Posts: 240
Joined: Tue Dec 03, 2013 5:39 pm
Favorite Aircraft: Su-35/Su-37
Has thanked: 4 times
Been thanked: 7 times

Re: Decaff's Garage

Post by ForeverYMonster » Fri Dec 20, 2013 9:37 pm

So how soon would you think it would be released, my mouth is watering :o
Image

User avatar
decaff_42
Staff
Staff
Posts: 3537
Joined: Sat Oct 29, 2011 7:23 pm
Favorite Aircraft: SR-71 Blackbird
Location: Eastern United States
OS: Mac OSX
Has thanked: 613 times
Been thanked: 1321 times
Contact:

Re: Decaff's Garage

Post by decaff_42 » Fri Dec 20, 2013 9:49 pm

ReverseFate wrote:So how soon would you think it would be released
Not for a while. There is soo much left to do.
flyingfisch wrote:What liveries are you planning on releasing this with? AA?
I was planning on FedEx, DHL, PAVA, HAVA Lufthansa, AA. there will probably be more as I go on. I still need to finish the blank up and test it thuroghly. Then I can start painting.
Check out my website YSDecaff for all my tutorials and addon releases.
Visit by Bitbucket page for Python codes: https://bitbucket.org/decaff42/

Civilian Aviation Server Flight Log

User avatar
ForeverYMonster
Contributor
Contributor
Posts: 240
Joined: Tue Dec 03, 2013 5:39 pm
Favorite Aircraft: Su-35/Su-37
Has thanked: 4 times
Been thanked: 7 times

Re: Decaff's Garage

Post by ForeverYMonster » Fri Dec 20, 2013 10:39 pm

It looks perfect already, what much is there left to do to make it so mac more amazing *-*
Image

User avatar
decaff_42
Staff
Staff
Posts: 3537
Joined: Sat Oct 29, 2011 7:23 pm
Favorite Aircraft: SR-71 Blackbird
Location: Eastern United States
OS: Mac OSX
Has thanked: 613 times
Been thanked: 1321 times
Contact:

Re: Decaff's Garage

Post by decaff_42 » Sun Dec 22, 2013 11:24 pm

Just got the Prototype into YS Flight. Lots of DAT errors, and it wouldn't take off, but the animations worked...so I got that going for me. ;)

I've been putting some work into my Excel DAT File maker. Here's the code so far. It only writes 50 lines of the DAT file, but I've got a good framework going which is helping it go a little faster now that I've written several of the for-loops.

I've got approximately 560 lines of code here.

Code: Select all

'This Script will compile a fully functional DAT file from the inputs provided throughout the excel file.
'First it will check to make sure that all the pages are filled correctly.
'Then it will begin to compile the dat file and paste it into

Public row As Integer           'This variable is the row that strings will be pasted into for the DAT File
Public Sheet2 As String

Sub CallInOrder()
    Sheet2 = "Test"
    
    Call CheckAllSheetsAreDone
    Call DatFileHeaderBuild
    Call FuelAndWeightBuild
    Call F1Viewpoints
    Call InstumentPanel
    Call LandingGear
    Call Arrester
    Call MachineGuns
    Call SmokeGen
    Call Vapor
    Call Strength
    Call Critical1

End Sub



Sub CheckAllSheetsAreDone()
'This macro checks to see if all the sheets are complete.

'Dat File header sheet
If Sheets("Dat File Header").Range("J12").Value = "NO" Then
    MsgBox ("Dat File Header Section not checked off.")
    Exit Sub
End If

'Fuel & weight Sheet
If Sheets("Fuel and Weights").Range("J12").Value = "NO" Then
    MsgBox ("Fuel and Weights Section not checked off.")
    Exit Sub
End If

'F1 Viewpoints Sheet
If Sheets("F1 Viewpoints").Range("J12").Value = "NO" Then
    MsgBox ("F1 Viewpoints Section not checked off.")
    Exit Sub
End If

'Landing Gear Sheet
If Sheets("Landing Gear").Range("J12").Value = "NO" Then
    MsgBox ("Landing Gear Section not checked off.")
    Exit Sub
End If

'Landing Gear Sheet
If Sheets("Smoke Generation").Range("J12").Value = "NO" Then
    MsgBox ("Smoke Generation Section not checked off.")
    Exit Sub
End If

'Variable Geometry Wings Sheet
If Sheets("Variable Geometry Wings").Range("J12").Value = "NO" Then
    MsgBox ("Variable Geometry Wings Section not checked off.")
    Exit Sub
End If

'Custom Instrument Panel Wings Sheet
If Sheets("Custom Instrument Panel").Range("J12").Value = "NO" Then
    MsgBox ("Custom Instrument Panel Section not checked off.")
    Exit Sub
End If

'Brake Parameters Sheet
If Sheets("Brake Parameters").Range("J12").Value = "NO" Then
    MsgBox ("Brake Parameters Panel Section not checked off.")
    Exit Sub
End If

'Strength Parameters Sheet
If Sheets("Strength").Range("J12").Value = "NO" Then
    MsgBox ("Strength Parameters Panel Section not checked off.")
    Exit Sub
End If

'Machine Guns
If Sheets("Machine Guns").Range("J12").Value = "NO" Then
    MsgBox ("Machine Guns Panel Section not checked off.")
    Exit Sub
End If

'Put the rest of the sheets here as they become available

End Sub



Sub DatFileHeaderBuild()
'This Macro will build the Dat File Header Page's Dat parameters.
'It assumes that any cells that are left blank means that parameter is supposed to be blank.

Dim Sheet1 As String
Dim Num As Integer
Dim i As Integer



Sheet1 = "Dat File Header"

Sheets(Sheet2).Range("A1:B100").Clear

Num = WorksheetFunction.CountA(Sheets(Sheet1).Range("C11:C15"))

For i = 1 To Num
    row = i
    Sheets(Sheet2).Cells(row, 1).Value = "REM" & " " & Sheets(Sheet1).Cells(10 + i, 3).Value
Next

row = row + 2

Sheets(Sheet2).Cells(row, 1).Value = "IDENTIFY" & " " & Sheets(Sheet1).Range("C22").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "SUBSTNAM" & " " & Sheets(Sheet1).Range("C31").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "CATEGORY" & " " & Sheets(Sheet1).Range("C38").Value
row = row + 1

If Sheets(Sheet1).Range("C44").Value = "" Then
        row = row
    Else: Sheets(Sheet2).Cells(row, 1).Value = "AIRCLASS" & " " & Sheets(Sheet1).Range("C44").Value
End If

row = row + 2


Sheets("Test").Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select
End Sub

Sub FuelAndWeightBuild()
'This macro builds the Fuel and Weight section after the Dat file Header section

Dim Sheet1 As String


Sheet1 = "Fuel And Weights"
row = Sheets(Sheet2).Range("B1").Value

Sheets(Sheet2).Cells(row, 1).Value = "AFTBURNR" & " " & UCase(Sheets(Sheet1).Range("C11").Value)
row = row + 1

Sheets(Sheet2).Range("B1").Value = row

If Sheets(Sheet1).Range("F11").Value = "NO" Then
    Call JetThrust
    Else: Call PropThrust
End If


'Weights
Sheets(Sheet2).Cells(row, 1).Value = "WEIGHCLN" & " " & Sheets(Sheet1).Range("C38").Value & Sheets(Sheet1).Range("G38").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "WEIGFUEL" & " " & Sheets(Sheet1).Range("C39").Value & Sheets(Sheet1).Range("G39").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "WEIGLOAD" & " " & Sheets(Sheet1).Range("C40").Value & Sheets(Sheet1).Range("G40").Value
row = row + 1

If Sheets(Sheet1).Range("F11").Value = "NO" Then
    Call JetFuel
    Else: Call PropFuel
End If


Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub F1Viewpoints()
'This macro will write the F1 Viewpoints into the DAT file

Dim Sheet1 As String
Dim Num As Integer
Dim rowtarget As Integer
Dim i As Integer

Sheet1 = "F1 Viewpoints"

'Pilot's Viewpoint
Sheets(Sheet2).Cells(row, 1).Value = "COCKPITP" & " " & Sheets(Sheet1).Range("E13").Value & "m " & Sheets(Sheet1).Range("E14").Value & "m " & Sheets(Sheet1).Range("E15").Value & "m"
row = row + 1

'Other Viewpoints
Num = WorksheetFunction.CountA(Sheets(Sheet1).Range("D25,D31,D37,D43,D49"))
rowtarget = 25
For i = 1 To Num
    Sheets(Sheet2).Cells(row, 1).Value = "EXCAMERA" & " " & Chr(34) & Sheets(Sheet1).Cells(rowtarget, 4).Value & Chr(34) & " " & Sheets(Sheet1).Cells(rowtarget + 3, 5).Value & "m" & " " & Sheets(Sheet1).Cells(rowtarget + 4, 5).Value & "m" & " " & Sheets(Sheet1).Cells(rowtarget + 2, 5).Value & "m" & " " & Sheets(Sheet1).Cells(rowtarget + 3, 8).Value & "deg" & " " & Sheets(Sheet1).Cells(rowtarget + 4, 8).Value & "deg" & " " & Sheets(Sheet1).Cells(rowtarget + 2, 8).Value & "deg"
    row = row + 1
    rowtarget = rowtarget + 6
Next

row = row

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub


Sub InstumentPanel()
'This macro will write any and all code about a custom instrument panel to the DAT File.

Dim Sheet1 As String

Sheet1 = "Custom Instrument Panel"

If Sheets(Sheet1).Range("D9").Value = "NO" Then
    Exit Sub
End If

Sheets(Sheet2).Cells(row, 1).Value = "INSTPANL" & " " & Sheets(Sheet1).Range("C16").Value
row = row + 1

'Panel Position
If WorksheetFunction.CountA(Sheets(Sheet1).Range("E24")) = 1 Then
    Sheets(Sheet2).Cells(row, 1).Value = "ISPNLPOS" & " " & Sheets(Sheet1).Range("E25").Value & "m" & " " & Sheets(Sheet1).Range("E26").Value & "m" & " " & Sheets(Sheet1).Range("E24").Value & "m"
    row = row + 1
End If

'Panel Rotation
If WorksheetFunction.CountA(Sheets(Sheet1).Range("D34")) = 1 Then
    Sheets(Sheet2).Cells(row, 1).Value = "ISPNLATT" & " " & Sheets(Sheet1).Range("D35").Value & "deg" & " " & Sheets(Sheet1).Range("D36").Value & "deg" & " " & Sheets(Sheet1).Range("D34").Value & "deg"
    row = row + 1
End If

'Scaling Factor
If WorksheetFunction.CountA(Sheets(Sheet1).Range("D42")) = 1 And Sheets(Sheet1).Range("D42").Value < 1 Then
    Sheets(Sheet2).Cells(row, 1).Value = "ISPNLSCL" & " " & Sheets(Sheet1).Range("D42").Value
    row = row + 1
End If

'HUD with Instrument Panel?
If WorksheetFunction.CountA(Sheets(Sheet1).Range("D48")) = 1 Then
    Sheets(Sheet2).Cells(row, 1).Value = "ISPNLHUD" & " " & UCase(Sheets(Sheet1).Range("D48").Value)
    row = row + 1
End If

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub LandingGear()
'This Sub writes the landing Gear Location to the DAT File.

Dim Sheet1 As String

Sheet1 = "Landing Gear"

Sheets(Sheet2).Cells(row, 1).Value = "LEFTGEAR" & " " & Sheets(Sheet1).Range("E21").Value & "m" & " " & Sheets(Sheet1).Range("E22").Value & "m" & " " & Sheets(Sheet1).Range("E20").Value & "m"
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "RIGHGEAR" & " " & Sheets(Sheet1).Range("E26").Value & "m" & " " & Sheets(Sheet1).Range("E27").Value & "m" & " " & Sheets(Sheet1).Range("E25").Value & "m"
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "NOSEGEAR" & " " & Sheets(Sheet1).Range("E16").Value & "m" & " " & Sheets(Sheet1).Range("E17").Value & "m" & " " & Sheets(Sheet1).Range("E15").Value & "m"
row = row + 1

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub Arrester()
'This macro writes the location of the arrester into the DAT File

Dim Sheet1 As String

Sheet1 = "Brake Parameters"

If Sheets(Sheet1).Range("D9").Value = "YES" Then
    Sheets(Sheet2).Cells(row, 1).Value = "ARRESTER" & " " & Sheets(Sheet1).Range("E18").Value & "m" & " " & Sheets(Sheet1).Range("E19").Value & "m" & " " & Sheets(Sheet1).Range("E17").Value & "m"
    row = row + 1
End If

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub MachineGuns()
'This Macro writes in the number of fixed machine guns and the firing interval into the DAT File.
Dim Sheet1 As String
Dim Num As Integer
Dim rowtarget As Integer
Dim i As Integer

Sheet1 = "Machine Guns"

If Sheets(Sheet1).Range("D10").Value = "NO" Then
    Exit Sub
End If

Sheets(Sheet2).Cells(row, 1).Value = "MACHNGUN" & " " & Sheets(Sheet1).Range("F26").Value & "m" & " " & Sheets(Sheet1).Range("F27").Value & "m" & " " & Sheets(Sheet1).Range("F25").Value & "m"
row = row + 1

If WorksheetFunction.CountA(Sheets(Sheet1).Range("D16")) = 1 Then
    Sheets(Sheet2).Cells(row, 1).Value = "GUNINTVL" & " " & Sheets(Sheet1).Range("D16").Value
    row = row + 1
End If

Num = WorksheetFunction.CountA(Sheets(Sheet1).Range("D25,D31,D37,D43,D49,D55"))
rowtarget = 31
For i = 2 To Num
    Sheets(Sheet2).Cells(row, 1).Value = "MACHNGN" & i & " " & Sheets(Sheet1).Cells(rowtarget + 1, 6).Value & "m" & " " & Sheets(Sheet1).Cells(rowtarget + 2, 6).Value & "m" & " " & Sheets(Sheet1).Cells(rowtarget, 6).Value & "m"
    row = row + 1
    rowtarget = rowtarget + 6
Next

row = row

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub SmokeGen()
'This macro will write in all of your Smoke generation points for your aircraft.
Dim Sheet1 As String
Dim Num As Integer
Dim rowtarget As Integer
Dim i As Integer

Sheet1 = "Smoke Generation"

Num = Sheets(Sheet1).Range("D10").Value
rowtarget = 18

For i = 1 To Num
    Sheets(Sheet2).Cells(row, 1).Value = "SMOKEGEN" & " " & Sheets(Sheet1).Cells(rowtarget + 1, 5).Value & "m" & " " & Sheets(Sheet1).Cells(rowtarget + 2, 5).Value & "m" & " " & Sheets(Sheet1).Cells(rowtarget, 5).Value & "m"
    row = row + 1
    rowtarget = rowtarget + 5
Next

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub Vapor()
'This macro writes the vapor positions of the wingtips.
Dim Sheet1 As String
Sheet1 = "Variable Geometry Wings"

If Sheets(Sheet1).Range("C12").Value = "FALSE" Then
    Sheets(Sheet2).Cells(row, 1).Value = "VAPORPO0" & " " & Sheets(Sheet1).Range("E22").Value & "m" & " " & Sheets(Sheet1).Range("E23").Value & "m" & " " & Sheets(Sheet1).Range("E21").Value & "m"
    row = row + 1
    Sheets(Sheet2).Cells(row, 1).Value = "VAPORPO1" & " " & Sheets(Sheet1).Range("E22").Value & "m" & " " & Sheets(Sheet1).Range("E23").Value & "m" & " " & Sheets(Sheet1).Range("E21").Value & "m"
    row = row + 1
End If

Sheets(Sheet2).Cells(row, 1).Value = "VAPORPO0" & " " & Sheets(Sheet1).Range("E22").Value & "m" & " " & Sheets(Sheet1).Range("E23").Value & "m" & " " & Sheets(Sheet1).Range("E21").Value & "m"
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "VAPORPO1" & " " & Sheets(Sheet1).Range("E27").Value & "m" & " " & Sheets(Sheet1).Range("E28").Value & "m" & " " & Sheets(Sheet1).Range("E26").Value & "m"
row = row + 1

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub Strength()
'This macro writes the hit radius and strength of the aircraft into the DAT file.
Dim Sheet1 As String
Sheet1 = "Strength"

Sheets(Sheet2).Cells(row, 1).Value = "HTRADIUS" & " " & Sheets(Sheet1).Range("D11").Value
row = row + 3
Sheets(Sheet2).Cells(row, 1).Value = "STRENGTH" & " " & Sheets(Sheet1).Range("D17").Value
row = row + 3

Sheets(Sheet2).Range("B1").Value = row
Sheets(Sheet2).Select
Cells(row, 1).Select

End Sub

Sub Critical1()
'This macro writes the min/Max AoA and critical speed and max speed of the aircraft
Dim Sheet1 As String
Sheet1 = "Flight Parameters"

Sheets(Sheet2).Cells(row, 1).Value = "CRITAOAP" & " " & Sheets(Sheet1).Range("D11").Value & "deg"
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "CRITAOAP" & " " & Sheets(Sheet1).Range("G11").Value & "deg"
row = row + 2

Sheets(Sheet2).Cells(row, 1).Value = "CRITSPED" & " " & Sheets(Sheet1).Range("D17").Value & Sheets(Sheet1).Range("E17").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "CRITSPED" & " " & Sheets(Sheet1).Range("D18").Value & Sheets(Sheet1).Range("E18").Value
row = row + 1

End Sub

Sub CLAactive()


End Sub




















Sub JetFuel()
'This Macro writes the fuel consumption for jet engines into the dat file
Dim Sheet1 As String
Dim Sheet2 As String

Sheet1 = "Fuel And Weights"
Sheet2 = "Test"

Sheets(Sheet2).Cells(row, 1).Value = "FUELABRN" & " " & Sheets(Sheet1).Range("G50").Value & Sheets(Sheet1).Range("F50").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "FUELMILI" & " " & Sheets(Sheet1).Range("G51").Value & Sheets(Sheet1).Range("F51").Value
row = row + 2

End Sub

Sub PropFuel()
'This macro writes the fuel consumption for propeller engines into the dat file
Dim Sheet1 As String
Dim Sheet2 As String


Sheet1 = "Fuel And Weights"
Sheet2 = "Test"

Sheets(Sheet2).Cells(row, 1).Value = "FUELABRN" & " " & "0.00kg"
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "FUELMILI" & " " & Sheets(Sheet1).Range("D53").Value & Sheets(Sheet1).Range("E53").Value
row = row + 2


End Sub

Sub JetThrust()

Dim Sheet1 As String
Dim Sheet2 As String

Sheet1 = "Fuel And Weights"
Sheet2 = "Test"

Sheets(Sheet2).Cells(row, 1).Value = "THRAFTBN" & " " & Sheets(Sheet1).Range("C19").Value & Sheets(Sheet1).Range("G19").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "THRMILIT" & " " & Sheets(Sheet1).Range("C20").Value & Sheets(Sheet1).Range("G20").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "THRSTREV" & " " & Sheets(Sheet1).Range("C21").Value & Sheets(Sheet1).Range("G21").Value
row = row + 1

Sheets(Sheet2).Range("B1").Value = row

End Sub
Sub PropThrust()
Dim Sheet1 As String
Dim Sheet2 As String

Sheet1 = "Fuel And Weights"
Sheet2 = "Test"

Sheets(Sheet2).Cells(row, 1).Value = "PROPELLR" & " " & Sheets(Sheet1).Range("C29").Value & Sheets(Sheet1).Range("G29").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "PROPEFCY" & " " & Sheets(Sheet1).Range("C30").Value
row = row + 1
Sheets(Sheet2).Cells(row, 1).Value = "PROPVMIN" & " " & Sheets(Sheet1).Range("C31").Value & Sheets(Sheet1).Range("G31").Value
row = row + 1

Sheets(Sheet2).Range("B1").Value = row
End Sub

Sub FindLastCell()
'This Macro finds the last cell in the DAT file Worksheet
Dim Sheet As String
Dim i As Integer        'Row Counter



Sheet = "Test"
Sheets(Sheet).Select
Worksheets(Sheet).Cells(Rows.Count, 1).End(xlUp).Select
i = ActiveCell.row
i = i + 1
Sheets(Sheet).Range("B1").Value = i


End Sub

Check out my website YSDecaff for all my tutorials and addon releases.
Visit by Bitbucket page for Python codes: https://bitbucket.org/decaff42/

Civilian Aviation Server Flight Log