200源碼

Ⅰ 去哪裡下載免費又好看的網站源碼

建議你到企業站長源碼去看看。有很多企業網站源碼，免費和收費的都有。免費的還都很好看。收費的也不錯，價格也不貴！我自己在那裡買了一套。蠻好的。地址好像是qiyezz.com

Ⅱ 高分求200行的c程序源代碼！！

經典c程序100例==61--70

【程序61】
題目：列印出楊輝三角形（要求列印出10行如下圖）
1.程序分析：
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
2.程序源代碼：
main()
{int i,j;
int a[10][10];
printf("\n");
for(i=0;i<10;i++)
{a[i][0]=1;
a[i][i]=1;}
for(i=2;i<10;i++)
for(j=1;j a[i][j]=a[i-1][j-1]+a[i-1][j];
for(i=0;i<10;i++)
{for(j=0;j<=i;j++)
printf("%5d",a[i][j]);
printf("\n");
}
}
==============================================================
【程序62】
題目：學習putpixel畫點。
1.程序分析：
2.程序源代碼：
#include "stdio.h"
#include "graphics.h"
main()
{
int i,j,driver=VGA,mode=VGAHI;
initgraph(&driver,&mode,"");
setbkcolor(YELLOW);
for(i=50;i<=230;i+=20)
for(j=50;j<=230;j++)
putpixel(i,j,1);
for(j=50;j<=230;j+=20)
for(i=50;i<=230;i++)
putpixel(i,j,1);
}
==============================================================
【程序63】
題目：畫橢圓ellipse
1.程序分析：
2.程序源代碼：
#include "stdio.h"
#include "graphics.h"
#include "conio.h"
main()
{
int x=360,y=160,driver=VGA,mode=VGAHI;
int num=20,i;
int top,bottom;
initgraph(&driver,&mode,"");
top=y-30;
bottom=y-30;
for(i=0;i {
ellipse(250,250,0,360,top,bottom);
top-=5;
bottom+=5;
}
getch();
}
==============================================================
【程序64】
題目：利用ellipse and rectangle 畫圖。
1.程序分析：
2.程序源代碼：
#include "stdio.h"
#include "graphics.h"
#include "conio.h"
main()
{
int driver=VGA,mode=VGAHI;
int i,num=15,top=50;
int left=20,right=50;
initgraph(&driver,&mode,"");
for(i=0;i {
ellipse(250,250,0,360,right,left);
ellipse(250,250,0,360,20,top);
rectangle(20-2*i,20-2*i,10*(i+2),10*(i+2));
right+=5;
left+=5;
top+=10;
}
getch();
}
==============================================================
【程序65】
題目：一個最優美的圖案。
1.程序分析：
2.程序源代碼：
#include "graphics.h"
#include "math.h"
#include "dos.h"
#include "conio.h"
#include "stdlib.h"
#include "stdio.h"
#include "stdarg.h"
#define MAXPTS 15
#define PI 3.1415926
struct PTS {
int x,y;
};
double AspectRatio=0.85;
void LineToDemo(void)
{
struct viewporttype vp;
struct PTS points[MAXPTS];
int i, j, h, w, xcenter, ycenter;
int radius, angle, step;
double rads;
printf(" MoveTo / LineTo Demonstration" );
getviewsettings( &vp );
h = vp.bottom - vp.top;
w = vp.right - vp.left;
xcenter = w / 2; /* Determine the center of circle */
ycenter = h / 2;
radius = (h - 30) / (AspectRatio * 2);
step = 360 / MAXPTS; /* Determine # of increments */
angle = 0; /* Begin at zero degrees */
for( i=0 ; i rads = (double)angle * PI / 180.0; /* Convert angle to radians */
points[i].x = xcenter + (int)( cos(rads) * radius );
points[i].y = ycenter - (int)( sin(rads) * radius * AspectRatio );
angle += step; /* Move to next increment */
}
circle( xcenter, ycenter, radius ); /* Draw bounding circle */
for( i=0 ; i for( j=i ; j moveto(points[i].x, points[i].y); /* Move to beginning of cord */
lineto(points[j].x, points[j].y); /* Draw the cord */
} } }
main()
{int driver,mode;
driver=CGA;mode=CGAC0;
initgraph(&driver,&mode,"");
setcolor(3);
setbkcolor(GREEN);
LineToDemo();}

Ⅲ 網站源碼授權

1.任何人做事都是有目的的，最終的目的就是為利益，說白點就是為了錢；免費源碼如何得到錢呢；我給您分析下；
2。第一類是開發商放出的免費源碼，這類源碼，主要起廣告作用；只有前台沒有後台，也就是說能看不能用的；你要想用，就要去花錢向程序商買；
3。第二類程序是黑客放出的；這類源碼一般要完整些，不會少太多的文件；但裡面有黑客加的代碼，或留下的後門；你用了他的代碼，就是在免費幫他傳播他的病毒
4。一點建議，如果你是程序高手，你可以用這類源碼，自己補全少的文件，查後門，如果自己不太在行，還是不要用；你可以去 有啊，淘寶，A5，200源碼，去買一些別人整理好的源碼用；現在源碼價格都很低；還有現在騙子很多，交易時要小心防騙；

Ⅳ 如何修改網站源代碼 買了個代源碼 想修改下

右鍵點擊你想修改的代碼----選擇打開方式---選擇記事本----點確定。就可以打開修改了。

修改後記得保存。

當然上面基本對你來說是廢話，既然你想修改源碼，那就是會編程語言了，既然會編程當然知道用什麼編輯軟體打開了。

所以你問的這個問題沒有什麼實際意義，還是先去看看怎麼做網站，怎麼架設和網頁編輯語言的書籍和教程

Ⅳ 200求易語言簡單源碼！搜索引擎介面

還是自己寫得好
要不看看搜索引擎的對應網址
不知道有木有不嫌麻煩的
技術含量要求低
勞動量略大

Ⅵ 中分，緊急求個200行左右的C語言源代碼！

#include <iostream.h>
#include <fstream.h>
int mark[]; //右來保存走法的
int num[2][2];//棋盤
int temp;
int k ;
int q ;
string strAim = "123804765" //目標字元串，空格用0表示
string States[100];//字元竄數組
int iQuick; //有來退出遞歸的標志，1，表示找到走法，可以退出，0，怎麼沒有找到走法，繼續走
Hrd(int i,int j)//華龍道演算法，好像能找到結果，但是不能找到最少步數的結果，我不確定會不會還有漏洞。結果保存在mark[]中
{ string str1;
if (i!=0) //如果可以向上走，則向上走一步
{
temp=num[i-1][j];
num[i-1][j]=num[i][j];
num[i][j]=temp ; //交換空格和它上面的數字

// 保存交換後的狀態
str1=Change2Str(num[][]); //轉化成字元串，用來比較
if (CompState(str1)) //比較變換後的狀態是否在以前的狀態中出現過
{
//如果以前出現過，則返回
temp=num[i-1][j];
num[i-1][j]=num[i][j];
num[i][j]=temp ; // 把原來交換過的數字再交換過來
return ;
}
else//比較後，發現目前的狀態以前沒有出現過
{ mark[k++]=1 ;
if(strcmp(&strAim,& str1)=1)//跟目標比，看是否相等
{
iquick=1;
return;

}
else //不相等，沒有達到最後我們的要求
{
//1 代表向上走了一步
Add2States(str1); //保存現在的狀態到狀態數組中
Hrd(i-1,j);
if (iquick=1) //可以退出
{
return;
}
} //遞歸，繼續遍歷
}

}
if(j!=2)//如果可以向右走，則向右走一步
{
temp=num[i][j+1];
num[i][j+1]=num[i][j] ;
num[i][j]=temp;

// 保存交換後的狀態
str1=Change2Str(num[][]); //轉化成字元串，用來比較
if (CompState(str1)) //比較變換後的狀態是否在以前的狀態中出現過
{
//如果以前出現過，返回
temp=num[i][j+1];
num[i][j+1]=num[i][j] ;
num[i][j]=temp; // 把原來交換過的數字再交換過來
return;
}
else//比較後，發現目前的狀態以前沒有出現過
{ mark[k++]=2 ; //2 代表向右走了一步
if(strcmp(&strAim,& str1)=1)//跟目標比，看是否相等
{
iquick=1;
return;

}
else //沒有達到結果
{

Add2States(str1); //保存現在的狀態到狀態數組中
Hrd(i,j+1) ; //遞歸，繼續遍歷
if (iquick=1)
{
return;
}
}
}

}
if (i!=2)// 如果可以向下走，則向下走一步
{
temp=num[i+1][j];
num[i+1][j]=num[i][j];
num[i][j]=temp;

// 保存交換後的狀態
str1=Change2Str(num[][]); //轉化成字元串，用來比較
if (CompState(str1)) //比較變換後的狀態是否在以前的狀態中出現過
{
//如果以前出現過，則返回
temp=num[i+1][j];
num[i+1][j]=num[i][j];
num[i][j]=temp; // 把原來交換過的數字再交換過來
return ;
}
else//比較後，發現目前的狀態以前沒有出現過
{ mark[k++]=3 ; //3 代表向下走了一步
if(strcmp(&strAim,& str1)=1)//跟目標比，看是否相等
{
iquick=1;
return;

}
else //沒有達到最後我們的要求
{

Add2States(str1); //保存現在的狀態到狀態數組中
Hrd(i+1,j) ; //遞歸，繼續遍歷
if (iquick=1)
{
return;
}
}
}
}
if (j!=0)//如果可以向左走，則向左走一步
{
temp=num[i1][j-1];

num[i][j-1]=num[i][j];
num[i][j]=temp;

// 保存交換後的狀態
str1=Change2Str(num[][]); //轉化成字元串，用來比較
if (CompState(str1)) //比較變換後的狀態是否在以前的狀態中出現過
{
//如果以前出現過，則回溯
temp=num[i][j-1];
num[i][j-1]=num[i][j];
num[i][j]=temp; // 把原來交換過的數字再交換過來

return ;
}
else//比較後，發現目前的狀態以前沒有出現過
{ mark[k++]=4 ; //1 代表向右走了一步
if(strcmp(&strAim,& str1)=1)//跟目標比，看是否相等
{
iquick=1;
return;

}
else //沒有達到最後我們的要求
{
Add2States(str1); //保存現在的狀態到狀態數組中
Hrd(i,j-1) ; //遞歸，繼續遍歷
if (iquick=1)
{
return;
}
}
}

}
//如果都走過了，則返回
k--;
return;

}

void Change2Str(int arr[][])// 把二維數組轉換成一個字元串
{int i,j
string strState
for (i=0;i<3 ;i++ )
{ for (j=0;j<3 ;j++ )
{
strState= strState & arr[i][j];
}
}
return strState;
}

void CompState(string str1 )//比較當前的狀態是否再以前的狀態中出現過
{ int i;
for (i=0;i<len(states[])-1 ; i++)//len(states[]),取得數組的長度，有點忘了
{
if (strcmp(&States[i],&str1)!=0)//如果兩個字元串相等，則函數返回true
{
return true;
}
}
return false;
}
Add2States(string str1)
{
States[q++]=str1 ;
}

main()
{ num[0][0]=1;
num[0][1]=2;
num[0][2]=3;
num[1][0]=8;
num[1][1]=6;
num[1][2]=4;
num[2][0]=1;
num[2][1]=0;
num[2][2]=5;
hrd(2,1);
for(int i=0 ,i<100,i++)
{count<<mark[i]<<endl;
}
}
Dim moveup As Integer '蛇向上轉向的標志
Dim movedown As Integer
Dim moveleft As Integer
Dim moveright As Integer

Public u As Integer 'u,l,r,d為蛇轉向時的控制數值
Public d As Integer
Public l As Integer
Public r As Integer

Public score As Integer '游戲分數

Public speed As Integer '游戲速度

Public pause As Boolean '游戲暫停標志

Public gamebegin As Boolean '游戲開始標志

Public s As Integer '蛇的當前長度，開始時設為6

Public eatd As Boolean '蛇是否吃到食物的標志

Public lastx As Integer '若蛇吃到食物，lastx,lasty用來存放當前最後一個shape的運動狀態，以供設定新的shape運動狀態之用
Public lasty As Integer

Option Base 1
Dim X(100) As Long '數組存放蛇的長度
Dim Y(100) As Long

Public Sub eat() '判斷蛇是否吃到食物的函數

If X(1) = -200 Then
If Shape1(1).Left <= Shape2.Left And Shape1(1).Top = Shape2.Top Then
eatd = True
End If
End If

If Y(1) = -200 Then
If Shape1(1).Top <= Shape2.Top And Shape1(1).Left = Shape2.Left Then
eatd = True
End If
End If

If X(1) = 200 Then
If Shape1(1).Left >= Shape2.Left + 200 And Shape1(1).Top = Shape2.Top Then
eatd = True
End If
End If

If Y(1) = 200 Then
If Shape1(1).Top >= Shape2.Top + 200 And Shape1(1).Left = Shape2.Left Then
eatd = True
End If
End If
End Sub
Public Sub ensure_position() '此函數確定新的shape1(s)的位置
If X(s - 1) = -200 Then
Shape1(s).Left = Shape1(s - 1).Left + 200: Shape1(s).Top = Shape1(s - 1).Top
End If
If Y(s - 1) = -200 Then
Shape1(s).Left = Shape1(s - 1).Left: Shape1(s).Top = Shape1(s - 1).Top + 200
End If
If X(s - 1) = 200 Then
Shape1(s).Left = Shape1(s - 1).Left - 200: Shape1(s).Top = Shape1(s - 1).Top
End If
If Y(s - 1) = 200 Then
Shape1(s).Left = Shape1(s - 1).Left: Shape1(s).Top = Shape1(s - 1).Top - 200
End If
End Sub
Public Sub ensure_state() '此過程用來確定新的控制項的初始運動狀態

If X(1) = -200 Then
If moveleft = 1 Then
X(s) = X(s - 1): Y(s) = Y(s - 1)
Else
X(s) = lastx: Y(s) = lasty
End If
End If

If Y(1) = -200 Then
If moveup = 1 Then
X(s) = X(s - 1): Y(s) = Y(s - 1)
Else
X(s) = lastx: Y(s) = lasty
End If
End If

If X(1) = 200 Then
If moveright = 1 Then
X(s) = X(s - 1): Y(s) = Y(s - 1)
Else
X(s) = lastx: Y(s) = lasty
End If
End If

If Y(1) = 200 Then
If movedown = 1 Then
X(s) = X(s - 1): Y(s) = Y(s - 1)
Else
X(s) = lastx: Y(s) = lasty
End If
End If
End Sub

Public Sub strike_oneself() '測試蛇頭是否撞到自己

Dim i
Dim j: j = 0
If Y(1) = 200 Then '蛇頭向下撞到自己
For i = 7 To s '蛇頭只能和第六塊或以後的蛇身相撞
If Shape1(1).Top = Shape1(s).Top And Shape1(1).Left = Shape1(s).Left Then
Form1.initialize
Form1.outputmessage
Exit For
End If
Next i
End If

If X(1) = 200 Then '蛇頭向右撞到自己
For i = 7 To s
If Shape1(1).Left = Shape1(i).Left - 200 And Shape1(1).Top = Shape1(i).Top Then
Form1.initialize
Form1.outputmessage
Exit For
End If
Next i
End If

If Y(1) = -200 Then '蛇頭向上撞到自己
For i = 7 To s
If Shape1(1).Top = Shape1(i).Top + 200 And Shape1(1).Left = Shape1(i).Left Then
Form1.initialize
Form1.outputmessage
Exit For
End If
Next i
End If

If X(1) = -200 Then '蛇頭向左撞到自己
For i = 7 To s
If Shape1(1).Left = Shape1(i).Left + 200 And Shape1(1).Top = Shape1(i).Top Then
Form1.initialize
Form1.outputmessage
Exit For
End If
Next i
End If

End Sub
Public Sub strike_wall() '測試蛇頭是否撞到牆壁
If Shape1(1).Top < 0 Or Shape1(1).Top > Line1.Y1 - 200 Or Shape1(1).Left < 0 Or Shape1(1).Left > Form1.Width - 200 Then
Form1.outputmessage
Form1.initialize
End If
End Sub
Public Sub outputmessage() ' 游戲結束後的輸出信息
gameovermessage = "GAME OVER!"
dx = (8000 - TextWidth(gameovermessage)) / 2 '在窗體中間輸出"GAME OVER!"和得分
dy = (6000 - TextHeight(gameovermessage)) / 2
CurrentX = dx: CurrentY = dy
Form1.Print gameovermessage
scoremessage = "你的得分：" + Text1.Text
dx = (8000 - TextWidth(scoremessage)) / 2
dy = dy + TextHeight(scoremessage)
CurrentX = dx: CurrentY = dy
Form1.Print scoremessage
End Sub
Public Sub initialize() '游戲結束（失敗）後，游戲初始化函數
moveup = 0
movedown = 0
moveleft = 0
moveright = 0
u = 0: d = 0: l = 0: r = 0
Label5.Caption = "停止"

For i = 1 To s ' 初始化蛇的位置和狀態
Shape1(i).Left = 1200 + (6 - i) * 200
Shape1(i).Top = 5000
X(i) = 200
Y(i) = 0
Next i
If s > 6 Then
For i = 7 To s
Unload Shape1(i) '卸載多餘的shape，使初始的shape個數為六個
Next i
End If

'以下的這段是用來查看游戲初始化時的中的參數
'CurrentX = 0: CurrentY = 0
'Form1.FontSize = 10
'Print moveup: Print movedown: Print moveleft: Print moveright
'Print u: Print r: Print l: Print d
'For i = 1 To s
'Print X(i): Print Y(i)
'Next i

s = 6
Timer1.Enabled = False
gamebegin = False '游戲未開始
pause = False
HScroll1.Enabled = True
End Sub

Private Sub Command1_Click()
Timer1.Enabled = False
Dim r
r = MsgBox("你真的要退出嗎?", 33, "警告")
If r = 1 Then
Unload Form1
Else
Timer1.Enabled = True
End If

End Sub

Private Sub Form_KeyPress(keyascii As Integer)

If gamebegin = True And pause = False Then '只有游戲處於開始時方向鍵才有效
'下面四個if語句是蛇的方向控制函數
If keyascii = 119 Then
If Y(1) <> 200 Then '只有當蛇頭不正好向下運動時，按下向上才有效
moveup = 1 '向下上為w
End If
End If

If keyascii = 97 Then '向左為a
If X(1) <> 200 Then
moveleft = 1
End If
End If

If keyascii = 115 Then '向下為s
If Y(1) <> -200 Then
movedown = 1
End If
End If

If keyascii = 100 Then '向右為d
If X(1) <> -200 Then
moveright = 1
End If
End If
End If

If keyascii = 32 Then '判斷游戲是否在開始,按下空格鍵開始，否則按下空格鍵為暫停
If gamebegin = False Then
Timer1.Enabled = True
Label5.Caption = "開始"
Form1.Cls
score = 0
Text1.Text = Str$(score)
HScroll1.Enabled = False
gamebegin = True

Else
If pause = True Then '判斷暫停與否
Timer1.Enabled = True
Label5.Caption = "開始"
Else
Timer1.Enabled = False
Label5.Caption = "暫停"
End If
pause = Not pause
End If
End If

End Sub

Private Sub Form_Load() '對各參數的初始化
moveup = 0
moveleft = 0
moveright = 0
movedown = 0
u = 0: l = 0: d = 0: r = 0
s = 6 '蛇的初始長度
eatd = False
gamebegin = False
pause = False
speed = HScroll1.Value '初始速度
Label5.Caption = "停止"

Dim i
For i = 1 To s '蛇的初始運動方向
X(i) = 200
Y(i) = 0
Next i

Timer1.Enabled = False '沒開始游戲
Shape2.Left = 200 * Int(30 * Rnd) '貪吃蛇的食物的位置初始化
Shape2.Top = 200 * Int(30 * Rnd)

End Sub
Private Sub HScroll1_Change()
speed = HScroll1.Value
End Sub

Private Sub Timer1_Timer()

Timer1.Interval = 150 / speed '游戲速度

If movedown = 1 Then '按下下方向鍵，蛇向下轉向
d = d + 1
X(d) = 0: Y(d) = 200
If d = s Then
movedown = 0: d = 0
End If
End If

If moveup = 1 Then '按下向上方向鍵，蛇向上轉向
u = u + 1
X(u) = 0: Y(u) = -200
If u = s Then
moveup = 0: u = 0
End If
End If

If moveleft = 1 Then '向左
l = l + 1
X(l) = -200: Y(l) = 0
If l = s Then
moveleft = 0: l = 0
End If
End If

If moveright = 1 Then '向右
r = r + 1
X(r) = 200: Y(r) = 0
If r = s Then
moveright = 0: r = 0
End If
End If

Dim i '蛇的運動代碼
For i = 1 To s
Shape1(i).Left = Shape1(i).Left + X(i)
Shape1(i).Top = Shape1(i).Top + Y(i)
Next i

Form1.eat '調用過程eat(),判斷蛇是否吃了食物

If eatd = True Then
score = score + 5 * HScroll1.Value
Text1.Text = Str$(score)
Shape2.Left = 200 * Int(30 * Rnd) '如果食物被吃則隨機產生貪吃蛇的食物的位置
Shape2.Top = 200 * Int(30 * Rnd)
Shape2.FillColor = RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd)) '隨機產生食物的顏色
If Shape2.FillColor = &H0& Then
Shape2.FillColor = RGB(100, 150, 200)
End If
lastx = X(s) '蛇吃到食物，lastx,lasty用來存放當前最後一個shape的運動狀態-
lasty = Y(s) '-以供設定新的shape運動狀態之用
s = s + 1
Load Shape1(s) '產生新的控制項shape1數組，使蛇的長度加長
Form1.ensure_state '調用設定新的shape控制項的運動狀態過程
Form1.ensure_position '設定新的shape1的位置
Shape1(s).Visible = True
eatd = False
End If

Form1.strike_oneself '測試游戲是否失敗的函數
Form1.strike_wall

End Sub

Ⅶ 求，茶葉網站源碼帶商城

安溪茶葉網:www.chahz.com 你看下這個網站符合你要求不?可以的話可以在聯系我.

Ⅷ 誰有好的網站源碼或者網站模板，給個可以下載的網站吧，跪謝了！

去下載網站系統來改，比如pageadmin系統、shopex系統、wordpress系統這些都很好用的

Ⅸ 哪裡有比較完整的網站模板源碼下載 帶後台的 知道的分享下！謝謝~

我幫你歸納一下;
1、完整能用的免費源碼，如dedecms,帝國系統，這類源碼是免費的，也完整；不足的地方是系統過於復雜，一般人用不了。要經過專業培訓或學習才可以用。
2、淘寶上出售的100元以下的免費源碼；雖是收費的，但實際上還是免費源碼，不同的是人家花時間去找了，還有可能測試了完整性。相對來說完整些。不足的是，這類源碼安全性差，有版權問題，也不一定完全完整，相對完整些而已。
3、第三類是各大下載論壇下載的源碼，站長站就有chinaz和A5都有，當然還有很多很多這樣的下載站，這類源碼特點是不完整，有後門，有版權糾紛，可用來學習，但不能商用。

至於您想要的即好又不花錢的源碼，我可以很明確的告訴您，沒有。您自己想一下就知道，有哪個程序員會把自己開發的源碼免費給大家用。任何人做任何事，只有一個目的，就是為錢。雖然現實有點醜陋，但這就是現實；大家都懷念雷鋒，但卻沒有一個人願意學雷鋒，這不是現實

以上由200源碼程序員妞妞為您總結，希望對您有所幫助