AS computing 2011 July Batch

[Ravichandran]

Dear all,

            Welcome to AS computing class. I am Dr.Ravi your facilitator for this course. This course consists of two modules, theory and practicals. In theory we will have 12 chapters and in practicals we do have programming classes. You will sit for theory and practical exams at the end of the course, which is conducted by CIE.

All the best, keep moving, for there is always a helping hand above you to guide you.

Dr.Ravi

 

[Dain Razali]

Well, what extra thing happens when we do that?? :S

Afifah Ahmad said:

you should add this

20 if eof(1) then go to 8

x=inputbox ("search name")

9 input #1, a, b

if x=a then print b

if not x=a then go to 9

8 close

[Afifah Ahmad]

well i have to make it like that to meet what dr ravi wants hehe

like that day he explained, the comp will check the name that we searched for one by one

in case the name is not at the top, if we dont command it to check again,it wont give the phone no 

so we have to make sure that the comp repeats its procedure of checking whether x=a until it finds the right name

[Ahmad Syahmi Irfan]

Private Sub Command1_Click()

20 I = I + 2Form1.Print

If I = 9 Then MsgBox "end of 10": End

GoTo 20

End Sub

[Dain Razali]

Lol...afifah...mine works just fine...i type the name...and tht person's no. comes out... :D

Afifah Ahmad said:

well i have to make it like that to meet what dr ravi wants hehe

like that day he explained, the comp will check the name that we searched for one by one

in case the name is not at the top, if we dont command it to check again,it wont give the phone no 

so we have to make sure that the comp repeats its procedure of checking whether x=a until it finds the right name

[Dain Razali]

Odd Numbers!!! XD

 

Private Sub Command1_Click()

I = I + 1

20  I = I + 2

Form1.Print I

If I = 11 Then MsgBox "end of 11": End

GoTo 20

End Sub

[Ravichandran]

Good attempt. Well done Dain. You are a A grade student.

 Dr.Ravi

 

[Afifah Ahmad]

woo! i got it too,and i didnt peep at dain's answer dr. ravi hahaha

i did it like this

I = I + 1

Form1.Print I

20 I = I + 2

Form1.Print I

If I = 11 Then MsgBox ("End of 11"): End

GoTo 20

[Ravichandran]

Now try to generate the following series, ha ha ha ... Only two As i can predict. So sad so far...

1, 1,2,3,5,8,13,21,,, up to 10 terms

Dr.Ravi

 

Afifah Ahmad said:

woo! i got it too,and i didnt peep at dain's answer dr. ravi hahaha

i did it like this

I = I + 1

Form1.Print I

20 I = I + 2

Form1.Print I

If I = 11 Then MsgBox ("End of 11"): End

GoTo 20

[Ravichandran]

Hello Boss (Ahmad) , you coding seems to be wrongly typed in 2nd line, it shoud be 20 i = i + 2 : form1.print

Ahmad Syahmi Irfan said:

Private Sub Command1_Click()

20 I = I + 2Form1.Print

If I = 9 Then MsgBox "end of 10": End

GoTo 20

End Sub

[3pi2mqtqk0utu]

fibonaci sequence found =)..though not so elegant solution

a = 1

b = 0

i  = 1

2 Form1.Print i

 i = a + b

 b = a

 a = i

 If i = 144 Then MsgBox ("cycle complete"): End

 GoTo 2

[Ravichandran]

Hello amir, you need to explain this in the classroom to other students.

All the best.

Dr.Ravi

muhammad amir asyraf said:

fibonaci sequence found =)..though not so elegant solution

a = 1

b = 0

i  = 1

2 Form1.Print i

 i = a + b

 b = a

 a = i

 If i = 144 Then MsgBox ("cycle complete"): End

 GoTo 2

[Dain Razali]

Wow...great work amir...pretty good~ :D

muhammad amir asyraf said:

fibonaci sequence found =)..though not so elegant solution

a = 1

b = 0

i  = 1

2 Form1.Print i

 i = a + b

 b = a

 a = i

 If i = 144 Then MsgBox ("cycle complete"): End

 GoTo 2