private void buttonRunAll_Click(object sender, EventArgs e)
{
if (devices.Count == 0)
{
MessageBox.Show("No OpenCL device selected!\n\nSelect one or more devices from the list to continue.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
var builder = new OpenCL100Factory();
StringBuilder output = new StringBuilder();
StringWriter log = new StringWriter(output);
var properties = new List <ComputeContextProperty>
{
new ComputeContextProperty(ComputeContextPropertyName.Platform, platform.Handle.Value)
};
var context = builder.CreateContext(devices, properties, null, IntPtr.Zero);
for (int i = 0; i < exampleList.Count; i++)
{
if (checkedListExamples.GetItemChecked(i))
{
log.WriteLine("--------------------------------------------------------------------------------");
log.WriteLine("Running \"" + exampleList[i].Name + "\"...");
log.WriteLine();
exampleList[i].Run(context, log);
log.WriteLine();
log.WriteLine("\"" + exampleList[i].Name + "\" finished.");
log.WriteLine("--------------------------------------------------------------------------------");
log.Flush();
}
}
log.Close();
textBoxLog.Lines = ParseLines(output.ToString());
}
public void Run(IComputeContext context, TextWriter log)
{
this.log = log;
var builder = new OpenCL100Factory();
try
{
program = builder.BuildComputeProgram(context, clSource);
program.Build(null, null, notify, IntPtr.Zero);
}
catch (Exception e)
{
log.WriteLine(e.ToString());
}
}
public void Run(IComputeContext context, TextWriter log)
{
var builder = new OpenCL100Factory();
try
{
var program = builder.BuildComputeProgram(context, kernelSources);
program.Build(null, null, null, IntPtr.Zero);
log.WriteLine("Program successfully built.");
builder.CreateAllKernels(program);
log.WriteLine("Kernels successfully created.");
}
catch (Exception e)
{
log.WriteLine(e.ToString());
}
}
public void Run(IComputeContext context, TextWriter log)
{
var builder = new OpenCL100Factory();
try
{
// Create the arrays and fill them with random data.
int count = 10;
float[] arrA = new float[count];
float[] arrB = new float[count];
float[] arrC = new float[count];
Random rand = new Random();
for (int i = 0; i < count; i++)
{
arrA[i] = (float)(rand.NextDouble() * 100);
arrB[i] = (float)(rand.NextDouble() * 100);
}
// Create the input buffers and fill them with data from the arrays.
// Access modifiers should match those in a kernel.
// CopyHostPointer means the buffer should be filled with the data provided in the last argument.
var a = new ComputeBuffer <float>(context, ComputeMemoryFlags.ReadOnly | ComputeMemoryFlags.CopyHostPointer, arrA);
var b = new ComputeBuffer <float>(context, ComputeMemoryFlags.ReadOnly | ComputeMemoryFlags.CopyHostPointer, arrB);
// The output buffer doesn't need any data from the host. Only its size is specified (arrC.Length).
var c = new ComputeBuffer <float>(context, ComputeMemoryFlags.WriteOnly, arrC.Length);
// Create and build the opencl program.
program = builder.BuildComputeProgram(context, clProgramSource);
program.Build(null, null, null, IntPtr.Zero);
// Create the kernel function and set its arguments.
var kernel = builder.CreateKernel(program, "VectorAdd");
kernel.SetMemoryArgument(0, a);
kernel.SetMemoryArgument(1, b);
kernel.SetMemoryArgument(2, c);
// Create the event wait list. An event list is not really needed for this example but it is important to see how it works.
// Note that events (like everything else) consume OpenCL resources and creating a lot of them may slow down execution.
// For this reason their use should be avoided if possible.
var eventList = new List <IComputeEvent>();
// Create the command queue. This is used to control kernel execution and manage read/write/copy operations.
var commands = new ComputeCommandQueue(context, context.Devices[0], ComputeCommandQueueFlags.None);
// Execute the kernel "count" times. After this call returns, "eventList" will contain an event associated with this command.
// If eventList == null or typeof(eventList) == ReadOnlyCollection<ComputeEventBase>, a new event will not be created.
commands.Execute(kernel, null, new long[] { count }, null, eventList);
// Read back the results. If the command-queue has out-of-order execution enabled (default is off), ReadFromBuffer
// will not execute until any previous events in eventList (in our case only eventList[0]) are marked as complete
// by OpenCL. By default the command-queue will execute the commands in the same order as they are issued from the host.
// eventList will contain two events after this method returns.
commands.ReadFromBuffer(c, ref arrC, false, eventList);
// A blocking "ReadFromBuffer" (if 3rd argument is true) will wait for itself and any previous commands
// in the command queue or eventList to finish execution. Otherwise an explicit wait for all the opencl commands
// to finish has to be issued before "arrC" can be used.
// This explicit synchronization can be achieved in two ways:
// 1) Wait for the events in the list to finish,
//eventList.Wait();
// 2) Or simply use
commands.Finish();
// Print the results to a log/console.
for (int i = 0; i < count; i++)
{
log.WriteLine("{0} + {1} = {2}", arrA[i], arrB[i], arrC[i]);
}
}
catch (Exception e)
{
log.WriteLine(e.ToString());
}
}
