Manipulasi

Menggabungkan kata dengan C++

 //menggabungkan 2 kata


CODE

 #include<string.h>
#include<ctype.h>
#include<iostream.h>
#include<conio.h>
main()
{
  char a[30];
  char b[30];
  clrscr();
  cout<<"kata pertama=";
  cin>>a;
  cout<<"kata kedua=";
  cin>>b;
  strcat(a,b);
  cout<<"hasil gabungan:"<<a;
  getch();
}



 Print Outnya :

Program Sederhana Penjualan Pulsa Dengan VB 06

Assalamu alaikum sobat.,, !!

postingan kali ini tentang PROGRAM PENJUALAN PULSA dengan menggunakan PROGRAM VB 06 

sobat pasti udah tau kan apa itu VB ? hehehe klo bulum tau selundur dlu geeeh sana di om gugel :D :D xixixixi .,, nah tahap pertama sobat buat dulu tampilan seperti di bawah ini.,., yaahhh tampa panjang lebar.,. mending langsung di simak aja deh sobb :) Cekidootttt .....!!!!

Listing

Private Sub Command2_Click()

Dim hapus As Integer

hapus = MsgBox("Apakah anda yakin ingin menghapus data ini?", vbQuestion + vbYesNo, "@Muzakkir_Idrus?")

If hapus = vbYes Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF = True Then

Adodc1.Recordset.MovePrevious

End If

End If

End Sub

================================================================================

Private Sub Command5_Click()

If Command5.Caption = "Edit" Then

    Command5.Caption = "Update"

   

ElseIf Command5.Caption = "Update" Then

Adodc1.Recordset!NFaktur = Text1.Text

Adodc1.Recordset!Operator = Combo1.Text

Adodc1.Recordset!No_Hp = Text2.Text

Adodc1.Recordset!Nominal = Combo2.Text

Adodc1.Recordset!Saldo = Text3.Text

Adodc1.Recordset!Harga = Text4.Text

Adodc1.Recordset!Bayar = Text5.Text

Adodc1.Recordset.Update

MsgBox "data sudah di perbaharui", vbOKOnly, "@muzakkir_Idrus"

Combo1.Text = "--Pilih Operator--"

Text2.Text = ""

Combo2.Text = "--Pilih Nominal Pulsa"

Text3.Text = ""

Text4.Text = ""

End If

End Sub

=================================================================================

Private Sub form_load()

Combo1.Text = "--Pilih Operator --"

Combo2.Text = "--Pilih Nominal Pulsa--"

Text2.Text = ""

Text3.Text = 1000000

Text4.Text = ""

Text5.Text = ""

Text7.Text = ""

End Sub

Private Sub Combo2_Click()

Select Case LCase(Combo2.Text)

    Case "5rb"

        Text4.Text = 7000

    Case "10rb"

        Text4.Text = 12000

    Case "20rb"

        Text4.Text = 22000

    Case "50rb"

        Text4.Text = 52000

    Case "100rb"

        Text4.Text = 98000

    Case Else

        Text4.Text = ""

 End Select

 End Sub

==============================================================================

Private Sub Command1_Click()

Text3.Text = Val(Text3.Text) - Val(Text4.Text)

Text7.Text = FormatCurrency(Val(Text5.Text) - Val(Text4.Text), 2)

Adodc1.Recordset.AddNew

Adodc1.Recordset!NFaktur = Text1.Text

Adodc1.Recordset!Operator = Combo1.Text

Adodc1.Recordset!Nominal = Combo2.Text

Adodc1.Recordset!No_Hp = Text2.Text

Adodc1.Recordset!Saldo = Text3.Text

Adodc1.Recordset!Harga = Text4.Text

Adodc1.Recordset!Bayar = Text5.Text

Adodc1.Recordset!Tgl_Transaksi = Text6.Text

Adodc1.Recordset!kembalian = Text7.Text

Adodc1.Recordset.Update

MsgBox "Pulsa telah ditransfer ", vbInformation, "@Muzakkir_Idrus"

End Sub

==============================================================================

Private Sub Command3_Click()

Static faktur As String

Static inc As Integer

inc = inc + 1

faktur = Format(CStr(inc + 1), "0000")

Text1.Text = faktur

Combo1.Text = "--Pilih Operator --"

Combo2.Text = "--Pilih Nominal Pulsa--"

Text2.Text = ""

Text4.Text = ""

Text5.Text = ""

Text7.Text = ""

End Sub

==========================================================================

Private Sub Command4_Click()

MsgBox "anda ingin keluar ? ", vbQuestion + vbYesNo, "@muzakkir_idrus"

Unload Me

End Sub

=========================================================================

Private Sub Timer1_Timer()

 Text6.Text = Format(Date, "dd/MM/yyyy") & "  --  " & Format(Time, "hh:nn:ss AM/PM")

End Sub

Yah sekian dulu yah sob.,., sobat bisa tambahin klo listing/kodenya masih kurang , semoga membantu yah .,Ewako !! THE MACZ MAN  Sektor STMIK DIPANEGARA !!

 

Cara Agar Wordpress bisa Update lebih dari 2Mb

Malam sobat blogger (hehehe nulisnya pas malam lagi  yahh malam part II lah xixixi :D ) nah postingan ini membahas Cara agar ketika kita mengapdate file,music, dll itu bisa lebih nyaman sob tanpa harus repot2 cari file, music dll yg d bawah atw = 2mb :D repotkan ?? yah Catatan Muzakkir Idrus Ini terobsesi karena banyaknya teman2 yang mengeluh pada saat ingin mengapdate music di web mereka tau2.y maximum.y hanya 2mb sob :D nah kita langsung aja ketekape sob !! simak yahhhh ,,,

 Cara Agar Wordpress bisa Update lebih dari 2Mb

Saat sobat mengimport postingan dari wordpress lama ke wordpress baru,  maka sobat perlu mengimport postingan Anda. Permasalahan yang pasti dihadapi adalah, batas maksimal upload yang bisa dilakukan wordpress hanya 2 MB. Misal file XML anda sebesar 25 MB, Bagaimana cara mengatasinya?
 Cara Meningkatkan Batas Maksimum upload WordPress :
1. Mengedit .htaccess Cara ini yang saya lakukan karena sangat mudah hanya dengan menambahkan skrip pada file .htaccess, masukkan kode berikut : php_value upload_max_filesize 64M php_value post_max_size 64M php_value max_execution_time 300 php_value…

Selamat mencoba Sobat !!

Pasal tentang si penulis sob :
1. penulis tidak pernah salah
2. jika penulis salah maka kembali ke bunyi pasal 1 :D (xixixixixi)

Membuat Lampu Lalu Lintas dengan Delphi

selamat malam sob (nulisnya pas malam :D ) kali ini saya posting tentang cara Membuat Lampu Lalu Lintas dengan Delphi . model lampu lalu lintas yang saya buat ini yaitu perempatan jadi sobat blogger buat dulu shape sebanyak 12, label saya pakai 5 label sob,   jangan lupa pasang timer yah sob :) kurang lebihnya penampakannya kayak di samping



 Nah klo udah jadi tunggu apa lgi sob., klik 2x pada timer lalu tuliskan listing di awah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:integer;
begin
a:=StrToInt(label1.Caption);
a:=a-1;
label1.Caption:=IntToStr(a);
if label1.Caption='0' then label1.Caption:='25';

if a=20 then label2.Caption:='GO !!';
if a=20 then label3.Caption:='STOP !!';
if a=20 then label4.Caption:='GO !!';
if a=20 then label5.Caption:='STOP !!';

if a=20  then
 begin
Shape1.Brush.Color:=clWhite;
Shape2.Brush.Color:=clwhite;
Shape3.Brush.Color:=clgreen;
shape4.Brush.Color:=clRed;
shape5.Brush.color:=clwhite;
shape6.Brush.Color:=clwhite;
Shape7.Brush.Color:=clWhite;
Shape8.Brush.Color:=clwhite;
Shape9.Brush.Color:=clgreen;
shape10.Brush.Color:=clRed;
shape11.Brush.color:=clwhite;
shape12.Brush.Color:=clwhite;

  end

else if a=15 then
 begin
 Shape1.Brush.Color:=clWhite;
 Shape2.Brush.Color:=clyellow;
 Shape3.Brush.Color:=clwhite;
 shape4.Brush.Color:=clRed;
 shape5.Brush.color:=clwhite;
 shape6.Brush.Color:=clwhite;
 Shape7.Brush.Color:=clWhite;
 Shape8.Brush.Color:=clyellow;
 Shape9.Brush.Color:=clwhite;
 shape10.Brush.Color:=clRed;
 shape11.Brush.color:=clwhite;
 shape12.Brush.Color:=clwhite;
 end

else if a=10 then label2.Caption:='STOP !!';
  if a=10 then label3.Caption:='GO !!';
  if a=10 then label4.Caption:='STOP !!';
  if a=10 then label5.Caption:='GO !!';

 if a=10 then
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clWhite;
Shape3.Brush.Color:=clWhite;
shape4.Brush.Color:=clwhite;
shape5.Brush.color:=clwhite;
shape6.Brush.Color:=clgreen;
Shape7.Brush.Color:=clRed;
Shape8.Brush.Color:=clWhite;
Shape9.Brush.Color:=clWhite;
shape10.Brush.Color:=clwhite;
shape11.Brush.color:=clwhite;
shape12.Brush.Color:=clgreen;
 end

else if a=5 then
 begin
Shape1.Brush.Color:=clred;
Shape2.Brush.Color:=clwhite;
Shape3.Brush.Color:=clWhite;
shape4.Brush.Color:=clwhite;
shape5.Brush.color:=clyellow;
shape6.Brush.Color:=clwhite;
Shape7.Brush.Color:=clred;
Shape8.Brush.Color:=clwhite;
Shape9.Brush.Color:=clWhite;
shape10.Brush.Color:=clwhite;
shape11.Brush.color:=clyellow;
shape12.Brush.Color:=clwhite;

end;
end;
end.
maka hasilnya akan seperti ini sobat blogger :

SELAMAT MENCOBA SOBAT BLOGGER !! ^_^ 
semoga bermanfaat sob :)

Catatan Harian "MUZAKKIR IDRUS": Cara membuat Web Wordpress dengan Xampp

Catatan Harian "MUZAKKIR IDRUS": Cara membuat Web Wordpress dengan Xampp

Cara membuat Web Wordpress dengan Xampp

Di postingan kali ini w sharing tentang cara buat web wordpress bru  !! kebetulan ini juga tugas w bru  ngebuat Web wordpress :D  simak yah :) nggak perlu banyak cikcokk langsung aja KETEKAPE !! :D

Nih ane kasi Link yang kepengen Buat Web Wordpress tp gk punya Xampp ama wordpress, (asal jgn gk punya laptop yah bru soalnya laptop w cuman satu :D xixixixixix :D )

1. Software Xampp, bagi sahabat yang belum punya slahkan download disini.

2. Dowload Wordpress versi terakhirnya, di situs resminya yaitu http://www.wordpress.org, pada saat postingan ini saya tulis adalah Wordpress Ver.3.1

Pertama tama setelah sobat berhasil mendownload program Xampp tersebut, silahkan langsung install pada komputer sobat, adapun cara mengintallnya adalah sebagai berikut :

1. Doble klik pada Xamp Installer hasil download bru ..
2. Maka akan tampil halaman Welcome Setup Wizard, klik next
3. Maka akan tampil halaman Choose Install Location, klik next

4. Maka akan muncul halaman seperti dibawah ini :

• Contreng pada kotak Install Apache as service.
• Dan contreng pula pada Install MySQL as service.
• Kemudian klik Install, maka proses penginstallan akan berjalan, dan silahkan sobat tunggu sampai proses penginstallan selesai 100%.

Sekarang waktunya menginstall Wordpress :




Warning : jangan lupa yah bru file wordpress yang di download tadi di simpan di data C >>Xampp>>Htdoc>> lalu copy file wordpressnya di situ (klo masih bentuk rar/zip yahh di extract dlu yah bru !! dan ingat yang di simpan itu bukan file Wordpress Ver.3.1 Wordpress Ver.3.1 tapi bru buka dlu file itu., nah dalam file itu ada file Wordprees., itu yang bru copy ke file htdoc. setelah itu lanjoooot bru langkah brikutnya :) 

• Tuliskan pada browser Internet sobat http://localhost/xampp/ kemudian tekan enter, maka akan muncul halaman seperti dibawah ini :

• Klik phpMyAdmin (lingkaran biru) maka akan muncul halaman seperti dibawah ini :

• Pada kolom createdatabase isi dengan wordpress tanpa tanda petik, kemudian klik create, maka kalau sukses akan muncul tampilan seperti dibawah ini.

• Saya ucapkan selamat untuk anda bahwa pembuatan database wordpress anda telah sukses, selanjutnya silahkan anda keluar dari browser internet anda. 
• Copy hasil file Wordpress yang telah diextract, dan paste pada folder C:\xampp\htdocs. 
• Masuk ke xampp control panel atau doble klik icon control panel pada destop komputer anda. Dan pastikan bahwa Apache dan MySQL dalam kondisi aktiv (runing), seperti gambar di bawah ini.

• Silahkan masuk ke http://lokalhost/xampp/ di browser internet anda maka akan muncul halaman seperti dibawah ini :

Klik Let’s go!

Lihat gambar diatas :

• Database Name = wordpress 
• User Name = root 
• Password = sementara kosong 
• Database Host = localhost 
• Table Prefix = WP_

 Klik Submit

 

Klik Run the Install

Sebagai contoh : ( lihat gambar diatas )

• Site Title = PANDAWA 
• User Name = Admin 
• Password = pakraden 
• A password will be automaticaly = pakraden 
• Your E-Mail = Email milik sobat yang masih valid tentunya.

Klik Install WordPress

• Success berarti blog anda sudah jadi, dan anda bisa langsung posting dengan klik pada Log In dan Password yang anda masukkan barusan, contoh milik saya paswoord pakraden. 
• Dibawah ini adalah contoh tampilan WordPress yang telah jadi.

Saya ucapkan selamat mencoba, semoga anda tidak menemui kesulitan yang berarti…!!!

Cara Membasmi Virus Angel2.exe dan window.exe

Nah di sini w posting cara2 membasmi angel2 nih bru :D hehehe untung aj laptop w kena virus ini, (malah bersyukur) :D  klo nggak mungkin w gk share nih postingan tentang Angel2.exe :D wkwkwkw sbenarnya angel2 ini  Jenis virus yang tidak merusak sistem windows komputer tetapi membebani proses kerja komputer dan meninggalkan jejak virus berupa file .exe di setiap folder dengan nama yang sama persis dengan folder (perbedaanya pada gambar icon), ukuran dari file .exe yang ditinggalkan pada setiap folder yaitu 324 kb.bayangin aj bru di latop kalian jumlah foldernya brapaan ?? :D ahhhhh lama mkir deh bru ,,!! lansung aja KETEKAPEEEE !! ;)

Cara pertama

• Buka registry editor(ketik regedit pada run lalu enter) dan temukan registry key di bawah.

1. HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
2. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

 Cara ke dua 

Lihat sebelah kanan ada file “gpmce Angel2.exe”. hapus file tersebut..

• Buka My Document dan tulis di kotak search “.exe” (tanpa tanda petik), lalu hapus semua file dengan icon burung....
• Lakukan hal yang sama pada drive D:, E:, F:  dll...

 Cara ketiga

klik star > all program >> startup >> lalu hapus Angel2.exe

Sekain dlu yah bru , jika masih belum bisa., coba instal ulang bru laptopnya trus cepat" deh lakukan langkah yg ke dua :) ok bru semangat.,, \o/ :D 

Wassalamu alaikum !!

Awal Tahun 2013

 

BUS, FUNGSI DATA BUS / CONTROL BUS / ADDRES BUS

PENGERTIAN BUS

Dalam arsitektur komputer, sebuah BUS adalah sebuah subsistem yang mentransfer data atau listrik antar komponen komputer di dalam sebuah komputer atau antar komputer. Tidak seperti hubungan titik-ke-titik, sebuah bus secara logika dapat menghubungkan beberapa alat dalam satu set kabel yang sama. Setiap bus mendefinisikan set konektornya ke alat colok fisik, kartu, atau kabel bersamaan.
Bus komputer awal merupakan bus listrik paralel dengan banyak hubungan, tetapi istilah ini sekarang digunakan untuk pengaturan fisik yang menyediakan fungsi logika yang sama dengan sebuah bus listrik paralel, dan dapat dihubungkan dengan kabel dalam sebuah topologi multidrop atau daisy chain atau dihubungkan oleh hub switch, seperti dalam kasus bus USB.

BAGIAN - BAGIAN BUS BESERTA FUNGSINYA 

Fungsi bus : sebutan untuk jalur di mana data dapat mengalir dalam komputer. Jalur-jalur ini digunakan untuk komunikasi dan dapat dibuat antara dua elemen atau lebih. Data atau program yang tersimpan dalam memori dapat diakses dan dieksekusi oleh CPU melalui perantara sistem bus. Setiap bus mendefinisikan set konektornya ke alat colok fisik, kartu, atau kabel bersamaan.

Data bus :  jalur – jalur perpindahan data antar modul dalam sisterm computer. Karena pada suatu saat tertentu masing – masing saluran hanya dapat membawa 1 bit data, maka jumlah saluran menentukan jumlah bit yang dapat ditransfer pada suatu saat. Lebar data bus ini menentukan kinerja system secara keseluruhan. Sifatnya bidirectional, maksudnya adalah CPU dapat membaca dan menerima data melalu data bus ini. Data bus biasanya terdiri atas 8, 16 atau 64 jalur parallel.

Address bus untuk menandakan lokasi sumber atau tujuan pada proses transfer data. Pada jalur ini, CPU akan mengirimkan alamat memori yang akan ditulis atau dibaca. Address bus biasanya terdiri atas 16, 20, 24 atau 32 jalur parallel.

Control bus  untuk mengidentifikasi alamat Bus. Control bus terdiri atas 4 sampai 10 jalur parallel.

2013 art

BASIS DATA : ALJABAR RELASI

Relational Query Languages

• Query languages(QLs):  Memungkinkan utk melakukan manipulasi data dan retrieval data dari suatu basis data

• Model relasional menyediakan QLs yang sederhana dan ampuh: 
  1. ◦Pondasi formal yang kuat berbasis lojik 
  2. ◦Memungkinkan utk melakukan banyak optimasi
   
• Query Languages != Programming Languages!  

1. QLs tidak diharapkan menjadi bahasa yang lengkap
2. QLs tidak diharapkan utk digunakan dalam proses kalkulasi yang komplek
3. QLs menyediakan akses ke data yang besar secara mudah dan efisien

Formal Relational Query Languages 

• Terdapat dua mathematical Query Languages yang menjadi basis dari “real” languages (sperti SQL) dan menjadi basis untuk implementasi 

1. ◦Aljabar Relasional (Relational Algebra):  Bersifat lebih operasional, dan sangat bermanfaat utk menyajikan rencana eksekusi (execution plans). 
2.  Kalkuluas Relasional (Relational Calculus):   Memungkinkan pengguna utk mendiskripsikan “apa” yang diinginkan, BUKAN “bagaimana” melakukannya.  (lebih bersifat Non-operasional dan deklaratif   

 Definisi Aljabar Relasi 

Aljabar relasi adalah Paradigma Procedural yg dibutuhkan tentang apa dan bagaimana untuk menkontruksi hasil yang diinginkan. Operasi – operasi dalam aljabar relasi merupakan bahasa query yang prosedural. Bahasa ini memiliki sejumlah operasi yang memanfaatkan satu atau beberapa tabel/relasi basis data sebagai masukan dan menghasilkan sebuah tabel/relasi basis data yang baru sebagai keluarannya. 

Operasi Dasar aljabar Relasional 

• Operasi-operasi dasar:  

1. Selection  (s)  Memilih subset dari baris-baris relasi  
2. Projection  (p)  Memilih sejumlah kolom dari relasi
3. Cross-product  (´) Mengombinasikan dua relasi
4. Set-difference  (-) Operasi set difference antara 2 relasi
5. Union  (È)  Operasi set union antara 2 relasi  

• Operasi-operasi tambahan: 
  1. Intersection (Ç), join (    ), division(/), renaming:  tidak essensial, tetapi (sangat) berguna 
   
• Oleh karena setiap operasi menghasilkan sebuah relasi, maka dimungkinkan utk  membentuk sebuah query yang komplek yang tersusun dari sejumlah operasi!
   
   
  1. Operasi Selection

  ►  Operasi ini digunakan untuk mengambil sejumlah baris data yang memenuhi predikat yang diberikan. Predikat mengacu pada kondisi yang ingin dipenuhi dalam operasi seleksi.

  ►  Memiliah baris-baris yang memenuhi kondisi selection
  

  ►  Syntax yang digunakan untuk menyatakan operasi ini yakni

        σp ( E1 )

       dimana p adalah predikat pada atribut-atribut di E1

       atau

       s<selection condition> (R)

      R adalah Relasi

       Selection condition adalah Ekspresi logika pada atribut-atribut dari  R

      Relasi hasil adalah sub Schema dari R