Rahasia RUN

Rahasia Menu RUN pada windows itu sebenarnya Banyak , Tapi munkin yang paling kita tahu adalah cmd,, tapi masih banyak lagi yang bisa sobat jelajahi dari Menu RUN, silahkan anda mencobanya ,, daftar menu'a untuk XP ada di bawah ini :

* Accessibility Controls >> access.cpl
* Add Hardware Wizard >> hdwwiz.cpl
* Add/Remove Programs >> appwiz.cpl
* Administrative Tools control >> admintools
* Automatic Updates >> wuaucpl.cpl
* Bluetooth Transfer Wizard >> fsquirt
* Calculator >> calc
* Certificate Manager >> certmgr.msc
* Character Map >> charmap

* Check Disk Utility >> chkdsk
* Clipboard Viewer >> clipbrd
* Command Prompt >> cmd
* Component Services >> dcomcnfg
* Computer Management >> compmgmt.msc
* timedate.cpl >> ddeshare
* Device Manager >> devmgmt.msc
* Direct X Control Panel (If Installed)* >> directx.cpl
* Direct X Troubleshooter >> dxdiag
* Disk Cleanup Utility >> cleanmgr
* Disk Defragment >> dfrg.msc
* Disk Management >> diskmgmt.msc
* Disk Partition Manager >>diskpart
* Display Properties >> control desktop
* Display Properties >> desk.cpl
* Display Properties (w/Appearance Tab Preselected) >> control color
* Dr. Watson System Troubleshooting Utility >> drwtsn32
* Driver Verifier Utility >> verifier
* Event Viewer >> eventvwr.msc
* File Signature Verification Tool >> sigverif
* Findfast >> findfast.cpl
* Folders Properties >> control folders
* Fonts control >> fonts
* Fonts Folder >> fonts
* Free Cell Card Game >> freecell
* Game Controllers >> joy.cpl
* Group Policy Editor (XP Prof) >> gpedit.msc
* Hearts Card Game >> mshearts
* Iexpress Wizard >> iexpress
* Indexing Service >> ciadv.msc
* Internet Properties >> inetcpl.cpl
* IP Configuration (Display Connection Configuration) >> ipconfig /all
* IP Configuration (Display DNS Cache Contents) >> ipconfig
* IP Configuration (Delete DNS Cache Contents) >> ipconfig /flushdns
* IP Configuration (Release All Connections) >> ipconfig /release
* IP Configuration (Renew All Connections) >> ipconfig /renew
* IP Configuration (Refreshes DHCP & Re-Registers DNS) >> ipconfig
* IP Configuration (Display DHCP Class ID) >> ipconfig /showclassid
* IP Configuration (Modifies DHCP Class ID) >> ipconfig /setclassid
* Java Control Panel (If Installed) >> jpicpl32.cpl
* Java Control Panel (If Installed) >> javaws
* Keyboard Properties >> control keyboard
* Local Security Settings >> secpol.msc
* Local Users and Groups >> lusrmgr.msc
* Logs You Out Of Windows >> logoff
* Microsoft Chat >> winchat
* Minesweeper Game >> winmine
* Mouse Properties >> control mouse
* Mouse Properties >> main.cpl
* Network Connections >> control netconnections
* Network Connections >> ncpa.cpl
* Network Setup Wizard >> netsetup.cpl
* Notepad >> notepad
* Nview Desktop Manager (If Installed) >> nvtuicpl.cpl
* Object Packager >> packager
* ODBC Data Source Administrator >> odbccp32.cpl
* On Screen Keyboard >> osk
* Opens AC3 Filter (If Installed) >> ac3filter.cpl
* Password Properties >> password.cpl
* Performance Monitor >> perfmon.msc
* Performance Monitor >> perfmon
* Phone and Modem Options >> telephon.cpl
* Power Configuration >> powercfg.cpl
* Printers and Faxes >> control printers
* Printers Folder >> printers
* Private Character Editor >> eudcedit
* Quicktime (If Installed) >> QuickTime.cpl
* Regional Settings >> intl.cpl
* Registry Editor >> regedit
* Registry Editor >> regedit32
* Remote Desktop >> mstsc
* Removable Storage >> ntmsmgr.msc
* Removable Storage Operator Requests >> ntmsoprq.msc
* Resultant Set of Policy (XP Prof) >> rsop.msc
* Scanners and Cameras >> sticpl.cpl
* Scheduled Tasks control >> schedtasks
* Security Center >> wscui.cpl
* Services >> services.msc
* Shared Folders >> fsmgmt.msc
* Shuts Down Windows >> shutdown
* Sounds and Audio >> mmsys.cpl
* SQL Client Configuration >> cliconfg
* System Configuration Editor >> sysedit
* System Configuration Utility >> msconfig
* System File Checker Utility (Scan Immediately) >> sfc /scannow
* System File Checker Utility (Scan Once @Next Boot) >> sfc /scanonce
* System File Checker Utility (Scan On Every Boot) >> sfc /scanboot
* System File Checker Utility (Return to Default Setting) >> sfc /revert
* System File Checker Utility (Purge File Cache) >> sfc /purgecache
* System File Checker Utility (Set Cache Size to size x) >> sfc /cachesize=x
* System Properties >> sysdm.cpl
* Task Manager >> taskmgr
* Telnet Client >> telnet
* User Account Management >> nusrmgr.cpl
* Utility Manager >> utilman
* Windows Firewall >> firewall.cpl
* Windows Magnifier >> magnify
* Windows Management Infrastructure >> wmimgmt.msc
* Windows System Security Tool >> syskey
* Windows Update Launches >> wupdmgr
* Windows XP Tour Wizard >> tourstart
* Wordpad >> write

Selamat Berjlajah di MENU RUN

Read More

Animasi Dengan Trubo C

Gambar 1. Jendela pertama diminta memasukkan Huruf Max 7 Karakter

Gambar 2. Bentuk animasi yang akan dihasilkan

*Silahkan klik gambar untuk melihat hasil animasi

Tadi sore ada seorang teman bertanya dengan saya, gimana cara buat animasi dengan menggunakan Turbo C. Dengan spontan saya jawab, "Wah kami gak pernah belajar animasi dengan Turbo C". Tetapi si teman tetap ngotot minta buatka salah satu bentuk program animasi yang dibuat dengan Turbo C. Eh ternyata akhirnya saya tau klo itu merupakan salah satu tugas Smester yang diberikan oleh dosennya.
O.K. lah saya mencoba mencari di google, kemudian merobah dan mengedit program animasi tersebut. Nah inilah dia hasil program yang telah dibuat tersebut.

Good Luck ya, moga dapat nilai bagus :)

#include
#include
#include
#include
main()
{
    char kata[10],kata1[10],kata2[10];
    int i,j,k,l,m;
    clrscr();
    gotoxy(24,11);
    printf("Masukkan Kata (Max 7 Karakter) : ");scanf("%s",&kata);
    strcpy(kata1,kata);
    strcpy(kata2,kata);
    for(i=0;i<=strlen(kata)-1;i++)
   {
        if(i%2==1)
          {
              kata1[i]=' ';
          }
              else
          {
              kata2[i]=' ';
          }
       printf("%s",kata);
       printf("%s",kata1);
       printf("%s",kata2);
   }

       while(1)
              {
              for(i=1,j=15-strlen(kata),k=59+strlen(kata),l=11;i<=11;i++,j+=2,k-=2,l--)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata1);
                   gotoxy(k,i);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))-j,12);printf("%s",kata1);
                   gotoxy(j,l+12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata2);
                   gotoxy(k,l+12);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata2);
                   delay(200);
             }

            for(i=11,j=35-strlen(kata),k=39+strlen(kata),l=1;i>=1;i--,j-=2,k+=2,l++)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata2);
                   gotoxy(k,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata)-j,12);printf("%s",kata2);
                   gotoxy(j,l+12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata1);
                   gotoxy(k,l+12);printf("%s",kata1);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata1);
                   gotoxy(k,i);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))-j,12);printf("%s",kata1);
                   gotoxy(j,l+12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata2);
                   gotoxy(k,l+12);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata2);
                   delay(200);
             }

            for(i=1,j=15-strlen(kata),k=59+strlen(kata),l=11;i<=11;i++,j+=2,k-=2,l--)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata1);
                   gotoxy(k,i);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))-j,12);printf("%s",kata1);
                   gotoxy(j,l+12);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata2);
                   gotoxy(k,l+12);printf("%s",kata2);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata2);
                   gotoxy(k,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata)-j,12);printf("%s",kata2);
                   gotoxy(j,l+12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata1);
                   gotoxy(k,l+12);printf("%s",kata1);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata1);
                   delay(200);
             }

            for(i=11,j=35-strlen(kata),k=39+strlen(kata),l=1;i>=1;i--,j-=2,k+=2,l++)
             {
                   clrscr();
                   textcolor(i);
                   gotoxy(37-1/2*strlen(kata),12);printf("%s",kata);
                   gotoxy(j,i);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),l);printf("%s",kata2);
                   gotoxy(k,i);printf("%s",kata1);
                   gotoxy(37-1/2*strlen(kata)-j,12);printf("%s",kata2);
                   gotoxy(j,l+12);printf("%s",kata2);
                   gotoxy(37-1/2*strlen(kata),i+12);printf("%s",kata1);
                   gotoxy(k,l+12);printf("%s",kata1);
                   gotoxy((37-1/2*strlen(kata))+j,12);printf("%s",kata1);
                   delay(200);
             }
                   clrscr();
             }
}

 

Read More

Program Zodiak dari Visual Basic 6.0

Gambar Program Aplikasi Horoskop

Beberapa hari yang lalu ada seorang teman cew dari kampus yang terkemuka juga di kota medan ini, dia bertanya soal pada saya gimana cara buat Program ramalan Zodiak dari Visual Basic 6.0

Sebenarnyasih dikampus q sama sekali gak pernah buatnya, cuma karena saya juga penasaran dengan program Zodiaknya langsung aja saya sanggupi untuk membuatlanya.

setalh berpikir logika programnya sebentar selanjutnya saya mulai membuat formnya. dan membuat programnya.

nah beginilah listing program yang saya buat mungkin akan terlihat sangat kacau listing programnya tapi tenang aja, dibawah saya sudah menyediakan file aslinya supaya bisa teman-teman edit kembali :

Private Sub Form_Load()
                LblHari.Visible = False
                LblUmur.Visible = False
                LblZodiak.Visible = False
                LblKeterangan.Visible = False
                hari.Visible = False
                umur.Visible = False
               zodiak.Visible = False
               keterangan.Visible = False
               tahun.Visible = False
               CmbKelamin.Text = "Pilih..!!"
              With CmbKelamin
                         .AddItem "Laki-Laki"
                         .AddItem "Perempuan"
               End With
End Sub

Private Sub Command1_Click()
              Dim Bulan As Integer
              Dim Tanggal As Integer
              Tanggal = Format(DTPicker.Value, "dd")
              Bulan = Format(DTPicker.Value, "MM")
   
              If TxtNama.Text = "" Then
                   MsgBox "Isi Dahulu Nama Anda", vbInformation, "Informasi"
                   TxtNama.SetFocus
                   Exit Sub
             End If

            If CmbKelamin.Text = "" Or CmbKelamin.Text = "Pilih..!!" Then
                   MsgBox "Pilih Dahulu Jenis Kelamin Anda", vbInformation, "Informasi"
                   CmbKelamin.SetFocus
            Exit Sub
    End If
   
    'Menentkan Umur
    LblUmur.Caption = DateDiff("yyyy", DTPicker.Value, Date)
   
    'Menentukan Hari
    KodeHari = Weekday(DTPicker.Value)
    Select Case KodeHari
                 Case 1: hari = "Minggu"
                 Case 2: hari = "Senin"
                 Case 3: hari = "Selasa"
                 Case 4: hari = "Rabu"
                 Case 5: hari = "Kamis"
                 Case 6: hari = "Jumat"
                 Case 7: hari = "Sabtu"
    End Select

    LblHari.Caption = hari
   
    'Menentukan Zodiak
             If Bulan = 1 Then
                    LblZodiak.Caption = IIf(Tanggal <= 19, "Capricorn", "Aquarius")
             ElseIf Bulan = 2 Then
                    LblZodiak.Caption = IIf(Tanggal <= 19, "Aquarius", "Pisces")
             ElseIf Bulan = 3 Then
                    LblZodiak.Caption = IIf(Tanggal <= 20, "Pisces", "Aries")
             ElseIf Bulan = 4 Then
                    LblZodiak.Caption = IIf(Tanggal <= 20, "Aries", "Taurus")
             ElseIf Bulan = 5 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Taurus", "Gemini")
             ElseIf Bulan = 6 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Gemini", "Cancer")
             ElseIf Bulan = 7 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Cancer", "Leo")
             ElseIf Bulan = 8 Then
                    LblZodiak.Caption = IIf(Tanggal <= 21, "Leo", "Virgo")
             ElseIf Bulan = 9 Then
                    LblZodiak.Caption = IIf(Tanggal <= 22, "Virgo", "Libra")
             ElseIf Bulan = 10 Then
                    LblZodiak.Caption = IIf(Tanggal <= 23, " Libra", "Scorpio")
             ElseIf Bulan = 11 Then
                    LblZodiak.Caption = IIf(Tanggal <= 22, "Scorpio", "Sagitarius")
             Else
                    LblZodiak.Caption = IIf(Tanggal <= 22, "Sagitarius", "Capricorn")
             End If
   
    'Mengisi Label keterangan
             If LblZodiak.Caption = "Capricorn" Then
                    LblKeterangan.Caption = "Penuh energi, Penuh intuisi, mampu berinspirasi, dapat meramal,  berperikemanusiaan, dapat menerangkan sesuatu"
            ElseIf LblZodiak.Caption = "Aquarius" Then
                    LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
            ElseIf LblZodiak.Caption = "Pisces" Then
                    LblKeterangan.Caption = "Penuh energi, serba bisa, banyak akal, cepat bertindak, cinta kebebasan dan perubahan, bisa menjamu dan menghibur, seksualitas, mampu berpikir cepat"
            ElseIf LblZodiak.Caption = "Aries" Then
                    LblKeterangan.Caption = "Penuh energi, serba bisa, banyak akal, cepat bertindak, cinta kebebasan dan perubahan, bisa menjamu dan menghibur, seksualitas, mampu berpikir cepat"
            ElseIf LblZodiak.Caption = "Taurus" Then
                    LblKeterangan.Caption = "Ulet, gigih, Memiliki otoritas, berkemampuan eksekutif, senang melakukan supervisi, mempertimbangkan efisiensi, penilai, meterialis, bisa dipercaya"
            ElseIf LblZodiak.Caption = "Gemini" Then
                    LblKeterangan.Caption = "Berani, Penuh inisiatif, mempunyai daya cipta, Individualitas, mempnyai gagasan2 creatif dan inventif, memiliki kemampuan eksekutif, berkemauan keras, gigih, mandiri, mampu bertindak, penuh perjuangan"
            ElseIf LblZodiak.Caption = "Cancer" Then
                     LblKeterangan.Caption = "Mempunyai perdamaian, dapat bekerja sama, berjiwa kemitraan, diplomasi, penengah, suka berunding, mudah beradaptasi, rendah hati, luwes, memiliki pengaruh spiritual"
            ElseIf LblZodiak.Caption = "Leo" Then
                      LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
            ElseIf LblZodiak.Caption = "Virgo" Then
                      LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
            ElseIf LblZodiak.Caption = "Libra" Then
                      LblKeterangan.Caption = "Konstruktif, sistematis, tertib, praktis, relistis, teguh, tenang, efisien, pembangun, serius, berpikir ilmiah, tekun, bertanggung jawab, rajin, jujur, setia, keras hari"
            ElseIf LblZodiak.Caption = "Scorpio" Then
                      LblKeterangan.Caption = "Tidak mementingkan diri sendiri, pemaaf, iba hati, bisa toleran, lapang dada, dermawan, ahli agama, suka akan hal spiritual"
            Else
                       LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi, berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal dengan cepat"
             End If

             LblHari.Visible = True
             LblUmur.Visible = True
             LblZodiak.Visible = True
             LblKeterangan.Visible = True
             hari.Visible = True
             umur.Visible = True
             zodiak.Visible = True
             keterangan.Visible = True
             tahun.Visible = True
End Sub

Private Sub Command2_Click()
            End
End Sub

'Membuat tulisan blog berwarna
Private Sub Timer1_Timer()
          blog.ForeColor = RGB(255, 255, 255) * Rnd
End Sub

'Membuat Nama zodiak berganti2 warna
Private Sub Timer3_Timer()
           LblZodiak.ForeColor = RGB(255, 255, 255) * Rnd
End Sub




Download File :
Download : Zodiak
Password  : fahri
Ukuran      : 701 kb

Read More