Option Explicit
const lngBMax=10
dim strWord(10)
dim lngWord
dim lngRand(10)
dim lngRandW(20)
dim strColor
dim blnCOpen(10)
dim blnCMatch(10) 
dim lngOpenNo(2)
dim lngCOCount
dim lngTotalCount
dim objTD1,objTD2
dim lngCharenge
dim strWE,strWJ
dim lngWCount
dim strTheme

dim strPEll,strPJll
dim strPVll
dim strWEll,strWJll
dim strWVll
dim lngPCountll,lngPNoll
dim lngWCountll,lngWNoll
dim strThemell

sub window_onload()
dim xxx
		div1.style.display="none"
		cm1.style.display="block"
		cm2.style.display="block"
		call subCGInit
		call subLLInit
End Sub

Function fnxxx(strText)
	fnxxx=mid(strText,instr(strText,"<!--")+4,len(strText)-7)
End Function

sub subCWP
	divCG.style.display="none"
	divLL.style.display="none"
	divWP.style.display="block"
End sub
sub subCCG
	divLL.style.display="none"
	divWP.style.display="none"
	divCG.style.display="block"
End sub
sub subCLL
	divCG.style.display="none"
	divWP.style.display="none"
	divLL.style.display="block"
End sub

'****************************************************************************
'* 神経衰弱
'****************************************************************************
sub subCGInit
dim nnn 
dim xxx,yyy
dim objZZZ

	call subxxx
	lngWCount=ubound(strWJ)+1
	call subRndInitW
	for nnn=1 to lngBMax/2
		strWord(nnn*2-1)=strWJ(lngRandW(nnn)-1)
		strWord(nnn*2)=strWE(lngRandW(nnn)-1)
	next

	lngWord=array(0,1,1,2,2,3,3,4,4,5,5)
	'lngRand=array(0,2,1,3,4,5,6,7,10,8,9)
	strColor=array("#FFFFFF","#00FFFF","#FFFF00","#00FF00","#FF00FF","#0000FF")     
 
	call subRndInit
	call subBtnInit
       
	divTheme.innerHTML="<font color='#0000FF' size='4'><b>" _ 
					& strTheme _       
					& "</b></font>"       
       
End Sub
 
 
Sub btn1_OnClick
	call subBtnInit
End Sub                           
Sub btn2_OnClick                          
	call subRndInit                       
	call subBtnInit                           
End Sub                           
Sub btn3_OnClick                          
	call subBtnInit                       
	call subAllOpen                       
	msgbox "okボタンを押すと開始します"                       
	call subBtnInit                           
End Sub                           
Sub td1_OnClick                          
    call subWordSet(1)                                   
End Sub                           
Sub td2_OnClick                       
    call subWordSet(2)                                   
End Sub                           
Sub td3_OnClick                           
    call subWordSet(3)                                  
End Sub                           
Sub td4_OnClick                           
    call subWordSet(4)                               
End Sub                           
Sub td5_OnClick                           
    call subWordSet(5)                               
End Sub                           
Sub td6_OnClick                           
    call subWordSet(6)                               
End Sub                           
Sub td7_OnClick                           
    call subWordSet(7)                               
End Sub                           
Sub td8_OnClick                           
    call subWordSet(8)                               
End Sub                           
Sub td9_OnClick                           
    call subWordSet(9)                               
End Sub                           
Sub td10_OnClick                           
    call subWordSet(10)                               
End Sub                           
                           
Sub subWordSet(lngWordNo)                           
  if blnCMatch(lngWordNo)=false then                           
	if blnCOpen(lngWordNo)=false then                       
		call subSetTD1(lngWordNo)                           
		objTD1.background="../d/open.gif"                        
		objTD1.innerHTML="<b>" & strword(lngRand(lngWordNo)) & "</b>"                           
		blnCOpen(lngWordNo)=true                           
		lngCOCount=lngCOCount+1                           
		lngTotalCount=lngTotalCount+1                           
		lngOpenNo(lngCOCount)=lngWordNo                           
	end if                           
	if lngCOCount>1 then                           
		if lngWord(lngRand(lngOpenNo(1)))=lngWord(lngRand(lngOpenNo(2))) then                           
			msgbox "あたり"                           
			blnCMatch(lngOpenNo(1))=true                           
			blnCMatch(lngOpenNo(2))=true                       
			call subSetTD1(lngOpenNo(1))                       
			objTD1.bgcolor=strColor(lngWord(lngRand(lngOpenNo(1))))                       
			call subSetTD1(lngOpenNo(2))                       
			objTD1.bgcolor=strColor(lngWord(lngRand(lngOpenNo(1))))			                           
		else                           
			msgbox "はずれ"                           
			lngTotalCount=lngTotalCount-2                           
			call subReset2                           
		end if                           
		lngCharenge=lngCharenge+1                       
		lngCOCount=0                           
	                           
		if lngTotalCount>=lngBMax then                           
			msgbox "全部正解です" & vbNewLine & "試行回数は " & lngCharenge & "回でした"                           
		end if                           
	end if		                           
  end if                           
End Sub                           
                           
sub subReset2                           
dim lngB1                           
dim lngB2                           
	lngB1=lngOpenNo(1)                           
	lngB2=lngOpenNo(2)                        
	call subSetTD1(lngB1)                          
	objTD1.background="../d/close.gif"                       
    objTD1.innerHTML=""                          
	call subSetTD1(lngB2)                          
	objTD1.background="../d/close.gif"                       
    objTD1.innerHTML=""                         
	blnCOpen(lngB1)=false                           
	blnCOpen(lngB2)=false                           
end sub                           
                           
sub subRndInit                       
dim nnn                       
dim r                       
	for nnn=1 to lngBMax                       
		Randomize                       
		r = Int(Rnd() * nnn + 1)                        
		lngRand(nnn) = lngRand(r)                       
		lngRand(r) = nnn                           
	next                           
end sub                       
                       
sub subRndInitW                       
dim nnn                       
dim r                       
	for nnn=1 to lngWCount                    
		Randomize                       
		r = Int(Rnd() * nnn + 1)                        
		lngRandW(nnn) = lngRandW(r)                       
		lngRandW(r) = nnn                           
	next                           
end sub                       
                       
Sub subBtnInit                           
dim nnn                       
	lngCOCount=0                           
	lngTotalCount=0                           
	lngCharenge=0                           
	for nnn=1 to lngBMax                       
		call subSetTD1(nnn)                          
		objTD1.innerHTML=""                       
		objTD1.background="../d/close.gif"                       
		objTD1.bgcolor=strColor(0)                           
		blnCOpen(nnn)=false                           
		blnCMatch(nnn)=false                           
	next                           
end sub                           
                       
Sub subAllOpen                       
dim nnn                       
	for nnn=1 to lngBMax                       
		call subSetTD1(nnn)                          
		objTD1.innerHTML="<b>" & strword(lngRand(nnn)) & "</b>"                       
		objTD1.background="../d/open.gif"                       
		objTD1.bgcolor=strColor(lngword(lngRand(nnn)))           
	next                           
End Sub                       
                       
Sub subSetTD1(lngWordNo)                       
	select case lngWordNo                       
		case 1                       
			set objTD1=td1                       
		case 2                       
			set objTD1=td2                       
		case 3                       
			set objTD1=td3                       
		case 4                       
			set objTD1=td4                       
		case 5                       
			set objTD1=td5                       
		case 6                       
			set objTD1=td6                       
		case 7                       
			set objTD1=td7                       
		case 8                       
			set objTD1=td8                       
		case 9                       
			set objTD1=td9                       
		case 10                       
			set objTD1=td10		                       
	end select                       
end sub                           

sub subxxx()
dim mmm,qqq
	qqq=fnxxx(document.all("sWOC").innerHTML)
	redim strWJ(qqq-1)
	redim strWE(qqq-1)
	for mmm=1 to qqq
	    qqq=document.all("spanJ" & mmm).innerHTML
	    strWJ(mmm-1)=mid(qqq,instr(qqq,"<!--")+4,len(qqq)-7)
	    qqq=document.all("spanE" & mmm).innerHTML
	    strWE(mmm-1)=mid(qqq,instr(qqq,"<!--")+4,len(qqq)-7)
	next
	qqq=document.all("spanT").innerHTML
	strTheme=mid(qqq,instr(qqq,"<!--")+4,len(qqq)-7)
end sub

'****************************************************************************
'* リッスン　アンド　ラーン
'****************************************************************************
sub subLLInit()

	call subxxxll
	document.all("divTheme").innerHTML="テーマ: <font color='#0000FF' size='4'><b>" _
			& strThemell _
			& "</b></font>"
	lngWCountll=ubound(strWJll)+1
	lngWNoll=0
	divWNo.innerHTML=(lngWNoll +1) & "/" & lngWCountll
	divWJ.innerHTML=strWJll(lngWNoll) 
	aWV.href=strWVll(lngWNoll)

	lngPCountll=ubound(strPJll)+1
	lngPNoll=0
	divPNo.innerHTML=(lngPNoll +1) & "/" & lngPCountll
	divPJ.innerHTML=strPJll(lngPNoll)
	aPV.href=strPVll(lngPNoll)


end sub

sub subNextW()
	lngWNoll=(lngWNoll+1) mod lngWCountll
	divWNo.innerHTML=(lngWNoll +1) & "/" & lngWCountll
	divWJ.innerHTML=strWJll(lngWNoll)
	divWE.innerHTML="."
	aWV.href=strWVll(lngWNoll)
	inpWE.value=""
end sub
sub subPrevW()
	lngWNoll=(lngWNoll-1+lngWCountll) mod lngWCountll
	divWNo.innerHTML=(lngWNoll +1) & "/" & lngWCountll
	divWJ.innerHTML=strWJll(lngWNoll)
	divWE.innerHTML="."
	aWV.href=strWVll(lngWNoll)
	inpWE.value=""
end sub
sub subNextF()
	lngPNoll=(lngPNoll+1) mod lngPCountll
	divPNo.innerHTML=(lngPNoll +1) & "/" & lngPCountll
	divPJ.innerHTML=strPJll(lngPNoll)
	divPE.innerHTML="."
	aPV.href=strPVll(lngPNoll)
	inpPE.value=""
end sub
sub subPrevF()
	lngPNoll=(lngPNoll-1+lngPCountll) mod lngPCountll
	divPNo.innerHTML=(lngPNoll +1) & "/" & lngPCountll
	divPJ.innerHTML=strPJll(lngPNoll)
	divPE.innerHTML="."
	aPV.href=strPVll(lngPNoll)
	inpPE.value=""
end sub

sub altenglishF()
	if divPE.innerHTML="." then
	    divPE.innerHTML=strPEll(lngPNoll)
	    if strcomp(strPEll(lngPNoll),inpPE.value,1)=0 then
	        msgbox "正解です!!"
	    end if
	else
	    divPE.innerHTML="."
	end if
end sub
sub altenglishW()
	if divWE.innerHTML="." then
	    divWE.innerHTML=strWEll(lngWNoll)
	    if strcomp(strWEll(lngWNoll),inpWE.value,1)=0 then
	        msgbox "正解です!!"
	    end if
	else
	    divWE.innerHTML="."
	end if
end sub

sub subxxxll()
dim mmm,qqq
qqq=fnxxx(document.all("sWOC").innerHTML)
redim strWJll(qqq-1)
redim strWEll(qqq-1)
redim strWVll(qqq-1)
for mmm=1 to qqq
    strWJll(mmm-1)=fnxxx(document.all("sWOJ" & mmm).innerHTML)
    strWEll(mmm-1)=fnxxx(document.all("sWOE" & mmm).innerHTML)
    strWVll(mmm-1)=fnxxx(document.all("sWOV" & mmm).innerHTML)
next
qqq=fnxxx(document.all("sPHC").innerHTML)
redim strPJll(qqq-1)
redim strPEll(qqq-1)
redim strPVll(qqq-1)
for mmm=1 to qqq
    strPJll(mmm-1)=fnxxx(document.all("sPHJ" & mmm).innerHTML)
    strPEll(mmm-1)=fnxxx(document.all("sPHE" & mmm).innerHTML)
    strPVll(mmm-1)=fnxxx(document.all("sPHV" & mmm).innerHTML)
next
strThemell=fnxxx(document.all("spanT").innerHTML)
end sub