待ち時間

Private Sub sWaitTime(ByVal st As Long)
'指定の時間待つ（1/1000 秒単位で指定)
Dim lngSt As Long
'システム起動後のミリ秒単位の経過時間を取得します。
'システムが 24.9 日間稼動し続けた場合、この経過時間は 0 に戻ります。
lngSt = System.Environment.TickCount
Do While System.Environment.TickCount - lngSt < st
'メッセージ キューに現在ある Windows メッセージをすべて処理します
Application.DoEvents() 'こちらだけではCPUの使用率が100％になる
'指定した時間だけ現在のスレッドを中断します。
System.Threading.Thread.Sleep(5) 'これだけでは他の処理を受け付けない
Loop
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Label1.Text = "開始"

Call sWaitTime(5000)

Label1.Text = "終了"

End Sub

TimerとSleepを同時進行

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

TimerTextBox.Text = DateTime.Now.ToString()

End Sub

Private Delegate Sub StartTimerDelegate()
Private StartTimerThread As Threading.Thread

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim th = New Threading.Thread(AddressOf f)
th.Start()

'System.Threading.Thread.Sleep(5000)

End Sub

Private Sub f()
Dim now As DateTime = DateTime.Now
Dim mSec As Integer

'mSec = 60000 - (now.Second * 1000 + now.Millisecond)

Threading.Thread.Sleep(5000)
MessageBox.Show("たった")

Me.Invoke(New StartTimerDelegate(AddressOf g))
End Sub

Private Sub g()
Timer1.Start()
End Sub

指定フォルダ内のサブフォルダを含めた全ファイル取得

Dim cnt As Long

Sub Sample3(Path As String)
Dim buf As String, f As Object
buf = Dir(Path & "\*.xls")
Do While buf <> ""
cnt = cnt + 1
Cells(cnt, 1) = Path & "\" & buf
buf = Dir()
Loop
With CreateObject("Scripting.FileSystemObject")
For Each f In .GetFolder(Path).SubFolders
Call Sample3(f.Path)
Next f
End With
End Sub

Sub Test()
cnt = 0
Call Sample3("C:\Users\naoki\Desktop\aaaa")
End Sub

コピー

Sub memo1()

Dim m As String

Console.WriteLine("書いて")
m = Console.ReadLine

Dim sw As New System.IO.StreamWriter("メモ帳", _
True, Text.Encoding.GetEncoding("shift_jis"))
'TextBox1.Textの内容を書き込む
sw.Write(m & vbCrLf)
'閉じる
sw.Close()

End Sub

Sub memo2()
Dim sr As New System.IO.StreamReader("C:\Users\naoki\Desktop\test01.txt", _
System.Text.Encoding.GetEncoding("shift_jis"))

'内容をすべて読み込む
'Dim s As String = sr.ReadToEnd()

Dim f As Integer = 0
Dim Items(10) As String
Dim k As Integer = 3

'1行ずつ読み込む
While sr.Peek() > -1
Items(f) = sr.ReadLine()
f = f + 1
End While

'閉じる
sr.Close()

Console.WriteLine(Items(k))

'結果を出力する
'Console.WriteLine(s)
End Sub

初ブログ！

言っておきますが、実は初ブログなんです！

え、今更？嘘？と思う方がいるかもしれませんが、ガチです。

さておき、何故ブログ始めたかいうと、ハテナブログそのもの自体がデザイン的にシンプルで単に気に入ったから。無印良品っぽいし。

記念に日付と今の状況を報告しよう。

初・ブログ開設日：2016年10月23日（日）

今の状況：仕事の関係でプログラミングを独学中。コンソールとフォームを同時進行できないかを検証しているとこ。先ほど、石原さとみ出演の地味にスゴイ！校閲ガール第三話を見終えたばかり。マジ面白かった。思ったことを口にせずにはいられない性格が羨ましい。石原さとみいつ見ても綺麗。

あ、実はそれだけではないんです。目的は他にも！

それは、このブログにひな形プログラムを書き留めて、会社でこのブログを通してコピーして正式のプログラムに取り入れること。

バレナケレバ。

では、ここまでにします。ガンバレ、オレ。