マイナーな言語

昨日の「MonteCarlo」ですが、こんなんでも話題にして下さったり、紹介して下さるサイトがあり、ありがたいことだと喜んでいます。
何度も書いているのでご承知のことと思いますが、私はNS Basic/CEというプログラム言語を使っています。
これがなんともマイナーな言語で、使っているという人をあまり聞いたことがありません（笑）
ただ、自分用のアプリを短時間で作りたいというような用途にはぴったりだと思うんで、実際に使われている方は結構いるんじゃないかなとも思っています。
同じような用途にMortScriptというフリーで強力なスクリプト言語があります。
私は用途に合わせて、MortScriptとNS Basic/CEを使い分けています。
Windows CEはトランプのImageをPictureBoxのリソースとして持っています。
「MonteCarlo」もこれを利用しています。
使い方は簡単で、PictureBoxのPlayingCardというプロパティに整数型のIDを指定するだけでトランプの絵柄が表示されます。
Tech Note 13に詳しい使い方が記載されています。
トランプのイメージを使うプロシージャを別モジュールにまとめていこうと思っています。
今のところはとりあえずこんな感じです。

Function Suit(num)
   Suit = False
   
   If num <=  1 And num <= 13 Then 
      Suit = 1 'Clubs
   ElseIf num <= 14 And num <= 26 Then 
      Suit = 2 'Diamonds
   ElseIf num <= 27 And num <= 39 Then 
      Suit = 3 'Hearts
   ElseIf num <= 40 And num <= 52 Then 
      Suit = 4 'Spades
   ElseIf num = 153 Then 
      Suit = 5 'Joker
   End If
End Function


Function Convertval(num)
   Convertval = False
   
	If num < 14 Then
		Convertval = num		'Clubs
	ElseIf num < 27 Then
		Convertval = num - 13	'Diamonds
	ElseIf num < 40 Then
		Convertval = num - 26	'Hearts
	Else
		Convertval = num - 39	'Spades
	End If
End Function


' Proceder manganji(http://manganji.seesaa.net/)
Sub Shuffle(a,F,T)
  On Error resume next
  Dim i,j,k,u
  
  u=UBound(a,2)
  If Err.Number Then
    u=UBound(a)
    If F>u Then F=0
    If F+T-1>u Then T=u+1-F
    For i=0 To T-1
      j=(Rnd*100) Mod (T-i)
      Call swap(a(F+i),a(F+i+j))
    Next
  Else
    If F>u Then F=0
    If F+T-1>u Then T=u+1-F
    For i=0 To T-1
      j=(Rnd*100) Mod (T-i)
      For k=0 To UBound(a,1)
        Call swap(a(k,F+i),a(k,F+i+j))
      Next
    Next
  End If

End Sub

Sub Swap(x,y)
  Dim d
  
  d = x
  x = y
  y = d

End Sub

万願寺さん作成のプロシージャを利用させていただいています。
プログラムは私のようなへぼでも「へぼはへぼなり」に十分楽しめますので、まだの方は一度試してみることをお勧めします。
MortScriptはこちら
NS Basic/CEは30日間のお試し版をこちら
からダウンロードできます。