geekool

hi! I found some VB codes in a site called vbcode.com
but I don't know how to add the script coz' I don't know what must i have on the form...hope you guys know what i mean... I'm a beginner with stupid questions... hope you all don't mind...
thankx

clockworkorange

Quote:

---

Originally Posted by geekool
hi! I found some VB codes in a site called vbcode.com
but I don't know how to add the script coz' I don't know what must i have on the form...hope you guys know what i mean... I'm a beginner with stupid questions... hope you all don't mind...
thankx

---

click on a command box from the tool bar
place it onto the form

like in the middle

then double click on the commandbutton then u just made and the code screen will come up

type

command1.caption = "Hello"

geekool

Can you plz be more specific? What bout the codes? I can't function the whole program with just one button rite? I have got like so many different types of code but the problem is that I don't know what I'm suppose to have on the form... THus , the program won't function with an empty form... What I want to know now is how do i cope with this problem... having the codes which doens't tell me whati'm suppose to have on the form...

thankx

Garmour

You really need to do a bit of reading in the help files that come with VB, or even better get a book on vb.

You can tell what controls are needed usually by looking at the names and properties being used in the source code.
eg, if you see something like text1.text = "...... then you know you need a textbox called text1 (the default name).
I could go on but you really need to do some basic learning first

geekool

yeah i know bout that... it's just that I found these codes such as:


'Change The 1 To 6 To 2 To 9 For Character Length's Between 2 And 9
Randomize Timer
For i! = 1 To 6
110 Char = int(Rnd * 91)
If Char < 65 Then Goto 110
Password = Password + Chr(Char)
Next i!
Msgbox "Your New Password Is: " & Password

There is no those kinda text1.text thing u know.. .and there's another one

Option Explicit

Public Enum EErrorMath
eeBaseMath = 13520 ' Math
End Enum

' Derived math functions from language reference Appendix D

' Secant
Function Sec(x As Double) As Double
Sec = 1 / Cos(x)
End Function

' Cosecant
Function CoSec(x As Double) As Double
CoSec = 1 / Sin(x)
End Function

' Cotangent
Function CoTan(x As Double) As Double
CoTan = 1 / Tan(x)
End Function

' Inverse Sine
Function ArcSin(x As Double) As Double
ArcSin = Atn(x / Sqr(-x * x + 1))
End Function

' Inverse Cosine
Function ArcCos(x As Double) As Double
ArcCos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function

' Inverse Secant
Function ArcSec(x As Double) As Double
ArcSec = Atn(x / Sqr(x * x - 1)) + Sgn(x - 1) * (2 * Atn(1))
End Function

' Inverse Cosecant
Function ArcCoSec(x As Double) As Double
ArcCoSec = Atn(x / Sqr(x * x - 1)) + (Sgn(x) - 1) * (2 * Atn(1))
End Function

' Inverse Cotangent
Function ArcCoTan(x As Double) As Double
ArcCoTan = Atn(x) + 2 * Atn(1)
End Function

' Hyperbolic Sine
Function HSin(x As Double) As Double
HSin = (Exp(x) - Exp(-x)) / 2
End Function

' Hyperbolic Cosine
Function HCos(x As Double) As Double
HCos = (Exp(x) + Exp(-x)) / 2
End Function

' Hyperbolic Tangent
Function HTan(x As Double) As Double
HTan = (Exp(x) - Exp(-x)) / (Exp(x) + Exp(-x))
End Function

' Hyperbolic Secant
Function HSec(x As Double) As Double
HSec = 2 / (Exp(x) + Exp(-x))
End Function

' Hyperbolic Cosecant
Function HCoSec(x As Double) As Double
HCoSec = 2 / (Exp(x) - Exp(-x))
End Function

' Hyperbolic Cotangent
Function HCotan(x As Double) As Double
HCotan = (Exp(x) + Exp(-x)) / (Exp(x) - Exp(-x))
End Function

' Inverse Hyperbolic Sine
Function HArcSin(x As Double) As Double
HArcSin = Log(x + Sqr(x * x + 1))
End Function

' Inverse Hyperbolic Cosine
Function HArcCos(x As Double) As Double
HArcCos = Log(x + Sqr(x * x - 1))
End Function

' Inverse Hyperbolic Tangent
Function HArcTan(x As Double) As Double
HArcTan = Log((1 + x) / (1 - x)) / 2
End Function

' Inverse Hyperbolic Secant
Function HArcSec(x As Double) As Double
HArcSec = Log((Sqr(-x * x + 1) + 1) / x)
End Function

' Inverse Hyperbolic Cosecant
Function HArcCoSec(x As Double) As Double
HArcCoSec = Log((Sgn(x) * Sqr(x * x + 1) + 1) / x)
End Function

' Inverse Hyperbolic Cotangent
Function HArcCoTan(x As Double) As Double
HArcCoTan = Log((x + 1) / (x - 1)) / 2
End Function

' Logarithm to base N
Function LogN(x As Double, n As Double) As Double
LogN = Log(x) / Log(n)
End Function



::: I seriously really need help man... these codes I've found is too hard for me, izzit?

lebb

1. Reread Garmour's post. Maybe several times.

2. What is it that you're trying to do? Those trigonometry functions look fine, but what are you trying to do with them?

unclebill

This appears to be just a collection of functions. There is no form, no controls, nothing to display anything.

To make a program, you need to create the form and the tools required to provide entry of parameters to pass to the functions, the controls to cause the functions to be called and the means to display or apply the results of the functions.

If you need a program that does trig function manipulations, the functions are already written for you but that's all you have. You'll have to create the program for the functionality you need.

clockworkorange

just play around with the objects
see all the different options for an object, thats how i started, and to test the buttons put this in

print "hello"



if u still dont get it what u do is double click on a button or whatever that u have placed, then the code will come up, enter it there