Trang chủ Blog | Các câu hỏi thường gặp | Yahoo! Việt Nam
      Chào bạn! Rất vui vì bạn đã vào thăm blog của tôi: -)
      Trả lời

      Bài mới nhất

      Sửa Đóng
      Bài viết Tìm bài viết:
      Trích dẫn Báo cáo

      Thực hành xem mầu sắc với các mã của nó

      Thư mục: Tin học cơ sở |
      Đăng ngày: 22:05 25-10-2009

      Mầu sắc trong Internet qua HTML

      Bước 1. 

      Đặt chế độ hiện đuôi tệp: Mở My Computer \ Tools \ Foder Options… \ View \ Bỏ dấu kiểm ở   Hide Extensions… \ OK. 

      Bước 2. Soạn văn bản


      Lưu trên đĩa: Nơi để File (Save in): Desktop, dưới cái tên (File Name):  

      test.htm và Lưu tệp dưới dạng (Save as Type): Plain Text, nhấp nút Save chọn MS-DOS, rồi nhấp OK.

      Bước 3.  

      Xem kết quả: Ra ngoài Desktop, nhấp đúp chuột vào Test.htm sẽ thấy trang web có hình chữ nhật bằng mầu xanh (#0000FF) và mầu chữ tím do mình thiết lập.  

      Bước 4.  

      Sửa mầu để xem mầu khác: 

      Nếu máy của bạn có cài FrontPage thì 

      Trên Desktop, nhấp phải chuột vào Test.htm, chọn Edit, chọn thẻ HTML (phía dưới bên trái), chữa lại bgcolor=#0000FF thành mầu khác ví dụ bgcolor=#FF00FF (100% đỏ với 100% mầu xanh thành mầu tím), rồi Save. Rồi lại và kích vào Test.htm ta thấy hình chữ nhật bằng mầu tím, có thể thay đổi mầu chữ nữa! Tức là chữa color=#FF00FF thành color=#?????? để xem. OK.

      Trái lại có thể dùng NotePad bằng cách: 

      Start \ Programs \ Accessories \ NotePad.

      Trên thanh Menu: Nhấp File \ Open \ Desktop \ Test.htm. Chữa lại các giá trị mầu ở color và ở bgcolor, rồi nhấp File \ Save. Rồi lại và kích vào Test.htm ta thấy mầu sác thay đổi….

      Bạn hãy thử với một bộ mầu tùy thích và xem lại. Mầu 24 bít có 224 mầu, từ mã 0…0 (24 bít 0) tăng dần đến 1..1 (24 bít 1). Chẳng hạn: Cho 1 dãy 24 bít 0 hoặc 1, rồi cứ 4 bít đổi thành 1 chữ số HEX và thay vào mã nguồn trang web trên sẽ thấy mầu nó như thế nào. OK. 

      Chú ý:  

      1./ Bạn có thể nhìn thấy 256 mầu trong Internet hay dùng như trong trang web: www.khoia0.com/256colors.htm

      (dùng kỹ thuật 24 bít để thể hiện 256 mầu, chứ thực ra chỉ cần 8 bít).  

      2./ Ta có thể thiết lập cho hệ thống của mình chất lượng mầu để Windows thể hiện: 

      Nhấp chuột phải Desktop > chọn Properties > chọn thẻ Settings > chọn Color Quality…. Chọn 16, 24 hay 32 bit thì tùy… Tuy nhiên bạn khó lòng biết cái mầu nhìn thấy có mã cụ thể bằng bao nhiêu, và chắc chắn là bạn khó có thể tạo ra mầu theo mã nhị phân cho trước theo ý mình như chương trình HTML nó trên!

      3./ Mầu sắc trong DOS có thể tìm thấy bằng cách nhấp chuột vào trang web:

      www.khoia0.com/DOScolor.exe . Khi chạy, nhớ gõ tổ hợp phím Alt+Enter để phóng to cửa số DOS, hoặc để thu nhỏ lại. Trong DOS, màn hình bình thường có  80 cột, 25 dòng, tức là có tất cả 2000 kí tự trên đó. Mỗi kí tự có một thuộc tính (Attribute), mà bạn có thể can thiệp được dễ dàng bằng ngôn ngữ Pascal, như ví dụ sau đây:

      program MauSacTrongDOS;
      uses crt;
      const Mau:array[0..15] of string[24]=(
      'Den (Black)','Xanh (Blue)','La (Green)','Troi (Cyan)','Do (Red)',
      'Tim (Magenta)','Nau (Brown)','Ghi (LightGray)','Xam (DarkGray)',
      'Xanh sang (LightBlue)','La sang (LightGreen)','Troi sang (LightCyan)',
      'Do sang (LightRed)','Tim sang (LightMagenta)','Vang (Yellow)',
      'Trang (White)');
      var nen,chu,i,j : byte;
      function HexOfByte(B:word):string;
      const HexDiGit:string='0123456789ABCDEF';
      var xH : string;
          zu  : byte;
      begin
        xH:='';
        repeat
          zu:=B mod 16;
          xH:=HexDiGit[zu+1]+xH;
          B:=B div 16;
        until B=0;
        while length(xH)<2 do xH:='0'+xH;
        xH:='$'+xH;
        HexOfByte:=xH;
      end;
      BEGIN
        Textmode(c80);
        textattr:=$07;
        clrscr;
      writeln('DOS co 16 mau voi ma tu 0 den 15, tuc o he HEX tu $0 den $F. Cu the la:');
        for i:=0 to 7 do
          begin
            textcolor(7);
            gotoxy(1,i+2); write(Mau[i]:24,' = $',i,' = ');
            textcolor(i);
            for j:=1 to 5 do write(#219);
            textcolor(7);
            gotoxy(41,i+2);
            if i+8<10 then write(Mau[i+8]:24,' = $',i+8,' = ')
            else write(Mau[i+8]:24,' = $',chr(63+i),' = ');
            textcolor(i+8);
            for j:=1 to 5 do write(#219);
          end;
        writeln;
        writeln('Thuoc tinh cua ki tu chua mau nen va mau chu cua ki tu.');
        write('Voi Pascal, khi dung lenh ');
        textattr:=$09;
        write('write(.);');
        textattr:=$07;
        writeln(' ra man hinh, ta dung lenh gan:');
        textattr:=$09;
        writeln('TextAttr:=$XY;');
        textattr:=$07;
        writeln('O day X va Y la cac chu so he HEX.');
        writeln('Neu $X<=7 thi mau nen la $X, mau chu la $Y, khong nhap nhay.');
        write('Trai lai, mau nen la $X-8, chu van co mau $Y, nhung ');
        textattr:=$87;
        writeln('nhap nhay!');
        textattr:=$0F;
        writeln('Vi du: ');
        textattr:=$09;
        write('TextAttr:=$1F; write(''A''); ');
        textattr:=$07;
        write('=> ');
        textattr:=$1F; write('A');
        textattr:=$07; writeln(' co nen xanh, chu trang, khong nhap nhay.');
        textattr:=$09;
        write('TextAttr:=$9F; write(''A''); '); 
        textattr:=$07;
        write('=> ');
        textattr:=$9F; write('A');
        textattr:=$07; writeln(' co nen xanh, chu trang, nhap nhay.');
        writeln('Hay thu voi bat cu thuoc tinh nao. OK. Nen nhap so dang HEX, $1,... $F.');
        Repeat
          textattr:=$0F;
          Write('Ban chon mau nen so = '); readln(nen);
          Write('Ban chon mau chu so = '); readln(chu);
          Textattr:=nen*16+chu;
          writeln('Thuoc tinh ban da chon la ',HexOfByte(TextAttr),'.');
          textattr:=$07;
          writeln('Go Esc de thoat, phim khac de tiep tuc...');
        Until readkey=#27;
      END.

      Bạn nào có thắc mắc gì thì xin liên hệ với

      Phạm Đăng Long

      lightsmok@yahoo.com

      Trích dẫn (0)