Need Your Support

Message

gamerule9 · #1 Post by **gamerule9** » Fri Dec 09, 2005 6:22 pm

I am making a Ballistics Program in Visual Basic that gives you the weight of BBs And Pellets. But most of the programs you download are incomplete so if you guys no of any ballistics/ pellet program that i could right down the weight of each pellet in the database.. and if you know some as well post the weight in either grains or grams.... as it will show the weight in both measurements...

thanks for your support ( ineed as many pellet and bb weights that you can think of thanks

papaburger · #2 Post by **papaburger** » Fri Dec 09, 2005 7:32 pm

what database engine are you using ?

gamerule9 · #3 Post by **gamerule9** » Fri Dec 09, 2005 9:34 pm

umm well i am using a program called visual basic 6.0 and i am using a frm with option boxs and labels heres a couple images of what it is gonna look like. Note: the database is not visualy pleasing yet

anything else you would like me to add as ie Ballistic Coefficient

Tailgunner · #4 Post by **Tailgunner** » Fri Dec 09, 2005 10:24 pm

go to http://www.pyramidair.com/ and search for their ammo/pellet list. Theve got a whack of them and all the weights are listed.

gamerule9 · #5 Post by **gamerule9** » Fri Dec 09, 2005 11:37 pm

thanks heres what i have coded now tell me any changes i need to make. before i start adding more

i will start converting into grams later
sorry for the coding lol but

lblCal.Caption = "Is size Of Pellet"
lblDiameter.Caption = "Diameter In Inches"
lblWeight.Caption = "The weight in grains and grams"

ignore the .additem as it is usless to what i need you to do thanks

Code: Select all

Private Sub cbopellets_Click()

If cbopellets.Text = "Crosman Premier .177 Heavy" Then
lblCal.Caption = ".177"
lblDiameter.Caption = "0.180in"
lblWeight.Caption = "10.50 Grains, ?Grams"


ElseIf cbopellets.Text = "Crosman Premier .177 Lite" Then
lblCal.Caption = ".177"
lblWeight.Caption = "7.90 Grains ?Grams"
lblDiameter.Caption = "0.180in"

ElseIf cbopellets.Text = "Crosman Premier .20" Then
lblCal.Caption = ".20"
lblWeight.Caption = "14.30Grains ?Grams"
lblDiameter.Caption = "0.210in"

ElseIf cbopellets.Text = "Crosman Premier .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "14.30Grains ?Grams"
lblDiameter.Caption = "0.220in"

ElseIf cbopellets.Text = "Beeman Kodiak Match .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "10.60Grains ?Grams"
lblDiameter.Caption = "0.180in"

ElseIf cbopellets.Text = "CP Lite .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "7.90Grains ?Grams"
lblDiameter.Caption = "0.180in"

ElseIf cbopellets.Text = "Dynamit Match .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "7.70Grains ?Grams"
lblDiameter.Caption = "0.182in"

ElseIf cbopellets.Text = "JSP Heavy .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "10.60Grains ?Grams"
lblDiameter.Caption = "0.180in"

ElseIf cbopellets.Text = "JSP Lite .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "8.44Grains ?Grams"
lblDiameter.Caption = "0.180in"

ElseIf cbopellets.Text = "JSP Jumbo .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "14.60Grains ?Grams"
lblDiameter.Caption = "0.221in"

ElseIf cbopellets.Text = "Air Arms .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "8.15Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Air Arms Diabolo Field .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "8.44Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Air Arms Diabolo Field .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "16.00Grains ?Grams"
lblDiameter.Caption = "0.220"

ElseIf cbopellets.Text = "Air Arms Hunter .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "16.00Grains ?Grams"
lblDiameter.Caption = "0.220"

ElseIf cbopellets.Text = "Ben Taylor Eliminators .20" Then
lblCal.Caption = ".20"
lblWeight.Caption = "12.50Grains ?Grams"
lblDiameter.Caption = "0.200"

ElseIf cbopellets.Text = "Ben Taylor Eliminators Heavy .20" Then
lblCal.Caption = ".20"
lblWeight.Caption = "15.65Grains ?Grams"
lblDiameter.Caption = "0.200"

ElseIf cbopellets.Text = "Baisly Large .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "7.60Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Baisly Large .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "14.00Grains ?Grams"
lblDiameter.Caption = "0.220"

ElseIf cbopellets.Text = "Baisly Magnum .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "10.60Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Baisly Magnum .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "21.40Grains ?Grams"
lblDiameter.Caption = "0.220"

ElseIf cbopellets.Text = "Baisly Pest Control .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "8.80Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Baisly Pest Control .20" Then
lblCal.Caption = ".20"
lblWeight.Caption = "12.80Grains ?Grams"
lblDiameter.Caption = "0.200"

ElseIf cbopellets.Text = "Baisly Pest Control .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "18.20Grains ?Grams"
lblDiameter.Caption = "0.220"

ElseIf cbopellets.Text = "Baisly Pest Control .25" Then
lblCal.Caption = ".25"
lblWeight.Caption = "26.20Grains ?Grams"
lblDiameter.Caption = "0.250"

ElseIf cbopellets.Text = "Baisly Practice .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "7.20Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Baisly Practice .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "13.80Grains ?Grams"
lblDiameter.Caption = "0.221"

ElseIf cbopellets.Text = "Baisly Premier .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "10.60Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Baisly Premier .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "17.00Grains ?Grams"
lblDiameter.Caption = "0.220"

ElseIf cbopellets.Text = "Baisly Superfield .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "8.50Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "Baisly Superfield .20" Then
lblCal.Caption = ".20"
lblWeight.Caption = "10.80Grains ?Grams"
lblDiameter.Caption = "0.200"

ElseIf cbopellets.Text = "Baisly Superfield .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "15.10Grains ?Grams"
lblDiameter.Caption = "0.220"

ElseIf cbopellets.Text = "Baisly Superfield .25" Then
lblCal.Caption = ".25"
lblWeight.Caption = "24.00Grains ?Grams"
lblDiameter.Caption = "0.250"

ElseIf cbopellets.Text = "BSA Storm .177" Then
lblCal.Caption = ".177"
lblWeight.Caption = "7.40Grains ?Grams"
lblDiameter.Caption = "0.180"

ElseIf cbopellets.Text = "BSA Storm .22" Then
lblCal.Caption = ".22"
lblWeight.Caption = "13.40Grains ?Grams"
lblDiameter.Caption = "0.220"



End If

End Sub

Private Sub cmdbb_Click()
Rem this gives you the specs of the bb selected
End Sub

Private Sub cmddone_Click()
Rem this unloads the application
End
End Sub

Private Sub cmdpellet_Click()
Rem this gives you the specs of the pellet sellected

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Form_Load()
With cbopellets
.AddItem "Air Arms .177"
.AddItem "Air Arms Diabolo Field .177"
.AddItem "Air Arms Diabolo Field .22"
.AddItem "Air Arms Hunter .22"
.AddItem "Beeman Kodiak Match .177"
.AddItem "Ben Taylor Eliminators .20"
.AddItem "Ben Taylor Eliminators Heavy .20"
.AddItem "Baisly Large .177"
.AddItem "Baisly Large .22"
.AddItem "Baisly Magnum .177"
.AddItem "Baisly Magnum .22"
.AddItem "Baisly Pest Control .177"
.AddItem "Baisly Pest Control .20"
.AddItem "Baisly Pest Control .22"
.AddItem "Baisly Pest Control .25"
.AddItem "Baisly Practice .177"
.AddItem "Baisly Practice .22"
.AddItem "Baisly Premier .177"
.AddItem "Baisly Premier .22"
.AddItem "Baisly Superfield .177"
.AddItem "Baisly Superfield .20"
.AddItem "Baisly Superfield .22"
.AddItem "Baisly Superfield .25"
.AddItem "BSA Storm .177"
.AddItem "BSA Storm .22"
.AddItem "Crosman Premier .177 Heavy"
.AddItem "Crosman Premier .177 Lite"
.AddItem "Crosman Premier .20"
.AddItem "Crosman Premier .22"
.AddItem "CP Lite .177"
.AddItem "Dynamit Match .177"
.AddItem "JSP Heavy .177"
.AddItem "JSP Lite .177"
.AddItem "JSP Jumbo .22"


End With
End Sub

gamerule9 · #6 Post by **gamerule9** » Sat Dec 10, 2005 12:30 pm

so i added about 53 pellets to the database total now.. and now i am converting grains into grams

papaburger · #7 Post by **papaburger** » Sat Dec 10, 2005 1:13 pm

Notice that every time a new ammo is added, you have to change the code. Also What if you need to sort them by name , or by caliber ?

Also, you may try setting up a data structure (or Class) for ammo and then an array. A function to convert will be nice. For example:

Public Type Ammo
Name As String
Caliber As String
OuterDiameter As Single 'OD in inches
Weight As Single 'Weight in Grain
End Type

Dim arrayofAmmo(1000) as Ammo

Public Function Grain2Gram(wt As Single) As Single
Grain2Gram = wt / 0.06479891
End Function

gamerule9 · #8 Post by **gamerule9** » Sat Dec 10, 2005 5:16 pm

i can try that... i don't know how exactly it will work yet but i can try it
so dar i have 53 pellets in the Database and all are converted to grams, i can chanfe by order and sort by just changing the .additem order aswell

MC 84 · #9 Post by **MC 84** » Sat Dec 10, 2005 6:01 pm

if you got all those from pyramydair then you might want to double check those. i heard some of pyramydair's stats are false

#10 Post by **under500fps** » Sat Dec 10, 2005 6:24 pm

I have a book here call "American Air Rifles" by James E. House
It has all kinds of pellet info.

http://www.sirmailorder.ca/show_prod.ph ... 6e3e568400

American Air Rifles

Pellet rifles arenÃ¢â‚¬â„¢t just for youngsters. Casual shooters, plinkers, and hunters of all ages have discovered hours of shooting enjoyment in their backyard or basement. Now air rifle enthusiasts can gain a better understanding of their hobby with this essential reference.

Cat. No. 270176

Price: $ 21.99

papaburger · #11 Post by **papaburger** » Sun Dec 11, 2005 12:29 am

This morning I am using crosman premier hollow point pellets in my Marksman2004. Some CPH fit very easily, 1 CPH fell right thru the barrel, and some CPH need to push hard into the barrel. It seems the OD of the skirts of CPH's are not consistent. Perhaps it will be useful to keep track of each pellets and find running averages and standard deviations....

about the code:
you can either sort the .List properties of the combo box ( .List is like an array), or you can sort them in your own array of ammo with your own choice of sort-order ( by manufacture, by caliber, by name, by weight ... etc).
see the following for sorting code

http://www.vb-helper.com/tut1.htm

you can also use a datagrid , see
http://msdn.microsoft.com/library/defau ... vb0900.asp

also, if you use a SQL database , you don't need to write your sorting.
VB6 has a type call Collection , which has some limited sorting capacity.

gamerule9 · #12 Post by **gamerule9** » Sun Dec 11, 2005 1:11 am

what i could also do is sort the .additem by pellet and leave the caliper and weights in different labels i will make a test database and see how that works

thanks for the tut i will try that tonight