sample_activity.exe | |
File Size: | 249 kb |
File Type: | exe |
sample_activity.mdb | |
File Size: | 430 kb |
File Type: | mdb |
If MsgBox("Delete this current Record,are you sure?", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "DELETE") = MsgBoxResult.Yes Then
Me.Sample_profileBindingSource.RemoveAt(Me.Sample_profileBindingSource.Position)
Me.Sample_profileTableAdapter.Update(Me.Sample_activityDataSet.sample_profile)
MsgBox("Data Succesfully Deleted!", MsgBoxStyle.Information, "DELETE OK")
End If
Me.Sample_profileBindingSource.RemoveAt(Me.Sample_profileBindingSource.Position)
Me.Sample_profileTableAdapter.Update(Me.Sample_activityDataSet.sample_profile)
MsgBox("Data Succesfully Deleted!", MsgBoxStyle.Information, "DELETE OK")
End If
Dim oRow As DataRow
For Each oRow In Me.Sample_activityDataSet.user
If (oRow.Item("username") = Me.txtusername.Text) Then
If (oRow.Item("password") = Me.txtpassword.Text) Then
Me.Hide()
Else
MsgBox("Access is Denied!", MsgBoxStyle.Critical, "Incorrect UserName/Password")
End If
End If
Next
For Each oRow In Me.Sample_activityDataSet.user
If (oRow.Item("username") = Me.txtusername.Text) Then
If (oRow.Item("password") = Me.txtpassword.Text) Then
Me.Hide()
Else
MsgBox("Access is Denied!", MsgBoxStyle.Critical, "Incorrect UserName/Password")
End If
End If
Next
Me.ContactTableAdapter.Fill(Me.Db1DataSet.contact)
Me.btnnext.Visible = True
Me.btnprev.Visible = True
Me.btnnext.Visible = True
Me.btnprev.Visible = True
If txtpassword.Text = " " Then
MsgBox("Type Your Name")
Else
MsgBox("You can Proceed now!")
Me.Hide()
Form2.ShowDialog()
End If
MsgBox("Type Your Name")
Else
MsgBox("You can Proceed now!")
Me.Hide()
Form2.ShowDialog()
End If
Me.ContactTableAdapter.Fill(Me.Db1DataSet.contact)
lblname.Text = Form1.txtpassword.Text
Me.Db1DataSet.Clear()
Me.btnnext.Visible = False
Me.btnprev.Visible = False
lblname.Text = Form1.txtpassword.Text
Me.Db1DataSet.Clear()
Me.btnnext.Visible = False
Me.btnprev.Visible = False
import java.util.Scanner;
class javatoday{
public static void main(String[] args){
int loudness;
Scanner scan = new Scanner(System.in);
System.out.print("==================================\n");
System.out.println("Programmer: Winlove mariano");
System.out.println("Date: January 22, 2011");
System.out.println("Description: Checking the Loudness and Perception");
System.out.print("==================================\n");
System.out.print("Enter Loudness in Decibels:");
loudness=scan.nextInt();
if(loudness>=51 && loudness<=70)
{
System.out.print("Annoying");
}
else if(loudness>=71 && loudness<=90)
{
System.out.print("INTRUSIVE");
}
else if(loudness>=91 && loudness<=110)
{
System.out.print("Verry Annoying");
}
else if(loudness<=50)
{
System.out.print("QUITE");
}
else
{
System.out.print("UNCOMFORTABLE");
}
}
}
class javatoday{
public static void main(String[] args){
int loudness;
Scanner scan = new Scanner(System.in);
System.out.print("==================================\n");
System.out.println("Programmer: Winlove mariano");
System.out.println("Date: January 22, 2011");
System.out.println("Description: Checking the Loudness and Perception");
System.out.print("==================================\n");
System.out.print("Enter Loudness in Decibels:");
loudness=scan.nextInt();
if(loudness>=51 && loudness<=70)
{
System.out.print("Annoying");
}
else if(loudness>=71 && loudness<=90)
{
System.out.print("INTRUSIVE");
}
else if(loudness>=91 && loudness<=110)
{
System.out.print("Verry Annoying");
}
else if(loudness<=50)
{
System.out.print("QUITE");
}
else
{
System.out.print("UNCOMFORTABLE");
}
}
}
Activity Exam
import java.util.Scanner;
class computegrades {
public static void main(String[] args) {
int math,fil,cs1,cs2,ite,average;
char grades;
double equivalent;
Scanner check = new Scanner(System.in);
System.out.println("Programmer: Angielyn A. Alejandro");
System.out.println("Year & Section: BCSL-2F");
System.out.println("Date: Jan. 15,2011");
System.out.println("Description: Compute Grades");
System.out.println("-----------------------------------------------");
System.out.print("MATH101: ");
math= check.nextInt();
System.out.print("FILIPINO101: ");
fil= check.nextInt();
System.out.print("CS101: ");
cs1= check.nextInt();
System.out.print("CS202: ");
cs2= check.nextInt();
System.out.print("ITE101: ");
ite= check.nextInt();
average=( math+fil+cs1+cs2+ite)/5;
System.out.println("-----------------------------------------------");
System.out.println("Average Grade: "+average);
System.out.println("-----------------------------------------------");
if (average>= 90)
{
System.out.print("1.0");
}
else if ( average>= 80)
{
System.out.print("2.0");
}
else if (average>= 70)
{
System.out.print("2.5.0");
}
else if (average>= 60)
{
System.out.print("3.0");
}
else
{
System.out.print("5.0");
}
System.out.print(" The Total Numeric Grades ");
}
}
Prelim Exam
import java.util.Scanner;
class mminches
{
public static void main(String[] args)
{
double inches,convert;
Scanner Name = new Scanner(System.in);
System.out.println("===================================");
System.out.println(" Programmer: Angielyn A. Alejandro");
System.out.println(" Date: January 8, 2011");
System.out.println(" Description: Convert Inches to Millimeter");
System.out.println("===================================");
System.out.println(" ");
System.out.print("Enter the number of Inches: ");
inches= Name.nextDouble();
convert=inches*25.4;
System.out.println( inches+" Inches is equivalent to "+convert+" millimeters");
}
}
Private Sub enabledcontrol()
Me.IDTextBox.Enabled = True
Me.LastnameTextBox.Enabled = True
Me.FirstnameTextBox.Enabled = True
Me.MiTextBox.Enabled = True
Me.PositionTextBox.Enabled = True
Me.CivilStatusTextBox.Enabled = True
Me.GrossSalaryTextBox.Enabled = True
Me.SssTextBox.Enabled = True
Me.PhilhealthTextBox.Enabled = True
Me.NetpayTextBox.Enabled = True
Me.LoanTextBox.Enabled = True
End Sub
Private Sub disabledcontrol()
Me.IDTextBox.Enabled = False
Me.LastnameTextBox.Enabled = False
Me.FirstnameTextBox.Enabled = False
Me.MiTextBox.Enabled = False
Me.PositionTextBox.Enabled = False
Me.CivilStatusTextBox.Enabled = False
Me.GrossSalaryTextBox.Enabled = False
Me.SssTextBox.Enabled = False
Me.PhilhealthTextBox.Enabled = False
Me.NetpayTextBox.Enabled = False
Me.LoanTextBox.Enabled = False
End Sub
btn
Me.IDTextBox.Enabled = True
Me.LastnameTextBox.Enabled = True
Me.FirstnameTextBox.Enabled = True
Me.MiTextBox.Enabled = True
Me.PositionTextBox.Enabled = True
Me.CivilStatusTextBox.Enabled = True
Me.GrossSalaryTextBox.Enabled = True
Me.SssTextBox.Enabled = True
Me.PhilhealthTextBox.Enabled = True
Me.NetpayTextBox.Enabled = True
Me.LoanTextBox.Enabled = True
End Sub
Private Sub disabledcontrol()
Me.IDTextBox.Enabled = False
Me.LastnameTextBox.Enabled = False
Me.FirstnameTextBox.Enabled = False
Me.MiTextBox.Enabled = False
Me.PositionTextBox.Enabled = False
Me.CivilStatusTextBox.Enabled = False
Me.GrossSalaryTextBox.Enabled = False
Me.SssTextBox.Enabled = False
Me.PhilhealthTextBox.Enabled = False
Me.NetpayTextBox.Enabled = False
Me.LoanTextBox.Enabled = False
End Sub
btn
FINAL CODING
Form2
Btnok
If txtuser.text=”Angielyn” and txtpassword.text=”final” then txtpassword.text=”final” then
Form1.showdialog()
Else if txtuser.text=” “ and txtpassword.text=” “ then
Msgbox(“kindly Enter the username or password before you proceed”)
Btncancel
Me.close()
Form1
For info
Form3.show dialog()
For help
Form 11.show dialog()
For favs
Form 4.show dialog()
Form 3
Btnadd
Me.Dataset.clear()
Me.Bindbooks.addnew()
Btnnext
Me.binding source1.movenext()
Btnprevious
Me.binding source1.moveprevious()
Btnexit
Me.close()
Btnsave
Me.bindbook.End edit()
Me.tableadaptername.update(me.Dataset,table)
Me.table adaptername.fill(me.Dataset,table)
Msgbox(“record successfully save”,msgboxstyle.ok only,”save”)
Form4
Btnactor
Form 5.showdialog()
Btnactress
Form 6.showdialog()
Btnsinger
Form 7.showdialog()
Btncomedian
Form 8.showdialog()
Btnhost
Form 9.showdialog()
Btnshow
Form 10.showdialog()
Form5
If cbactors.text=”Echo” then
Pbecho.visible=true
Pbgerald.visible= false
Pbenchong.visible= false
elseIf cbactors.text=”Gerald” then
Pbecho.visible=false
Pbgerald.visible=true
Pbenchong.visible=false
elseIf cbactors.text=”Enchong” then
Pbecho.visible= false
Pbgerald.visible=false
Pbenchong.visible=true
Form6
If cbactress.text=”Kim” then
Pbkim.visible=true
Pbangel.visible= false
Pbkristine.visible= false
elseIf cbactress.text=”Angel” then
Pbkim.visible=false
Pbangel.visible=true
Pbkristine.visible=false
elseIf cbactress.text=”Kristine” then
Pbkim.visible=false
Pbangel.visible= false
Pbkristine.visible=true
Form7
If cbsinger.text=”Sarah G.” then
Pbsarah.visible=true
Pbjuris.visible= false
Pbcharice.visible= false
Else If cbsinger.text=”Juris” then
Pbsarah.visible=false
Pbjuris.visible= true
Pbcharice.visible= false
Else If cbsinger.text=”Charice” then
Pbsarah.visible=false
Pbjuris.visible= false
Pbcharice.visible= true
Form8
If cbcomedian.text=”Pooh” then
Pbpooh.visible=true
Pbvice.visible= false
Pbpokwang.visible= false
If cbcomedian.text=”Vice Ganda” then
Pbpooh.visible=false
Pbvice.visible= true
Pbpokwang.visible= false
If cbcomedian.text=”Pokwang” then
Pbpooh.visible=false
Pbvice.visible= false
Pbpokwang.visible= true
Form9
If cbhost.text=”Mariel” then
Pbmariel.visible=true
Pbbianca.visible= false
Pbtoni.visible= false
elseIf cbhost.text=”Bianca” then
Pbmariel.visible=false
Pbbianca.visible= true
Pbtoni.visible= false
elseIf cbhost.text=”Toni” then
Pbmariel.visible=false
Pbbianca.visible=false
Pbtoni.visible=true
Form10
If cbshow.text=”ABS-CBN” then
Pba.visible=true
Pbg.visible= false
Pbs.visible= false
elseIf cbshow.text=”GMA” then
Pba.visible=false
Pbg.visible= true
Pbs.visible= false
elseIf cbshow.text=”STUDIO 23” then
Pba.visible=false
Pbg.visible= false
Pbs.visible= true
Btnok
If txtuser.text=”Angielyn” and txtpassword.text=”final” then txtpassword.text=”final” then
Form1.showdialog()
Else if txtuser.text=” “ and txtpassword.text=” “ then
Msgbox(“kindly Enter the username or password before you proceed”)
Btncancel
Me.close()
Form1
For info
Form3.show dialog()
For help
Form 11.show dialog()
For favs
Form 4.show dialog()
Form 3
Btnadd
Me.Dataset.clear()
Me.Bindbooks.addnew()
Btnnext
Me.binding source1.movenext()
Btnprevious
Me.binding source1.moveprevious()
Btnexit
Me.close()
Btnsave
Me.bindbook.End edit()
Me.tableadaptername.update(me.Dataset,table)
Me.table adaptername.fill(me.Dataset,table)
Msgbox(“record successfully save”,msgboxstyle.ok only,”save”)
Form4
Btnactor
Form 5.showdialog()
Btnactress
Form 6.showdialog()
Btnsinger
Form 7.showdialog()
Btncomedian
Form 8.showdialog()
Btnhost
Form 9.showdialog()
Btnshow
Form 10.showdialog()
Form5
If cbactors.text=”Echo” then
Pbecho.visible=true
Pbgerald.visible= false
Pbenchong.visible= false
elseIf cbactors.text=”Gerald” then
Pbecho.visible=false
Pbgerald.visible=true
Pbenchong.visible=false
elseIf cbactors.text=”Enchong” then
Pbecho.visible= false
Pbgerald.visible=false
Pbenchong.visible=true
Form6
If cbactress.text=”Kim” then
Pbkim.visible=true
Pbangel.visible= false
Pbkristine.visible= false
elseIf cbactress.text=”Angel” then
Pbkim.visible=false
Pbangel.visible=true
Pbkristine.visible=false
elseIf cbactress.text=”Kristine” then
Pbkim.visible=false
Pbangel.visible= false
Pbkristine.visible=true
Form7
If cbsinger.text=”Sarah G.” then
Pbsarah.visible=true
Pbjuris.visible= false
Pbcharice.visible= false
Else If cbsinger.text=”Juris” then
Pbsarah.visible=false
Pbjuris.visible= true
Pbcharice.visible= false
Else If cbsinger.text=”Charice” then
Pbsarah.visible=false
Pbjuris.visible= false
Pbcharice.visible= true
Form8
If cbcomedian.text=”Pooh” then
Pbpooh.visible=true
Pbvice.visible= false
Pbpokwang.visible= false
If cbcomedian.text=”Vice Ganda” then
Pbpooh.visible=false
Pbvice.visible= true
Pbpokwang.visible= false
If cbcomedian.text=”Pokwang” then
Pbpooh.visible=false
Pbvice.visible= false
Pbpokwang.visible= true
Form9
If cbhost.text=”Mariel” then
Pbmariel.visible=true
Pbbianca.visible= false
Pbtoni.visible= false
elseIf cbhost.text=”Bianca” then
Pbmariel.visible=false
Pbbianca.visible= true
Pbtoni.visible= false
elseIf cbhost.text=”Toni” then
Pbmariel.visible=false
Pbbianca.visible=false
Pbtoni.visible=true
Form10
If cbshow.text=”ABS-CBN” then
Pba.visible=true
Pbg.visible= false
Pbs.visible= false
elseIf cbshow.text=”GMA” then
Pba.visible=false
Pbg.visible= true
Pbs.visible= false
elseIf cbshow.text=”STUDIO 23” then
Pba.visible=false
Pbg.visible= false
Pbs.visible= true
CS201 PROJECT (EXER 5)
form1
btnok
if txtname.text="Angielyn"then
msgbox("Please Ok to continue...")
me.hide()
form2.show()
form2.lblwelcome.text="Welcome" & txtuser.text & "to CS201 Program"
elseif txtname.text=" "then
msgbox("Please Enter your name first before you proceed")
else
msgbox("Invalid Input")
btnretry
txtname.text=" "
btnphoto
pbangie.visible=true
form2
btnproceed
me.hide()
form3.show()
form3
btnadd
txtfname.text="Angielyn"
txtlname.text="Alejandro"
txtmi.text="Ariñez"
txtage.text="21"
txtgd.text="Female"
txt1.text="Lawaan Elementary School"
txt2.text="Capiz National High School"
txt3.text="Hercor College"
txt4.text="Bachelor of Computer Science Ladderized"
btnsave
txtfname.enabled=false
txtlname.enabled=false
txtmi.enabled=false
txtage.enabled=false
txtgd.enabled=false
txt1.enabled=false
txt2.enabled=false
txt3.enabled=false
txt4.enabled=false
form4
cbfriends
if cbfriends.text="Kristina Labiaga" then
pbk.visible=true
pbj.visible=false
pbm.visible=false
pbg.visible=false
pbc.visible=false
pbjv.visible=false
lblk.visible=true
lblj.visible=false
lblm.visible=false
lblg.visible=false
lblc.visible=false
lbljv.visible=false
elseif cbfriends.text="Joanna Mae Bermejo" then
pbk.visible=false
pbj.visible=true
pbm.visible=false
pbg.visible=false
pbc.visible=false
pbjv.visible=false
lblk.visible=false
lblj.visible=true
lblm.visible=false
lblg.visible=false
lblc.visible=false
lbljv.visible=false
elseif cbfriends.text="May Vestidas" then
pbk.visible=false
pbj.visible=false
pbm.visible=true
pbg.visible=false
pbc.visible=false
pbjv.visible=false
lblk.visible=false
lblj.visible=false
lblm.visible=true
lblg.visible=false
lblc.visible=false
lbljv.visible=false
elseif cbfriends.text="Geneva Boladas" then
pbk.visible=false
pbj.visible=false
pbm.visible=false
pbg.visible=true
pbc.visible=false
pbjv.visible=false
lblk.visible=false
lblj.visible=false
lblm.visible=false
lblg.visible=true
lblc.visible=false
lbljv.visible=false
elseif cbfriends.text="Ma.Cristina Huenda" then
pbk.visible=false
pbj.visible=false
pbm.visible=false
pbg.visible=false
pbc.visible=true
pbjv.visible=false
lblk.visible=false
lblj.visible=false
lblm.visible=false
lblg.visible=false
lblc.visible=true
lbljv.visible=false
Name:Kristina E. Labiaga
Age:20 y/o
BirthDay: April 14.1990
Address:Bolo Roxas City
Hobbies: Driving Motor Cycle,playing hulahop.
Name:Joanna Mae Bermejo
Age: 17 y/o
BirthDay: May 16,1993
Address: Linao, Panay, Capiz.
Hobbies: Texting, Surfing the net. Talking with my friends.
Name: May Vestidas
Age: 23 y/o
BirthDay: May 16,1987
Address: Lucero Jamindan Capiz.
Hobbies: Writing, Modelling and Exploring anything.
Name: Geneva Boladas
Age:
BirthDay:
Address:
Hobbies:
Name: Ma.Cristina Huenda
Age:
BirthDay:
Address:
Hobbies: