Write a sub procedure named Calculate$\_$Received$\_$Power that calculates the power $($in watts$)$ of a radio frequency $($RF$)$ signal received by an antenna in an indoor wireless communications system. In any type of wireless communications system, the power of a RF signal disperses with distance. Therefore, a receiving antenna with a fixed area will capture less RF signal power the farther it is from the transmitting antenna. The RF signal power received by a receiving antenna in an indoor wireless communications system is calculated using the formula:

$P_r=\frac{P_t{G}_r{G}_t{}^2}{(4d{)}^2}$; where $=\frac{c}{f}$

The Excel VBA code in sub procedure Calculate$\_$Received$\_$Power must implement the exact algorithm depicted by the flowchart included on page $4$ of this document. For the purposes of this problem, assume that the user will always provide valid input values. In other words, you are not responsible for validating user input via Excel VBA code.

a$)$ The following inputs must be entered by the user into the spreadsheet "Prob$1".$

$P_t=$ Transmitted signal power $(in$ watts$)$

$d=$ Distance between transmitting and receiving antennas $(in$ meters$)$

$f=$ Carrier frequency $(in$ hertz$)$

$G_t=$ Gain $of$ the transmitting antenna $(dimensiontess)$

$G_r=$ Gain $of$ the receiving antenna $(dimensionless)$

The values for the constants $c($i$.$e$.,$ speed of light$)$ and $$ should be considered as internal inputs. Therefore, the user should not be asked to provide them. Your Excel VBA code must then assign the values of all inputs to variables of the appropriate type. These variables will then be used to calculate the power $($in watts$)$ of a RF signal received by an antenna in an indoor wireless communications system:

b$)$ The result for $P_r($i$.$e$.,$ received power$)$ should be reported using engineering notation $($i$.$e$.,0\mathrm{.}00E+00)$ in its corresponding spreadsheet cell. This requirement must be implemented via Excel VBA code $($Hint: Research the function Format and$/$or the NumberFormat property of the Range object$).$

c$)$ Your sub procedure should end by selecting the cell where the user enters the value of $P_t.$

Assign the sub procedure Calculate$\_$Received$\_$Power to a rectangular shape button. The caption of the rectangular shape button should read "Calculate Received Power".

$2.$ Write a sub procedure named Clear$\_$Values that will clear all the input values provided by the user, as well as both the label and value for the output, Pr$.$ This sub procedure should end by selecting the cell where the user enters the value of Pt$.$ Assign the sub procedure clear$\_$values to a rectangular shape button. the caption of the rectangular shape should read clear.

Please provide a photo of the code working on your sude when submitting please. Thank you!