ab.com コミュニティ

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	dentaku_DestroyObjects()
	PostQuitMessage(0)
End Sub


Dim s[1024] As Byte
Dim s_end As Long
Dim s_i As Long
Dim c As Byte
'Dim d4 As Long

Function read_s() As Byte
	If s_end <= s_i then
		read_s = 0
	Else
		read_s = s[s_i]
		s_i++
	End If
End Function

Sub MainWnd_CB_Ans_Click()
	Dim ans As Double
	Dim ansStr[100] As Byte

	s_end =  GetWindowText( GetDlgItem( hMainWnd, EditBox1), s, 1024 )

	s_i = 0
	c = read_s()

	ans = expr()

	lstrcpy( ansStr, Str$(ans) )

	SetWindowText( GetDlgItem( hMainWnd, EditBox2), ansStr )

End Sub

Function expr() As Double
	Dim d1 As Double
	Dim d3 As Double

	d1 = term()
	If c = Asc("+") Then
		c = read_s()
		d3 = expr()
		expr = d1 + d3
	ElseIf c = Asc("-") Then
		c = read_s()
		d3 = expr()
		expr = d1 - d3
	ElseIf c = Asc("*") Then
		c = read_s()
		d3 = expr()
		expr = d1 * d3
	ElseIf c = Asc("/") Then
		c = read_s()
		d3 = expr()
		expr = d1 / d3
	ElseIf c = Asc("^") Then
		c = read_s()
		d3 = expr()
		expr = d1 ^ d3
	Else
		expr = d1
	End If
End Function

Function term() As Double
	Dim d1 As Double
	Dim d2 As Double
	Dim d3 As Double
	If c = Asc("(") Then
		c = read_s()
		d2 = expr()
		c = read_s()
		term = d2
	ElseIf Asc("0") <= c And c <= Asc("9") Then
		d1  = num()
		If c = Asc("*") Then
			c = read_s()
			d3 = term()
			term = d1 * d3
		ElseIf c = Asc("/") Then
			c = read_s()
			d3 = term()
			term = d1 / d3
		ElseIf c = Asc("^") Then
			c = read_s()
			d3 = term()
			term = d1 ^ d3
		Else
			term = d1
		End If
	End If
End Function

Function num() As Double
	Dim vst As String
	Dim v As Double
	v  = 0
'debug
	Do
		'数値の抽出中止条件
		If c = Asc("+") Or c = Asc("-") Or c = Asc("*") Or c = Asc("/") Or _
			c = Asc("^") Or c = Asc(")") Or c = Asc("") Then
			Exit Do
		End If
		'数値の抽出
		If c <> Asc(".") Then
			vst = vst & Str$( c - Asc("0"))
			v = Val(vst)
			c = read_s()
		Else
			vst = vst & "."
			c = read_s()
		End If
	Loop
	num = v
End Function