MOCH. AFIF

Download dulu projectnya  Disini Setelah download extrak dulu (pastikan Netbean telah diinstall) kemudian pastikan folder hasil extrac tadi ada kemudian kopi folder tadi kemudian pinda ke netbean project, lebih jelas lihat gambar kemudian paste di folder netbeanproject pastikan sudah terpaste kemudian buka netbean, klik open project cari folder tadi  kemudian klik open project maka hasilnya akan dibawa ini, klik project kmudian klik dua kali pada nama folder tadi yang tercntum di project maka code akan muncul dan klin run selesai

Kode program diatas merupakan code desimal ke biner, jika kurang jelas  kopas kode dibawah; program uiu; uses wincrt; var des,i:integer; bin:string; op:char; begin writeln('Masukan Angka Desimal: '); readln(des); repeat if (des mod 2) = 0 then op := '0'    else op := '1';    bin := bin + op;    des := des div 2;    until des = 0;    for i := Length(bin) downto 1 do    write(bin[i]);     end. kemudin tekan F9 maka akan muncul Jika tidak ada yg error tekan Ctrl+F9 Untuk kebalikanya lihat dibawah ini Untuk Lebih JElasnya Kopi kode berikut; program b2d; uses wincrt; var bin:string; dec:real; i,k,l,x:integer; begin writeln('Masukan Angka Biner: ');readln(bin); dec := 0; k := 0; for i := Length(bin) downto 0 do     begin     if k> 0 then k := k * 2     else k := 1;     Val(bin[i], l, x);     dec := dec + (l * k);     end; writeln(dec:0:2); end. jika

Mungkin disini akan sedikit ada perbedaan coding, dimana lebih cepat dan efisien dalam menampilkan file word. 1. Pertama buat Design windows form seperti gambar dibawah (Gunakan toolbox untuk membuatnya) 2. tambahkan referense interop 3. Masukan kode dibawah ini 'digunakan menginputkan fungsi viewer Word Imports Microsoft.Office.Interop Public Class Form1     'Menentuakan apa yang dilakukan (even) saat button1 diklik     Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         'fungsi yang digunakan untuk menentukan mana yang akan dicari saat tabpage mana yang dibuka         If TabPage2.Focus = True Then             'untuk tabpage2 jika dibuka makan akan mencari gambar             OpenFileDialog1.Filter = "Gambar|*.bmp;*.jpg;*.png"             OpenFileDialog1.Title = "Mencari File Gambar"             OpenFileDialog1.ShowDialog()             Pictu

Untuk menu strip edit dan about belum  saya kasi coding, jadi sementara cuma file saja sahabat. untuk membuat seperti diatas buatlah designnya dulu seperti gambar dibawa Gunakan Palette atau swing untuk membuat design diatas Masukan Code seperti dibawa ini dengan asumsi bahwa nama2 swing yang sahabat buat seperti yang saya buat jika tidak maka editlah Codenya /*  * To change this template, choose Tools | Templates  * and open the template in the editor.  */ package notepad; import java.io.BufferedReader; import java.io.File; import java.io.FileNotFoundException; import java.io.FileReader; import java.io.FileWriter; import java.io.IOException; import javax.swing.JFileChooser; import javax.swing.JOptionPane; /**  *  * @author Moch. Afif  */ public class home extends javax.swing.JFrame {     String Tampil, Lokasi;     private File File;     private boolean Saved = true;     /**      * Creates new form home      */     public home() {  

Jika sahabat pengguna foxit reader mungkin pernah mengalami error yang menampilkan  "access denied: AppData/Roaming/Foxit Software/Foxit Reader/Start Page/start/en_us/js/query.min.js" dimana disini saya akan mnshare cara mengatasinya: 1. buka file kemudian preference 2. Kemudian cari General , dan hilangkan centang di Show Start Page dan show adver seperti gambar dibawah 3. Kemudia Klik oke dan coba foxit reader lagi Sumber

program konversi_biner; uses wincrt; var des,i,si,bin:longint; begin write('Angka Desimal = ');readln(des); i:=0; repeat       si:=des mod 2;       des:=des div 2;       if (i=0)then          i:=1       else           i:=i*10;           bin:=bin+si*i until des=0; write ('Biner= ',bin); end. Sumber program bintodes; uses wincrt; var bilbin : string; function pank(a, b : integer) : integer; var i, hasil : integer; begin    hasil := 1;    for i:=1 to b do    begin        hasil := hasil * a;    end;    pank := hasil; end; function b2d(biner : string) : integer; var n, sum, i : integer; begin    n := length(biner);    sum := 0;    for i:= n-1 downto 0 do    begin        if (biner[n-i] = '0') then sum := sum + 0 * pank(2, i)        else if (biner[n-i] = '1') then sum := sum + 1 * pank(2, i);    end;    b2d := sum; end; begin      write('Masukan Angka BI

Untuk menampilkan beberapa baris hanya dengan menambahkan karakter 0ah, seperti digambar berikut dan kode berikut(bila kurang jelas) ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~; ;PROGRAM : MENAMPILKAN KARAKTER   ; ;FUNGSI : MENAMPILKAN KRAKTER    ; ;            'Nama Dan Nim'DENGAN INT 21 ; ;========================================; .MODEL SMALL .CODE ORG 100h proses : MOV AH, 02h MOV DL, 'M' INT 21h MOV DL, 'O' INT 21h MOV DL, 'C' INT 21h MOV DL, 'H' INT 21h MOV DL, '.' INT 21h MOV DL, 'A' INT 21h MOV DL, 'F' INT 21h MOV DL, 'I' INT 21h MOV DL, 'F' INT 21h MOV DL, 0ah INT 21h MOV DL, '1' INT 21h MOV DL, '1' INT 21h MOV DL, '1' INT 21h MOV DL, '2' INT 21h MOV DL, '1' INT 21h MOV DL, '0' INT 21h MOV DL, '

Nah Ini COntoh Lanjutan dari manajemen file, dimana ini akan menampilkan gambar, Untuk pertama buatlah form seperti dibawah ini Kemudian Klik Dua KAli pada button1 MAsukan kode dibawa ini kedalam even button1

Dengan konsep oop atau manajemen file maka kita dimungkinkan mengakses data yang berada di luar main program, dimana disini akan dicontohkan dengan menampilkan file berextensi doc dan docx, menggunakan beberapa .net Pertama-tama buat form dengan kelengkapan seperti di bawah ini  Kemudian klik textbox1 dan rubahlah properties multiline menjadi true seperti gambar dibawah ini Jika sudah dan benar maka textbox1 anda bisa ditarik kebawah seperti gambar dibawa Kemudian Pilih project dan klik add reference untuk meng import method dari .net atau COM Pilih .Net kemudian cari Microsoft.Office.Interop.Word kemudian klik ok, Seperti Gambar dibawah Langkah selanjutnya adalah memasukan codingnya, pilih even Open di menustrip yg telah kita buat tadi, Lihat Gambar Kemudian ketik semua kode yang saya kasih kurung warna merah dan sesuaikan tempatnya, Lihat gambar Kemudian Klik lagi menustrip yang Exit untuk memberi kode kepada tombol exit, L