Make your own free website on Tripod.com

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub EXIT_Click()

End

End Sub

 

Private Sub Form_Load()

Timer1.Enabled = False

Timer2.Enabled = False

End Sub

 

Private Sub left_Click()

Timer1.Enabled = True

End Sub

 

Private Sub right_Click()

Timer2.Enabled = True

End Sub

 

Private Sub stop_Click()

Timer1.Enabled = False

Timer2.Enabled = False

End Sub

 

Private Sub Timer1_Timer()

lblscroll.left = lblscroll.left + 100

If lblscroll.left = Me.Width Then

lblscroll.left = 0

End If

End Sub

 

Private Sub Timer2_Timer()

lblscroll.left = lblscroll.left - 100

If lblscroll.left = Me.Width Then

lblscroll.left = 0

End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub arrow_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

arrow.MousePointer = vbArrow

End Sub

Private Sub hour_glass_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

hour_glass.MousePointer = vbHourglass

End Sub

Private Sub i_beam_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

i_beam.MousePointer = vbIbeam

End Sub

Private Sub no_drop_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

no_drop.MousePointer = vbNoDrop

End Sub

Private Sub size_nesw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

size_nesw.MousePointer = vbSizeNESW

End Sub

Private Sub size_ns_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

size_ns.MousePointer = vbSizeNS

End Sub

Private Sub size_nwse_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

size_nwse.MousePointer = vbSizeNWSE

End Sub

Private Sub size_we_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

 size_we.MousePointer = vbSizeWE

End Sub

Private Sub up_arrow_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

up_arrow.MousePointer = vbUpArrow

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

MsgBox "left button was clicked"

ElseIf Button = 2 Then

MsgBox "right button was clicked"

End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Public curval As Double

Public preval As Double

Public choice As String

Public result As Double

Private Sub cmd_Click(Index As Integer)

Text1.Text = Text1.Text & cmd(Index).Caption

curval = Val(Text1.Text)

End Sub

 

Private Sub cmdadc_Click(Index As Integer)

curval = preval = 0

Text1.Text = ""

End Sub

 

Private Sub Command13_Click()

Text1.Text = ""

preval = curval

curval = 0

choice = "+"

End Sub

 

Private Sub Command14_Click()

Text1.Text = ""

preval = curval

curval = 0

choice = "-"

End Sub

 

Private Sub Command15_Click()

Text1.Text = ""

preval = curval

curval = 0

choice = "*"

End Sub

 

Private Sub Command16_Click()

Text1.Text = ""

preval = curval

curval = 0

choice = "/"

End Sub

 

 

 

 

Private Sub Command17_Click()

curval = -curval

Text1.Text = Str(curval)

End Sub

 

Private Sub Command18_Click()

Select Case choice

Case "+"

result = preval + curval

Text1.Text = Str(result)

Case "-"

result = preval - curval

Text1.Text = Str(result)

Case "*"

result = preval * curval

Text1.Text = Str(result)

Case "/"

result = preval / curval

Text1.Text = Str(result)

End Select

curval = result

End Sub

 

Private Sub Command19_Click()

End

End Sub

 

Private Sub Form_Load()

Me.WindowState = 2

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub customer_Click()

Form1.Hide

Form2.Show

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub product_Click()

Form2.Hide

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub BYE_Click()

End

End Sub

 

Private Sub SEEME_Click()

For i = 1 To 200

Circle (2500, 3500), i

Circle (4500, 3500), i

Next

Circle (2500, 3500), 600, , , , 0.5

Circle (4500, 3500), 600, vbBlack, , , 0.5

Circle (3500, 4500), 2500

Circle (3500, 4500), 275, , 3.14, 0, 0.5

Circle (3500, 5200), 600, , 3.14, 0, 0.5

Circle (4000, 5250), 150, , 0, 3.14 / 2, 0.5

Circle (3000, 5250), 150, , 3.14 / 2, 3.14, 0.5

Circle (2500, 3250), 620, , 0, 3.14, 0.5

Circle (4500, 3250), 620, , 0, 3.14, 0.5

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                                                                        

 

 

 

 

 

 

 

 

 

 

Private Sub CLICK_Click()

If (Text1.Text > 5) Then

MsgBox "please enter 0-5"

Else

Select Case Text1.Text

Case 0

Shape1.Visible = True

Shape1.Shape = 0

Label1.Caption = "0 - rectangle"

Case 1

Shape1.Visible = True

Shape1.Shape = 1

Label1.Caption = "1 - sqaure"

Case 2

Shape1.Visible = True

Shape1.Shape = 2

Label1.Caption = "2 - oval"

Case 3

Shape1.Visible = True

Shape1.Shape = 3

Label1.Caption = "3 - circule"

Case 4

Shape1.Visible = True

Shape1.Shape = 4

Label1.Caption = "4 - rounded_rectangle"

Case 5

Shape1.Visible = True

Shape1.Shape = 5

Label1.Caption = "5 - rounded_square"

End Select

End If

End Sub

Private Sub Form_Load()

Form1.WindowState = 2

Text1.Text = ""

Label1.Caption = ""

Shape1.Visible = False

End Sub

 

Private Sub STOP_Click()

End

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

Dim status As Integer

 

Private Sub EXIT_Click()

End

End Sub

 

Private Sub FONT_MENU_Click()

cd.Flags = 1

cd.ShowFont

If cd.FontName <> "" Then

rtb.SelFontName = cd.FontName

rtb.SelFontSize = cd.FontSize

If cd.FontBold = True Then

rtb.SelBold = True

Else

rtb.SelBold = False

If cd.FontItalic = True Then

rtb.SelItalic = True

Else

rtb.SelItalic = False

End If

End If

End If

End Sub

 

Private Sub Form_Load()

cd.Filter = "text files(8.txt)"

status = 0

End Sub

 

Private Sub NEW_Click()

rtb = ""

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub OPEN_Click()

cd.ShowOpen

rtb.FileName = cd.FileName

Form1.Caption = cd.FileName

End Sub

 

Private Sub SAVE_Click()

If status = 0 Then

cd.ShowSave

rtb.SaveFile (cd.FileName)

Else

rtb.SaveFile (cd.FileName)

End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub EXIT_Click()

End

End Sub

 

Private Sub rgb_col_Click()

Dim i, x, y, r, g, b As Integer

r = Rnd * 255

g = Rnd * 255

b = Rnd * 255

For i = 1 To 10000

x = Rnd * Me.ScaleWidth

y = Rnd * Me.ScaleHeight

Me.PSet (x, y), RGB(r, g, b)

Next

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub ADD_Click()

Dim x, y

For x = 1 To 12 Step 1

fg1.Row = x

For y = 1 To 12 Step 1

fg1.Col = y

fg1.Text = x + y

Next

Next

End Sub

 

Private Sub exit_Click()

End

End Sub

 

Private Sub DIV_Click()

Dim x, y

For x = 1 To 12 Step 1

fg1.Row = x

For y = 1 To 12 Step 1

fg1.Col = y

fg1.Text = x / y

Next

Next

End Sub

 

Private Sub Form_Load()

Dim a As Integer

fg1.Row = 0

For a = 1 To 12 Step 1

fg1.Col = a

fg1.Text = Str(a)

Next

fg1.Col = 0

For a = 1 To 12 Step 1

fg1.Row = a

fg1.Text = Str(a)

Next a

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub MUL_Click()

Dim x, y

For x = 1 To 12 Step 1

fg1.Row = x

For y = 1 To 12 Step 1

fg1.Col = y

fg1.Text = x * y

Next

Next

End Sub

 

Private Sub SUB_Click()

Dim x, y

For x = 1 To 12 Step 1

fg1.Row = x

For y = 1 To 12 Step 1

fg1.Col = y

fg1.Text = x - y

Next

Next

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                   

 

 

 

 

      RAILWAY RESERVATION

 

                                        PASSENGER DETAILS

 

TRAIN NUMBER        NAME       AGE         GENDER

 

        123456                      LOGU          25              FEMALE     

 

        123457                  KANCH       19              FEMALE

 

        123458                  NIRMAL      18              MALE  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub ADD_Click()

Data1.Recordset.AddNew

End Sub

Private Sub DELETE_Click()

Data1.Recordset.DELETE

End Sub

Private Sub EXIT_Click()

End

End Sub

Private Sub Text20_Change()

Text20.Text = Val(Text5.Text) * Val(Text19.Text)

End Sub

Private Sub UPDATE_Click()

Data1.Recordset.UPDATE

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

PAYROLL

 

 

EID     ENAME   DEPARTMENT     BASIC SALARY      HRA    DA     PF      AMT

 

E11       ARUN      SALES       10000                               500    650    800    12950

 

E12      ANI        PURCHASE    8600                           850         960    620    11030                                     

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub ADD_Click()

Adodc1.Recordset.AddNew

MsgBox "ready"

End Sub

Private Sub DELETE_Click()

Adodc1.Recordset.DELETE

MsgBox "deleted"

End Sub

 

Private Sub EXIT_Click()

End

End Sub

 

Private Sub Text10_Change()

Text10.Text = Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text)

End Sub

 

Private Sub UPDATE_Click()

Adodc1.Recordset.UPDATE

MsgBox "update"

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                        

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                       

 

 

 

 

MARK LIST

 

 

RNO:                                0522J1785                              0522JI775                                  

S1:                                     VB                                                     VB  

S2:                                     C                                                C   

S3:                                     C++                                           C++        

S4:                                     JAVA                                         JAVA

S5:                                     COBOL                                               COBOL

SC1:                                  Q31                                              Q31

SC2:                                  Q32                                              Q32

SC3:                                  Q33                                             Q33

SC4:                                  Q34                                              Q34

SC5:                                  Q35                                              Q35

M1:                                    96                                                  98

M2:                                    86                                                   85

M3:                                    95                                                   62

M4:                                    90                                                  36

M5:                                    96                                                   40 

TOTAL:                            463                                                321      

PERCENTAGE:               92.6                                                64.5 

RESULT:                          PASS                                              FAIL

                                                   

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

MsgBox "ready"

End Sub

 

Private Sub Command2_Click()

Adodc1.Recordset.Update

MsgBox "updated"

End Sub

 

Private Sub Command3_Click()

Adodc1.Recordset.Delete

MsgBox "deleted"

End Sub

 

Private Sub Command4_Click()

MsgBox "thank you"

End

End Sub

 

Private Sub Command5_Click()

Form2.Show

End Sub

 

Private Sub NOOFABSENTS_Change()

NOOFABSENTS.Text = Val(TOTDAYS.Text) - Val(NOOFPRESENT.Text)

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

MsgBox "ready"

End Sub

 

Private Sub Command2_Click()

Adodc1.Recordset.Update

MsgBox "updated"

End Sub

 

Private Sub Command3_Click()

Adodc1.Recordset.Delete

MsgBox "deleted"

End Sub

 

Private Sub Command4_Click()

MsgBox "thank you"

End

End Sub

Private Sub NOOFABSENTS_Change()

NOOFABSENTS.Text = Val(TOTDAYS.Text) - Val(NOOFPRESENT.Text)

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub add_Click()

Data1.Recordset.AddNew

MsgBox "ready"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

M1.Text = ""

M2.Text = ""

M3.Text = ""

M4.Text = ""

M5.Text = ""

TOT.Text = ""

AVG.Text = ""

RESULT.Text = ""

End Sub

Private Sub AVG_Change()

If Val(M1.Text) <= 39 Then

RESULT.Text = "FAIL"

Else

RESULT.Text = "PASS"

If Val(M2.Text) <= 39 Then

RESULT.Text = "FAIL"

Else

RESULT.Text = "PASS"

If Val(M3.Text) <= 39 Then

RESULT.Text = "FAIL"

Else

RESULT.Text = "PASS"

If Val(M4.Text) <= 39 Then

RESULT.Text = "FAIL"

Else

RESULT.Text = "PASS"

If Val(M5.Text) <= 39 Then

RESULT.Text = "FAIL"

Else

RESULT.Text = "PASS"

End If

End If

End If

End If

End If

End Sub

Private Sub delete_Click()

Data1.Recordset.delete

MsgBox "deleted"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

M1.Text = ""

M2.Text = ""

M3.Text = ""

M4.Text = ""

M5.Text = ""

TOT.Text = ""

AVG.Text = ""

RESULT.Text = ""

End Sub

Private Sub exit_Click()

End

MsgBox "thank you"

End Sub

 

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Text11.Text = ""

Text12.Text = ""

M1.Text = ""

M2.Text = ""

M3.Text = ""

M4.Text = ""

M5.Text = ""

TOT.Text = ""

AVG.Text = ""

RESULT.Text = ""

End Sub

 

Private Sub M5_Change()

TOT.Text = Val(M1.Text) + Val(M2.Text) + Val(M3.Text) + Val(M4.Text) + Val(M5.Text)

End Sub

Private Sub TOT_Change()

AVG.Text = Val(TOT.Text) / 5

End Sub

Private Sub update_Click()

Data1.Recordset.update

MsgBox "updated"

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

TELEPHONE BILLING

 

 

CID    NAME      ADDRESS    PHONE    TOTAL    FROM DATE     TO DATE

 

111      VIHASH    ERODE        2281654       4520     10/2/2008                    15/3/2008

 

222    SASI           COVAI        2255466       1258     15/03/2008            20/05/2008                                      

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub ADD_Click()

Data1.Recordset.AddNew

MsgBox "READY"

End Sub

 

Private Sub DELETE_Click()

Data1.Recordset.DELETE

MsgBox "DELETED"

End Sub

Private Sub EXIT_Click()

End

End Sub

Private Sub NIC_Change()

TICR.Text = Val(NIC.Text) * Val(PICR.Text)

End Sub

Private Sub PLAN_Change()

If Val(PLAN.Text) = 200 Then

PLCR.Text = 1.5

PSCR.Text = 2

PICR.Text = 5

Else

PLCR.Text = 0.5

PSCR.Text = 1

PICR.Text = 3

End If

End Sub

 

Private Sub NLC_Change()

TLCR.Text = Val(NLC.Text) * Val(PLCR.Text)

End Sub

 

Private Sub NSC_Change()

TSCR.Text = Val(NSC.Text) * Val(PSCR.Text)

End Sub

 

Private Sub SERCHAR_Change()

TOT.Text = Val(SERCHAR.Text) + Val(TICR.Text) + Val(TLCR.Text) +      Val(TSCR.Text)

End Sub

Private Sub UPDATE_Click()

Data1.Recordset.UPDATE

MsgBox "UPDATED"

End Sub