vb دا ئىقتىدارلىق ئۇريغۇرچە كىرگۈزۈش فۇنكىسىيەسى

kaxtax

Const UniE As Integer = 47 '&H2f '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  1
3 ~9 t, P/ S. K4 w, }6 nPublic Enum U
" |1 V( M' K* I8 iHamza = &H626
2 E' Q8 Y( _; x; @8 J  ^# _a_kiqik = &H6BE
; b7 C% h% W4 A+ D# E- hA_qong = &H6BE
b_kiqik = &H628
$ D* C% L& _* Y4 u2 JB_qong = &H628
" k$ U8 h# u6 V( c. ]$ zc_kiqik = &H63A
C_qong = &H63A
: I8 J$ d6 c2 j3 k( q) Sd_kiqik = &H62F
D_qong = &H698
7 A0 Y* A: ~6 B+ h" Y& _3 We_kiqik = &H6D0
+ Q5 S/ D! w( N" @" kE_qong = &H6D0
f_kiqik = &H627
" x# F% o" q: \6 a  PF_qong = &H641
2 v2 F/ i- M1 p" |g_kiqik = &H6D5
8 @5 g6 ]! l4 A) [: S6 LG_qong = &H6AF
h_kiqik = &H649
H_qong = &H62E
i_kiqik = &H6AD
) b) q  e( T. _I_qong = &H6AD
7 N7 e1 h3 w" vj_kiqik = &H642
! H% c: F7 J/ r! g5 o! i5 F( s  H0 h  `J_qong = &H62C
9 c1 U5 D* p: nk_kiqik = &H643
K_qong = &H6C6
l_kiqik = &H644
* O0 \- |9 q  HL_qong = &H644
m_kiqik = &H645
M_qong = &H645
n_kiqik = &H646
; W4 f& T& V0 ?: x3 U, CN_qong = &H646
- R% L% l5 l5 i2 Y( Y! Co_kiqik = &H648
8 N7 w' q- r" `2 bO_qong = &H648
7 Z' E( h( m+ p- ?5 ?p_kiqik = &H67E
P_qong = &H67E
q_kiqik = &H686
Q_qong = &H686
r_kiqik = &H631
R_qong = &H631
& E3 A  K6 p# p9 Q1 V5 C9 qs_kiqik = &H633
S_qong = &H633
! z3 ]9 W: i& E. ~7 a$ Lt_kiqik = &H62A
T_qong = &H640
# N& S' r$ @" S$ _' pu_kiqik = &H6C7
U_qong = &H6C7
/ N9 F& x# K7 A0 T" q5 D. r- qv_kiqik = &H6C8
) t5 y3 d9 x! c- D( H9 o0 iV_qong = &H6C8
w_kiqik = &H6CB
W_qong = &H6CB
x_kiqik = &H634
/ E  G8 S' U, @" gX_qong = &H634
y_kiqik = &H64A
Y_qong = &H64A
4 a7 e5 `. F( n9 Ez_kiqik = &H632
3 j6 K7 I1 a4 m4 g- `Z_qong = &H632
7 P6 S) H1 E+ J% s4 c2 P5 WTakTirnak_ong = &H2039
" ]& c9 M+ ]- P5 R5 ]) _; Z  WTakTirnak_sol = &H203A
4 q- a' Q" s+ z+ k" @) u, q! Q* r7 LSizikqa = &H640
Sizik = &H2014
QekIT = &H2E
/ W6 C1 n6 n5 HPax = &H60C
. W; i8 D  p( fUndax = &H21
% `6 o- C% Y/ h" ~( Z7 H5 }Sual = &H61F
KoxQekit = &H3A
QekitPax = &H61B
KoxTirnak_ong = &HBB
: r, J' w1 C5 i9 }- v1 jKoxTirnak_sol = &HAB
YalangTirnak_ong = &H29
YalangTirnak_sol = &H28
4 g7 u$ m+ N/ @! G# uKopQekit = &H2026
Boxluk = &H20
End Enum
3 n6 S3 w% d- c( n9 Q/ E$ iPublic Function UStr(ByVal UniStr As Integer) As String '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  7
Dim XL As Integer
Dim Xc As String
XL = UniStr
3 O2 W, `3 _; x) L5 m: zSelect Case XL
8 K5 h$ c3 b8 c9 FCase 0: Xc = "/"
Case 1:  Xc = "f"
Case 2:  Xc = "g"
Case 3: Xc = "e"
  r5 ]0 }8 R, ^) DCase 4: Xc = "h"
: ~9 y9 L9 G+ [  x$ e0 D, DCase 5: Xc = "o"
3 s5 I" l  e  Y( sCase 6: Xc = "u"
Case 7: Xc = "K"
# ~5 Z/ B% s7 `/ \9 S6 {2 rCase 8: Xc = "v"
Case 9: Xc = "b"
0 f/ Y: d9 X$ Z% n0 e$ FCase 10: Xc = "p"
. N/ [. l0 m# }  O/ B. RCase 11: Xc = "t"
Case 12: Xc = "J"
Case 13: Xc = "q"
- N' |- `% n9 y1 ]$ P: h: \7 nCase 14: Xc = "H"
2 U" w, W& ~* N7 C6 RCase 15: Xc = "d"
Case 16: Xc = "r"
3 k) h4 u6 E0 c: n" nCase 17: Xc = "z"
Case 18: Xc = "D"
0 D; z- l& t; X5 `Case 19: Xc = "s"
Case 20: Xc = "x"
Case 21: Xc = "c"
( D: r- `7 |# K+ j% Q# P% N" @Case 22: Xc = "F"
Case 23: Xc = "j"
Case 24: Xc = "k"
Case 25: Xc = "G"
( Y: h7 c# P) ?. P/ T0 X  zCase 26: Xc = "i"
Case 27: Xc = "l"
Case 28: Xc = "m"
Case 29: Xc = "n"
8 T7 l4 i  u( yCase 30: Xc = "w"
5 Z) i2 E% I  ^( U' cCase 31: Xc = "a"
* w! o) ?2 h1 B1 A, NCase 32: Xc = "y"
Case 33: Xc = "."
Case 34: Xc = ","
Case 35: Xc = "?"
  i4 s+ @& a, QCase 36: Xc = "!"
4 s% j; ?5 L& v* H' g9 rCase 37: Xc = ":"
Case 38: Xc = ";"
' g9 }- o* w# ~$ R6 {Case 39: Xc = "}"
Case 40: Xc = "{"
: L0 S" e8 r* mCase 41: Xc = ")"
Case 42: Xc = "("
) d5 z. S# G2 D% R4 Z# ICase 43: Xc = "-"
Case 44: Xc = "_"
4 t% y! D7 z% I& O. hCase 45: Xc = ">"
, b  T1 i- `: E: d# _' P+ G: B/ f6 M% OCase 46: Xc = "<"
  o9 i/ a4 N! }9 a. ?Case 47: Xc = " "
. C) J* Z+ e( `! mCase Else
Xc = ""
End Select
UStr = Xc
! V  c& ^: G$ A/ }- {, V3 iEnd Function
6 I1 r; k% s. b2 N: O2 gPublic Function UAsc(ByVal UniANSI As Integer) As Long '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   3
Dim Xc, XL As Integer
XL = UniANSI
- N! G$ d& `/ T7 |: OSelect Case XL
Case 0: Xc = U.Hamza
: ^6 k# n4 b6 b. Y# ]Case 1:  Xc = U.f_kiqik
Case 2:  Xc = U.g_kiqik
Case 3: Xc = U.e_kiqik
' i( f& M: I! D$ gCase 4: Xc = U.h_kiqik
Case 5: Xc = U.o_kiqik
; g4 a  x  O$ P5 p/ p7 A- K, q- ~Case 6: Xc = U.u_kiqik
$ e9 {6 ?) h& H* yCase 7: Xc = U.K_qong
$ n3 K" L! a6 N3 z' OCase 8: Xc = U.v_kiqik
Case 9: Xc = U.b_kiqik
4 d) ~" [5 G% P( X0 m. ]Case 10: Xc = U.p_kiqik
8 W/ B( ?; g: q  b5 ~9 x/ J9 uCase 11: Xc = U.t_kiqik
Case 12: Xc = U.J_qong
Case 13: Xc = U.q_kiqik
( I6 [/ ]1 [) }. XCase 14: Xc = U.H_qong
2 J% ~8 I" q1 o- r2 D. r& s; vCase 15: Xc = U.d_kiqik
' i% c+ h8 I; b3 R2 [4 yCase 16: Xc = U.r_kiqik
Case 17: Xc = U.z_kiqik
2 N* K1 C, R; S# aCase 18: Xc = U.D_qong
Case 19: Xc = U.s_kiqik
Case 20: Xc = U.x_kiqik
2 w  |5 S$ R  F3 u5 F! ~) ECase 21: Xc = U.c_kiqik
Case 22: Xc = U.F_qong
) \2 k0 Y2 T' f. j; D, c) b0 B9 UCase 23: Xc = U.j_kiqik
$ y! R* |* S( N8 `" G! DCase 24: Xc = U.k_kiqik
( v1 T  J+ Z2 ECase 25: Xc = U.G_qong
Case 26: Xc = U.i_kiqik
Case 27: Xc = U.l_kiqik
Case 28: Xc = U.m_kiqik
. g; X# i3 G- X! s) O2 ^. Y9 wCase 29: Xc = U.n_kiqik
% q& a8 _; \' l# \. D& nCase 30: Xc = U.w_kiqik
1 g$ V8 C+ R9 c" V: rCase 31: Xc = U.a_kiqik
Case 32: Xc = U.y_kiqik
7 `' T6 C: w5 I* A2 JCase 33: Xc = U.Qekit
Case 34: Xc = U.Pax
2 w/ ]' D1 p+ eCase 35: Xc = U.Sual
7 ^1 {/ y7 X; ]5 }6 JCase 36: Xc = U.Undax
$ L0 L' I4 c+ L" p8 h5 E  k( C1 RCase 37: Xc = U.KoxQekit
' q+ f; K% L9 J% N6 E) MCase 38: Xc = U.QekitPax
Case 39: Xc = U.KoxTirnak_ong
Case 40: Xc = U.KoxTirnak_sol
9 E  J. _( [0 G5 hCase 41: Xc = U.YalangTirnak_ong
Case 42: Xc = U.YalangTirnak_sol
Case 43: Xc = U.Sizik
) I7 U( c0 r* H' x$ PCase 44: Xc = U.Sizikqa
# x0 M0 W9 `/ O! U7 O& P: A6 z/ V+ j( ]Case 45: Xc = U.TakTirnak_ong
0 T- u- G. P+ c9 U  `% h" I' V& dCase 46: Xc = U.TakTirnak_sol
Case 47: Xc = U.Boxluk
; L' N& m% F! x( l9 z# g& h- A+ c( VCase Else
% R/ H0 f5 O" q& N# }Xc = 0
% X/ [3 O% X% M( {2 J. SEnd Select
UAsc = Xc
End Function
0 ~) Q4 Y/ q+ N, i/ G  s+ nPublic Function UChr(ByVal UniHarip As Integer) As String '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  5
. W. w) |% b' M, fUChr = ChrW(UAsc(UniHarip))
End Function
Public Function Uni(ByVal UniString As String) As String '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  9
Dim Cs As Boolean
& m' K3 t4 v- ^( j+ ODim Us, Ts As String
' B) e* s! l! zFor i = 1 To Len(UniString)
4 s' m2 U. s- ?! n6 e* t4 s, r7 k" N Us = Mid(UniString, i, 1)
% B; u7 z, _- f5 j8 e- e If Us = "'" Then Cs = Not Cs: Us = " "
  If Us = "\" Then Us = ChrW(&HD) & Chr(&HA)
- s* {0 Q. X# s! { If Cs = False Then
  For j = 0 To UniE
   If UStr(j) = Us Then Ts = Ts & UChr(j):  GoTo ii
  Next j
  Ts = Ts & Us
3 R8 {3 L6 u! c% R4 H  t0 r8 W   Else
    Ts = Ts & Us
3 A/ u* x" T/ I% e* H; p* K   End If
. v+ K& U+ K7 Dii:
5 ]* @( X6 w" d0 ZNext i
( z, H. Z8 d& DUni = Ts
End Function
5 N) K- n! S$ G3 n( }يوقارقى كودنى مودالغا چاپلاپ Uni() ناملىق فۇنكىسىيەنى ئىشلەتسىڭىز بولىدۇ .
+ D4 {2 j1 u8 }$ d5 g«\» بولسا قۇر ئاتلايدۇ. «'» بولسا ئېنگىلىزچە بىلەن ئۇيغۇرچىنى ئالماشتۇرىدۇ.
مەسىلەن :
7 G' M% c1 R5 g. H# IMe.TextBox1.Text = Uni(" phroGhrfmmhcf /hjthdfrlhj /uycurqg khrGvzGvx \   tKwgndhkhqg:\ yfntu shzhj jur /ftlfxnh bhldvrhdu \ tfj pgx /ehGhlhsqhcf /flmfxturuxnh bhldvrhdu")
ھەر قانداق جايغا «'»قويۇش ئارقىلىق ئۇيغۇرچە ئېنگىلىسچىنى ئارىلاش چىقىرالايسىز.

ahat0902

ئىنتايىن ياخشى تېمىدىن بىرنى يوللاپسىز. يېڭى ئۆگەنگۈچى ھەۋەسكار دوستلارغا كۆپرەك تەلىم بېرەرسىز. رەھمەت سىزگە

火心0995

{:5_165:}قانداق بۇلۇپ كەتتى بۇ  مەن ھىچنىمىنى چۈشەنمىدىم

kaxtax

火心0995 يوللىغان ۋاقتى  2012-4-18 22:03
قانداق بۇلۇپ كەتتى بۇ  مەن ھىچنىمىنى چۈشەنمىدىم

  s; S5 o1 d* n5 T6 |چۈشەنمىگۈدەك جاي يوققۇ ؟ چۈشەنمىگۈدەك جايلاردا ئورتاقلىشايلى

凉风

مەنمۇ بۇ سىستىمىنى يېڭىلا ئۆگەنگەن، لىكىن ئۇيغۇرچە يېزىشنى بىلمەيتتىم، رەھمەت سىلەرگە!!!

خاككىر927

ئىنتايىن ياخشى تېمىدىن بىرنى يوللاپسىز

ساتتار1

مەنمۇvbغا خېلى قىززىقىمەن، بىراق ئۇيغۇرچە يېزىق كىرگۇزۇشنى بىلمەيدىكەنمەن.

muhammad

ئىسىل كود بۇ، بۇرۇن ئۇچقۇن تورىدا ئۇچراتقاندىن بويان پايدىلىنىپ كىلىۋاتىمەن....

سەمەت001

مەنمۇ بىر كۆرۈپ باقاي دىگەن يۇشۇرۇن مەزمۇننى....

yمىسكىنy

مەنمۇ كۆرسەم بۇلا!!!!!!!!!!!!!!!!!!!!!!!!!!!