Monday, November 30, 2009

PPKIA.AC.ID

Akhirnya pihak kampus memutuskan untuk mengambil alih penggunaan domain sehingga webserver di olah sendiri oleh kampus dimana sebelumnya menggunakan hostingan komersial akan tetapi terjadi masalah ketika pihak hosting melakukan kesalahan pada salah satu domain mereka sehingga karena ketidak amanan ini kampus mengambil keputusan untuk mengambil alih webserver untuk diolah sendiri.

so untuk semua pertanyaan mengenai website kampus ppkia.ac.id sudah terjawab

PPKIA.AC.ID telah online ......................

Wednesday, November 25, 2009

Bilangan Prima dan FPB di Turbo Basic

program ni berjalan di bahasa pemograman turbo basic.program ini dapat membedakan bilangan prima dengan banyak bil di tentukan.

yang lebih unik lagi progi yg gw buat ni bisa menampilkan bil FPB dari bil yg dimasukkan



dim temp(100)
dim tmp(100)
dim ang(100)
cls
'a,b,c,d,e,x,temp
temp(1)=2
e=2
a=100
for b= 3 to a
for c=2 to b-1
if b mod c <> 0 and b mod 1=0 then
temp(e)=b
d=b
else
if b<>d then
e=e+1
elseif b=d then
temp(e)=0
e=e-1
end if
goto lompat
end if
next c
lompat:
next b
'for x=1 to e
' print "Hasil : " +str$(temp(x))
'next x

'cls
f=1
g=1
locate 2,25:print " FPB "
locate 3,25:print "================"
locate 4,25:print "Angka ="
locate 5,25:print "================"
locate 4,33:input,angka
locate 8,28:print str$(angka)

do while angka <> temp(f)
if angka mod temp(f)=0 then
tmp(g)=temp(f)
angka=angka \ temp(f)
ang(g)=angka
g=g+1
elseif angka mod temp(f)<>0 then
f=f+1
end if
loop

if angka=temp(f) then
tmp(g)=angka
ang(g)=angka
end if

for i=1 to g-1
locate 7+i*2,28+i*2:print "\"+str$(ang(i))
locate 7+i*2,25+i*2:print str$(tmp(i))+"/"
next i

Membalik String Turbo Basic

ni contoh logika algoritma buat membalik nilai suatu kata

cls
balik$=""
input "massukkan Kata :",kata$
for i=len(kata$) to 1 step -1
balik$=balik$ + mid$(kata$,i,1)
next i
print "dibalik :"+balik$



nich buat anak2 semester 1,2 di kampusku supaya lebih giat belajar

Maafin D ya.... ^_^

minggu2 ni di hantam dengan berbagai kesibukkan jadi nda terurus dech blog gw,gw mohon maaf buat temen2 yang dah comment ma sms aq pi jujur kerjaan gw semester ni buannyaaak banget jadi lum sempet ngurusin nich blog

Buat temen2 yang mw pake keylogger bisa cari di google
rekomendasi KGB keylogger,soalnya program ane yang nav32 dah banyak kedetect virus jadi dah nda aye terusin dech....!

buat temen2 yang me download aplikasi bisa cari di mobile9.com atau getjar.com
ntuk indonesia cari di google pada blog javagamesfever


sebelum dan sesudahnya saya mohon maaf ya ^_^ ....