人気ブログランキング |
（ タグ：英語学習 ( 17 ) タグの人気記事 ＞ Z_￣∂
12次へ >>>
（ [英語学習] TOEICようやく600点超えた。 ＞ Z_￣∂
どーもボキです。

先日の社内実施のTOEICで、605点取れた。
ようやく600点超えた。本当は600点台後半を狙っていたのだが、まだまだのようだ。
a0021757_06585186.jpeg

L：370点
R：235点

Part1は、1問目からつまづき
Part2は、聞き取れない問題がたくさんあった。
Part3-4は、そこそこできた。Lスコアが伸びたので、正解が多かったのだろう。

Part5-6は、いつもどおり。
Part7は、これまでの中で一番といたつもり。だがRスコアが伸びでないので、できてないのだろう。


うちで幹部社員になるには、TOEICで600点以上取る必要がある。
今回のTOEICでその関門は越えた。まぁそもそもの仕事ができないと意味ないが。

今回のTOEICまでの勉強には、入社時に3万円も出して一回も使わなかった教材も使ってみた。
古い教材だからか、洗練されていないと感じる箇所も多々あったが、ようやく役立ったわ。

しばらくは、ちょこちょこ勉強を続けるよ。
a0021757_13102908.jpg
NHKテキストの英語力測定テストを試してみた
タグ：
みんなの【英語学習】をまとめ読み
▲ by yozda | 2018-06-23 10:13 | 暮らし | Comments(0)
（ [VBScript] 世界へ発信！英語術をバックアップする ＞ Z_￣∂
どーもボキです。

[VBScript] ニュースで英会話をバックアップするを改良して、新番組である「世界へ発信！英語術」に対応させた。

必要な準備は、前回の記事を参考に。
UWSCの設定 ＞ 指定ウィンドウ名を「 - 世界へ発信！英語術 - 」へ変更すること。

a0021757_11121905.png
実行イメージ

SetScriptHost("CScript")

Set objWS = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")

' 18.04.01～実行日までをループさせる
y0 = 2018
y1 = Year(Now)

If y1 = y0 Then
    m0 = 4
    m1 = Month(Now)
Else
    m0 = 1
    m1 = 12
End If

d0 = 1
If m0 = m1 Then 
    d1 = Day(Now)
Else
    d1 = 31
End If

Arr_url = Array("s", "k", "w")
Arr_key = Array("_センテンス", "_キーワード", "_ボキャブラリー")

DPath = objWS.SpecialFolders("MyDocuments") &"\"
For yyyy = y0 To y1
    For mm = m0 To m1
        If Len(mm) = 1 Then mm = "0" & mm
        For dd = d0 To d1: Do
            If Len(dd) = 1 Then dd = "0" & dd
            
            r = -1
            On Error Resume Next
            r = Weekday(yyyy &"/" & mm & "/" & dd)
            On Error GoTo 0
            If (r < vbMonday) Or (r > vbFriday) Then Exit Do
            
            ' 保存フォルダ作成
            DPath_Save = DPath & Right(yyyy,2) & mm &"\"
            If Not objFS.FolderExists(DPath_Save) Then objFS.CreateFolder(DPath_Save)
            
            ' 保存済みmp3のサイズチェック
            yymmdd = Right(yyyy,2) & mm  & dd
            fname = SearchFile(DPath_Save, yymmdd & "*.mp3")
            If fname <> "" Then
                Set fmp3 = objFS.GetFile(DPath_Save & fname)
                If fmp3.Size <> 0 Then Exit Do  ' 保存済み
            End If
            
            ' 本文テキスト＆音声を録音
            fname = ProcURL("http://www.nhk.or.jp/snsenglish/news/n"& yymmdd &".html", DPath_Save, "")
            If fname = "" Then Exit Do  ' 放送なし or アンコール放送
            
            ' 残りのテキストを保存
            For i = 0 To UBound(Arr_url)
                fname = SearchFile(DPath_Save, yymmdd & "*" & Arr_key(i) & "*")
                If fname = "" Then
                    ProcURL "http://www.nhk.or.jp/snsenglish/elearning/" & Arr_url(i) & yymmdd &".html", DPath_Save, fname & Arr_key(i)
                End If
            Next
        Loop Until 1: Next
    Next
Next
'===============================================================================
' URLを開く
' 戻り値：（番組が存在した場合）YYMMDD_タイトル
Function ProcURL(URL, FolderPath, PostFix)
    Dim objWS: Set objWS = CreateObject("WScript.Shell")
    Dim i,s,key,fname,yymmdd,objIE,ieDoc
    
    i = InStr(URL, ".html")
    yymmdd = Mid(URL, i-6,6)    ' yymmddを取得
    
    Do
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate URL
    Do While objIE.Busy: WScript.Sleep 1000: Loop ' ページ読み込み完了待ち
    
    Set ieDoc = objIE.Document
    s = ieDoc.Title
    i = InStr(s," - 世界へ発信！英語術 - NHK") -1
    If (i < 0) Or (InStr(s,"アンコール放送") > 0) then Exit Do ' ⇒ 終了
    
    fname = yymmdd &"_"& Left(s,i)
    If PostFix = "" Then
        dprintf fname
        
        ' VoiceRecorderの設定変更
        rpth  = "HKCU\Software\Moo0\Moo0 VoiceRecorder\SaveData\MainWindow\CreationPath\"
        key = rpth & "FolderPath"
        i = objWS.RegWrite(key, FolderPath, "REG_SZ") ' 保存フォルダパス
        key = rpth & "FileName"
        i = objWS.RegWrite(key, fname, "REG_SZ")    ' 保存ファイル名
        
        ' VoiceRecorder起動
        objWS.Run """"& objWS.SpecialFolders("MyDocuments") &"\AudioRecorder 1.46\VoiceRecorder.exe"""
        WScript.Sleep 1000
        objWS.SendKeys "^ "         ' Rec Start  
        Do
            objIE.Visible = True    ' 再生（UWSC）
            WScript.Sleep 10000
            objIE.Visible = False
            r = CreateObject("WScript.Shell").PopUp("finish?",80,"now recording...",vbYesNo)
        Loop Until (r = vbYes) Or (r = -1)
        TerminateProcess("VoiceRecorder.exe")
    End If
    ' URLをmhtファイルで保存
    On Error Resume Next
    Set objCDO = CreateObject("CDO.Message")
    objCDO.CreateMHTMLBody(URL)
    objCDO.BodyPart.GetStream.SaveToFile FolderPath & fname & PostFix & ".mht", 2
    Set objCDO = Nothing    

    Loop Until 1
    
    objIE.Quit
    Set objIE = Nothing
    
    ProcURL = fname
End Function
'-------------------------------------------------------------------------------
' 指定したファイル名が存在するか調べる（ワイルドカードOK）
' 戻り値：見つかったファイル名
Function SearchFile(DirectoryPath, FileName)
    Dim objFS,f,r,dpth
    
    r = ""
    Set objFS = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    dpth = DirectoryPath & Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now)
    objFS.CreateFolder(dpth)    ' 重複しないフォルダを作成
    objFS.MoveFile DirectoryPath & FileName, dpth &"\"
    For Each f In objFS.GetFolder(dpth).Files
        r = f.Name
    Next
    objFS.MoveFile dpth &"\"& FileName, DirectoryPath
    objFS.DeleteFolder dpth
    On Error GoTo 0
    
    SearchFile = r
End Function
' -------------------------------------------------------------------------------
' 指定した名前のプロセスを強制終了する
Sub TerminateProcess(ProcessName)
    Dim objProcList,objProcess

    Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
    For Each objProcess In objProcList
        If LCase(objProcess.Name) = LCase(ProcessName) Then
            objProcess.Terminate
        End If
    Next
End Sub
' -------------------------------------------------------------------------------
' 実行ホストを切り替える
Sub SetScriptHost(HostName)
    Dim i,s
    
    If InStr(LCase(WSCript.FullName), LCase(HostName)) <> 0 Then Exit Sub
    
    s = HostName & " """ & WScript.ScriptFullName & """"
    If WScript.Arguments.Count > 0 Then
        For i = 0 To WScript.Arguments.Count -1
            s = s &" """ & WScript.Arguments.Item(i) & """"   ' 引数
        Next
    End If
    CreateObject("WScript.Shell").Run s
    WScript.Quit
End Sub
' -------------------------------------------------------------------------------
' デバッグ ※ここだけ抜粋してもOK
Dim objDbg
' クラス
Class TDebug
    Dim FCScript
    
    ' 初期化処理
    Private Sub Class_Initialize()
        FCScript = InStr(LCase(WSCript.FullName), "cscript") > 0
    End Sub
    
    ' 終了処理
    Private Sub Class_Terminate()
        If Not FCScript Then Exit Sub
        
        WScript.StdOut.WriteLine NOW & " [END]"
        WScript.StdIn.ReadLine
    End Sub
    
    ' CScriptホストかどうか
    Public Property Get CScript
        CScript = FCScript
    End Property
    
    ' デバッグメッセージ処理
    Public Sub dprintf(v)
        Dim i,s,ityp
        If Not FCScript Then Exit Sub
        
        s = v
        ityp = VarType(v)
        If ityp = vbBoolean Then
            s = CStr(v)
        ElseIf VarType(v) >= vbArray Then
            s = ""
            For i = 0 to UBound(v)
                s = s & "dprintf(" &i& ")=" & v(i) & vbCRLF
            Next
        End If
        WScript.Echo s
    End Sub
End Class
' 関数
Sub dprintf(v)
    If VarType(objDbg) = vbEmpty Then
        Set objDbg = New TDebug
        objDbg.dprintf(NOW & " " & WScript.ScriptFullName)
    End If
    objDbg.dprintf(v)
End Sub
' -------------------------------------------------------------------------------

タグ：
みんなの【VBScript】をまとめ読み
▲ by yozda | 2018-04-14 11:10 | プログラミング | Comments(0)
（ [VBScript] ニュースで英会話をバックアップする ＞ Z_￣∂
どーもボキです。

英語学習を始め、ニュースで英会話の存在を知った。
サイト自体は2009年から存在したようだ。

日々最近のニュースが更新され、1分前後の短い文章がナチュラルスピードで読み上げられ、
センテンスごとの解説も用意されている。TOEICで500点以上を狙う人には最適なサイトと思う。

このニュースで英会話が、この3月で終了した。4月末にはサイトも閉鎖される。
こんなに充実したサイトなのにもったいない。

だからバックアップしよう。
a0021757_10065277.png
スクリプトの実行イメージ


ニュースで英会話の音声はHLS配信（ストリーミング）なので、音声ファイルはダウンロードできない。
ならアナログで対応するしかない。そう、再生される音声を録音する、だ。

キーボード操作ならVBScriptで再現できるが、音声の再生にはマウス操作が必要。なので、以下のフリーソフトを用意する。

　・Moo0 音声録音機（音声が流れている時間のみを録音するツール）
　・UWSC（マウス操作を記録＆再現するツール）


Moo0 音声録音機 に必要な設定
　※マイドキュメントに保存すること。VBScriptではマイドキュメントにある前提とした。

　・無音カット、上書き可にチェック
　　これは、録音を音声再生～終了に同期させるため。上書き不要なファイルを作らせないため。
　　増幅は、PCによる。音割れするならば100%未満に、録音ボリュームが小さすぎるならば100％より大に。
a0021757_19523648.png

　・設定 ＞ 無音カット - 「無音」認識のボリューム閾値 ＞ 1%
　　これは、センテンス間で録音を止めさせないため。
a0021757_19523714.png

　・設定 ＞ 無音カット - 停止するまでの無音の長さ ＞ 3.0sec
　　これは、終了部をしっかり残すため。上の設定だけでは終了時の音声が切れてしまうので、これも必要。
a0021757_19523665.png

　・設定 ＞ キーボード・ショートカット ＞ [Ctrl+スペース]：録音開始/終了
　　これは、VBScriptからMoo0 音声録音機の録音をスタンバイさせるため。
a0021757_19523603.png

UWSC に必要な設定
　※UWSCは起動させておく。

　・ニュースで英会話のサイトにて、音声再生させるマウス位置とクリック操作を記録する。
　　　Alt+F3で記録開始、Alt+F2で記録停止、記録した操作に名前を付けて保存する。

　※操作記録ファイル（.UWS）で必要となるコマンドはBTN()のみ。いったん記録したファイルをテキストエディタで編集するとよい。
　　以下はマウス左クリック、1040はマウスのX座標、 610～700はY座標、100は実行時の待ち時間[ms]。
　　以下は、x=1040、y=610～700を10刻みでクリックしていく。実行PCによるので適宜修正を。

BTN(LEFT,CLICK,1040,610,100)
BTN(LEFT,CLICK,1040,620,100)
BTN(LEFT,CLICK,1040,630,100)
BTN(LEFT,CLICK,1040,640,100)
BTN(LEFT,CLICK,1040,650,100)
BTN(LEFT,CLICK,1040,660,100)
BTN(LEFT,CLICK,1040,670,100)
BTN(LEFT,CLICK,1040,680,100)
BTN(LEFT,CLICK,1040,690,100)
BTN(LEFT,CLICK,1040,700,100)


　・設定 ＞ スケジュールを設定する にて、上のイベントファイルを選択、指定ウィンドウが現れた時 をチェックし、「- ニュースで英会話 -」を指定。
　　これで、ニュースで英会話のWebが立ち上がると自動でマウスクリックされるようになる。
a0021757_19523628.png

以上で準備完了。以下のスクリプトを.vbsファイルととて保存し実行する。
正常に動作すれば、マイドキュメントに[yymm」フォルダを作り、そのなかに日々のニュースを「yymmdd_タイトル」で保存していく。

SetScriptHost("CScript")

Set objWS = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")

DPath = objWS.SpecialFolders("MyDocuments") &"\"
For yyyy = 2009 To 2018
    m0 = 1
    m1 = 12
    For mm = m0 To m1
        If Len(mm) = 1 Then mm = "0" & mm
        For dd = 1 To 31: Do
            If Len(dd) = 1 Then dd = "0" & dd
            
            r = -1
            On Error Resume Next
            r = Weekday(yyyy &"/" & mm & "/" & dd)
            On Error GoTo 0
            If (r < vbMonday) Or (r > vbFriday) Then Exit Do
            
            ' 保存フォルダ作成
            DPath_Save = DPath & Right(yyyy,2) & mm &"\"
            If Not objFS.FolderExists(DPath_Save) Then objFS.CreateFolder(DPath_Save)
            
            yyyymmdd = yyyy & mm  & dd
            ' 保存済みmp3のサイズチェック
            If yyyymmdd >= "20150401" Then
                fname = SearchFile(DPath_Save, Right(yyyymmdd,6) & "*.mp3")
                If fname <> "" Then
                    Set fmp3 = objFS.GetFile(DPath_Save & fname)
                    If fmp3.Size <> 0 Then Exit Do  ' 保存済み
                End If
            End If
            
            fname = ProcURL("https://cgi2.nhk.or.jp/e-news/news/index.cgi?ymd=" & yyyymmdd, DPath_Save, "")
            If fname = "" Then Exit Do  ' 放送なし or アンコール放送
            
            ProcURL "https://cgi2.nhk.or.jp/e-news/elearning/explain.cgi?ymd=" & yyyymmdd & "&type=news", DPath_Save, fname & "_センテンス"
            ProcURL "https://cgi2.nhk.or.jp/e-news/elearning/explain.cgi?ymd=" & yyyymmdd & "&type=keyword", DPath_Save, fname & "_キーワード"
            ProcURL "https://cgi2.nhk.or.jp/e-news/news/words.cgi?ymd=" & yyyymmdd, DPath_Save, fname & "_ボキャブラリー"
        Loop Until 1: Next
    Next
Next
'===============================================================================
' URLを開く
' 戻り値：（番組が存在した場合）YYMMDD_タイトル
Function ProcURL(URL, FolderPath, FileName)
    Dim objWS: Set objWS = CreateObject("WScript.Shell")
    Dim i,s,key,fname,yymmdd,objIE,ieDoc
    
    i = InStr(URL, "ymd")
    yymmdd = Mid(URL, i+6,6)    ' yymmddを取得
    
    Do
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate URL
    Do While objIE.Busy: WScript.Sleep 1000: Loop ' ページ読み込み完了待ち
    
    Set ieDoc = objIE.Document
    s = ieDoc.Title
    i = InStr(s," - ニュースで英会話 - NHK") -1
    If (i < 0) Or (InStr(s,"アンコール放送") > 0) then Exit Do ' ⇒ 終了
    
    If FileName = "" Then
        FileName = yymmdd &"_"& Left(s,i)
        dprintf FileName
        
        If yymmdd >= "150401" Then
            ' VoiceRecorderの設定変更
            rpth  = "HKCU\Software\Moo0\Moo0 VoiceRecorder\SaveData\MainWindow\CreationPath\"
            key = rpth & "FolderPath"
            i = objWS.RegWrite(key, FolderPath, "REG_SZ") ' 保存フォルダパス
            key = rpth & "FileName"
            i = objWS.RegWrite(key, FileName, "REG_SZ")   ' 保存ファイル名
            
            ' VoiceRecorder起動
            objWS.Run """"& objWS.SpecialFolders("MyDocuments") &"\AudioRecorder 1.46\VoiceRecorder.exe"""
            WScript.Sleep 1000
            objWS.SendKeys "^ "         ' Rec Start  
            Do
                objIE.Visible = True        ' 再生（UWSC）
                WScript.Sleep 10000
                objIE.Visible = False
                r = CreateObject("WScript.Shell").PopUp("finish?",80,"now recording...",vbYesNo)
            Loop Until (r = vbYes) Or (r = -1)
            TerminateProcess("VoiceRecorder.exe")
        End If
    End If
    ' URLをmhtファイルで保存
    On Error Resume Next
    Set objCDO = CreateObject("CDO.Message")
    objCDO.CreateMHTMLBody(URL)
    objCDO.BodyPart.GetStream.SaveToFile FolderPath & FileName & ".mht", 2
    Set objCDO = Nothing    
    
    Loop Until 1
    
    objIE.Quit
    Set objIE = Nothing
    
    ProcURL = FileName
End Function
'-------------------------------------------------------------------------------
' 指定したファイル名が存在するか調べる（ワイルドカードOK）
' 戻り値：見つかったファイル名
Function SearchFile(DirectoryPath, FileName)
    Dim objFS,f,r,dpth
    
    r = ""
    Set objFS = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    dpth = DirectoryPath & Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now)
    objFS.CreateFolder(dpth)    ' 重複しないフォルダを作成
    objFS.MoveFile DirectoryPath & FileName, dpth &"\"
    For Each f In objFS.GetFolder(dpth).Files
        r = f.Name
    Next
    objFS.MoveFile dpth &"\"& FileName, DirectoryPath
    objFS.DeleteFolder dpth
    On Error GoTo 0
    
    SearchFile = r
End Function
' -------------------------------------------------------------------------------
' 指定した名前のプロセスを強制終了する
Sub TerminateProcess(ProcessName)
    Dim objProcList,objProcess

    Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
    For Each objProcess In objProcList
        If LCase(objProcess.Name) = LCase(ProcessName) Then
            objProcess.Terminate
        End If
    Next
End Sub
' -------------------------------------------------------------------------------
' 実行ホストを切り替える
Sub SetScriptHost(HostName)
    Dim i,s
    
    If InStr(LCase(WSCript.FullName), LCase(HostName)) <> 0 Then Exit Sub
    
    s = HostName & " """ & WScript.ScriptFullName & """"
    If WScript.Arguments.Count > 0 Then
        For i = 0 To WScript.Arguments.Count -1
            s = s &" """ & WScript.Arguments.Item(i) & """"   ' 引数
        Next
    End If
    CreateObject("WScript.Shell").Run s
    WScript.Quit
End Sub
' -------------------------------------------------------------------------------
' デバッグ ※ここだけ抜粋してもOK
Dim objDbg
' クラス
Class TDebug
    Dim FCScript
    
    ' 初期化処理
    Private Sub Class_Initialize()
        FCScript = InStr(LCase(WSCript.FullName), "cscript") > 0
    End Sub
    
    ' 終了処理
    Private Sub Class_Terminate()
        If Not FCScript Then Exit Sub
        
        WScript.StdOut.WriteLine NOW & " [END]"
        WScript.StdIn.ReadLine
    End Sub
    
    ' CScriptホストかどうか
    Public Property Get CScript
        CScript = FCScript
    End Property
    
    ' デバッグメッセージ処理
    Public Sub dprintf(v)
        Dim i,s,ityp
        If Not FCScript Then Exit Sub
        
        s = v
        ityp = VarType(v)
        If ityp = vbBoolean Then
            s = CStr(v)
        ElseIf VarType(v) >= vbArray Then
            s = ""
            For i = 0 to UBound(v)
                s = s & "dprintf(" &i& ")=" & v(i) & vbCRLF
            Next
        End If
        WScript.Echo s
    End Sub
End Class
' 関数
Sub dprintf(v)
    If VarType(objDbg) = vbEmpty Then
        Set objDbg = New TDebug
        objDbg.dprintf(NOW & " " & WScript.ScriptFullName)
    End If
    objDbg.dprintf(v)
End Sub
' -------------------------------------------------------------------------------'

タグ：
みんなの【VBScript】をまとめ読み
▲ by yozda | 2018-04-13 20:29 | プログラミング | Comments(0)
（ NHKテキストの英語力測定テストを試してみた ＞ Z_￣∂
どーもボキです。


基礎編は満点（150点）。
応用編は90点。

ランクは、B1〜B2（英語力指標はB1 ＜ B2）。
TOEIC換算スコアは、550〜785。

11月のTOEIC IPテストが580点だったので、
妥当なスコアかな。
a0021757_11322859.jpg

a0021757_11322907.jpg

a0021757_11323023.jpg

a0021757_14060091.jpg

以下は、2年前の結果。
この時はB1だったので、若干は成長できてるんだろうね。
a0021757_11463217.jpg


タグ：
みんなの【英語学習】をまとめ読み
▲ by yozda | 2018-02-25 11:29 | 暮らし | Comments(0)
（ [英語学習] TOEICの結果が返ってきた。 ＞ Z_￣∂
こんばんワイン。どーもボキです。

リスニングが320点
リーディングが210点
合計、530点

これまでのリーディングのMaxは280点だから、
実質600点と言っても良いね。

うん、そうしよう。
a0021757_19371164.jpg



[英語学習] TOEICの結果が返ってきた。
タグ：
みんなの【英語学習】をまとめ読み
▲ by yozda | 2016-11-29 23:25 | 暮らし | Comments(0)
（ [英語学習] TOEIC模試を買った。 ＞ Z_￣∂
こんばんワイン。どーもボキです。

右は昔から持っていたもの。（まったく手付かずの新品）
左が今回買ったもの。ブックオフで360円。こちらも手付かずの品。

合計6回分。こんだけ対策すりゃ大丈夫じゃろ。
a0021757_23403739.jpg

タグ：
みんなの【英語学習】をまとめ読み
▲ by yozda | 2016-07-18 23:40 | 暮らし | Comments(2)
（ [英語学習] TOEICの結果が返ってきた。 ＞ Z_￣∂
465点。

今の職級の基準点は500点だから、ボキは降格しないといけないな。
a0021757_10553484.jpg

TOEIC受けた。
タグ：
みんなの【英語学習】をまとめ読み
▲ by yozda | 2016-07-02 08:56 | 暮らし | Comments(0)
（ [英語学習] TOEIC受けた。 ＞ Z_￣∂
こんばんワイン。どーもボキです。
a0021757_21210558.jpg
何年か振りにTOEICを受けてきた。
社内用の試験は、今年度いっぱいは従来形式。とは言っても受験費用は個人負担。

うーん、さっぱりわからんかった。
リスニングもリーディングもさっぱりわからんかった。

さっぱりわからんってことがわかったわ。


それにしてもこのパンフ、自由の女神がホワイトビッグドールになってる。
これじゃ出川も間違えるわ。

タグ：
みんなの【英語学習】をまとめ読み
▲ by yozda | 2016-06-13 21:12 | 暮らし | Comments(2)
（ [英語学習] 速読速聴・英単語 TOEIC(R) TEST STANDART 1800 ＞ Z_￣∂
おはヨーグルト。どーもボキです。

2年前に購入し、時間を見つけてはちょこちょこ勉強してた本。
やっと一巡目が終わった。

意味が分からない単語をフリクションペンで記入しつつ、聴き取れるまで一フレーズリピート。
途中、心に余裕が持てない時期（仕事のため）もあり、２年間もかかってしまった。

二順目は音読だね。TOEIC対策にはこのシリーズが良いと思う。
6月のテストで、効果を検証する予定。
a0021757_9542399.jpg
[英語学習] 速読速聴・英単語 Core1900
フリクションペンの4色タイプ
タグ：
みんなの【英語学習】をまとめ読み
▲ by yozda | 2016-04-10 09:48 | 暮らし | Comments(0)
（ [英語学習] iPhone 辞書が便利 ＞ Z_￣∂
a0021757_07102236.jpg
Catalystwo Limited「すぐひける辞書」
https://appsto.re/jp/KWtw6.i

オフラインで動作する本格的なフリーの辞書アプリ。iPhoneの内蔵辞書を呼び出しているようだ。

こういった内蔵辞書をコールするアプリは、軒並みApple Storeから削除されてるから、ダウンロードするならお早めに。

タグ：
みんなの【iPhone】をまとめ読み
▲ by yozda | 2016-03-16 07:04 | パソコン全般 | Comments(0)
12次へ >>>

ファン申請

※ メッセージを入力してください