Sign in to follow this  
Followers 0
usmiv4o

www.shootersready.com calculator

2 posts in this topic

This is the GAME!

http://www.shooterready.com/

has a very good simulator for long distance shooting up to .50 caliber

i write a little calculator :

- distance

- elevation correction

- wind correction

Usage:

it has 6 input boxes

3 rows 3 columns

1st row -distance (from the range card) , elevation correction (from the range card) , wind correction (from the range card)

2nd row -distance (from the range card) , elevation correction (from the range card) , wind correction (from the range card)

3rd row - Size of targer, MillDott reading scale, Wind (estimated by flag)

first enter 3rd row to compute distance

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype

#include <GuiConstants.au3>


GuiCreate("MyGUI", 232, 232,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Input_1 = GuiCtrlCreateInput("Dist_1", 80, 30, 60, 20)
$Input_2 = GuiCtrlCreateInput("Elev_1", 130, 30, 60, 20)
$Input_3 = GuiCtrlCreateInput("Wind_1", 180, 30, 60, 20)
$Input_4 = GuiCtrlCreateInput("Dist_2", 80, 60, 60, 20)
$Input_5 = GuiCtrlCreateInput("Elev_2", 130, 60, 60, 20)
$Input_6 = GuiCtrlCreateInput("Wind_2", 180, 60, 60, 20)
$Input_7 = GuiCtrlCreateInput("Size", 80, 90, 60, 20)
$Input_8 = GuiCtrlCreateInput("MillDot", 130, 90, 60, 20)
$Input_9 = GuiCtrlCreateInput("Wind", 180, 90, 60, 20)
;$Button_10 = GuiCtrlCreateButton("Calculate", 180, 130, 60, 20)
$Label_11 = GuiCtrlCreateLabel("Label11", 80, 140, 80, 30)
$Label_12 = GuiCtrlCreateLabel("Label12", 80, 170, 80, 30)
$Label_13 = GuiCtrlCreateLabel("Label13", 80, 200, 80, 30)
$Label_14 = GuiCtrlCreateLabel("Elevation", 10, 140, 80, 30)
$Label_15 = GuiCtrlCreateLabel("Wind", 10, 170, 80, 30)
$Label_16 = GuiCtrlCreateLabel("Distance", 10, 200, 80, 30)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        Check();;;
    ;sleep(1000)
    EndSelect
WEnd
Exit

Func Calc($dis1, $dis2, $ele1, $ele2, $wnd1, $wnd2, $wind, $size, $mil)
    $dis = ($size*25.4)/$mil;distance [meters]

    $n = ($dis - $dis1 ) / ($dis2 - $dis1);470 - 450 / 500 - 450 = 20/50
    
    $a = ($wnd2 - $wnd1);wind2 - wind1
    $answer = ($a * $n)  + $wnd1; (wind diference * queficent n ) + wind1 = wind correction queficent
    $answer = $answer * $wind;wind corection [inch ]
    $answer = $answer/($dis/100);wind corection [MOA]
;$answer = $answer/3.5;;wind corection [MillDot]

$elev = $ele2 - $ele1;correction difference 
$elev = ($elev * $n) + $ele1;elevation correction
;$elev = $elev * $wind 

;MsgBox(0, "anser wind MOA", $answer);/3.5 Mill
;MsgBox(0, "anser elevation MOA", $elev);/3.5 Mill

    GUICtrlSetData($Label_11, "e (" & Round($elev, 2) & ")  ")
    GUICtrlSetData($Label_12, "w (" & Round($answer, 2) & ")  ")
    GUICtrlSetData($Label_13, "d (" & Round($dis, 2) & ")  "); "," & $x &  [(x,y)]
EndFunc ;==>QuadCalc
Func Check()
    $dis1 = GUICtrlRead($Input_1)
    $ele1 = GUICtrlRead($Input_2)
    $wnd1 = GUICtrlRead($Input_3)
    $dis2 = GUICtrlRead($Input_4)
    $ele2 = GUICtrlRead($Input_5)
    $wnd2 = GUICtrlRead($Input_6)
    $size = GUICtrlRead($Input_7)
    $mil = GUICtrlRead($Input_8)
    $wind = GUICtrlRead($Input_9)
             ;Check if numbers(To be worked out)
    Calc($dis1, $dis2, $ele1, $ele2, $wnd1, $wnd2, $wind, $size, $mil)
EndFunc ;==>NumCheck

#endregion --- GuiBuilder generated code End ---

calc_balistic_shootersready_com.au3


I have nothing to be proud: I am Bulgarian :~But there is no better place than 127.0.0.1Tutorial for newbies

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0