AS/A2 computing 2013 July batch

[Ravichandran]

Dear students of Block 6 AS computing, welcome to the computing class. I am your facilitator Dr.Ravichandran ( you can call me Dr.Ravi), I will be your course facilitator for AS computing and A2 computing. I will start communicating with you in this discussion forum - where you can start posting your queries and useful resources.

You are highly encouraged to interact with me and also with your peers as the class begins from 30th July 2013.

All the best and keep moving. Do not hesitate to ask and send your queries if you have one.

Regards,

Dr.Ravichandran

i HAVE ATTACHED THE SYLLABUS TOO.

YOU CAN DOWNLOAD THE ATTACHMENT FILE.

[Maizatul Akmal Mohamad]

today we've learnt about string function(s). before the class ended, dr ravi told us to write a program to accept 5 digits as string and sum its each num. here's my program but only work if you enter 5 digits.

[Ariel Logujin Takom]

The program to find the sum of each digit from a given 5-digit number: 

Private Sub Command1_Click()
a = InputBox("Please input a 5 digit number")
10 i = i + 1
b = Mid$(a, i, 1)
c = Val(b)
s = s + c
If i = 5 Then MsgBox "The sum of each of the digits are" + Str(s): End
GoTo 10
End Sub

[Syed Muhammad b. Syed Hood]

Illegal cancelation

Dim a, b, c, d, x, y As Integer
Private Sub Command1_Click()
a = 1
40 b = 1
30 c = 1
20 d = 1
x = (a * 10) + b
10 y = (c * 10) + d
If x / y = a / d Then Print x, y
d = d + 1
If d <= 9 Then GoTo 10
c = c + 1
If c <= 9 Then GoTo 20
b = b + 1
If b <= 9 Then GoTo 30
a = a + 1
If a <= 9 Then GoTo 40
If x = 99 And y = 99 Then MsgBox " list of no. thet can use illegal cancellation": End


End Sub

[Ariel Logujin Takom]

To find the inverse of a given word/name:

Private Sub Command1_Click()
A$ = InputBox("Please enter a name")
i = Len(A$)
11 s = s + Mid$(A$, i, 1)
i = i - 1
If i = 0 Then GoTo 10 Else GoTo 11
10 MsgBox "The inverse of the input name is " + s: End

End Sub

[Ariel Logujin Takom]

To find if the input word is a palindrome or not:

Private Sub Command1_Click()
A$ = InputBox("Please enter a name/word")
i = Len(A$)
11 s = s + Mid$(A$, i, 1)
i = i - 1
If i = 0 Then GoTo 10 Else GoTo 11
10 If s = A$ Then MsgBox "The input word is a Palindrome" Else MsgBox "The input word is not a Palindrome"
End

End Sub

[Ariel Logujin Takom]

To find armstrong numbers from 100 to 999 using string functions and loop statements.... :D

For A = 100 To 999
B = Str(A)
B = Right$(B, 3)
For I = 1 To 3
C$ = Mid$(B, I, 1)
C = Val(C$)
D = C * C * C
S = S + D
Next I
If S = A Then MsgBox Str(S) + " is an armstrong number."
S = 0
I = 0
Next A

[Yuganesh]

Dr.Ravi

I need your assistance to solve this problem. Given a string of numbers in sequence order. find the missing numbers."9899100101103104105107108".

[Ariel Logujin Takom]

[MOHAMMAD LUQMAN B MOHD RADZAI]

this is a magnetic tape

[Ariel Logujin Takom]

[Yuganesh]

Magnetic Tape

[Ariel Logujin Takom]

The 1st picture is a 10.5 inch of magnetic tape... the following picture is an example of machine that records the data in the magnetic tape. As you can see, the magnetic tape is mounted inside the machine. :)