Kornowski

Ok sure, Good Day, it's 8:12AM here

__________________

Intel Core 2 Duo E6300 @ 2.8GHz
Gigabyte GA-965P-S3 - Rev 3.3
4GB Crucial Ballistix @ 800MHz
PNY 8800GTS G92 @ 800/2000/1000
Corsair HX520W
Windows Vista Home Premium
Seagate Barracuda 500GB 7200.11 SATA II
Tuniq Tower LED
OCZ XTC RAM Cooler
Antec 900 (Modded)

patrickv

super cool.look at the fonts on the clock. really wish i could learn to do programming

__________________
Laptop: Thinkpad X60: Core2Duo T7200 @ 2Ghz,1GB DDR2,110GB SATA -winXP ProSP2
Work Desktop: Core Duo E2180 @ 2Ghz,1.5GB DDR2,240GB HD - XP PRO SP2
Home: Core Duo E2180 2Ghz,1.5GB DDR2,Nvidia GForce 6200TB,320 GB (2x160GB) -Dual boot - XP / OSX 10.5.2

Kornowski

It's really easy you know, I've only been doing it for about 2 weeks.

Do you have MS Excel? Open it and press Alt + F11, just have a mess around.

__________________

Intel Core 2 Duo E6300 @ 2.8GHz
Gigabyte GA-965P-S3 - Rev 3.3
4GB Crucial Ballistix @ 800MHz
PNY 8800GTS G92 @ 800/2000/1000
Corsair HX520W
Windows Vista Home Premium
Seagate Barracuda 500GB 7200.11 SATA II
Tuniq Tower LED
OCZ XTC RAM Cooler
Antec 900 (Modded)

Kornowski

Here's the code for the Calculator:

Dim var_First_Number As Integer
Dim var_Second_Number As Integer
Dim var_Operator As String

Private Sub cmd_Clear_Click()
txt_Display = ""
End Sub

Private Sub cmd_Divide_Click()
var_First_Number = txt_Display
var_Operator = "Div"
txt_Display = ""
End Sub

Private Sub cmd_Eight_Click()
txt_Display = txt_Display & 8
End Sub

Private Sub cmd_Equals_Click()
var_Second_Number = txt_Display
If var_Operator = "Add" Then
txt_Display = var_First_Number + var_Second_Number
ElseIf var_Operator = "Min" Then
txt_Display = var_First_Number - var_Second_Number
ElseIf var_Operator = "Div" Then
txt_Display = var_First_Number / var_Second_Number
ElseIf var_Operator = "Mul" Then
txt_Display = var_First_Number * var_Second_Number
End If
End Sub

Private Sub cmd_Five_Click()
txt_Display = txt_Display & 5
End Sub

Private Sub cmd_Four_Click()
txt_Display = txt_Display & 4
End Sub

Private Sub cmd_Nine_Click()
txt_Display = txt_Display & 9
End Sub

Private Sub cmd_Plus_Click()
var_First_Number = txt_Display
var_Operator = "Add"
txt_Display = ""
End Sub

Private Sub cmd_Seven_Click()
txt_Display = txt_Display & 7
End Sub

Private Sub cmd_Six_Click()
txt_Display = txt_Display & 6
End Sub

Private Sub cmd_Subtract_Click()
var_First_Number = txt_Display
var_Operator = "Min"
txt_Display = ""
End Sub

Private Sub cmd_Three_Click()
txt_Display = txt_Display & 3
End Sub

Private Sub cmd_Times_Click()
var_First_Number = txt_Display
var_Operator = "Mul"
txt_Display = ""
End Sub

Private Sub cmd_Two_Click()
txt_Display = txt_Display & 2
End Sub

Private Sub cmd_Zero_Click()
txt_Display = txt_Display & 0
End Sub

Private Sub cmd_One_Click()
txt_Display = txt_Display & 1
End Sub

__________________

Intel Core 2 Duo E6300 @ 2.8GHz
Gigabyte GA-965P-S3 - Rev 3.3
4GB Crucial Ballistix @ 800MHz
PNY 8800GTS G92 @ 800/2000/1000
Corsair HX520W
Windows Vista Home Premium
Seagate Barracuda 500GB 7200.11 SATA II
Tuniq Tower LED
OCZ XTC RAM Cooler
Antec 900 (Modded)

Cromewell

Right off, an easy cheat to increase the number's size before overflow is to change the Integers to Longs, the other more complicated method is to use strings to virtually remove the limit.

Also, to prevent crashing when no number has been entered, default the text box to 0 and make clear set it to 0 as well.

__________________

You know what the chain of command is? It's the chain I go get and beat you with 'til ya understand who's in ruttin' command here.

I must plug a couple comics because they are good :D:
www.ctrlaltdel-online.com
www.userfriendly.org

Kornowski

Right, So just replace all of the Intergers with Longs?

Right, So you mean set it to defualt as 0, so there is always a 0 in the text bow when it's first opened?
Also, what code would I need to change the cmd_Clear button to make txt_Display change to 0?
Would it be:

Private Sub cmd_Clear_Click()
txt_Display = 0
End Sub


Thanks

__________________

Intel Core 2 Duo E6300 @ 2.8GHz
Gigabyte GA-965P-S3 - Rev 3.3
4GB Crucial Ballistix @ 800MHz
PNY 8800GTS G92 @ 800/2000/1000
Corsair HX520W
Windows Vista Home Premium
Seagate Barracuda 500GB 7200.11 SATA II
Tuniq Tower LED
OCZ XTC RAM Cooler
Antec 900 (Modded)

Cromewell

Well, as it is now if you leave the txt_Display set to "" and press one of the operation buttons it should crash. To fix it, set the text property to 0 and do this:

Private Sub cmd_Clear_Click()
txt_Display = "0"
End Sub

edit: Yes just changing Integer to Long will increase the max number size from 32767 (signed 16bit) to a couple billion (signed 32bit).

__________________

You know what the chain of command is? It's the chain I go get and beat you with 'til ya understand who's in ruttin' command here.

I must plug a couple comics because they are good :D:
www.ctrlaltdel-online.com
www.userfriendly.org

Kornowski

Yeah, It does crash. Have you tried it?

Damn, I missed the quotation marks out

__________________

Intel Core 2 Duo E6300 @ 2.8GHz
Gigabyte GA-965P-S3 - Rev 3.3
4GB Crucial Ballistix @ 800MHz
PNY 8800GTS G92 @ 800/2000/1000
Corsair HX520W
Windows Vista Home Premium
Seagate Barracuda 500GB 7200.11 SATA II
Tuniq Tower LED
OCZ XTC RAM Cooler
Antec 900 (Modded)

Cromewell

I haven't tried it. But I did make my own calculator that used strings to store ridiculusly long numbers. Addition and subtraction were fairly easy to implement but multiplication and division were very hard.

__________________

You know what the chain of command is? It's the chain I go get and beat you with 'til ya understand who's in ruttin' command here.

I must plug a couple comics because they are good :D:
www.ctrlaltdel-online.com
www.userfriendly.org

Kornowski

Well, I just changed the code to:

Private Sub cmd_Clear_Click()
txt_Display = "0"
End Sub

and the txt_Display showed 0 when you click the cmd_Clear but when you press the +, -, / or * button it gets rid of the 0, when you push another one it crashes!

Ok, I'll change them to Long now.

EDIT: Just changed them to Long but I still get an over flow error...

__________________

Intel Core 2 Duo E6300 @ 2.8GHz
Gigabyte GA-965P-S3 - Rev 3.3
4GB Crucial Ballistix @ 800MHz
PNY 8800GTS G92 @ 800/2000/1000
Corsair HX520W
Windows Vista Home Premium
Seagate Barracuda 500GB 7200.11 SATA II
Tuniq Tower LED
OCZ XTC RAM Cooler
Antec 900 (Modded)