Jump to content
Sign in to follow this  
usmiv4o

www.shootersready.com calculator

Recommended Posts

usmiv4o

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.