Update

+ added calculations for all stations. + added gun ammo weight + program works now.
PervonHarke · Jan 26, 2021 · a97136e · a97136e
1 parent 493355e
commit a97136e
Show file tree

Hide file tree

Showing 9 changed files with 317 additions and 104 deletions.
diff --git a/Win32/Debug/mF14weightcalculator.dcu b/Win32/Debug/mF14weightcalculator.dcu
diff --git a/Win32/Debug/pF14weightcalculator.exe b/Win32/Debug/pF14weightcalculator.exe
diff --git a/mF14weightcalculator.dfm b/mF14weightcalculator.dfm
diff --git a/mF14weightcalculator.pas b/mF14weightcalculator.pas
@@ -1,5 +1,5 @@
 unit mF14weightcalculator;
-
+// Made by Per_von_Harke
 interface
 
 uses
@@ -36,6 +36,11 @@   TFm_Window_Main = class(TForm)
     Lb_FuelPercent: TLabel;
     Ed_Totalweight: TEdit;
     Lb_Info_2: TLabel;
+    Lb_Info_3: TLabel;
+    Lb_GunPercent: TLabel;
+    Tb_GunAmmo: TTrackBar;
+    Ed_GunWeight: TEdit;
+    Lb_Info_4: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure Tb_FuelChange(Sender: TObject);
     procedure Cb_AircraftTypeChange(Sender: TObject);
@@ -50,17 +55,13 @@   TFm_Window_Main = class(TForm)
     procedure Cb_Station_8AChange(Sender: TObject);
     procedure Cb_Station_8BChange(Sender: TObject);
   private
-    { Private-Deklarationen }
-    F14BWEIGHT,F14AWEIGHT, Aim9L, Aim9M, Aim7M, Aim54AMk47, Aim54AMk60, Aim54CMk47, Mk81, Mk82, Mk82SnakeEye, Mk82AIR, Mk83, GBU10, Mk84, Mk20, BDU33, ZUNIMk71, GBU12, GBU24, GBU16, ADM141A, fueltankfull, fueltankempty, TCTSPod, fuel, fuelinput : Integer;
+    // Variables
+    F14BWEIGHT,F14AWEIGHT, Aim9L, GunTotal, SUU258LUU2,  BDU33MAK79 , Aim9M, Aim7M, Aim54AMk47, Aim54AMk60, Aim54CMk47, Mk81, Mk82, Mk82SnakeEye, Mk82AIR, Mk83, GBU10, Mk84, Mk20, BDU33, ZUNIMk71, GBU12, GBU24, GBU16, ADM141A, fueltankfull, fueltankempty, TCTSPod, fuel, fuelinput : Integer;
     weighttotal : Real;
 
     // Procedures
     procedure CalculateWeight;
-
-
-
   public
-    { Public-Deklarationen }
   end;
 
 var
@@ -74,64 +75,53 @@ procedure TFm_Window_Main.Cb_AircraftTypeChange(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_1AChange(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_1BChange(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_2Change(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_3Change(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_4Change(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_5Change(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_6Change(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_7Change(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_8AChange(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Cb_Station_8BChange(Sender: TObject);
 begin
 CalculateWeight;
 end;
-
 procedure TFm_Window_Main.Tb_FuelChange(Sender: TObject);
 begin
 CalculateWeight;
 end;
 
 
-//Setting up all the variables with correct values
+//Setting up all the variables with (hopefully xd) correct values
 procedure TFm_Window_Main.FormCreate(Sender: TObject);
 begin
 Aim9L         := 190;
@@ -148,78 +138,219 @@ procedure TFm_Window_Main.FormCreate(Sender: TObject);
 Mk84     	    := 2097;
 Mk20     	    := 615;
 BDU33		      := 160;
-ZUNIMk71	    := 293;
+BDU33MAK79    := 000;
+ZUNIMk71      := 293;
+SUU258LUU2    := 260;
 GBU12		      := 732;
 GBU24 		    := 1369;
 GBU16		      := 2441;
-GBU10         :=0;
+GBU10         := 2103;
 ADM141A	      := 805;
 fueltankfull  := 2113;
 fueltankempty := 154;
 TCTSPod       := 139;
-F14BWeight := 44040;
-F14AWeight := 40104;
+F14BWeight    := 44040;
+F14AWeight    := 40104;
+GunTotal      := 520;
 CalculateWeight;
 end;
 
 
-
-
 // === private ===
 
 
 //Calculate Weight Procedure
 procedure TFm_Window_Main.CalculateWeight;
-var a,b,c,d : Real;
+var a,b : real;
 begin
 //stopping endless addition of the weights.
  weighttotal := 0;
 
 //Adding the empty weight of plane.
-  case Cb_AircraftType.ItemIndex of
-     0: begin weighttotal := weighttotal + F14BWeight end;
-     1: begin weighttotal := weighttotal + F14AWeight end;
-  end;
+case Cb_AircraftType.ItemIndex of
+  0: begin weighttotal := weighttotal + F14BWeight end;
+  1: begin weighttotal := weighttotal + F14AWeight end;
+end;
 
-//Reading FuelTrackbar and letting a edit field display it
+// Tb_Fuel
 a := Tb_Fuel.position;
-Lb_FuelPercent.Caption := FloatToStr(a) + '%';
-Ed_FuelWeight.Text   :=  FloatToStr(16200 * (a/100)) + ' Lbs';
-weighttotal := weighttotal +   (16200*((a/100)));
-
-//Station 1A weight.
+Lb_FuelPercent.Caption  := FloatToStr(a) + '%';
+Ed_FuelWeight.Text      :=  FloatToStr    (16200 * (a/100)) + ' Lbs';
+weighttotal             := weighttotal +  (16200 * (a/100));
+
+// Tb_GunAmmo
+b := Tb_GunAmmo.position;
+Lb_GunPercent.Caption   := FloatToStr(b) + '%';
+Ed_GunWeight.Text       := FloatToStr(   round((520 * (b/100)))) + ' Lbs';
+weighttotal             := weighttotal + round((520 * (b/100)));
+
+//
+// Station 1A
 case Cb_Station_1A.ItemIndex of
  1  : begin  weighttotal := weighttotal + (1*AIM9L)  end;
  2  : begin  weighttotal := weighttotal + (1*AIM9M)  end;
  3  : begin  weighttotal := weighttotal + (1*TCTSPod)end;
 end;
-case Cb_Station_1B.ItemIndex of
- 1  : begin  weighttotal := weighttotal + (1*AIM9L)       end;
- 2  : begin  weighttotal := weighttotal + (1*AIM9M)       end;
- 3  : begin  weighttotal := weighttotal + (1*AIM7M)       end;
- 4  : begin  weighttotal := weighttotal + (1*AIM54AMk47)  end;
- 5  : begin  weighttotal := weighttotal + (1*Aim54AMk60)  end;
- 6  : begin  weighttotal := weighttotal + (1*Aim54CMk47)  end;
- 7  : begin  weighttotal := weighttotal + (3*BDU33)       end;
- 8  : begin  weighttotal := weighttotal + (   end;
- 9  : begin  weighttotal := weighttotal +     end;
- 10 : begin  weighttotal := weighttotal +     end;
- 11 : begin  weighttotal := weighttotal +     end;
- 12 : begin  weighttotal := weighttotal +     end;
- 13 : begin  weighttotal := weighttotal +     end;
- 14 : begin  weighttotal := weighttotal +     end;
 
+// Station 8A
+case Cb_Station_8A.ItemIndex of
+ 1  : begin  weighttotal := weighttotal + (1*AIM9L)  end;
+ 2  : begin  weighttotal := weighttotal + (1*AIM9M)  end;
+ 3  : begin  weighttotal := weighttotal + (1*TCTSPod)end;
 end;
 
+// Station 1B
+case Cb_Station_1B.ItemIndex of
+  1  : begin  weighttotal := weighttotal + (1*AIM9L)       end;
+  2  : begin  weighttotal := weighttotal + (1*AIM9M)       end;
+  3  : begin  weighttotal := weighttotal + (1*AIM7M)       end;
+  4  : begin  weighttotal := weighttotal + (1*AIM54AMk47)  end;
+  5  : begin  weighttotal := weighttotal + (1*Aim54AMk60)  end;
+  6  : begin  weighttotal := weighttotal + (1*Aim54CMk47)  end;
+  7  : begin  weighttotal := weighttotal + (3*BDU33)       end;
+  8  : begin  weighttotal := weighttotal + (2*MK20)        end;
+  9  : begin  weighttotal := weighttotal + (2*MK81)        end;
+  10 : begin  weighttotal := weighttotal + (2*MK82)        end;
+  11 : begin  weighttotal := weighttotal + (2*MK82AIR)     end;
+  12 : begin  weighttotal := weighttotal + (2*MK82SNAKEEYE)end;
+  13 : begin  weighttotal := weighttotal + (1*MK84)        end;
+  14 : begin  weighttotal := weighttotal + (2*ZUNIMK71)    end;
+end;
 
+// Station 8B
+case Cb_Station_8B.ItemIndex of
+  1  : begin  weighttotal := weighttotal + (1*AIM9L)       end;
+  2  : begin  weighttotal := weighttotal + (1*AIM9M)       end;
+  3  : begin  weighttotal := weighttotal + (1*AIM7M)       end;
+  4  : begin  weighttotal := weighttotal + (1*AIM54AMk47)  end;
+  5  : begin  weighttotal := weighttotal + (1*Aim54AMk60)  end;
+  6  : begin  weighttotal := weighttotal + (1*Aim54CMk47)  end;
+  7  : begin  weighttotal := weighttotal + (3*BDU33)       end;
+  8  : begin  weighttotal := weighttotal + (2*MK20)        end;
+  9  : begin  weighttotal := weighttotal + (2*MK81)        end;
+  10 : begin  weighttotal := weighttotal + (2*MK82)        end;
+  11 : begin  weighttotal := weighttotal + (2*MK82AIR)     end;
+  12 : begin  weighttotal := weighttotal + (2*MK82SNAKEEYE)end;
+  13 : begin  weighttotal := weighttotal + (1*MK84)        end;
+  14 : begin  weighttotal := weighttotal + (2*ZUNIMK71)    end;
+end;
 
+// Station 2
+case Cb_Station_2.ItemIndex of
+  1  : begin weighttotal := weighttotal + (1*FUELTANKFULL) end;
+  2  : begin weighttotal := weighttotal + (1*FUELTANKEMPTY)end;
+end;
 
+// Station 7
+case Cb_Station_7.ItemIndex of
+  1  : begin weighttotal := weighttotal + (1*FUELTANKFULL) end;
+  2  : begin weighttotal := weighttotal + (1*FUELTANKEMPTY)end;
+end;
 
-//Read out total weight to edit field
-Ed_Totalweight.Text:= FloatToStr(weighttotal);
+// Station 3     23 Options
+case Cb_Station_3.ItemIndex of
+  1   : begin weighttotal := weighttotal + (1*AIM7M)        end;
+  2   : begin weighttotal := weighttotal + (1*AIM54AMK47)   end;
+  3   : begin weighttotal := weighttotal + (1*AIM54AMk60)   end;
+  4   : begin weighttotal := weighttotal + (1*AIM54CMk47)   end;
+  5   : begin weighttotal := weighttotal + (1*ADM141A)      end;
+  6   : begin weighttotal := weighttotal + (3*BDU33)        end;
+  7   : begin weighttotal := weighttotal + (4*BDU33)        end;
+  8   : begin weighttotal := weighttotal + (1*GBU10)        end;
+  9   : begin weighttotal := weighttotal + (1*GBU12)        end;
+  10  : begin weighttotal := weighttotal + (1*GBU16)        end;
+  11  : begin weighttotal := weighttotal + (1*GBU24)        end;
+  12  : begin weighttotal := weighttotal + (1*MK20)         end;
+  13  : begin weighttotal := weighttotal + (4*MK81)         end;
+  14  : begin weighttotal := weighttotal + (1*MK82)         end;
+  15  : begin weighttotal := weighttotal + (4*MK82)         end;
+  16  : begin weighttotal := weighttotal + (1*MK82AIR)      end;
+  17  : begin weighttotal := weighttotal + (4*MK82AIR)      end;
+  18  : begin weighttotal := weighttotal + (1*MK82SNAKEEYE) end;
+  19  : begin weighttotal := weighttotal + (4*MK82SNAKEEYE) end;
+  20  : begin weighttotal := weighttotal + (1*MK83)         end;
+  21  : begin weighttotal := weighttotal + (3*MK83)         end;
+  22  : begin weighttotal := weighttotal + (1*MK84)         end;
+  23  : begin weighttotal := weighttotal + (1*ZUNIMK71)     end;
+end;
 
+// Station 4
+case Cb_Station_4.ItemIndex of
+  1   : begin weighttotal := weighttotal + (1*AIM7M)        end;
+  2   : begin weighttotal := weighttotal + (1*AIM54AMK47)   end;
+  3   : begin weighttotal := weighttotal + (1*AIM54AMk60)   end;
+  4   : begin weighttotal := weighttotal + (1*AIM54CMk47)   end;
+  5   : begin weighttotal := weighttotal + (1*ADM141A)      end;
+  6   : begin weighttotal := weighttotal + (3*BDU33)        end;
+  7   : begin weighttotal := weighttotal + (3*BDU33MAK79)   end;
+  8   : begin weighttotal := weighttotal + (1*GBU12)        end;
+  9   : begin weighttotal := weighttotal + (1*GBU16)        end;
+  10  : begin weighttotal := weighttotal + (1*MK20)         end;
+  11  : begin weighttotal := weighttotal + (3*MK81)         end;
+  12  : begin weighttotal := weighttotal + (1*MK82)         end;
+  13  : begin weighttotal := weighttotal + (3*MK82)         end;
+  14  : begin weighttotal := weighttotal + (1*MK82AIR)      end;
+  15  : begin weighttotal := weighttotal + (3*MK82AIR)      end;
+  16  : begin weighttotal := weighttotal + (1*MK82SNAKEEYE) end;
+  17  : begin weighttotal := weighttotal + (3*MK82SNAKEEYE) end;
+  18  : begin weighttotal := weighttotal + (1*MK83)         end;
+  19  : begin weighttotal := weighttotal + (1*MK84)         end;
+  20  : begin weighttotal := weighttotal + (1*SUU258LUU2 )  end;
 end;
 
+// Station 5
+case Cb_Station_5.ItemIndex of
+  1   : begin weighttotal := weighttotal + (1*AIM7M)        end;
+  2   : begin weighttotal := weighttotal + (1*AIM54AMK47)   end;
+  3   : begin weighttotal := weighttotal + (1*AIM54AMk60)   end;
+  4   : begin weighttotal := weighttotal + (1*AIM54CMk47)   end;
+  5   : begin weighttotal := weighttotal + (1*ADM141A)      end;
+  6   : begin weighttotal := weighttotal + (3*BDU33)        end;
+  7   : begin weighttotal := weighttotal + (3*BDU33MAK79)   end;
+  8   : begin weighttotal := weighttotal + (1*GBU12)        end;
+  9   : begin weighttotal := weighttotal + (1*GBU16)        end;
+  10  : begin weighttotal := weighttotal + (1*GBU24)        end;
+  11  : begin weighttotal := weighttotal + (1*MK20)         end;
+  12  : begin weighttotal := weighttotal + (3*MK81)         end;
+  13  : begin weighttotal := weighttotal + (1*MK82)         end;
+  14  : begin weighttotal := weighttotal + (3*MK82)         end;
+  15  : begin weighttotal := weighttotal + (1*MK82AIR)      end;
+  16  : begin weighttotal := weighttotal + (3*MK82AIR)      end;
+  17  : begin weighttotal := weighttotal + (1*MK82SNAKEEYE) end;
+  18  : begin weighttotal := weighttotal + (3*MK82SNAKEEYE) end;
+  19  : begin weighttotal := weighttotal + (1*MK83)         end;
+  20  : begin weighttotal := weighttotal + (1*MK84)         end;
+  21  : begin weighttotal := weighttotal + (1*SUU258LUU2)   end;
+end;
 
+// Station 6
+case Cb_Station_6.ItemIndex of
+  1   : begin weighttotal := weighttotal + (1*AIM7M)        end;
+  2   : begin weighttotal := weighttotal + (1*AIM54AMK47)   end;
+  3   : begin weighttotal := weighttotal + (1*AIM54AMk60)   end;
+  4   : begin weighttotal := weighttotal + (1*AIM54CMk47)   end;
+  5   : begin weighttotal := weighttotal + (1*ADM141A)      end;
+  6   : begin weighttotal := weighttotal + (3*BDU33)        end;
+  7   : begin weighttotal := weighttotal + (4*BDU33)        end;
+  8   : begin weighttotal := weighttotal + (1*GBU10)        end;
+  9   : begin weighttotal := weighttotal + (1*GBU12)        end;
+  10  : begin weighttotal := weighttotal + (1*GBU16)        end;
+  11  : begin weighttotal := weighttotal + (1*MK20)         end;
+  12  : begin weighttotal := weighttotal + (4*MK81)         end;
+  13  : begin weighttotal := weighttotal + (1*MK82)         end;
+  14  : begin weighttotal := weighttotal + (4*MK82)         end;
+  15  : begin weighttotal := weighttotal + (1*MK82AIR)      end;
+  16  : begin weighttotal := weighttotal + (4*MK82AIR)      end;
+  17  : begin weighttotal := weighttotal + (1*MK82SNAKEEYE) end;
+  18  : begin weighttotal := weighttotal + (4*MK82SNAKEEYE) end;
+  19  : begin weighttotal := weighttotal + (1*MK83)         end;
+  20  : begin weighttotal := weighttotal + (3*MK83)         end;
+  21  : begin weighttotal := weighttotal + (1*MK84)         end;
+  22  : begin weighttotal := weighttotal + (1*ZUNIMK71)     end;
+end;
 
+//Read out total weight to edit field
+Ed_Totalweight.Text:= FloatToStr(weighttotal);
+end;
+// Made by Per_von_Harke
 end.
diff --git a/mF14weightcalculator.vlb b/mF14weightcalculator.vlb
@@ -36,6 +36,7 @@ Coordinates=10,346,99,58
 
 [Lb_Info_1]
 Coordinates=609,278,72,58
+Visible=True
 
 [Lb_Station_6]
 Coordinates=296,278,90,58
@@ -80,9 +81,21 @@ Coordinates=10,278,102,58
 Coordinates=572,144,105,58
 
 []
-Coordinates=445,629,91,36
+Coordinates=715,1,91,36
 
 [Lb_Info_2]
-Coordinates=122,278,53,58
+Coordinates=122,278,72,58
 Visible=True
 
+[Lb_GunPercent]
+Coordinates=600,423,104,58
+
+[Tb_GunAmmo]
+Coordinates=715,56,97,36
+
+[Lb_Info_3]
+Coordinates=424,423,72,58
+
+[Ed_GunWeight]
+Coordinates=315,442,101,58
+