This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub CommandButton1_Click() | |
'正誤判定 | |
Dim judge As Integer | |
'解答番号 | |
Dim answer As Integer | |
'正解番号 | |
Dim collect As Integer |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim txt As String | |
'解答モード | |
If OptionButton1.Value = True Then | |
'テキストボックスに入力されたIDを評価画面に渡す | |
UserForm2.id = TextBox1.Text | |
UserForm2.init | |
'解答画面表示 | |
UserForm2.Show | |
'評価モード | |
ElseIf OptionButton2.Value = True Then |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub showProblem(num As Integer) | |
With Worksheets("Sheet1") | |
Label1.Caption = .Cells(num + 1, 1).Value '問題文 | |
OptionButton1.Caption = .Cells(num + 1, 2).Value '選択肢1 | |
OptionButton2.Caption = .Cells(num + 1, 3).Value '選択肢2 | |
OptionButton3.Caption = .Cells(num + 1, 4).Value '選択肢3 | |
OptionButton4.Caption = .Cells(num + 1, 5).Value '選択肢4 | |
End With | |
End Sub |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
int[] intArray1 = { 1,2,3,4,5}; | |
int[] intAray2 = { 6,7,8,9 }; | |
int[] result = Enumerable.Concat(intArray1, intArray2).ToArray(); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
private CvBlobs blobsLabelling(IplImage binSrc) { | |
CvBlobs blobs = new CvBlobs(); | |
//ラベリング処理 | |
//IplImage imgLabel = new IplImage(binSrc.Width, binSrc.Height, CvBlobLib.DepthLabel, 1); | |
//blobs.Label(binSrc, imgLabel); | |
blobs.Label(binSrc); | |
return blobs; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//static AmazonSimpleDB sdb; //1.5まで | |
static AmazonSimpleDBClient sdb; | |
AmazonSimpleDBConfig config = new AmazonSimpleDBConfig { ServiceURL = endpoint }; | |
//sdb = AWSClientFactory.CreateAmazonSimpleDBClient(config); //1.5まで | |
sdb = new AmazonSimpleDBClient(config); | |
//その他もろもろの変更点 ####### | |
//ドメインリストの呼び出し方法 | |
//foreach (string domain in response.ListDomainsResult.DomainName) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//コンストラクターで記述しておく | |
sinkEvents(Event.ONPASTE); | |
public void onBrowserEvent(Event event) { | |
super.onBrowserEvent(event); | |
switch (event.getTypeInt()) { | |
case Event.ONPASTE: | |
// event.stopPropagation(); //ここは不要? | |
System.out.println("paste"); | |
break; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
With Worksheets("sheet3") | |
.ChartObjects(1).Chart.Export "C:\temp\Graph.jpg" | |
End With | |
Image1.Picture = LoadPicture("C:\temp\Graph.jpg") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
void Form1_FormClosing(object sender, FormClosingEventArgs e){ | |
DialogResult result = MessageBox.Show("終了しますか?", "システム終了",MessageBoxButtons.YesNo, MessageBoxIcon.Question); | |
if (result == DialogResult.No){ | |
e.Cancel = true; | |
} | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
private void kinectInit(){ | |
//Kinectの初期化 | |
kinect = KinectSensor.KinectSensors[0]; | |
//イベントハンドラの登録 | |
kinect.ColorFrameReady += | |
new EventHandler<ColorImageFrameReadyEventArgs>(kinect_ColorFrameReady); | |
kinect.SkeletonFrameReady += new EventHandler<SkeletonFrameReadyEventArgs>(kinect_SkeltonFrameReady); | |
kinect.DepthFrameReady += new EventHandler<DepthImageFrameReadyEventArgs>(kinect_DepthFrameReady); | |
//カメラの有効化 |
OlderNewer