Hỏi & đáp lập trình

Bitwise OR Operator ("Toán tử dịch bit OR") - Kí hiệu: "|"
1 | 1 = 1
0 | 1 = 1
1 | 0 = 1
0 | 0 = 0

Ở một số ngôn ngữ thì biểu thức true có thể tương đương với giá trị bit là 1, và 0 đối với biểu thức false.

Ex: 101 | 1001 = 1101
0101 (decimal 5)
1001 (decimal 9)
-----------------
1101 (decimal 13)

Logical OR Operator ("Toán tử logic OR") - Kí hiệu: "||"
True || True = True
False || True = True
True || False = True
False || False = False

Ex: (1 > 4 || 2 < 5) = True
1 > 4 (False)
2 < 5 (True)
-------------
True

 

Mã:

'Mã chuyển một số sang một chuỗi
Public Function NumToText(mVarStr As String) As String
   Static Ones(0 To 11) As String, Teens(0 To 9) As String, Tens(0 To 9) As String
   Static Thousands(0 To 4) As String, bInit As Boolean
   Dim i As Integer, bAllZeros As Boolean, bShowThousands As Boolean
   Dim StrVal As String, StrBuff As String, StrTemp As String
   Dim nCol As Integer, nChar As Integer
   Dim J&
   J = Len(CStr(CLng(mVarStr)))
  'Chỉ làm việc cho các số dương
   Debug.Assert mVarStr >= 0
   If bInit = False Then
      'Bắt đầu tạo mảng
       bInit = True
       Ones(0) = "Không"
       Ones(1) = "Một"
       Ones(2) = "Hai"
       Ones(3) = "Ba"
       Ones(4) = "Bốn"
       Ones(5) = "Năm"
       Ones(6) = "Sáu"
       Ones(7) = "Bảy"
       Ones(8) = "Tám"
       Ones(9) = "Chín"
       Ones(10) = "Mốt"
       Ones(11) = "Tư"
       Teens(0) = "Mười"
       Teens(1) = "Mười Một"
       Teens(2) = "Mười Hai"
       Teens(3) = "Mười Ba"
       Teens(4) = "Mười Bốn"
       Teens(5) = "Mười Năm"
       Teens(6) = "Mơừi Sáu"
       Teens(7) = "Mười Bảy"
       Teens(8) = "Mơừi Tám"
       Teens(9) = "Mười Chín"
       Tens(0) = ""
       Tens(1) = "Mười"
       Tens(2) = "Hai Mươi"
       Tens(3) = "Ba Mươi"
       Tens(4) = "Bốn Mươi"
       Tens(5) = "Năm Mươi"
       Tens(6) = "Sáu Mươi"
       Tens(7) = "Bảy Mươi"
       Tens(8) = "Tám Mươi"
       Tens(9) = "Chín Mươi"
       Thousands(0) = ""
       Thousands(1) = "Nghìn"'
       Thousands(2) = "Triệu"
       Thousands(3) = "Tỉ"
       Thousands(4) = "Nghìn"
   End If
  'Bẫy lỗi
   On Error GoTo Err2TextTrap
  'Lấy phần lẻ
  'StrBuff = "Và " & Format((mVarStr - CLng(mVarStr)) * 100, "00") & "/100"
  'Chuyển định dạng dữ liệu vào
   StrVal = CStr(CLng(mVarStr))
  'Tất cả cả số đều là Zero
   bAllZeros = True
  'Làm vòng lặp với chuỗi sau khi chuyển định dạng
   For i = Len(StrVal) To 1 Step -1
      'Lấy từng kí số
       nChar = Val(Mid$(StrVal, i, 1))
      'Tìm số cột cho kí số
       nCol = (Len(StrVal) - i) + 1

      'Chọn ở hàng đơn vị 1,10,100
       Select Case (nCol Mod 3)
          Case 1'Trường hợp là 1
             bShowThousands = True
             If i = 1 Then
                'Số đầu tiên
                StrTemp = Ones(nChar) & " "
             ElseIf Mid$(StrVal, i - 1, 1) = "1" Then
                'Các số sau ở trong hàng mười
                StrTemp = Teens(nChar) & " "
                i = i - 1'Giữ lại các số có hai con số
             ElseIf nChar > 0 Then
                'Các số có một con số
                StrTemp = Ones(nChar) & " "
             Else
                bShowThousands = False
                If Mid$(StrVal, i - 1, 1) <> "0" Then
                   bShowThousands = True
                ElseIf i > 2 Then
                   If Mid$(StrVal, i - 2, 1) <> "0" Then bShowThousands = True
                End If
                StrTemp = ""
             End If
             If bShowThousands Then
                If nCol > 1 Then
                   StrTemp = StrTemp & Thousands(nCol \ 3)
                   If bAllZeros Then
                      StrTemp = StrTemp & " "
                   Else
                      StrTemp = StrTemp & ", "
                   End If
                End If
                bAllZeros = False
             End If
             StrBuff = StrTemp & StrBuff

          Case 2
             If nChar > 0 Then
                If Mid$(StrVal, i + 1, 1) <> "0" Then
                   StrBuff = Tens(nChar) & " " & StrBuff
                Else
                   StrBuff = Tens(nChar) & " " & StrBuff
                End If
             End If

          Case 0
             If nChar > 0 Then StrBuff = Ones(nChar) & " Trăm " & StrBuff
       End Select

       Next i
       StrBuff = Trim$(StrBuff)
       If ((Right$(StrBuff, 3) = Ones(1))) And (J > 2) Then _
         StrBuff = Left$(StrBuff, Len(StrBuff) - 3) & Ones(10)
       If ((Right$(StrBuff, 3) = Ones(4))) And (J > 2) Then _
         StrBuff = Left$(StrBuff, Len(StrBuff) - 3) & Ones(11)
      ' If ((Right$(StrBuff, 3) = Ones(4))) Then _
        'StrTemp = Left$(StrBuff, Len(StrBuff) - 3) & Ones(11)
       StrBuff = UCase$(Left$(StrBuff, 1)) & Mid$(StrBuff, 2)
      'StrBuff = " Và " & Format((mVarStr - CLng(mVarStr)) * 100, "00") & "/100"
       If (CDbl(mVarStr) - CLng(mVarStr) > 0) Then StrBuff = StrBuff _
         & " ( Và " & Format((mVarStr - CLng(mVarStr)) * 100, "00") & "/100)"

  Err2Text:
   NumToText = StrBuff
   Exit Function

  Err2TextTrap:
   StrBuff = "#Error#"
   Resume Err2Text
End Function

nền vb6

 

ở đây có ai rành về Linked List trong C# ko? vd thê 1này
class LLNode
{
int _iData = 0; // data of this node
LLNode _next = null; // reference to next node, init to end
}
trừu tuợng quá mình ko hiểu, như trên và vài ví dụ khác thì ok, cái lab của mình thì rất là khó hiểu:( mong có ai giúp đỡ

 

cái này học bên CTDL & GT mà

 

[Hỏi C#]

Kiểm tra xem có 1 process đang chạy hay không.

Ví dụ đưa vào vòng lập, nếu có process đó chạy thì thực thi lệnh gì đó.

 

PHP:

while (true)
{
    // Search process by name
    Process[] processList = Process.GetProcessesByName("Process Name Here");

    // Process found!
    if (processList != null && processList.Length > 0)
    {
        Process proc = processList[0]; // Your found process
        
        // Do something with your process
        // Ex: proc.Kill() - Immediately stops the associated process
        break; // Exit from loop
    }
    Thread.Sleep(20); // Sleep for a while
}


Nhớ thêm

PHP:

using System.Diagnostics;
using System.Threading;

 

[Hỏi C++]
Có cách nào đếm các phần tử trùng trong mảng không.
VD: 1,3,5,1,3 ==>Xuất là 2

 

viết 1 hàm đếm số lần xuất hiện trong mảng
tạo 1 biến count
rồi chạy vòng lặp mảng gọi hàm trên cho từng phần tử để đếm
nếu 1 phần tử xuất hiện lớn hơn 1 thì tăng biến count lên 1

 

Cho mình hỏi: để chạy được những ứng dụng được lập trình bằng Visual Studio thì máy phải có DotNet
Còn lập trình bằng gì để tạo ra những ứng dụng mà không cần dùng đến DotNet

 

Lập trình bằng MFC của C++ thì không cần dùng đến .NET (Không phải C++/.NET) nhưng có thể vẫn cần phải cài C++ Redistributable Package. Link

 

vậy để lập trình cái đó thì cần cài cái chương trình gì để build

 

Vẫn dùng VC++ thôi, nếu bạn ko dùng lib của dotNet thì sẽ ko cần dotNet.
Nếu cậu thật sự ko muốn depend vào 1 framework nhất định thì học C++ Standard

 

ở đây có ai biết lập trình language DrScheme ko giúp mình với :)

 

Cho mình hỏi tí về Pascal
lúc thực hành Pascal trên máy ở trường thì bình thưởng (chạy được chương trình) nhưng về nhà tải Pascal thì lúc cho chạy chương trình lại báo là Error 200: Division by zero.
Làm sao để chạy được chương trình ?
thanks

 

http://math.uww.edu/~harrisb/courses/cs171/turbopatch.html
Cái này là 1 lỗi cơ bản khi chạy pascal trên máy đời mới

 

ai giỏi code cho em hỏi, giờ em có đoạn code này <embed width="640" height="380" src="http://www.youtube.com/v/ZHCuA0KnITY" ></embed> , jờ em muốn thêm 1 cái clip nữa vd http://www.youtube.com/v/G_fmGyK1Gn thì chènđoạn code nào vô giaữ chúng n1o vậy, em muốn vừa hết cái clip kia thì nó sẽ nhảy sang cái clip http://www.youtube.com/v/G_fmGyK1Gn, or lập lại cái clip vừa phát , thanks,

 

thật sự là đọc vào chả biết nó kêu mình làm cái gì (mặc dù đã dịch ra Tiếng Việt). Có ai có thể chỉ cụ thể và rõ ràng hơn được ko. Thanks

 

[C#] Mình có khai báo 1 biến kiểu double db rồi gán cho nó 1 giá trị cực lớn (lớn hơn 1e15), ví dụ db = 1000000000000000000 (= 1e18)
Nếu mình dùng hàm db.ToString() để hiển thị số db đó lên textbox, thì kết quả hiển thị trên textbox là 1e18 chứ không phải là 1000000000000000000.
Có cách nào cho cái textbox hiển thị số db đó là 1000000000000000000 chứ không phải là 1e18 không?

http://www.mediafire.com/?zdxzwx4vjoi
bản Pascal chạy không bị lỗi Error 200: Division by zero này

 

^: thử nối nó vào 1 string xem : ""+ number;

 

không khá khẩm hơn hàm ToString() là mấy