Senin, 19 November 2012

Membuat Kata Terbalik di C++

#include < stdio . h >
#include < conio . h >

#define huruf 25

main()
{

   char A[huruf];
   int i, j=0, k;

   printf("Masukkan kata = ");
   gets(A);

   printf("Setelah dibalik menjadi = ");

   for(i=0; A[i]!=0; i++)
      {
         j++;
      }

   k=j-1;

   for(i=k; A[i]>0; i--)
      {
         printf("%c", A[i]);
      }

   getch();
}



/* hanya sharing tentang pemrograman yang didiskusikan dengan mahasiswa salah satu perguruan tinggi swasta di bandar lampung, semoga dengan banyak bertanya mahasiswa tersebut akan lebih banyak mendapatkan ilmu yang lebih bermanfaat */

Rabu, 07 November 2012

Cara Memainkan Game .SWF di Ubuntu 10.04 dengan Gnash SWF Viewer

Apa sih Gnash SWF Viewer itu? Pengertiannya bisa di liat di http://en.wikipedia.org/wiki/Gnash . Nah untuk memainkan file game ber-ektensi .swf pertama kita install dulu Gnash SWF Viewer melalui Synaptic Package Manager, masukan di kolom search kata Gnash SWF Viewer, setelah muncul Package gnash lalu di Apply untuk peng-install-an. Setelah selesai meng-install, coba mainkan file game yang ber-ekstensi .swf dengan cara di klik kanan lalu pilih Open with Gnash SWF Viewer



Selasa, 06 November 2012

Membuat Nilai / Angka 00001 di Visual Basic 6.0

Bagaimana sih cara membuat nilai atao angka secara berurut mulai dari 1 dan seterusnya selama program itu dipakai? Wah kalo mulai dari 1 dan seterusnya sih mudah mudah aja, tinggal nilai awal ditambahkan dengan 1 setiap program mengeksekusi nilai, nah gimana kalo nilai awalnya dimulai dengan nilai atao angka 00001 ?  Hadoh gak bisa bisa gw buatnya, pasti setelah dieksekusi menjadi 1 kembali, nilai Nol ( 0 ) didepannya kembali hilang.. Source code ini berfungsi untuk membuat nama file secara berurut ataopun untuk membuat nomor suatu database secara berurut.

Setelah tanya sana sini, akhirnya gw dapet juga sourcenya, walau gak lengkap, tetapi sudah gw edit sesuai dengan apa yang gw mau, cekibrot di bawah ini

Private Sub Form_Load()

Dim angka As String
Dim urut As String * 5
Dim hitung As Integer

    If Dir(App.Path & "\data.txt", vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = "" Then  

'ngecek file ada atau tidak
                        
        hitung = 1                                      

'menentukan nilai awal
        urut = Right("00000" & hitung, 5)                

'pemberian nilai sebanyak 5 digit dengan nilai awal adalah hitung
        
        Open App.Path & "\data.txt" For Output As #1     

'jika file belum ada maka ciptakan file
            Print #1, urut
        Close #1
                
        Text1.Text = urut                               

'masukkan nilai kedalam text1
        
    Else
                
        Open App.Path & "\data.txt" For Input As #1      

'membaca isi file data.txt
            Input #1, hitung
        Close #1
        
        hitung = hitung + 1                             

'tambahkan nilai 1 dari data hitung dari file data.txt
        urut = Right("00000" & hitung, 5)               

'masukna data hitung menjadi 5 digit
        
        Open App.Path & "\data.txt" For Output As #1     

'menuliskan ke file dengan menghapus data data file lama dan masukan data terbaru
            Print #1, urut
        Close #1

        Text1.Text = urut                                

'masukkan nilai kedalam text1

    End If
    
End Sub



Minggu, 04 November 2012

Salah Satu Halaman Thread Kaskus di Deface (Kereeen!!!)

Seperti biasa gw jalan jalan di BPLN lokal, dan gw pengen baca salah satu trit yang berjudul PKB : Jangan Jangan Bang Rhoma Yang GR dengan alamat http://www.kaskus.co.id/thread/50953c4fe474b4c00900007f/pkb-jangan-jangan-bang-rhoma-yang-gr/, dan yang muncul bukan halaman kaskus, gw kira gw salah klik link, eh setelah diliat lagi rupanya halamannya di deface dengan sempurna 1 halaman full, kereeen menurut gw!!!!

Cek capture-nya :



Ini salah satu halaman yang di uji coba sebelum di uji ke trit sebenarnya yang gw temuin lewat google. Cekibrot :


Sabtu, 03 November 2012

Wow, Film Cybergeddon Hanya Di Yahoo! (Download Chapter Ber-subtitle Indonesia Lengkap)


“Dalam dunia di mana semua orang saling terhubung, semua orang sebenarnya dalam  bahaya. Serangan dan kejahatan di dunia maya merupakan senjata yang dipilih  para musuh dalam rangka menghancurkan pikiran dan kesejahteraan Amerika Serikat. Dua pertiga penduduk AS (yang berjumlah 317 juta jiwa) memiliki perangkat  elektronik. Setiap hari, situs kementerian pertahanan AS diserang hampir 80 ribu kali. Lebih dari $ 600 juta uang melayang akibat kejahatan di internet. Kita semua rawan  dan terancam. Dan ancaman  itu ada  di segala  arah —  mulai dari  laptop anak  kecil di  rumahnya atau  di luar  negeri. Cybergeddon  sudah dekat.  Apakah Anda  siap menghadapinya?”
Awal mulanya mau ngecek email di Yahoo! eh tau taunya tampilan Yahoo! berbeda dari sebelumnya, disana tertulis "CYBERGEDDON", sebuah film kejahatan digital yang menegangkan hanya di Yahoo! TONTON SEKARANG. Wow... film hi-tech, tanpa pikir panjang (gak mikir kalo quota internet-an gw sudah sekarat) langsung aja gw klik Tonton Sekarang (http://id.cybergeddon.yahoo.com/) dan alhasil rupanya harus minta update browser terbaru, ahh.. gak jadi nonton dunk, (...berpikir sebentar...) kalo gitu google aja deh, sapa tau ada link donlot, kan lumayan.


Ini gw dapet link untuk donlotnya yang berbahasa indonesia