If txtusername.Text = "weng_lorenzo@yahoo.com" Then
Me.txtusername.Enabled = False
Me.PictureBox1.Visible = True
Me.PictureBox2.Visible = False
Else
Me.PictureBox1.Visible = False
Me.PictureBox2.Visible = True
End If
End Sub
If txtpassword.Text = "exer5" Then
Me.txtpassword.Enabled = True
Me.PictureBox3.Visible = True
Me.PictureBox4.Visible = False
Else
Me.PictureBox3.Visible = False
Me.PictureBox4.Visible = True
End If
End Sub
H! good day!Welcome to my website!!! itz me Leovelyn Ordas.18 years of age,i live in manila philippines, and the daughter of Mrs.Richard Ordas and Cleofe Ordas,im studying at HERCOR COLLEGE!!!!
Martes, Agosto 30, 2011
code in how to covert in celsius to fahrenheit
If Me.txtpassword.Text = "labqiuz" And Me.txtusername.Text = "weng_lorenz@yahoo.com" Then
MsgBox("you may now proceed")
Me.lblusername.Visible = False
Me.lblpassword.Visible = False
Me.txtusername.Visible = False
Me.txtpassword.Visible = False
Me.BTNLOGIN.Visible = False
Me.btncancel.Visible = False
Me.lblwelcome.Visible = True
Me.btnclick.Visible = True
Me.lblleovelyn.Visible = True
Me.lblleovelyn.Text = Me.txtusername.Text
ElseIf txtpassword.Text = "" And txtusername.Text = "" Then
MsgBox("please enter your username and password")
Else
MsgBox("sorry, but you've entered incorrect username and password")
End If
Private Sub btnconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconvert.Click
celsius to fahrenheit:
lblfah.Text = 9 / 5 * (Val(txtcelsius.Text)) + 32
Me.lblfahrenheit.Visible = True
Me.lblfah.Visible = True
Private Sub btncon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncon.Click
fahrenheit to celsius:
lblfahblank.Text = (txtfahrenheit.Text - 32) * 5 / 9
Me.lblcelsius.Visible = True
Me.lblfahblank.Visible = True
End Sub
btn retry:
Me.lblfah.Visible = False
Me.lblfahrenheit.Visible = False
Me.txtcelsius.Text = ""
End Sub
btn retry:
Me.lblfahblank.Visible = False
Me.lblcelsius.Visible = False
Me.txtfahrenheit.Text = ""
End Sub
MsgBox("you may now proceed")
Me.lblusername.Visible = False
Me.lblpassword.Visible = False
Me.txtusername.Visible = False
Me.txtpassword.Visible = False
Me.BTNLOGIN.Visible = False
Me.btncancel.Visible = False
Me.lblwelcome.Visible = True
Me.btnclick.Visible = True
Me.lblleovelyn.Visible = True
Me.lblleovelyn.Text = Me.txtusername.Text
ElseIf txtpassword.Text = "" And txtusername.Text = "" Then
MsgBox("please enter your username and password")
Else
MsgBox("sorry, but you've entered incorrect username and password")
End If
Private Sub btnconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconvert.Click
celsius to fahrenheit:
lblfah.Text = 9 / 5 * (Val(txtcelsius.Text)) + 32
Me.lblfahrenheit.Visible = True
Me.lblfah.Visible = True
Private Sub btncon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncon.Click
fahrenheit to celsius:
lblfahblank.Text = (txtfahrenheit.Text - 32) * 5 / 9
Me.lblcelsius.Visible = True
Me.lblfahblank.Visible = True
End Sub
btn retry:
Me.lblfah.Visible = False
Me.lblfahrenheit.Visible = False
Me.txtcelsius.Text = ""
End Sub
btn retry:
Me.lblfahblank.Visible = False
Me.lblcelsius.Visible = False
Me.txtfahrenheit.Text = ""
End Sub
Martes, Agosto 2, 2011
SO ROMANTIC SONG!!!
Lately I'm not who I used to be
Someone's come and taken me
Well, I don't wanna go
If I knew exactly what I have to do
In order to be there for you
When you were feeling low
And all the things we ever wanted
Were once yours and mine
Now, I know we can revive it
All the love we left
Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away
Save me, I've fallen from my destiny
You and I were meant to be, I've thrown it all away
Now you're gone, it's time for me to carry on
But baby, I just can't go on without you by my side
And all the things we ever wanted
Were once yours and mine
Now, I know we can revive it
All the love we left
Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away
We can survive it all the pain we feel inside
You relied on me and now I've let you down
(I've let you down)
Now, I promise you forever I will be the best I can
Now, I know we can revive it all the love we left
Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since I gave your love away
Everytime I kiss, everytime I cry
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away
Someone's come and taken me
Well, I don't wanna go
If I knew exactly what I have to do
In order to be there for you
When you were feeling low
And all the things we ever wanted
Were once yours and mine
Now, I know we can revive it
All the love we left
Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away
Save me, I've fallen from my destiny
You and I were meant to be, I've thrown it all away
Now you're gone, it's time for me to carry on
But baby, I just can't go on without you by my side
And all the things we ever wanted
Were once yours and mine
Now, I know we can revive it
All the love we left
Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away
We can survive it all the pain we feel inside
You relied on me and now I've let you down
(I've let you down)
Now, I promise you forever I will be the best I can
Now, I know we can revive it all the love we left
Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since I gave your love away
Everytime I kiss, everytime I cry
And everytime I close my eyes, I realize
That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away
Mag-subscribe sa:
Mga Post (Atom)