Udah lama banget saya tidak posting artikel. Dan kali ini saya akan membagikan kode-kode untuk membuat sebuah aplikasi sederhana untuk konversi suhu. Mulai dari Celcius, Fahrenheit, Reamour, bahkan Kelvin. Kita akan membuat aplikasi ini dengan pascal, tak butuh waktu lama. Anda bisa melakukannya bahkan jika anda pemula sekalipun. Mari kita coba!!!

  1. Buka program Pascal (Free Pascal atau Turbo Pascal), anda dapat mencarinya di Google.
  2. Mari mulai dengan kodenya.
    Kode yang harus anda tulis :

    Uses Crt;  ===> Bisa Wincrt bagi yang pake Turbo Pascal
    label ya;    ===> Ini akan digunakan untuk perulangan
    var a,b : real, lg,kode:char; ===> Ini untuk menentukan tipe dari tiap variable yang dimasukkan
    begin
    ya: ===> Tempat Perulangan akan dimulai (jika terjadi perulangan)
    clrscr; ===> Mengosongkan/membersihkan layar (Clear Screen)
    writeln('[1] Celcius --> Reamour'); ===>Yang akan ditulis Program
    writeln('[2] Celcius --> Fahrenheit');
    writeln('[3] Celcius --> Kelvin');
    write('Masukan konversi yang dipilih [1-3]'); readln(kode);
    Case kode of
    '1':begin
    write('Masukkan suhu (Celcius mulai 0-100) = '); readln(a);
    b:=a*4/5;
    if (a>=0) and (a<=100) then ===> Suhu akan ditampilkan jika yang dimasukkan dari 0-100
    writeln('Suhu = ',b:0:1,' R') ===> Menuliskan hasil
    else
    writeln('Maaf, suhu yang anda masukkan salah');
    end;
    '2':begin
    write('Masukkan suhu (Celcius mulai 0-100) = '); readln (a);
    b:=a*9/5+32;
    if (a>=0) and (a<=100) then
    writeln('Suhu = ',b:0:1,' F')
    else
    writeln('Maaf, suhu yang anda masukkan salah');
    end;
    '3':begin
    write('Masukkan suhu (Celcius mulai 0-100) = '); readln (a);
    b:=a+273;
    if (a>=0) and (a<=100) then
    writeln('Suhu = ',b:0:1,' K')
    else
    writeln('Maaf, suhu yang anda masukkan salah');
    end;
    end;
    writeln('Mau coba lagi?? [y/t] '); readln(lg);
    if (lg='y') or (lg='Y') then
    goto ya ===> Perintah untuk mengulangi dari label 'ya'
    else
    writeln('Terima Kasih');
    writeln('Good Bye');
    delay 50000
    end.
  3. Jika anda sudah membuat kodenya. Anda bisa untuk mengujinya pada Menu Run->Run. Jika terjadi error anda dapat menanyakannya pada saya.
    Anda dapat mendownload program saya yang sudah jadi, klik di sini.
Jakarta - Menkominfo Tifatul Sembiring mengimbau pengguna internet di Indonesia tidak perlu panik dengan isu kiamat internet 9 Juli 2012. Namun masyarakat tetap diminta waspada dan mengecek peralatan komputer dan jaringan internet yang digunakan.
"Saya katakan itu adalah isu dalam artian tidak benar akan terjadi kemacetan masif jaringan internet di Indonesia, besok 9 Juli 2012", ujar Tifatul dalam siaran pers (8/7/2012).
Tifatul membenarkan, memang sekitar 4 tahun lalu pernah terjadi serangan masif virus Trojan di Estonia. Kejadian ini sampai melibatkan FBI Amerika Serikat guna menyelidiki kejadian tersebut, hingga diciptakannya anti virus baru.
"FBI pernah merilis 25 negara yang beresiko tinggi terjangkit Trojan, namun Indonesia tidak termasuk dalam daftar tersebut. Kebanyakan berjangkit di negara-negara Eropa dan Amerika", jelas Tifatul.
Tifatul menambahkan, bahwa di Indonesia sendiri pernah dilakukan riset oleh peneliti virus, dan tidak ditemukannya perkembangan virus Trojan tersebut.
"Tidak usah panik, namun harus tetap waspada, scan dan bersihkan komputer masing-masing, jangan sembarang membuka kiriman link dari orang-orang tidak dikenal," ujar Tifatul mengingatkan.
Sejumlah pengguna internet tengah gelisah menunggu kedatangan 9 Juli 2012. Pasalnya, pada tanggal tersebut jaringan internet di beberapa negara di dunia dikabarkan akan mati. Fenomena ini disebut-sebut sebagai 'kiamat internet'.
Kehebohan ini bermula dari serangan malware yang disebut DNSCharger, sebuah program jahat yang mampu memanipulasi Domain Name System (DNS) di komputer yang telah menjangkitinya. Bahayanya lagi pada November 2011 silam virus ini diketahui telah menjangkit ratusan ribu komputer di seluruh dunia.
Nah, untuk memberantas virus tersebut, FBI berencana untuk mematikan sejumlah server yang digunakan untuk memanipulasi DNS palsu di komputer korban. Sebelumnya aksi sapu bersih ini akan dilaksanakan pada 8 Maret 2012, namun demi meminimalisir dampak yang ditimbulkan, eksekusi diundur hingga 9 Juli 2012.
Alhasil, kehebohan akan koneksi internet lumpuh pun kembali jadi perbincangan kalangan netter. Di berbagai forum online Tanah Air ternyata cukup banyak postingan yang ikut meramaikan isu tersebut.(detikINET)


Kiamat Internet,Kiamat,Internet,9 Juli,9,Juli


Sumber : Koran FB
Kali ini saya akan share pada anda cara membuat kotak login di VB (visual Basic) 6.0. Pasti salah satu dari kamu ingin membuat software tapi hanya kamu yang bisa menggunakannya. Saya akan memberi tips agar ketika orang membukanya harus memasukkan username dan password.
Buat 2 TextBox, masing-masing beri nama Text1 & Text 2.
Pada Pengaturan text 2, cari passwordchar, lalu isikan tanda '*' (tanpa tanda kutip).
Jika sudah, tambahkan tombol (command), dan beri nama command1.
Klik double tombol common tersebut, akan muncul kotak untuk memasukkan kodenya.
Masukkan kode di bawah ini.

If Text1.Text="Rhony" or "Rhony09" and Text2.Text="MYApplication" or "Application" Then
msgbox "Selamat, anda telah berhasil login,vbOKonly,Success"
Else
msgbox "SOrry, username atau password yang kamu masukkan salah,vbOKonly,Sorry"

Untuk tulisan Rhony dan Rhony09 anda ganti dengan Username yang akan anda gunakan, anda bisa menghilangkan " or "Rhony09" ", itu hanya jika anda menggunakan 2 username, jadi anda bisa menggunakan username yang anda mau.
Begitu juga pada password, Kata MYApplication & Application dapat kamu ubah dengan password nakamu. Itu adalah 2 password berbeda, jadi anda bisa menggunakan password yang ingin anda gunakan, jadi anda tidak akan bosan jika hanya dengan 1 password.
Kali ini saya akan memberikan motiuvasi pada anda tentang kesuksesann & keberhasilan.

_Orang yang sukses adalah orang yang bisa menjadikan hal yang sama tampak berbeda. Jadi kamu boleh saja meniru orang, tapi kamu harus tampak lebih bagus daripadanya.

_Orang yang sukses akan melakukan hal yang ingin dia lakukan, sekalipun orang mengatakan itu takkan pernah berhasil.

_Waktu bukanlah uang, tapi waktu lebih dari itu. (Times isn't money, but more than)

_Gagal bukan berarti tidak akan sukses, tapi gagallah yang akan membantumu untuk sukses.

_Kehidupanmu adalah permainanmu, jadi untuk berhasil kamu harus memenangkan permainan itu.

_Jika ada yang mengatakan harapanmu hanyalah sebuah mimpi, maka katakanlah "Mimpi adalah awal kesuksesan. Tanpa mimpi kamu takkan tahu apa yang akan kamu lakukan untuk berhasil".

_Cobalah untuk memberi hal baik pada seseorang, karena suatu saat dia akan berbuat baik padamu untuk membantu keberhasilanmu.

_Jangan memberi, tapi cobalah untuk berbagi


Hai sobat semua. Kali ini saya akan share cara untuk membeli posisi di JSS-Tripler. Maaf jika terlalu lambat.
Pertama and harus login.
Jika sudah login, klik tulisan JSS-Tripler.
Setelah itu, akan muncul gambar seperti ini.


Klik tombol tersebut.
Setelah itu. Akan tampak seperti ini. Klik financial.

Lalu klik tombol "Buy JSS_Tripler Position".
Setelah itu. Muncul tab baru, isi dikotak tersebut angka 1.
Dan terakhir klik "Procced with my order".

Untuk mendaftar justbeenpaid, lihat disini.
Welcome to My Blog

Popular Post

About Me

Facebook:http://www.facebook.com/home.php#!/profile.php?id=100001590060281&ref=ts

- Copyright © Rhony -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -