Questa è una copia dei driver...:)

Sabato 17 maggio c'e la notte dei musei!!
Tutti i musei della Sapienza (e non solo) saranno aperti gratuitamente al pubblico fina a tarda notte
Anche il Museo di chimica parteciperà e sarà anche esposta in un exibit la Cella di plante dimostrativa con hardware e software realizzato
tutti gli utenti del forum, che ne abbiano voglia e tempo ;sono invitati a partecipare le iniziative partiranno dalle 19 con l aperitvo chimico e proseguiranno con le favole chimiche per bambini narrate dal Prof de Begnach alle 21
Vi terro agiornati sulle altre iniziative

CITAZIONE (Gancetto, 05/05/2014 13:29:01 )

La presentazione della Planté dimostrativa al museo dell'Università La Sapienza:

Di seguito Allego il codice per la riproduzione del TESTING AND ANALYSIS BATTERY ... buone Plantè a tutti


'-----------------------------------------------------'
' TESTING AND ANALYSIS BATTERY V1.1 '
'-----------------------------------------------------'
PRAGMA NO_NUM_LINE

'--DEFINIZIONE COSTANTI--'
CONSTANT STOP=0
CONSTANT CARICA=1
CONSTANT SCARICA=2
CONSTANT SCARICAEXT=3

'--FUNZIONE PRINCIPALE--'
:TESTING_AND_ANALYSIS_BATTERY
FOR X=1 TO 10
COMMAND=USBINP

IF COMMAND<>-1 THEN CALL COMANDO_PC

USBOUT="START/" & CADS1 & "/" & CADS2 & "/" & CADS3 & "/STOP"

WAITMS 100
NEXT X

OUTBIT(11)=!INPBIT(11) 'LED VERDE
OUTBIT(12)=!INPBIT(11) 'LED ARANCIO
GOTO :TESTING_AND_ANALYSIS_BATTERY


'---------------------------------------------------------------------------------'
' GESTISCE LA RICEZIONE DEI COMANDI PROVENIENTI DAL PC '
' '
' COMMAND=0->STOP, 1->CARICA, 2->SCARICA, 3->SCARICAEXT '
'---------------------------------------------------------------------------------'
SUB COMANDO_PC
BEEP
SWITCH COMMAND
CASE STOP
OUT=&H00
CASEEND

CASE CARICA
OUT=&H0100
CASEEND

CASE SCARICA
OUT=&H4000
CASEEND

CASE SCARICAEXT
OUT=&H2000
SWITCHEND
SUBEND