Để làm cho một vật chuyển động từ một điểm này đến 1 điểm kia thì mình đã làm được, ví dụ như làm cho thang máy chuyển động từ tầng 1 đến tầng 10 chẳng hạn:
#include "apdefap.h" int gscAction( void ) { int cbmocua1; int cbdongcua1; int dtbt1; int mocua; int dongcua; int dc1len; int dc1xuong; int dc1lentocdocham; int dc1xuongtocdocham; int vitrithang; int vitriDC_mocua1; dtbt1=GetTop("2 thang.Pdl","DTBT1"); //Return-Type: long int mocua=GetTop("2 thang.Pdl","mo cua"); //Return-Type: long int dongcua=GetTop("2 thang.Pdl","Dong cua"); //Return-Type: long int vitrithang=GetTop("2 thang.Pdl","Cabin1"); //Return-Type: long int vitriDC_mocua1=GetTop("2 thang.Pdl","DC mocua1"); //Return-Type: long int cbdongcua1=GetTop("2 thang.Pdl","CBdong cua 1"); //Return-Type: long int cbmocua1=GetTop("2 thang.Pdl","CB mo cua 1"); //Return-Type: long int dc1len=GetTagBit("dc1len"); //Return-Type: BOOL dc1xuong=GetTagBit("dc1xuong"); //Return-Type: BOOL dc1lentocdocham=GetTagBit("dc1lentocdocham"); //Return-Type: BOOL dc1xuongtocdocham=GetTagBit("dc1xuongtocdocham"); //Return-Type: BOOL if(dc1lentocdocham==1) { vitrithang = vitrithang-2; vitriDC_mocua1=vitriDC_mocua1-2; dtbt1=dtbt1-2; mocua=mocua-2; dongcua=dongcua-2; cbmocua1=cbmocua1-2; cbdongcua1=cbdongcua1-2; } else { if(dc1len==1) { vitrithang=vitrithang-4; vitriDC_mocua1=vitriDC_mocua1-4; dtbt1=dtbt1-4; mocua=mocua-4; dongcua=dongcua-4; cbmocua1=cbmocua1-4; cbdongcua1=cbdongcua1-4; } else { if(dc1xuongtocdocham==1) { vitrithang=vitrithang+2; vitriDC_mocua1=vitriDC_mocua1+2; dtbt1=dtbt1+2; mocua=mocua+2; dongcua=dongcua+2; cbmocua1=cbmocua1+2; cbdongcua1=cbdongcua1+2; } else { if(dc1xuong==1) { vitrithang=vitrithang+4; vitriDC_mocua1=vitriDC_mocua1+4; dtbt1=dtbt1+4; mocua=mocua+4; dongcua=dongcua+4; cbmocua1=cbmocua1+4; cbdongcua1=cbdongcua1+4; } else { vitrithang=vitrithang; vitriDC_mocua1=vitriDC_mocua1; dtbt1=dtbt1; mocua=mocua; dongcua=dongcua; } } } } SetTop("2 thang.Pdl","Cabin1",vitrithang); //Return-Type: BOOL SetTop("2 thang.Pdl","DC mocua1",vitriDC_mocua1); //Return-Type: BOOL SetTop("2 thang.Pdl","Dong cua",dongcua); //Return-Type: BOOL SetTop("2 thang.Pdl","DTBT1",dtbt1); //Return-Type: BOOL SetTop("2 thang.Pdl","mo cua",mocua); //Return-Type: BOOL SetTop("2 thang.Pdl","CBdong cua 1",cbdongcua1); //Return-Type: BOOL SetTop("2 thang.Pdl","CB mo cua 1",cbmocua1); //Return-Type: BOOL return 0; }
Tuy nhiên để làm cho một băng tải chuyển động thì mình mò mãi mà vẫn chưa được. Bạn nào có cao kiến xin trao đổi để mọi người và đặc biệt là mình có thể học tập: