代码搜索：SWITCH
找到约 10,000 项符合「SWITCH」的源代码
代码结果 10,000
www.eeworm.com/read/324136/3506111
test switch.test
# Commands covered: switch
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands. Sourcing this file into Tcl runs the tests and
# generates output for errors.
www.eeworm.com/read/324136/3506282
n switch.n
'\"
'\" Copyright (c) 1993 The Regents of the University of California.
'\" Copyright (c) 1994-1997 Sun Microsystems, Inc.
'\"
'\" See the file "license.terms" for information on usage and redistribut
www.eeworm.com/read/323635/3512373
opt switch.opt
### uVision2 Project, (C) Keil Software
### Do not modify !
cExt (*.c)
aExt (*.a*; *.src)
oExt (*.obj)
lExt (*.lib)
tExt (*.txt)
pExt (*.plm)
CppX (*.cpp)
DaveTm { 0,0,0,0,0,0,0,0 }
www.eeworm.com/read/323635/3512374
c switch.c
#include
void Switchdemo(void)
{ Byte outputstate;
switch(outputstate)
{case 1:
P1_0=0;
P1_1=0;
P1_2=0;
break; //跳出循环
case 2:
P1_0=1;
P1_1=0;
P1_2=0;
break;
www.eeworm.com/read/321483/3533992
t switch.t
BEGIN {
if ($ENV{PERL_CORE}) {
chdir('t') if -d 't';
@INC = qw(../lib);
}
}
use Carp;
use Switch qw(__ fallthrough);
my($C,$M);sub ok{$C++;$M.=$_[0]?"ok $C\n":"not ok $C (lin
www.eeworm.com/read/321483/3534296
t switch.t
#!/usr/local/bin/perl -w
use lib qw(t/lib);
# Due to a bug in older versions of MakeMaker & Test::Harness, we must
# ensure the blib's are in @INC, else we might use the core CGI.pm
use lib qw(blib/
www.eeworm.com/read/318815/3562615
java switch.java
package com.javapatterns.command.lightandfan;
public class Switch {
private Command UpCommand, DownCommand;
public Switch( Command Up, Command Down) {
UpCommand =
www.eeworm.com/read/316877/3584614
js switch.js
var num = 2;
switch(num)
{
// is the number 1 ?
case 1 : alert("This is case 1 code"); break;
// is the number 2 ?
case 2 : alert("This is case 2 code"); break;
// is the number 3 ?