Public Function pow(base As Integer, power As Integer) As Long
Dim s As Long
s = 1
For i = 1 To power
s = s * base
Next
pow = s
End Function
Private Sub Form_Load()
Dim k As Long 'To store the entered number
Dim s As String 'to put the number into ti and get the length
k = Val(InputBox("enter Number"))
s = CStr(k)
Dim size As Byte 'to store the length into it
size = Len(s)
Dim x, y, z, i As Integer
If size Mod 2 = 0 Then
x = k \ pow(10, size / 2)
y = k Mod pow(10, size / 2)
Else
x = k \ pow(10, (size \ 2) + 1)
y = k Mod pow(10, size / 2)
size = size - 1
End If
For i = 1 To size / 2
z = z + ((y Mod 10) * pow(10, (size / 2) - i))
y = y \ 10
Next
If z = x Then
MsgBox k & " is Palindrome Number"
Else
MsgBox k & " is NOT Palindrome Number"
End If
End
End Sub
Saturday, September 27, 2008
Saturday, September 20, 2008
GCE Computer Offers 19-9-2008
General Computers & Electronics Co. (GCE) Computer Offers 19-9-2008الشركة العامة للحاسبات والالكترونيات
JITCO Computer Offers 19-9-2008
شركة المركز الاردني للتجارة الدولية
JITCO Computer Offers 19-9-2008 In Jordan
Stallion Computer Offers 19-9-2008
Stallion Computer Offers 19-9-2008 In Jordanالخيول للكمبيوتر الاردن
Friday, September 19, 2008
Tuesday, September 16, 2008
IT News HeadLines (Yahoo! News: Software News) 16-9-2008
-
Seagate, Western Digital Change Hard-Drive Lineups (NewsFactor)
-
Adobe aims to stave off Silverlight with video encoder (InfoWorld)
-
T-Mobile to offer Android smartphone soon- sources (Reuters)
-
Jobs Unveils New iPods, iTunes Update with Genius (NewsFactor)
-
Sharp, Opera, others sign up for Symbian Foundation (Reuters)
-
TechCrunch50- Help for Multicore App Development (PC Magazine)
-
McAfee's 'Artemis Project' Finds Malware As You Do (PC Magazine)
-
Chrome Hints Google Aims To Become 'Big Brother' (NewsFactor)
-
Microsoft kicks off $300 million Windows marketing push (Reuters)
-
Take Two profits strong on "Grand Theft Auto" lift (Reuters)
-
Google chief admits to 'defensive component' of browser launch (AFP)
-
Google sees new browser displacing desktop software (Reuters)
-
Nokia says Samsung accepts offer for Symbian buyout (Reuters)
-
U.S. heating oil dealers clamp down on unpaid bills (Reuters)
Friday, September 12, 2008
Sunday, September 7, 2008
Convert Decimal Number To Binary (C++)
#include<iostream.h>
#include<Math.h>
{
int k,t,w,i;
cin>>k;
i=0;
w=0;
while (k >0)
{ t=k%2;
k/=2;
w=w+ (t) * pow(10,i);
i++;
}
cout<
Convert Binary Number To Decimal (C++)
#include<iostream.h>
#include<Math.h>
void main()
{
int k,i,w,t;
cin>>k;
i=0;
w=0;
while(k>0)
{ t=k%10;
w=w + (t* pow(2,i));
i++;
k=k/10;
}
cout<
}
Convert Binary Number To Decimal (VB6)
Public Function pow(base As Integer, power As Integer) As Long
Dim s As Long
s = 1
For i = 1 To power
s = s * base
Next
pow = s
End Function
Private Sub Form_Load()
Dim k As String
Dim j As Integer
Dim t As Byte
k = InputBox("Enter Number")
Dim i As Integer
i = 1
j = 0
While i <= Len(k)
t = Mid(k, i, 1)
j = j + t * pow(2, Len(k) - i)
i = i + 1
Wend
MsgBox j
End Sub
Dim s As Long
s = 1
For i = 1 To power
s = s * base
Next
pow = s
End Function
Private Sub Form_Load()
Dim k As String
Dim j As Integer
Dim t As Byte
k = InputBox("Enter Number")
Dim i As Integer
i = 1
j = 0
While i <= Len(k)
t = Mid(k, i, 1)
j = j + t * pow(2, Len(k) - i)
i = i + 1
Wend
MsgBox j
End Sub
Saturday, September 6, 2008
Convert Decimal Number To Binary (VB6)
'*** Convert Decimal Number To Binary (VB6)****
Private Sub Form_Load()
Dim k, t As Integer
k = Val(InputBox("Enter Number"))
t = k
Dim s As String
While (t > 0)
s = (t Mod 2) & s
t = t \ 2
Wend
MsgBox k & " in Binary is " & s
End
End Sub
'Copy And Paste Into VB6 Project
Private Sub Form_Load()
Dim k, t As Integer
k = Val(InputBox("Enter Number"))
t = k
Dim s As String
While (t > 0)
s = (t Mod 2) & s
t = t \ 2
Wend
MsgBox k & " in Binary is " & s
End
End Sub
'Copy And Paste Into VB6 Project
Subscribe to:
Posts (Atom)