Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.
All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!
ganito po ginawa ko to register my OCX file:
1. lagay nyo yung YourOCX.ocx file mo sa system32 na folder.
2.run CMD as administrator then type "cd\" para maging C:\>
3.tsaka mo i type yung code below:
regsvr32 c:\windows\system32\YourOCX.ocx
4. hit Enter and your done.
help nan po ohh 
Option Explicit
Dim arrX1(100) As Double
Dim arrX0(99) As Double
Dim arrSecantRootX(99) As Double
Public Function f(ByVal x As Double) As Double
If a.Text = "" Or b.Text = "" Or c.Text = "" Or d.Text = "" Or e1.Text = "" Or f1.Text = "" Or g.Text = "" Or h.Text = "" Or i1.Text = "" Or j.Text = "" Or k.Text = "" Or l.Text = "" Or m.Text = "" Or n1.Text = "" Or o.Text = "" Or sine.Text = "" Or cose.Text = "" Then
a.Text = 0
b.Text = 0
c.Text = 0
d.Text = 0
e1.Text = 0
f1.Text = 0
g.Text = 0
h.Text = 0
i1.Text = 0
j.Text = 0
k.Text = 0
l.Text = 0
m.Text = 0
n1.Text = 0
o.Text = 0
cose.Text = 0
sine.Text = 0
End If
f = (a.Text * x ^ 5) + (b.Text * x ^ 4) + (c.Text * x ^ 3) + (d.Text * x ^ 2) + (e1.Text * x) + f1.Text + (g.Text * (e ^ ((h.Text * x) + i1.Text))) + j.Text * (Cos(k.Text * x + l.Text)) ^ cose + m.Text * (Sin(n1.Text * x + o.Text)) ^ sine
End Function
Public Sub command1_click()
Dim X1 As Double
Dim X0 As Double
Dim fX0 As Double
Dim fX1 As Double
Dim secantrootx As Double
Dim n As Integer
Dim i As Integer
n = 0
X1 = int1.Text
X0 = int2.Text
arrX1(0) = X1
arrX0(0) = X0
arrSecantRootX(0) = secantrootx
Do
n = n + 1
If n = 0 Then
fX0 = f(X0)
Else
If n = 1 Then
fX1 = f(X1)
Else
secantrootx = X1 - ((fX1) * (X1 - X0) / (fX1 - fX0))
arrSecantRootX= secantrootx
X0 = X1
arrX0
X1 = secantrootx
arrX1
Exit Do
End If
End If
Loop
For i = 0 To n
MsgBox (i & " " & arrSecantRootX(i) & "")
Next
End Sub
anu po yung error na "overflow" ? anu po pwede solution dun?
nag eerror po lage dahil dun sa part na yun..
Private Sub login_Click()
If username.Text = "" And password.Text = "" Then
MsgBox "Please fill the required information"
username.Text = ""
password.Text = ""
Adodc1.Refresh
Else
Adodc1.RecordSource = " select * from login where username= '" & username.Text & "' and password = '" & password.Text & "'"
Adodc1.Refresh
If (Adodc1.Recordset.EOF = False) Then
If (password.Text = Adodc1.Recordset.Fields("password")) Then
main.Show
Unload Me
Else
MsgBox "Invalid Password"
username.Text = ""
password.Text = ""
username.SetFocus
End If
Else
MsgBox "Invalid Username"
username.Text = ""
password.Text = ""
username.SetFocus
End If
End If
End Sub
guys plz
pakitignan nan po f tama codes ko
about MACRO
