We Are Graduated!!!

Heartiest Congratulations to everyone who have passed the Final Semester successfully and can scream out in the world that "I am a Graduate". For those people who are still to get a Passing Certificate, make this 1 year the most hard-working year of your life and bring it up when you attend the KT examinations this year.. Thanks.

And A Shout Out to Siddhesh Patil who has topped our class. Keep it up,buddy. 

MAHARASHTRA MCA CET

For all the students who wants to opt for Maharashtra MCA CET examination in the year 2012 can go on the following links and can check out the information:

• MAH MCA CET Exam Details
• MAH MCA CET Application Form
• MAH MCA CET List of Axis Bank Branches
• MAH MCA CET Admission Procedure
• MAH MCA CET Test Centers
• MAH MCA CET Syllabus
• MAH MCA CET Results
• MAH MCA CET Question Papers

Semester 4 Time-Table !!!

SEMESTER 4 TIME-TABLE :-


29th April - Friday - Software Engineering

2nd May - Monday - Data Communication and Network

4th May - Wednesday - BIS and Oracle

6th May - Friday - Marketing Management

13th May - Friday - Visual Programming


16th May - Monday - Computer Oriented Statistical Method




BEST OF LUCK TO EVERYONE !!!

Visual Basic Practicals

Practical 1 : Listbox and Combo Box

Private Sub Command1_Click()
List1.AddItem Text1.Text
Text1.SetFocus
Command1.Enabled = False
Label1.Caption = List1.ListCount
End Sub

Private Sub Command2_Click()
Dim Remove As Integer
Remove = List1.ListIndex
List1.RemoveItem Remove
Label1.Caption = List1.ListCount
End Sub

Private Sub Command3_Click()
List1.Clear
Label1.Caption = List1.ListCount
End Sub

Private Sub Text1_Change()
If (Len(Text1.Text) > 0) Then
Command1.Enabled = True
End If
End Sub



Horizontal Scroll Bar

Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
I = 1
Do While I < HScroll1.Value
J = J + I
I = I + 1
Loop
Text1.Text = Str(J)
End Sub

Check Box and Option button Font and Color

Private Sub chkBold_Click()
If chkBold.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub

Private Sub chkitalic_Click()
If chkitalic.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub

Private Sub chkunderline_Click()
If chkunderline.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub optblue_Click()
Text1.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
Text1.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
Text1.ForeColor = vbRed
End Sub

 Timer Control

Practical no. 5 : TIMER CONTROL

set timer at enable=false interval=250

Start a new VB project and put 2 command buttons and a timer control on the form. set the properties of the controls as follows:
Command button - property - Name: cmdStart Caption: start timer

Command button - name: cmdStop Caption: StopTimer

Timer: Name: tmr Test Enabled:False Interval:250

In General declaration:
Private mintcount as integer

Code the click event for the 2 command button and the timer event for the timer control as follows:
Private sub cmdstart_click()
mint count=0
timer1. enable =true
end sub

Private sub cmdstop_click()
timer1.enable=false
end sub

Private sub Timer1_timer()
mint count+1
Print "timer fine origin count =" & mint count
end sub

Shipment Cost: Checkbox and option button

Private Sub CmdCalcost_Click()
Dim unitorder As Integer
Dim cost As Currency
unitorder = Val(txtbox1.Text)
If optWholesaler.Value = 1 Then
Select Case unitorder
Case 1 To 15
cost = unitorder * 50
Case 16 To 20
cost = unitorder * 45
Case 21 To 30
cost = unitorder * 40
Case 31 To 50
cost = unitorder * 35
Case Is > 50
cost = unitorder * 30
End Select
Else
Select Case unitorder
Case 1 To 15
cost = unitorder * 60
Case 16 To 20
cost = unitorder * 55
Case 21 To 30
cost = unitorder * 50
Case 31 To 50
cost = unitorder * 45
Case Is > 50
cost = unitorder * 40
End Select
End If

If chkdisc1.Value = 1 Then
cost = cost - (cost * 0.1)
End If
TextBox2.Text = cost
End Sub

Traffic Signal



Design an application to display traffic lights. All lights for 9 secs and yellow for 5 secs.

1. start VB & create a new project
2. Save the form & project as frmtraffic.frm
3. set the caption of your form as 'Traffic Light'
4. Now create the controls & place them according to the screenshot shows above.
You can draw the desired shape by setting the shape property. set the shape property to 3-circle to obtain circles.
5. also name the controls as labelled in the screenshots.
6. now set the properties of 3 inner circles as follows:
Name                      Property                        Setting
shpRed                Backcolor                       VbRed
                           Backstyle                       1-opaque
shpYellow            same as above                VbWhite
shpGreen             same as above                vbWhite
tmrlights                Enabled                         True


7. Go to the code view: type option explicit at the top of the code page. as declare the variable state as shown below.
Dim state as integer

8. Now double click the event for change(cmdchange) button :

Private sub cmdchange_click()
state=1
shpRed.backcolor=VbRed
shpyellow.backcolor=Vbwhite
shpgreen.backcolor=VbWhite
label1.caption="stop"
Timer1.enable=true
End Sub

Create the timer event for timer tmrlights
now double click the timer and write the following code:

Private Sub Timer1_Timer()
If state=3
   state=1
Else
state=state+1
End If
Select state
Case1
ShpRed.back color=VbRed
ShpYellow.back color=VbWhite
ShpGreen.back color=VbWhite
Label1.caption="Stop"
Timer1.Interval=250

Case2
ShpRed.backcolor=Vbwhite
ShpYellow.backcolor=Vbyellow
ShpGreen.backcolor=Vbwhite
label1.caption="wait"
Timer1.Interval=250

Case3
ShpRed.backcolor=VbWhite
ShpYellow.backcolor=VbWhite
ShpGreen.backcolor=VbGreen
label1.caption="Go"
Timer.Interval=250
End Select
End Sub


ADODC through coding

Public conn As ADODB.Connection
Public rs As ADODB.Recordset

Private Sub Command1_Click()
rs.MoveFirst
End Sub

Private Sub Command2_Click()
rs.MovePrevious
If rs.BOF Then
    rs.MoveLast
End If

End Sub

Private Sub Command3_Click()
rs.MoveNext
If rs.EOF Then
    rs.MoveFirst
End If
End Sub

Private Sub Command5_Click()
rs.AddNew
End Sub

Private Sub Command6_Click()
rs.Update
End Sub

Private Sub Command7_Click()
rs.Delete
rs.Update
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\ADMIN\My Documents\employee.mdb;Persist Security Info=False"
conn.Open
Set rs = New ADODB.Recordset
rs.Open "emp", conn, adOpenStatic, adLockOptimistic, adCmdTable

Set Text1.DataSource = rs
Text1.DataField = "empno"

Set Text2.DataSource = rs
Text2.DataField = "job"

Set Text3.DataSource = rs
Text3.DataField = "salary"

Set Text4.DataSource = rs
Text4.DataField = "empname"

Set Text5.DataSource = rs
Text5.DataField = "deptno"

Set Text6.DataSource = rs
Text6.DataField = "manager"

Set MSHFlexGrid1.DataSource = rs

End Sub

DAO through coding

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then
    Data1.Recordset.MoveLast
End If
End Sub

Private Sub Command3_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
    Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Command5_Click()
Data1.Recordset.AddNew
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
Command7.Enabled = False
End Sub

Private Sub Command6_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command7.Enabled = True
If (MsgBox("do u want to save data", vbYesNo) = vbYes) Then
Data1.Recordset.Update
End If
End Sub

Private Sub Command7_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub

BCA SEM-3 Exam Begins !!!

            The exams of Third Semester begins today. Best of luck to everyone. Hope all of us do our best in this exam. This is known to everyone that this semester is the toughest Semester and the very first exam CAOS is itself the toughest one. Lets hope to achieve the best. Hope all our classmates who are struggling with back subjects comes out of that disaster and no one gets a KT in this semester.

           Thanks.

TIME TABLE FOR SEM - 3 !!!

TIMINGS 10.00 A.M. TO 1.00 P.M.

07/12/2010 -  TUESDAY 
 COMPUTER ARCHITECTURE & OPERATING SYSTEM

09/12/2010 -  THURSDAY 
OBJECT ORIENTED PROGRAMMING STRUCTURE WITH C++

11/12/2010 - SATURDAY
DATA BASE DESIGN


14/12/2010 TUESDAY
MANAGEMENT ACCOUNTING CONTROL

16/12/2010 THURSDAY
HUMAN RESOURCE MANAGEMENT

21/12/2010 TUESDAY 
COMPUTER ORIENTED DECISION MODEL

BEST OF LUCK !!!

PRELIMS Starting From 15th November, 2010 !!!

            Prelims starting from tomorrow. First Paper of CAOS tomorrow. Best of Luck to everyone.

Defaulter's List !!!

It is so happy to hear that we have no exam from Monday. Today the defaulter list for the month of September was announced. Almost half of the class is in the defaulter's list. It was a good day as I kept teasing every one who were in the defaulters.

APD Exam - We All Got F*cked !

            From BLoGGeR AbhiLasH ->

        Today on 14th November on the day of Children's day All of us gave our second exam - APD which was previously known as C Programming language..All of us thought that we will be blessed with the questions like Operators , data types , structure of C... but when the paper was distributed....I saw everyone's face in the class....Everyone was normal...Just because they knew that this is what is going to happen when they will be provided question papers...and it was our bad luck that our supervisor was so tough that she used to catch us even if we used to blink our eyes...Like the last paper...even today she caught me..reason was the same..Yusuf called me and I was trying to interact with me...Last time to Yusuf was the one who called me up when my paper was took by the supervisor...Actually I really dont know how to interact with the friends in the exam hall..I always get caught up....But We all are very much anxious and furious on Zaheer sir as he never taught us how to draw Flowchart and all...He never taught us Algorithm....He never taught us the questions which were previously asked in the exams...I dont know why this type of teachers dont refer book and syllabus while teaching us..I remember the day when Sir said all of us that I would like to tell you all that dont study if you dont have question papers with you..Now I would like to suggest this same fundamental to our teachers that dont teach us if you dont have question papers with you...

             In the whole duration of our exam...Siddhesh kept nudging and poking me...But I didnt concentrated towards him as I knew that he is going to ask some question to me ....and I knew that Its hard for myself to pass and if Ill waste my time in showing that Feku answers to him..I'll surely fail in this exam...Even Samadhan disturbed me a lot...I dont know whats the problem....If you dont know anything..you atleast wait for the other person to write his paper and then interrupt him when you feel as he has finished working on his paper...Its really ridiculous...And first of all this two boys are the best friends of my Ex-GF...Why should I help them in our exam hall...And if I'll have to help..I'll charge money...Either per question or like Docoma..1 rupees per marks....Today in the morning when I was cracking joke @ the canteen...My ex-GF was laughing on it and was peering at me with the sweet looks...but I didnt even gave her ratti bhar ka bhav bcoz I know her level.....Boys in our class call her RD...thats the short form of an abuse...I just want this girl to leave the college....but I dont know when will this turn into the matter of possibility...Vandana's paper was snatched up by our supervisor but she requested and she got the paper back...Thanks to God....I really didnt wanted her to be the victim of such an act...I want this to happen with that Ex-GF of mines....I'll even give my paper to the supervisor if the supervisor is ready to snatch her answer paper....I dont know why am I such a haraamkhor and kameena person...But I m so what can I do....

               Finally I would like to say that...friends why you all are showing your ignorance and anpadpanaa by not accepting the invitation of this blog....You will become author and can write like I write here....Only Arya, Sameer and Prashant has responded positively...else everyone is Dehaati.....I dont know why they are doing BCA without common sense in computer...

ABHILASH RUHELA - VEERU 

FIT Exam !!!

            From BloGGeR Abhilash -->>

        Yesterday on 12th November ,2009...All of us gave our first exam..of our BCA....And I hope that each of you have enjoyed it...It was really a great experience giving the exam with my new classmates...What I saw was that everyone was writing their paper very seriously...Hope that everyone has done their best and will be able to back up that girl who thinks that she will be the toppest in our class...I just want someone who can back up this girl and the way every one were attempting their paper yester day made me sure that if not in this exam ....the exams coming in the future will make this possible .....

           Arya was held twice or thrice today in the hall for not having his I-Card with him....Arya has always been a controversial dude in our class....and so every one enjoyed when he replied to the supervisor that he has applied but he havent handed the I-card yet....Then in the middle of exam...our supervisor went out of the class and I started conversing with Yusuf that How many questions have you completed and blah blah....Supervisor saw me talking and snatched my paper from my hand and stood behind..I then defended myself by saying that Sir copy thode hi maar rahatha main and he replied Toh matlab kya baat karega..Then I replied SORRY sir...I'll not talk again and he agreed with my request and returned me my paper..That was really a laughter moment for my friends and little dangerous for me but then too I was smiling at that incident of which I was a victim....Kiran was the first boy to submit his paper and move out...Then it was Umera who went out....and except this two every one submitted their paper after the exam was over....

             Over all, I really loved today's exam..but friends and mates...our next exam APD-C program..is not going to be so easy and funny as this was....Its really a tough one and I want to wish best of luck to all of you....

             Thanks for reading and following the blog...

ABHILASH RUHELA - VEERU