Membuat angka acak dengan Vb.Net, dengan menggunakan rumus random yang ada di visual basic. Khusus untuk XI TKJ SMK Hasyim Asy'ari. Pembuatan anka acak ini bisa diterapkan di beberapa versi VB. berikut langkah langkah membuat sebuah angka acak pada Vb.Net. 1. Buat lah sebuah label dan sebuah button, label untuk menampilkan angka sedangkan butoon untuk mengeksekusi coding. lihat gambar dibawah. 2. Klik dua kali di Button untuk memasukan kode. dan masuka kode seperti dibawah ini. 3. Kemudian jalankan dan hasilnya seerti gambar berikut 4. Kemudian klik acak maka akan muncul angka secara acak tak lebih dari 100 Demikian cara membuat program untuk mengacak angka, dimana nilai 100 merupakan nilai batasan yang berarti program akan mnampilkan angka secara acak mulai 1 sampai 100. Semoga bisa dimengerti dengan jelas. " Jika ada niat, maka tiada yang tidak bisa"
Sejarah dari wikipedia - Versi pertama Microsoft Windows, yang disebut dengan Windows 1.0, dirilis pada tanggal 20 November 1985 . Versi ini memiliki banyak kekurangan dalam beberapa fungsionalitas, sehingga kurang populer di pasaran. Pada awalnya Windows versi 1.0 ini hendak dinamakan dengan Interface Manager , akan tetapi Rowland Hanson , kepala bagian pemasaran di Microsoft Corporation , meyakinkan para petinggi Microsoft bahwa nama " Windows " akan lebih "memikat" konsumen. Windows 1.0 bukanlah sebuah sistem operasi yang lengkap, tapi hanya memperluas kemampuan MS-DOS dengan tambahan antarmuka grafis. Selain itu, Windows 1.0 juga memiliki masalah dan kelemahan yang sama yang dimiliki oleh MS-DOS . Lebih jauh lagi, Apple yang menuntut Microsoft,sehingga Microsoft membatasi feature yang ada di operating systemnya. Sebagai contoh, jendela-jendela di dalam Windows 1.0 hanya dapat ditampilkan di layar secara " tile " saja, sehingga jen...
Pemanfaatan case dalam menanggani konverter desimal ke oktal, ini sebagai referensi, semoga bisa membantu dalam mengelola kode2. yang diperlukan hanya kreatifitas dalam mengelolah. seperti halnya seniman yang melukis, kita adalah seniman yang meng coding .. berikut code program konoktal; uses wincrt; var des,desi:integer; procedure okt(des, desi : integer); var oktal : string; o : integer; begin oktal:=''; repeat o:=des mod 8; case o of 0:oktal:='0'+oktal; 1:oktal:='1'+oktal; 2:oktal:='2'+oktal; 3:oktal:='3'+oktal; 4:oktal:='4'+oktal; 5:oktal:='5'+oktal; 6:oktal:='6'+oktal; 7:oktal:='7'+oktal; end; des:= des div 8; until des=0; writeln('(',desi,') desimal = ', oktal,' (Oktal)'); end; begin des:=352; desi:=des; okt(des,desi); des:=876; desi:=des; okt(des,desi); end.
Comments
Post a Comment