Jumat, 08 Oktober 2010
CONVERTER MICROSOFT OFFICE 2003 FOR OFFICE 2007, 2010
Seringkali hal ini banyak dialami oleh banyak pemakai Office versi 2003 ke bawah yang tidak dapat membaca dokumen yang disimpan dengan format Office 2007 dan 2010 yang sudah banyak beredar saat ini. Jadi, untuk mengatasi permasalahan yang mungkin timbul ini, pihak Microsoft telah menyediakan Add-in: Microsoft Office Compatibility Pack for Word, Excel, and PowerPoint File Formats.
Sehingga pengguna Office 2003, 2002 (XP), 2000 dapat membaca dokumen yang disimpan dengan format Office 2007 dan 2010 tanpa harus menginstall Office versi terbaru tersebut.
Add-in dapat didownload secara gratis dari situs Microsoft, kemudian lakukan instalasi dan plugin ini akan tertanam langsung atau terintegrasi ke dalam Office 2003 Anda. Silakan download Add-in Microsoft Office Compatibility/Converter di sini
Rabu, 18 Agustus 2010
Source code Program Pascal
Program PenjumlahanMatriks;
uses
Wincrt;
var m1,m2,mp:array[1..10,1..10] of integer;
i,j,k,l:integer;
begin
{Menginput nilai matriks}
writeln('Matriks ke 1');
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('m1[',i,',',j,'] : ');readln(m1[i,j]);
end;
writeln;
writeln('Matriks ke 2');
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('m2[',i,',',j,'] : ');readln(m2[i,j]);
end;
writeln;
{jumlahkan}
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
mp[i,j]:=m1[i,j]+m2[i,j];
end;
{lukis hasil penjumlahan}
writeln('Hasil Penambahan = ');
writeln;
for i:=1 to 3 do
begin
writeln;
for j:=1 to 3 do
write(mp[i,j],' ');
end;
readln;
end;
end.
-------------------------------------------------------------------------------------
program Jumlah_Matrik;
uses
WinCRT;
const
Orde = 3;
type
Matrik = array[1..orde,1..orde] of integer;
var
M1, M2, H : matrik;
I, J : integer;
procedure Awal;
begin
Writeln('Tugas Penjumlahan Matriks');
Writeln('------------------------------------');
Writeln;
Writeln('Nama : Moch. Sony. S');
Writeln('NIM : 063020017');
Writeln('Prodi: Teknik Kimia');
Writeln;
end;
procedure JumlahMatrik(var Mat1, Mat2, MatHasil : matrik);
begin
for I := 1 to orde do
for J := 1 to orde do
MatHasil[I,J] := Mat1[I,J] + Mat2[I,J];
end;
procedure BacaData(var Mat : matrik);
begin
for I := 1 to orde do
for J := 1 to orde do
begin
Write('Nilai[',I,',',J,'] = ');
Readln(Mat[I,J]);
end;
end;
procedure TulisMatrik(var Mat : matrik);
begin
for I := 1 to orde do
begin
for J := 1 to orde do
begin
Write(Mat[I,J]:5);
end;
Writeln;
end;
end;
begin
ClrScr;
Awal;
Writeln('Isi matrik pertama :');
BacaData(M1);
Writeln;
Writeln('Isi matrik kedua :');
BacaData(M2);
Writeln;
JumlahMatrik(M1, M2, H);
Writeln('Penjumlahan matrik pertama dan kedua :');
TulisMatrik(H);
Writeln;
Write('Tekan Enter...');
Readln;
end.
-------------------------------------------------------------------------------------
Program PerkalianMatriks;
uses
Wincrt;
type
mtrx = array[1..50,1..50] of integer;
var
mtrxa,mtrxb,mtrxc : mtrx;
l,m,n,o : integer;
Procedure Input(var a:mtrx;b,c:integer);
var s,k:integer;
begin
for s:=1 to b do
begin
for k:=1 to c do
begin
Write('Elemen [',s,',',k,'] : ');
Readln(a[s,k]);
end;
end;
end;
Procedure perkalian(var a,b,p:mtrx;d,e,f,g:integer);
var s,k,c,i:integer;
begin
for s:=1 to d do
begin
for k:=1 to g do
begin
p[s,k] := 0;
for c:=1 to e do
begin
p[s,k] := p[s,k] + a[s,c] * b[c,k];
end;
end;
end;
for s:=1 to d do
begin
for k:=1 to e do
begin
write(p[s,k]:3);
end;
writeln;
end;
end;
begin
Clrscr;
Writeln('Program Perkalian Matriks');
Writeln('Matriks I');
Write('Inputkan Banyaknya Baris : ');
Readln(l);
Write('Inputkan Banyaknya Kolom : ');
Readln(m);
Writeln('Program Perkalian Matriks');
Writeln('Matriks II');
Write('Inputkan Banyaknya Baris : ');
Readln(n);
Write('Inputkan Banyaknya Kolom : ');
Readln(o);
if(m <> n) then
begin
Write('Tidak Terdefinisi');
exit;
end
else
begin
clrscr;
Writeln('Matriks I');
Input(mtrxa,l,m);
Writeln;
Writeln('Matriks II');
Input(mtrxb,n,o);
perkalian(mtrxa,mtrxb,mtrxc,l,m,n,o);
end;
readln;
end.
-------------------------------------------------------------------------------------
Program PersamaanKuadrat;
uses wincrt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln('Menghitung akar-akar persamaan kuadrat');
writeln('Nilai a,b,c dimasukkan dengan jeda spasi');
write('Masukkan nilai a,b,c:');
readln(a,b,c);
d:=(b*b) - (4*a*c);
if d < x1 ="',x1:6:2);" x2 ="',x2:6:2);" a="0">0 then
begin
writeln('persamaan kuadrat ini memiliki akar yang berbeda');
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
writeln('akar-akarnya:',x1:3:2,' dan ',x2:3:2);
end
else if d=0 then
begin
writeln('punya akar kembar');
x1:= -b/(2*a);
writeln ('akar-akarnya:',x1:3:2);
end
else
writeln ('persamaan kuadrat anda berakar kompleks');
end;
end.
Free Download Turbo Pascal For Windows, silakan di download dibawah:
Jumat, 06 Agustus 2010
Dapatkan Saham Gratis Me2Everyone.Com
me2everyone memiliki konsep untuk menawarkan kepada rekan-rekan untuk mempunyai rasa memiliki terhadap me2everyone dengan memberikan saham gratis apabila rekan-rekan bergabung. Pertumbuhan yang cepat dari situs akan dianggap sebagai bagian program yang mereka tawarkan. Perusahaan menyatakan bahwa mereka akan mencoba untuk go public pada tahun 2012, dan memiliki tujuan sekitar $0.85 per saham pada memulai go public. Dulu Google saat pertama kali go public pada pertengahan tahun 2004 memiliki nilai IPO (Initial Public Offer) sebesar $85!!!. Tidak menutup kemunkinan juga jika nilai IPO me2everyone nantinya juga akan seperti Google. Bayangkan saja jika anda memiliki saham pada perusahaan dot com yang sedang booming seperti facebook, Google, dll pastinya anda memiliki banyak dana segar yang setiap saat bisa anda cairkan.
Keanggotaan gratis dan setiap anggota secara otomatis menjadi pemegang saham dalam me2everyone. Pertama kali anda mendaftar, anda mendapatkan 100 lembar saham me2everyone. Jumlah saham akan semakin bertambah jika anda merekomendasikan teman anda untuk bergabung menjadi keanggotaan pemegang saham me2everyone sesuai dengan URL link referral anda. Ini adalah kesempatan yang sangat baik bagi kita semua untuk membuat beberapa kemajuan nyata pada tahun 2009 dan seterusnya! Jangan sia-siakan kesempatan ini. Rekan-rekan juga bisa memberikan referensi (seperti yang saya lakukan) untuk mendapatkan saham tambahan dari setiap referal yang bergabung.
Jika Rekan-rekan mencari sesuatu yang benar-benar baik pada tahun 2010: sesuatu yang Anda melihat perubahan pada dunia, maka anda benar-benar harus menghabiskan satu menit dan hanya melihat pada website ini. Siapa tahu nilai sahamnya pada tahun 2012 menjadi benar-benar meledak.
Semoga beruntung....
Jumat, 30 Juli 2010
Berbagai Cara Download Video Youtube
http://www.keepvid.com di sana ada FLV Player gratis yang bisa di download atau juga bisa di sini:
Download FLV Player dari http://www.wimpyplayer.com
http://www.savevid.com
http://www.zamzar.com
http://www.vidgrab.com
http://www.kcoolonline.com
http://www.viddownloader.com
Download video langsung sekaligus Convert Format file dalam website:
http://www.vixy.net
Konversi peuh video download dengan:
http://www.mediaconverter.org kita bisa juga download video converterya lho di sana
Download Youtube Via Orbit Downloader
1. buka htttp://www.orbitdownloader.com kita klik tombol "Download Now"
kita download sampai selesai.
2. Kalau sudah kita Open terus kita Instal software tersebut.
di orbit downloader ada fasilitas kita dapat mendownload ketika di putar, ketika memutar videonya kita kita klik kanan margin screen lalu pilih opsi Grab Video by Orbit.
Download Film Tanpa memutar caranya kita tinggal klik kanan judul film yang kita inginkan, lalu pilih opsi Grab Video by Orbit.
Download film menggunakan Tombol Get it, caranya arahkan krusor ke layar atau screen akan tampak tombol get it, jika anda menggunakan browser IE.
Download langsung melalui jendela orbit, kita tinggal pilih menu File > Enter New URL to Download, kita copy pastekan Url video youtube ke situ, kemudian kita tinggal download seperti biasa.
Download Youtube Via keepV
buka website: http://www.keepv.com kemudian kita download softwarenya seperti biasa
kemudian kita instal.
Konversi dari FLV ke Format lain
Download dari website ini http://applian.com/replay-converter/
kemudian instal dan jalankan replay converter tersebut.
Senin, 21 Juni 2010
Cara update Manual Avira
Buat teman teman yang menggunakan avira antivir dan menglami kesulitan update kebetulan saya juga menggunakan dan mengalaminya setelah browsing-browsing mencari akhirnya saya menemukan tips yang mantap dan boleh dicoba dari blog tetangga yaitu ebsot.web.id
Salah satu Antivirus gratis terbaik adalah Avira Antivir. Di beberapa test terakhir, Antivir termasuk antivirus terbaik (baca ini dan ini) . Tetapi sebagian kesulitan dengan update antivirus ini. Meskipun sudah bisa download updatenya seringkali gagal. Apa kira-kira penyebab sering gagalnya update ? Bagaimana tips agar berhasil update?
Coba simak tips update manual Avira Antivir berikut ini. Disertakan juga penjelasan mengenai apa itu incremental VDF update (IVDF) dan beberapa penjelasan mengenai file IVDF ini.
Automatic Update
Untuk update otomatis lewat internet, seharusnya tidak ada masalah. Tinggal klik kanan icon tray dan pilih menu Start Update maka Avira akan otomatis update. Atau melalui tampilan di halaman utama. Dan mungkin memang agak lama. Kalau tidak berjalan, coba langsung menjalankan file preupd.exe di folder instalasi Avira.
Manual Update
Update manual Avira Antivir, baik Antivir Windows Professional, Avira AntiVir Premium, Avira Premium Security Suite dan Avira AntiVir Personal - Free Antivirus, versi 7 atau 8, dapat di download dari link yang sama.
Dimana downloadnya ?http://www.avira.de/en/support/vdf_update.html
Buka link ini kemudian pilih Download IVDF (Unicode) atau langsung download dari salah satu link berikut (Untuk Windows XP, 2000 dan Windows Vista) :
Nama File-nya selalu sama yaitu ivdf_fusebundle_nt_en.zip
Mengecek apakah file IVDF Rusak atau tidak
File update bertipe ZIP, maka kita bisa mengecek apakah file yang kita download tersebut rusak atau tidak. Gunakan saja program seperti Winzip, Winrar, 7zip, IZArc dan sejenisnya, dan buka file tersebut. Jika tidak bisa dibuka, kemungkinan file tersebut rusak (Corrupt). Jika bisa dibuka maka selanjutnya gunakan saja menu "Test" untuk mengecek file tersebut, jika tidak ada error maka file tersebut harusnya bisa digunakan untuk mengupdate.
Jika sudah download berkali-kali masih saja tidak bisa dibuka, maka pastikan download dengan program "Download Manager" seperti FlashGet, DAP, GetRight, Internet Download Manager, Free Download Manager dan sejenisnya
Mengenal incremental VDF update (IVDF)
File update Avira berukuran sekitar 21 MB, berisi update program dan database Virus. Update program merupakan file-file dengan tipe *.dll, sedangkan update database virus file dengan tipe *.vdf. File update virus ini ada 4, yaitu antivir0.vdf, antivir1.vdf, antivir2.vdf dan antivir3.vdf. Berikut penjelasan masing-masing file tersebut:
antivir0.vdf, merupakan database virus utama (basic-vdf) yang di sertakan ketika menginstall Avira
antivir1.vdf, merupakan database virus bulanan, diupdate setiap bulan
antivir2.vdf, merupakan database virus mingguan, diupdate setiap minggu
antivir3.vdf, merupakan database virus harian, diupdate harian
Avira sendiri biasanya melakukan update antara 3 sampai 7 kali dalam sehari, kadang bisa lebih. Bisa di cek disini
Cara Mengupdate Manual
Setelah file tersebut di download dan tidak ada yang error/rusak, maka update bisa dilakukan dengan membuka Avira ( Double klik icon di system tray, gambar payung atau klik kanan dan pilih menu "Start Antivir"). Setelah terbuka, pilih menu Update > Manual Update…
kemudian dicari file ivdf_fusebundle_nt_en.zip. Setelah itu pilih Open, maka proses update akan berlangsung. Jika proses gagal maka coba restart komputer terlebih dahulu dan ulangi proses Update. Jika sudah di restart masih juga gagal, maka coba antivir di install ulang, mungkin ada file yang rusak.
Masih Juga Gagal ?
Jika update dengan cara-cara diatas masih saja gagal, maka coba alternatif berikut.
Extract file update diatas (ivdf_fusebundle_nt_en.zip) di folder baru
Buka Run (Start Menu > Run ), tulis services.msc dan tekan enter atau klik OK
Akan ditampilkan window "Services". Dari panel disebelah kanan klik judul kolom "Name" sampai kolom itu urut berdasarkan nama dari A - Z.
Disana ada 2 Services Antivir yang ada, yaitu : AntiVir PersonalEdition Classic Guard dan AntiVir PersonalEdition Classic Scheduler
Klik kanan dan pilih Stop. Jika menunya tidak aktif, maka Klik kanan dan pilih Properties kemudian bagian Startup type pilih Disabled. Dua-duanya lakukan hal yang sama.
Restart Komputer
Setelah itu, copy semua file hasil extract file update di folder instalasi Avira, tumpuk saja file yang lama. Biasanya berlokasi di C:\Program Files\Avira\AntiVir PersonalEdition Classic
Jika sudah selesai, Kembali jalankan (start) 2 services Antivir diatas (pilih Startup type Automatic kemudian restart komputer.
Dengan cara ini, maka Antivir bisa diupdate, tetapi keterangan di Last Update masih tidak berubah, meskipun sudah diupdate. Nanti akan berubah ketika update dilakukan secara normal. Jika cara-cara update diatas masih juga gagal, kemungkinan ada konflik dengan aplikasi lain atau bisa juga komputer tersebut terinfeksi virus. Ada pertanyaan atau masukan silahkan disampaikan melalui komentar. (http://ebsoft.web.id)
Tambahan
Jika akan melakukan install ulang sebaiknya download Avira Antivir terbaru, bisa ambil dari link berikut ( Version: 8.1.00.295 ):
http://dl1.avgate.net/down/windows/antivir_workstation_winu_en_h.exe (21.28 MB)
http://dl1.avgate.net/down/windows/antivir_workstation_winu_en_h.zip ( 23.29 MB)
Jika sudah sebelumnya sudah menginstall Avira, maka sebaiknya gunakan juga Avira Registry Cleaner Untuk menghapus setting-setting sebelumnya sehingga instalasi bisa berjalan dengan sistem yang bersih. Download di alamat berikut :
http://www.avira.com/en/support/support_downloads.html
nah semoga infonya bermanfaat dan semoga berhasil
Mencegah Masuknya Virus Komputer
Biasanya ketika flashdisk dicolok ke port USB komputer atau laptop, apabila didalamnya ada file aplikasi, bisa langsung jalan/run. Hal tersebut sangat terbuka kemnungkinan bahwa file aplikasi tersebut adalah sebuah virus. Hehehehe………..
Untuk itu, harus ada pencgahnnya. Caranya sebagai berikut:
1.Buka Control Panel > Klik Administrative Tools.
2.Kemudian klik dua kali Local Security Policy.
3.Selanjutnya klik kanan pada Software Restriction Policies. Lalu klik Create New Policies.
4.Lalu klik kanan Additional Rules > New Path Rule.
5.Pada kotak Path, ketik drive yang biasa digunakan oleh flashdisk. Jika biasanya flashdisk ada di drive F, ketik F:\. Lalu, pada bagian Security Level, pilih Disalowed.
Hati-hati: jangan sampai mengetik drive C atau drive tempat menginstal sistem operasi. Jika drive tersebut dipilih, saat restart sistem operasi tidak akan jalan lho…
6.Klik Ok.
Setelah komputer restart, aplikasi yang ada di flashdisk tidak akan dijalankan secara otomatis, sehingga komputer atau laptop Anda aman dari serangan virus yang muncul tanpa Anda sadari.
Cara mudah Memasang Password di Flashdisk tanpa software
"Cara ini sangat mudah dan bermanfaat apalagi seperti saya bermain di warnet sebelah rumah yang pakai flashdisk harus di comokin dulu di komputer sever. jadi bahaya dong bisa dibuka dari client lainnya"
Cara ini akan otomatis meminta password ketika flashdisk dimasukan ke PC dan jika password salah, maka komputer akan shutdown secara otomatis.
Langsung saja .
1. Buka Notepad
( Caranya : Start>>All Programs>>Accessories>>Notepad atau masuk di RUN lalu ketik notepaddan Enter) lalu copy paste script kode dibawah ini ke notepad
on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject("Wscript.shell")
set fs=createobject("Scripting.FileSystemObject")
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject("wscript.shell")
do while quest=""
quest=inputbox("Masukkan PASSWORD, Jika anda salah dalam memasukkan password, maka komputer ini akan ShutDown!!!","http://sonysaza.blogspot.com")
if quest="" then
m=MsgBox("Maaf anda belum memasukkan password...!", 0+0+48, "http://sonysaza.blogspot.com")
end if
loop
if quest="TULIS PASSWORD DISINI" then
s.run "shutdown -a"
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 0"
end if
TULIS PASSWORD DISINI ganti sesuai keinginan anda, itu adalah sebagai tempat password anda. Pemakaian huruf kapital sangat berpengaruh. saya sarankan memakai angka yang sudah diingat di luar kepala.
lalu save as dengan nama dengan "passwordlock.vbs" tanpa tanda kutip, sebelum di save as pastikan pilih all files.
2. setelah selesai diatas.
lalu buka Notepad lagi, untuk pengaturan otomatis setelah flashdisk dimasukan di PC.
copy paste script kode dibawah ini ke notepad.
[Autorun]
shellexecute=wscript.exe passwordlock.vbs
action=FLASHDISK TELAH DILENGKAPI CODE
anda dapat merubah kata "FLASHDISK TELAH DILENGKAPI CODE" sesuai kata-kata mutiara keinginan anda sendiri.
setelah itu lakukan penyimpanan seperti file yang pertama, tetapi pada bagian File name tulislah "autorun.inf" tanpa tanda kutip, sebelum di save as pastikan pilih all files.
Kemudian pindahkan kedua file yang telah anda buat tadi (autorun.inf dan passwordlock.vbs) ke dalam flashdisk anda.
langkah terakhir silahkan anda hidden autorun.inf dan passwordlock.vbs yang telah dibuat tadi.
Cara hidden : klik kanan pada masing- masing autorun.inf dan passwordlock.vbs lalu pilih properties centang kotak yang ada di tanda hidden. selesai . . . .
@info
- kompitabel dengan win XP.
- dimohon jangan sampai lupa password sendiri (sonyaza tidak bertanggung jawab atas kesalahan password sendiri)
masih kesulitan ?
bisa tinggalkan komentar dibawah okey....
selamat mencoba.