- Ја почнал/а темата
- #1
petar.bt
Intern
- 12 август 2007
- 731
- 20
Tуториали за програмирање на LED диоди преку USB или паралелен порт во Visual Baisc. Некој основни примери.
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/io.h>
#define base 0x0378 /* printer port base address */
int sendport(int i)
{
if (!ioperm(base,1,1)) {
outb((unsigned char)i, base);
return 1;
}
else { return 0; }
}
int main()
{
int k = 1;
// int u = k;
while (k <=255)
{
sendport(k);
usleep(300000);
k=k+1;
}
sendport(0);
}
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/io.h>
#define base 0x0378 /* printer port base address */
int sendport(int i)
{
if (!ioperm(base,1,1)) {
outb((unsigned char)i, base);
return 1;
}
else { return 0; }
}
int main()
{
int k = 20000;
int u = k;
int l=10;
while (l--)
{
int k = u;
while ((k-=700) > 0)
{
sendport(1);
usleep(k);
sendport(0);
usleep(u-k);
}
k=0;
while ((k+=700) < u)
{
sendport(1);
usleep(k);
sendport(0);
usleep(u-k);
}
}
sendport(0);
}
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/io.h>
#define base 0x0378 /* printer port base address */
int sendport(int i)
{
if (!ioperm(base,1,1)) {
outb((unsigned char)i, base);
return 1;
}
else { return 0; }
}
int main()
{
int k = 20000;
int u = k;
int l=10;
while (l--)
{
int k = u;
while (k-=500)
{
sendport(2);
usleep(k);
sendport(4);
usleep(u-k);
}
k=0;
while ((k+=500) < u)
{
sendport(2);
usleep(k);
sendport(4);
usleep(u-k);
}
}
sendport(0);
}
Private Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
Dim state As Integer
Private Sub Form_Load()
state = 0
Call PortOut(888, 0)
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Call PortOut(888, 2 ^ state)
state = state + 1
If state >= 8 Then state = 0
End Sub
зафатен сум сега со државениот натпревар по информатика па ке го напрамПетар, што напрај ?