Cara membuat operating system

Cara Untuk Membuat Operating System - Tentukan OS yang ingin anda buat. Apakah itu adalah OS sepenuhnya mampu dengan GUI atau sesuatu yang lebih minimalis, Anda harus tahu kemana kamu akan memulai.

Targetkan apa platform prosesor sistem operasi akan mendukung. Jika Anda tidak yakin, yang terbaik adalah untuk target platform (32 bit) prosesor X86 sebagai kebanyakan komputer menggunakan prosesor platform yang X86. langkah kemudian Cara Untuk Membuat Operating System


Putuskan, apakah Anda lebih suka melakukan semuanya sendiri dari bawah ke atas, atau jika ada kernel lama Anda ingin membangun di atas. Linux dari Scratch adalah proyek bagi mereka yang ingin membangun sendiri distro Linux mereka.


Dan apakah anda ingin membuat dengan mengunakan terminal yang ada di sistem operasi linux yang anda punya . bila ingin membuat distro linux sendiri lewat terminal linux anda bisa mengunakan remastering.
langkah-langkah atau tutorialnya dapatkan di Remastering melalui terminal linux


Putuskan apakah Anda akan membuat boot loader Anda sendiri atau satu pra-dibuat seperti GRUB. Sementara coding boot loader Anda sendiri akan memberikan banyak pengetahuan tentang perangkat keras dan BIOS, mungkin membuat Anda kembali pada pemrograman dari kernel yang sebenarnya.


Meskipun dimungkinkan untuk membuat sebuah sistem operasi dalam bahasa seperti Pascal atau BASIC Anda akan lebih baik menggunakan C atau Majelis. Majelis mutlak diperlukan karena beberapa bagian penting dari sebuah sistem operasi memerlukannya. C + + berisi kata kunci yang perlu OS lain sepenuhnya dibangun untuk menjalankan. Jangan digunakan karena dapat mempengaruhi Cara Untuk Membuat Operating System


Mulai dari kecil. Mulailah dengan hal kecil seperti menampilkan teks dan menyela sebelum pindah ke hal-hal seperti manajemen memori dan multitasking.


Tentukan API Anda. Sementara ini jauh itu adalah ide yang baik untuk merencanakan ke depan. Sebuah API yang baik untuk memilih adalah POSIX, yang didokumentasikan dengan baik. Semua Unix memiliki minimal dukungan parsial untuk POSIX, sehingga akan menjadi sepele untuk program pelabuhan Unix untuk OS anda.


Langkah berikutnya dalam Cara Untuk Membuat Operating System Anda. Ada kernel monolitik dan micro kernels. Kernel monolitik menerapkan semua layanan di kernel, sedangkan micro kernels memiliki kernel kecil dikombinasikan dengan daemon pengguna mengimplementasikan layanan. Secara umum, kernel monolitik lebih cepat, tapi kernel mikro memiliki isolasi kesalahan lebih baik dan kehandalan.


Setelah pembangunan semua dilakukan, memutuskan apakah Anda ingin melepaskan kode sebagai Open source, atau kepemilikan

Read More

FOR DO, WHILE DO, REPEAT UNTIL, ARRAY

1. FOR (pengulangan tanpa kondisi)

Pernyataan for adalah konstruksi pengulangan tanpa kondisi artinya instruksi-instruksi di dalam badan pengulangan diulangi sejumalah kali yang di spesifikasikan oleh pemogram. Dalam hal ini, jumlah pengulangan sudah diketahui sebelum konstruksi pengulangan eksekusi. Perulangan dengan pernyataan FOR digunakan untuk mengulang pernyataan/satu blok pernyataan berulanng kali sejumlah yang ditentukan. Jumlah pengulangan diketahui atau dapat ditentukan sebelum eksekusi. Untuk mencacah beberapa kali pengulangan diperlukan sebuah peubah (variable) pencacah (counter). Peubah ini nilainya selau bertambah 1 setiap kali pengulangan dilakukan. Jika cacah pengulangan sudah mencapai jumlah yang dispesifikasikan, maka proses pengulangan berhenti. Perulanngan denngan pernyataan FOR dapat berbentuk perulangan positif, perulangan negative, dan perulangan tersarang.
A. Perulangan positif
Adalah perulangan dengan penghitung dari kecil ke besar atau pertambahan positif. Perulangan positif dapat dibentuk dengan mengguanakan pernyataan For-To-Do, dengan bentuk umum:
For variable-kontrol:=nilai awal To nilai akhir D

Contoh: mencetak “saya rajin belajar” sebanyak 5 kali

Program cetak;
Uses wincrt;
Var
I : Integer
Begin
For I:=1 to 5 Do Writeln (‘saya rajin belajar’);
End.
B. Perulangan negative
Adalah perulangan dengan penghitung dari besar ke kecil/pertambahan negative. Perulangan negative dapat dibentuk dengan menggunakan pernyataan For-DownTo- Do, dengan bentuk umum:
For variable-kontrol := nilai awal DownTo nilai akhir Do
Contoh perulangan negaif
Contoh mencetak angka 5 sampai dengan 1

Program cetak_menurun;
Uses wincrt;
Var
I= integer;
Begin
For I:=5 downto 1 do
Begin
Writeln(I);
End;
End.
C. Perulangan bersarang
Adalah perulangan yang berbeda di dalam perulangan yang lainya.
Contoh perulangan bersarang:
Contoh mencetak matrix:
11 12 13
21 22 23
31 32 33
41 42 43
51 52 53

Program cetak2;
Uses wicrt;
Var
I,J: integer;
Begin
For I:= to 5 Do
Begin
For J:= 1 to 3 Do
Begin
Write(I:8,J:3);
End;
Writeln;
End;
End.
2. Repeat – Until
Repeat until berfungsi hampir sama dengan While Do. Pada Repeat Until looping akan berhenti justru ketika kondisi berniali TRUE. Selain itu kondisi akan diuji pada akhir perulangan sehingga blok didalam perulangan akan dijalankan minimal satu kali walaupun kondisi yang ada masih FALSE. Repeat until digunakan untuk mengulang statement-statement(blok statement) sampai (until) kondisi yang diseleksi di until tidak terpenuhi.
Perbedaan perulangan repeat until dengan while Do terletak pada pengecekan kondisi. Jika pada pernyataan While Do kondisi di cek pada awal blok pernyataan yang harus diulang, sedangkan pada pernyataan repeat until kondisi di cek pada akhir blok pernyataan yang harus diulang. Perbedaab lainnya bila pernyataan While mengulang pernyataan selama kondisi masih terpenuhi sedangkan repeat until mengulang pernyataan selama kondisi belum terpenuhi. Bentuk umum pernyataan Repeat Until adalah sebagai berikut:
Repeat (pernyataan-pernyataan yang akan diulanng
Until (kondisi)

Contoh: program cetak 5 bilangan bulat pertama menggunakan repeat until
Program cetak;
Uses wincrt;
Var
I= Integer;
Begin
I:= 0;
Repeat
I:=I+1;
Writeln(I);
Until I=5;
End.


Repeat until tersarang adalah suatu perulangan repeat until yang satu berada didalam perulangan repeat until yang lainnya.
Contoh:
Program perulangan_repeat;
Var
I,J: Integer;
Begin
I:=0;
Repeat
I:= I+1;
J:=0;
Repeat
J:= J+1;
Writeln (I: 5, J:5);
Until I=3
Until J=3;
End.

3. Array
Merupakan tipe data terstruktur dimana didalamnya terdiri dari komponen-komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlah komponen banyaknya adalah tetap. Didalam suatu array setiap komponen ditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukan urutan data atau identitas yang mewakili data yang ada didalamnya.
Logika sederhananya array itu bisa disamakan dengan 2orang dengan nama yang sama didalam suatu komunitas, untuk membedakan antara nama yang satu atau dengan nama yang lain maka diberikan inisial tambahan untuk setiap nama.
Deklarasi array . didalam penulisan bahasa pemograman setiap penggunaan array harus dideklarasikan terlebih dahulu. Pendeklarasian array diawali dengan nama variable array diikuti dengan index array yang dituliskan didalam tanda “[..]”, diikuti dengan kata cadangan Of dan tipe data yang dibutuhkan.
Bentuk umum penulisan
Tanda_pengenal: array [..Tipe Index..] Of tipe data;
Contoh:
A : array [1…4] of integer;
B : array [1…5] of string;
C : array [1…10] of real;

ABC merupakan tanda pengenal/ nama variable dari array
1…4 merupakan tipe index dari array (menunjukan banyaknya data yang mampu disimpan)
Integer: menunjukan bahwa data yang di input berupa bilangan bulat

a) Array static adalah model pendeklarasian array dimana tipe data yang digunakan mempunyai nilai yang tetap. Nilai yang digunakan untuk menentukan jangakauan pada umumnya bernilai Integer.
Bentuk umum
Array [index type,…,index type] of base type

Index type menunjukan type data ordinal yang menunjukan batasan atau elemen Max terhadap seberapa besar variable tersebut menyimpan komponen.
Contoh:
Var arrayku: array [1….5] of char
Atau juga
Type
Jangkauan=1….5;
Var
Nilai: array [jangkauan] of integer
b) Array dinamis merupakan array yang tidak mempunyai suatu jangkauan/ukuran tetap. Tetapi ketika program dijalankan maka memory untuk suatu array dinamis diarelokasikan ketika kita menugaskan suatu nilai kepada array.
Bentuk umum
Array of base type
Contoh:
Var nilai: array of real;

Dari deklarasi tersebut nilai yang merupakan deklarasi array belum memperoleh nilai yang tetap, tetapi hanya diberikan batasan sebagai tipe data real. Untuk mendeklarasikan array tersebut kita harus menempatkan array didalam suatu memori.

Read More

contoh program delhpi 7 penjualan motor honda

kali ini saya akan membagi ilmu dengan kalian tentang program delphi 7 langsung saja jangan banyak tanya lihat saja di bawah ini :

jika anda ingin file programnya download disini

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, Menus;

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    Edit3: TEdit;

    ComboBox1: TComboBox;

    Button1: TButton;

    Edit4: TEdit;

    Label6: TLabel;

    Edit5: TEdit;

    Button2: TButton;

    Label7: TLabel;

    MainMenu1: TMainMenu;

    About1: TMenuItem;

    procedure ComboBox1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure About1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text='Honda Absolute Revo CW' then

begin

Edit1.Text:='12875000';

Edit2.Text:='300000';

end;

if ComboBox1.Text='Honda BeAT CW' then

begin

Edit1.Text:='12650000';

Edit2.Text:='250000';

end;

if ComboBox1.Text='Honda CBR 150R' then

begin

Edit1.Text:='33300000';

Edit2.Text:='400000';

end;

if ComboBox1.Text='Honda New Blade Racing Edition' then

begin

Edit1.Text:='14300000';

Edit2.Text:='500000';

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked=true then

Edit3.Text:='Helm Cakil Dari Honda'

else if RadioButton2.Checked=true then

Edit3.Text:='Anda Tidak Dapat Hadiah';

Edit4.Text:=FloatToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked=true then

Button1.Show;

Button2.Show;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked=true then

Button1.Show;

Button2.Show;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Button2.Hide;

Button1.Hide;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Edit5.Text:=DateToStr(Date);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

RadioButton1.Checked:=false;

RadioButton2.Checked:=false;

Button1.Hide;

Button2.Hide;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ShowMessage('apa anda yakin ingin keluar dari dini');

end;

procedure TForm1.About1Click(Sender: TObject);

begin

ShowMessage('program ini di buat oleh keluarga besar sendnetwork.blogspot.com');

end;

end.

Read More

Cotoh program game dengan delph 7 (game pocong)

Untuk membuat "Game Tangkep Pocong" ini kita membutuhkan beberapa item. yaitu :

jika anda tidak jelas anda bisa tanyakan kepada saya di klik sini

1. gambar si pocong (tentunya)
2. sebuah label (caption : SCORE)
3. 2 buah tombol (tombol Start dan tombol stop)

ok, kita mulai saja.

Pertama, desain form hingga membentuk seperti ini

Kedua, masukan kode dibawah :

unit UPocong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
     procedure aktif;            //procedure bila sedang aktif
    procedure nonaktif;      //procedure bila sedang tidak aktif
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}
 procedure tform1.aktif;
begin
Image1.enabled:=True;
Image2.enabled:=True;
Image3.enabled:=True;
Image4.enabled:=True;
Edit1.Enabled:=True;
Button2.enabled:=True;
Image4.Visible:=True;
Timer1.Enabled:=True;
end;

procedure tform1.nonaktif;
begin
Image1.enabled:=false;
Image2.enabled:=false;
Image3.enabled:=false;
Image4.enabled:=false;
Edit1.Enabled:=false;
Button2.enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
nonaktif;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
aktif;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.left:=Random(Left);
Image1.Top:=Random(top);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image2.left:=Random(Left);
Image2.Top:=Random(top);
end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image3.left:=Random(Left);
Image3.Top:=Random(top);
end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image4.left:=Random(Left);
Image4.Top:=Random(top);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Image2.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Image3.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
Image4.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='100' then
begin
  nonaktif;
  ShowMessage('anda menang');
end
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
aktif;
ShowMessage('Game Over');
end;
end.

Read More

Contoh penggunaan if pada delphi 7

kali ini saya akan posting tentang program delphi 7 menurut anda gimana cara gambar itu bisa bergerak berputar-putar di desktop program delphi...

download filenya disini jika anda ingin tau

Read More

Contoh game delphi 7 sederhana

kali ini saya akan posting tentang program delphi 7
bagaimana cara membuat permainan sederhana dengan delphi, saya kasih tau caranya langsung saja kita kita download dulu filenya di bawah ini:

download game delphi 7 sederhana

Read More

Contoh program delphi 7 pemutar musik

kali ini saya akan posting tentang program pemutar musik mungkin kalian juga tau dan bisa membuatnya...
saya disini cuma mau bagi-bagi ilmu saja jika anda ingin memiliki file ini langsung saja klik dibawah ini:

download file program delphi 7 pemutar musik

Read More

Contoh program delphi 7 penjualan di toko

untuk komponen yang di butuhkan:

atau mau download langsung filenya disini

TForm1 = class(TForm)
    Label12: TLabel;
    Panel9: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    ComboBox1: TComboBox;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;

source codenya


procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text='Ps-01' then
  begin
    label9.Caption:='Processor amd phenom x2';
    label10.Caption:='1100000';
  end else
if ComboBox1.Text='Ps-02' then
  begin
    label9.Caption:='Processor intel core i3';
    label10.Caption:='850000';
  end else
if ComboBox1.Text='Nb-01' then
  begin
    label9.Caption:='Notebook toshiba c 600';
    label10.Caption:='3750000';
  end else
  begin
    label9.Caption:='Printer Canon IP 2770i';
    label10.Caption:='375000';
  end
end;

procedure TForm1.Panel7Click(Sender: TObject);
var beli,harga,subtotal:integer;
  diskon, total:real;
begin
beli:=StrToInt(edit1.Text);
harga:=StrToInt(label10.Caption);
subtotal:=harga*beli;
panel2.Caption:=floatToStr(subtotal);


if edit1.Text>'2' then
  begin
    diskon:=(10/100)*subtotal;
    panel3.Caption:=FloatToStr(diskon);
  end
  else
  begin
    panel3.Caption:='Tidak dapat';
  end;

  total:=subtotal-diskon;
  panel4.Caption:=FloatToStr(total);

  if (panel2.Caption >='1000000')  and (panel2.Caption <= '2400000') then
      begin
      label11.Caption:='Mouse Optic'
      end
 else if panel2.Caption > '2500000' then
        begin
       label11.Caption:='Mouse wireless'
       end
   else
   label11.Caption:='Mouse pad'
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9'] )then
 key:=#0;

end;

procedure TForm1.Panel8Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Panel6Click(Sender: TObject);
begin
Edit1.Clear;
Label9.Caption:='---------';
Label10.Caption:='---------';
Label11.Caption:='---------';
Panel2.Caption:='panel2';
Panel3.Caption:='if beli > 2';
Panel4.Caption:='panel4';
end;

end.

Read More

CARA MEMBUAT FLASH

Read More

Cara Deface Web Dengan Teknik Web KindEditor

Cara Deface Web Dengan Teknik Web KindEditor - askum , kali ini kita bicara tentang deface lagi, yaitu dengan teknik web kindeditor , trik ini adalah trik paling mudah untuk ngedeface web , kita hanya perlu mengupload file html kita ke website korban , trik ini terbilang mudah gak percaya ? langsung saja simak

Berikut Langkah - Langkah Cara Deface Web Dengan Teknik Web KindEditor


1. Siapkan File Deface .html

2. ketikkan inurl:examples/uploadbutton.html di google

3. buka salah satu web nya , cth http://staic.qefeng.com/Kindeditor/examples/uploadbutton.html

4. klik upload , dan cari lokasi file deface anda .html 

5. ketika selesai , copy url yng ad di upload buton dan paste di address bar ,

cth 

web awal http://staic.qefeng.com/Kindeditor/examples/uploadbutton.html 

hasil upload /Kindeditor/attached/file/20120818/20120818205046_21635.html , 

kita gabung jadi http://staic.qefeng.com/Kindeditor/attached/file/20120818/20120818205046_21635.html

mudah bukan , ? selamat ngedeface

credit to 

http://hacker-newbie.org/showthread.php?tid=12648

http://cirebon-cyber4rt.blogspot.com/2012/04/cara-deface-website-dengan-teknik-web.html

Read More

Contoh If Majemuk c++

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

main()
 {  
       int bbm;
       printf("\n>> kode1 \n>> ode 2 \n>> kode 3 \n");
       printf("\nmasukan kode diatas="); scanf("%d",&bbm);
       system ("CLS");
       switch (bbm)
     
      {
             case 1:
                  printf("\n");
                  printf("premium");
                  break;
             case 2:
                  printf("\n");
                  printf("solar");
                  break;
             default:
                     printf("\n");
                     printf("syntac error");
             }
      getch();
      }
   

Read More