VFP ·R¥ÎªÌªÀ°Ï

[gunsu77]

Clear
Set Talk Off
Set Safety Off
Set Status Bar On
Set Message To "¤j®a¨Óª±±ô«¢ ¡ó¡\¡ó"

cSymbol="¡¶¡µ¡»¡º"
cCardNo="A234567890JQK"
cDispCard=""
mType=""
nPos=0
nEndPos=0
nCardNo=0
nSymbol=0
j=0

Input "½Ð¿é¤JµP§Î¡G" To mType

nPos=At(Left(Upper(mType),1),cCardNo)

If nPos=0 .or. ! Str(Len(Alltrim(mType)),1) $ "1,3,4" .or. ;
(Upper(Left(mType,1)) $ "J,Q,K" .and. Len(Alltrim(mType))<3)
Wait "§A¹ÀÀ°À°¦£¡I¡I½Ð§O¶Ã¥´ >¡s< ¡y¬Ý¡z¡A­nÄ~Äòª±¡A½Ð«ö¥ô¦ó¤@Áä"
do PlayCard
Endif

nCardNo=nCardNo+Mod(Second()*1000,13) && ¨ú¤@­Ó¶Ã¼Æ
nEndPos=At(Left(Upper(mType),1),cCardNo)+5-1 && °O¿ý³Ì«á¤@­Ó¼Æ­È

For i=nPos to nEndPos

Do Case
Case Len(Alltrim(mType))=3 .and. i<nEndPos && ´I¿c
for j=1 to Len(Alltrim(mType))
cDispCard=cDispCard+SubStr(cSymbol,j*2-1,2)+;
SubStr(cCardNo,i,1)
next j
i=j+nPos-1

Case Len(Alltrim(mType))=4 .and. i<nEndPos && ¥|±ø
for j=1 to Len(Alltrim(mType))
cDispCard=cDispCard+SubStr(cSymbol,j*2-1,2)+;
SubStr(cCardNo,i,1)
next j
i=j+nPos-1
EndCase

nSymbol=Mod(i,8)

If Mod(nSymbol,2)=0
nSymbol=Mod(nSymbol,2)+1
Else
nSymbol=Mod(nSymbol,4)+2
EndIf

cDispCard=cDispCard+SubStr(cSymbol,iif((i*2)<=8 ,(i*2)-1 ,nSymbol) ,2)

If nCardNo>13
nCardNo=nCardNo-14
EndIf

Do Case
Case j=4
cDispCard=cDispCard+SubStr(cCardNo,nCardNo,1)

Case j=5
cDispCard=cDispCard+iif(i<10 ,SubStr(cCardNo,i,1) ,SubStr(cCardNo,i-9,1))

Otherwise
cDispCard=cDispCard+SubStr(cCardNo,iif(i<14 ,i ,1),1)
EndCase

Next i

? StrTran(cDispCard ,"0" ,"10")

If !Empty(cDispCard)
Wait "­nÄ~Äòª±¡A½Ð«ö¥ô¦ó¤@Áä¡FÂ÷¶}½Ð«ö¡iEsc¡jÁä"
Do PlayCard
Endif

&& Set Message To "ÁÂÁ±z¡I¡I´Á«Ý¤U¦¸¦A¬Û·|¡@¡ó¡\¡ó¡@"
&& Clear

Set Talk On
Set Safety On

[garfield]

§A run ¤F¶Ü?
¤£¹ïªºªF¦è«ç»òÅܲ³æ.

[liangszpt]

garfieldªº这¥u®£龙¡A©M¤W¦¸ªº»jµï¡A¬O¤£¬O³£¬O¦Û¤v画ªº¤F¡H

[garfield]

§Ú¤p¨à¤lµeªº,
´»°²¹L«á´N­n¤W¤p¾Ç¤@¦~¯Å,
¬Ý°_¨Ó«Ücute §a!

[gunsu77]

¥i¥H§r...«e«á­n¥[' '