My Web-Pro

Read More ->>

Tabulation

Tabulator

Private Sub Clear_Click()
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Command1_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub

Private Sub Command2_Click()
If Combo1.Text = "" Then
MsgBox "Judge no. is missing", vbCritical, "Unable to add"
Combo1.SetFocus
ElseIf Combo2.Text = "" Then
MsgBox "Contestant no.", vbCritical, "Unable to add"
Combo2.SetFocus
ElseIf Text1.Text = "" Then

Text1.Text = InputBox("Production no.", "Production no. is missing")
ElseIf Text2.Text = "" Then
Text2.Text = InputBox("Talent", "Talent is missing")
ElseIf Text3.Text = "" Then
Text3.Text = InputBox("playsuit attire", "playsuit attire is missing")
ElseIf Text4.Text = "" Then
Text4.Text = InputBox("evening gown", "evening gown is missing")
ElseIf Text5.Text = "" Then
Text5.Text = InputBox("interview", "interview is missing")

Else
Dim item As ListItem
Set item = ListView1.ListItems.Add(, , Combo1.Text)
item.SubItems(1) = Combo2.Text
item.SubItems(2) = Text1.Text
item.SubItems(3) = Text2.Text
item.SubItems(4) = Text3.Text
item.SubItems(5) = Text4.Text
item.SubItems(6) = Text5.Text
item.SubItems(7) = Label12.Caption

MsgBox "Successfully added", vbInformation, "Adding"
End If

End Sub

Private Sub Command3_Click()
Dim rems As Integer
rems = ListView1.SelectedItem.Index
ListView1.ListItems.Remove (rems)
End Sub

Private Sub Command4_Click()
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

End Sub

Private Sub Command5_Click()
MsgBox "Exiting program", vbInformation, "log-out"
Unload Me
Form1.Show

End Sub

Private Sub Exit_Click()
MsgBox "Exiting program", vbInformation, "log-out"
Unload Me
Form1.Show


End Sub

Private Sub Form_Load()
VScroll1.Max = Picture1.Height - Me.ScaleHeight
VScroll1.LargeChange = 1000
VScroll1.SmallChange = 200
Picture1.Top = 0
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False






End Sub




Private Sub Label12_Change()
Label12.Caption = Val(Text1.Text) * Val(0.1) + Val(Text2.Text) * Val(0.25) + Val(Text3.Text) * Val(0.15) + Val(Text4.Text) * Val(0.2) + Val(Text5.Text) * Val(0.3)
End Sub

Private Sub New_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub

Private Sub Remove_Click()
Dim rems As Integer
rems = ListView1.SelectedItem.Index
ListView1.ListItems.Remove (rems)
End Sub

Private Sub Save_Click()
If Combo1.Text = "" Then
MsgBox "Judge no. is missing", vbCritical, "Unable to add"
Combo1.SetFocus
ElseIf Combo2.Text = "" Then
MsgBox "Contestant no.", vbCritical, "Unable to add"
Combo2.SetFocus
ElseIf Text1.Text = "" Then

Text1.Text = InputBox("Production no.", "Production no. is missing")
ElseIf Text2.Text = "" Then
Text2.Text = InputBox("Talent", "Talent is missing")
ElseIf Text3.Text = "" Then
Text3.Text = InputBox("playsuit attire", "playsuit attire is missing")
ElseIf Text4.Text = "" Then
Text4.Text = InputBox("evening gown", "evening gown is missing")
ElseIf Text5.Text = "" Then
Text5.Text = InputBox("interview", "interview is missing")

Else
Dim item As ListItem
Set item = ListView1.ListItems.Add(, , Combo1.Text)
item.SubItems(1) = Combo2.Text
item.SubItems(2) = Text1.Text
item.SubItems(3) = Text2.Text
item.SubItems(4) = Text3.Text
item.SubItems(5) = Text4.Text
item.SubItems(6) = Text5.Text
item.SubItems(7) = Label12.Caption

MsgBox "Successfully added", vbInformation, "Adding"
End If
End Sub

Private Sub Text1_Change()
Label12.Caption = Val(Text1.Text) * Val(0.1)


End Sub

Private Sub Text2_Change()
Label12.Caption = Val(Text2.Text) * Val(0.25)

End Sub

Private Sub Text3_Change()
Label12.Caption = Val(Text3.Text) * Val(0.15)

End Sub

Private Sub Text4_Change()
Label12.Caption = Val(Text4.Text) * Val(0.2)


End Sub

Private Sub Text5_Change()
Label12.Caption = Val(Text5.Text) * Val(0.3)


End Sub

Private Sub Timer1_Timer()
Label8.Caption = Date
Label9.Caption = Time
If Label10.Visible = True Then
Label10.Visible = False
Label10.Caption = "Welcome"
ElseIf Label10.Visible = False Then
Label10.Visible = True
End If
End Sub

Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value

End Sub

Read More ->>

HTML

HTML & CCS CODES

HTML BASIC

HTML is a language for describing web pages.
HTML stands for Hyper Text Markup Language
HTML is not a programming language, it is a markup language
A markup language is a set of markup tags
HTML uses markup tags to describe web pages
what is HTML TAGS?

HTML tags are keywords surrounded by angle brackets (<) and (>) like <html>
HTML tags normally come in pairs like <b> and </b>
The first tag in a pair is the start tag, the second tag is the end tag
Start and end tags are also called opening tags and closing tags.

Below are SOME COMMON TAGS na ginagamit natin sa isang simple html page.

<body> Defines the document's body
<big> Defines big text
<b> bold text
<u> underlined text
<i> italic text
<em> Defines emphasized text
<br> Defines a single line break
<button> Defines a push button
<p> paragraph
<center> Deprecated.Defines centered text
<form> Defines an HTML form for user input
<iframe> Defines an inline frame
<img scr=""> Defines an image
<a href=""> url links

tandaan na dapat may end tags ang bawat start tags OK.
marami pang mga tags at mahirap ubusin at itype dito..Hope na kahit paanu nagka idea tayu sa HTML at Tags.

Now lets proceed to PAGE CREATION..dito pagsasamahin natin ang mga tags para makabuo tayu ng isang html page.I assumed na bawat isa ay may alam na sa paggawa ng site mapa wen.ru pa yan or kahit saan.

Now on your html page put this codes sa pagitang ng tags na <body> and end tag nya..

BACKGROUND COLOR CODE:
<body bgcolor="blue">
</body>

PARAGRAPH FONT,COLOR,SIZE CODE:
<body>
<p style="font-family:courier new; color:red; font-size:20px;">YOUR TEXT</p>
</body>

PARAGRAPH ALIGNING CODES:
CENTER
<p align="center">YOUR TEXT</p>

PARAGRAPH ALIGNING CODES:
LEFT
<p align="left">YOUR TEXT</p>

PARAGRAPH ALIGNING CODES:
RIGHT
<p align="right">YOUR TEXT</p>

URL LINKS CODES:
<a href="YOUR LINK HERE">Name of link Here</a>

IMAGE CODE:
<img src="IMAGE URL">image name</img>

BACKGROUND IMAGE CODE:
<link rel="stylesheet" href="" type="text/css" media="handheld,screen,projection" /><style type="text/css"> body { background-image: url(../files/fire.jpg); background-position: center; background-attachment: fixed } </style>

note:put this code in between <head> tags.

IMAGE AS LINK CODE:
<a href="PAGE URL">
<img src="IMAGE URL" width="65" height="38">
</a>

FONT COLOR COLOR:
<font color="red">RED TEXT</font>

MUSIC BACKGROUND CODE:
<bgsound src="Midi URL" loop="1"/>
note:use only .mid file
at LAGAY NYU sa loob ng <body> tags.

some javascript
Enter MESSAGE POPUP CODE:
Lagay nyu ito sa pagitan ng <head> at </head>.
<script language="javascript" type="text/javascript">
alert("Welcome to my site")
</script>

BACKGROUND IMAGE CODE
put below's code between your <body> tags.Change the preset image url of your choice.<script language="JavaScript1.2">if (document.all||document.getElementById)document.body.style.background="url('url here') black center repeat fixed"</script>

CURRENT URL DISPLAYER WITH DATE
put below's code where you want it to be.<script>var today=new Date()document.write('<center>' today.toString() '<br>' window.location '</center>')</script>

USER BROWSER INFO
put below's code where you wish it to be seen.<script>if (document.all)var version=/MSIE d .d /if (!document.all)document.write("You are using " navigator.appName " " navigator.userAgent)elsedocument.write("You are using " navigator.appName " " navigator.appVersion.match(version))</script>

Exit MESSAGE POPUP CODE:
note: lagay nyu ito sa pagitan ng <body> tags
<BODY onUnload="window.alert(' Good Bye ')">

VISITOR AND COUNTER CODE:
<script src=http://fastonlineusers.com/online.php?d=www.mohager.co.sr></script>

USING CCS FOR TEXT COLOR CODE:
note:put this between you <head> tags
<style type="text/css">
h1 {color: red}
h3 {color: blue}
h2 {color: green}
</style>

lagay nyu naman to sa pagitan ng <body> tags

<h1>your text here is color RED</h1>
<h3>your text here is color BLUE</h3>
<h2>your text here is color GREEN</h2>
COLOR CODES:
AQUA = #00FFFF
AQUAMARINE = #7FFFD4
BLUE = #0000FF
FICHSIA = #FF00FF
GOLD = #FFD700
GRAY = #808080
GREEN = #008000
NAVY = #000080
OLIVE = #808000
PURPLE = #800080
RED = #FF0000
SILVER = #C0C0C0
TEAL = #008080
WHITE = #FFFFFF
YELLOW = #FFFF00
MEDIUMVIOLETRED = #C71585
MIDNIGHTBLUE = #191970
MINTCREAM = #F5FFFA
MISTYROSE = #FFE4E1
MOCCASIN = #FFE4B5
NAVAJOWHITE = #FFDEAD
PEACHPUFF = #FFDAB9
PERU = #CD853F
PINK = #FFC0CB
PLUM = #DDA0DD
POWDERBLUE = #B0E0E6
ROSYBROWN = #BC8F8F
ROYALBLUE = #4169E1
SADDLEBROWN = #8B4513
SALMON = #FA8072
SANDYBROWN = #F4A460
SEAGREEN = #2E8B57
SEASHELL = #FFF5EE
SIENNA = #A0522D
SKYBLUE = #87CEEB
SLATEBLUE = #6A5ACD
SLATEGRAY = #708090
SNOW = #FFFAFA
SPRINGGREEN = #00FF7F
STEELBLUE = #4682B4
TAN = #D2B48C
THISTLE = #D8BFD8
TOMATO = #FF6437
TURQUOISE = #40E0D0
VIOLET = #EE82EE
WHEAT = #F5DEB3
WHITESMOKE = #F5F5F5
YELLOWGREEN = #9ACD32

Read More ->>

My childhood

Read More ->>

vbcalculator

Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Label1.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Read More ->>

My Anime Collection

Read More ->>

My anime collection

Read More ->>