///Ceasar Cipher/Ceasar Encriptionusing System;class Program{static string Caesar(string value, int shift) {Tag: C, C++, C#, mã hóa cổ điển, Ceasar, Ceasar Cipher, an toàn, bảo mật
char[] buffer = value.ToCharArray();
for (int i = 0; i < buffer.Length; i++){
// Letter.
char letter = buffer[i];
// Add shift to all.
letter = (char)(letter + shift);
// Subtract 26 on overflow.
// Add 26 on underflow.
if (letter > 'z') {
letter = (char)(letter - 26);
}
else if (letter < 'a') {
letter = (char)(letter + 26);
}
// Store.
buffer[i] = letter;
}
return new string(buffer);
}
static void Main()
{
string a = "test";
string b = Caesar(a, 18); // Ok
string c = Caesar(b, -18); // Ok
string d = Caesar(a, 1); // Ok
string e = Caesar(d, -1); // Ok
string f = "exxegoexsrgi";
string g = Caesar(f, -4); // Ok
Console.WriteLine(a);
Console.WriteLine(b);
Console.WriteLine(c);
Console.WriteLine(d);
Console.WriteLine(e);
Console.WriteLine(f);
Console.WriteLine(g);
}
}
Code C#: Mã hóa cổ điển Ceasar (Ceasar Cipher)
Người đăng: culaoxanh88 on Thứ Năm, 20 tháng 2, 2014
Code C-C++: Tìm ma trận chuyển vị trong C++
Người đăng: culaoxanh88 on Thứ Tư, 19 tháng 2, 2014
#include<iostream>
#include<iomanip>
using namespace std;
int M[50][50];
void NhapMaTran(int A[50][50], int n, int m){
for(int i=0;i<n;i++)
for(int j=0;j<m;j++){
cout<<"\n A["<<i<<","<<j<<"]= ";
cin>>A[i][j];
}
}
void InMaTran(int B[50][50], int n,int m){
for(int i=0;i<n;i++){
for(int j=0;j<m;j++)
cout<<setw(3)<<B[i][j];
cout<<"\n";
}
}
void ChuyenVi(int F[50][50], int n,int m){
for(int j=0;j<m;j++){
for(int i=0;i<n;i++)
cout<<setw(3)<<F[i][j];
cout<<"\n";
}
}
main(){
int r,c;
cout<<"\n So dong = "; cin>>r;
cout<<"\n So cot = "; cin>>c;
NhapMaTran(M,r,c);
cout<<"\n Ma tran vua nhap: \n";
InMaTran(M,r,c);
cout<<"Ma tran chuyen vi: \n";
ChuyenVi(M,r,c);
}
Tag: C, C++, ma trận, mảng 2 chiều, mảng hai chiều, ma trận chuyển vị, array
Code C-C++: Phép toán cộng, nhân hai ma trận
Người đăng: culaoxanh88
#include<iostream.h>
#define max 100
/*Nhap ma tran*/
void NhapMaTran(float A[max][max], int m, int n){
for(int i = 0; i<m; i++)
for(int j = 0; j<n; j++) {
cout<<"a["<<i<<"]["<<j<<"] = ";
cin>>A[i][j];
}
}
/*Xuat ma tran*/
void XuatMaTran(float A[max][max], int m, int n) {
for(int i=0 ; i<m; i++){
cout<<endl;
for(int j=0 ; j<n; j++)
cout<<A[i][j]<<"\t";
}
}
/*C = A+B*/
void CongMaTran(float A[max][max], float B[max][max], float C[max][max], int m, int n) {
for(int i = 0; i<m; i++)
for(int j = 0; j<n; j++)
C[i][j] = A[i][j]+B[i][j];
}
/*A cap mxn * B cap nxp = C cap mXp*/
void NhanMaTran(float A[max][max], float B[max][max], float C[max][max], int m, int n, int p){
for(int i = 0; i<m; i++)
for(int k = 0; k<p; k++) {
C[i][k]=0;
for(int j = 0; j<n; j++)
C[i][k] = C[i][k]+A[i][j]*B[j][k];
}
}
/*Chuong trinh chinh*/
void main(){
int m=3,n=2,p=3;
float A[max][max],B[max][max],C[max][max],D[max][max];
clrscr();
cout<<"Nhap ma tran A cap "<<m<<"x"<<n<<endl;
NhapMaTran(A,m,n);
cout<<"Nhap ma tran B cap "<<m<<"x"<<n<<endl;
NhapMaTran(B,m,n);
cout<<"Nhap ma tran C cap "<<n<<"x"<<p<<endl;
NhapMaTran(C,n,p);
cout<<"Ma tran A\n";
XuatMaTran(A,m,n);
cout<<"\nMa tran B\n";
XuatMaTran(B,m,n);
cout<<"\nMa tran C\n";
XuatMaTran(C,n,p);
cout<<"\nMa tran D = A+B\n";
CongMaTran(A,B,D,m,n);
XuatMaTran(D,m,n);
cout<<"\nMa tran D = A.C\n";
NhanMaTran(A,C,D,m,n,p);
XuatMaTran(D,n,p);
getch();
}
Tag: Ma trận, mảng 2 chiều, mảng hai chiều, phép cộng, phép nhân, C, C++
VBA: Hàm tách tên trong xâu họ và tên
Người đăng: culaoxanh88 on Chủ Nhật, 5 tháng 1, 2014
Hàm tách tên trong xâu họ và tên.
(VD: Nếu biết họ tên là Nguyễn Minh Ngọc, hàm sẽ tách ra được tên là Ngọc)
Function GetTen(hoten As String) As String
Dim pos As Integer
pos = 1
If InStr(pos, Trim(hoten), " ") = 0 Then
GetTen = hoten
Exit Function
End If
While InStr(pos + 1, Trim(hoten), " ") > 0
pos = InStr(pos + 1, Trim(ten), " ")
Wend
GetTen = Mid(hoten, pos)
End FunctionTag: VBA, Access, Module, VB.Net, FoxPro
VBA: Cấu trúc For Each … Next
Người đăng: culaoxanh88 on Thứ Tư, 1 tháng 1, 2014
For Each phần_tử In nhóm
Lệnh
……
[ Exit For ] Lệnh
Next [ phần_tử]
Số lần vòng lặp For thực hiện các lệnh tùy thuộc vào số phần tử trong nhóm. Phần tử là biến đối tượng chứa trong một đối tượng khác, còn nhóm có thể là mảng hoặc biến đối tượng bao gồm nhiều đối tượng thành phần.
Ví dụ:
Dim frm As Form
Dim Ctl As Control
Set frm = Forms!Nhan_vien
For Each Ctl In frm.Controls
With Ctl
.FontName = “VNI-Times”
.FontSize = 12
.ForeColor = 128
.FontBold = True
End With
Next
Tag: Access, VBA, Module, VB.Net
VBA: Cấu trúc With … End With
Người đăng: culaoxanh88
Cú pháp:
With đối_tượng
Lệnh
……
End With
Cấu trúc With cho phép thực hiện các lệnh đối với một biến đối tượng nào đó hoặc biến có kiểu do người sử dụng tự định nghĩa. Các lệnh trong cấu trúc With sẽ tham chiếu trực tiếp đến các tính chất của đối tượng, vì vậy cấu trúc này thường được dùng để thay đổi giá trị của các tính chất trong đối tượng.
Ví dụ: Dim F_NV As Form, I As Integer
Set F_NV = Forms!Nhan_vien
For I = 0 To Frm.Count – 1
If TypeOf Frm(I) Is TextBox Then
With Frm(I)
.BackColor = 1
.ForeColor = 128
.BorderStyle = 1
.Height = 200
End With
End If
Next
Tag: Access, VBA, Module, VB.Net
VBA: Cấu trúc If TypeOf … Is … Then
Người đăng: culaoxanh88
Cú pháp:
If TypeOf biến_đối_tượng Is hằng_nội_tại Then
Lệnh_1
[ ElseIf TypeOf biến_đối_tượng Is hằng_nội_tại Then
Lệnh_2 ]
……
[ Else
Lệnh_n ]
End If
Cấu trúc này kiểm định đối tượng mà biến biểu thị thuộc loại nào với hằng nội tại là các hằng ký hiệu đã định nghĩa sẵn trong Access để qui định về loại đối tượng. Hằng nội tại biểu thị cho các đối tượng thuộc loại ô điều khiển trong mẫu biểu hoặc báo biểu gồm có: CheckBox, CommandButton, ComboBox, ListBox, OptionGroup, OptionButton, ToggleButton, TextBox, Label, Image, ObjectFrame …
Ví dụ:
Dim F_Name As String
Dim Frm As Form
Dim I As Integer
F_Name = InputBox(“Tên mẫu biểu:”)
DoCmd.OpenForm F_Name
Set Frm = Forms(F_Name)
For I = 0 To Frm.Count – 1
If TypeOf Frm(I) Is Label Then
Frm(I).ForeColor = 255
ElseIf TypeOf Frm(I) Is TextBox Then
Frm(I).ForeColor = 0
ElseIf TypeOf Frm(I) Is CommandButton Then
Frm(I).ForeColor = 128
End If
Next
Tag: VBA, Module, Cấu trúc If TypeOf … Is … Then
Tag: VBA, Module, Cấu trúc If TypeOf … Is … Then
