http://www.avrprojects.info/avr-projects/digital-dimmer-using-atmega8/   这个是网站
以下是bascom语言  我用了bascom avr 可能软件没用  希望能转换以下 用avr studio完成编译  如果成功，悬赏美金：$50.00

$regfile = "m8def.dat"
$crystal = 4000000

Config Pinb.1 = Output                                      ' Gate Triac
Config Pind.7 = Input                                       ' Key Up
Config Pinb.0 = Input                                       ' Key Dn

Config Int0 = Rising
On Int0 Int0_int                                            ' Initialise the INT0 Interrupt


Enable Interrupts
Enable Int0


Dim E As Eram Byte
Dim B As Byte
Dim D As Byte

If E > 9 Then E = 9
B = E
D = 0
Set Portb.1

Do

If Pind.7 = 0 Then
 If B > 0 Then Decr B
 Waitms 10
 E = B
End If

If Pinb.0 = 0 Then
 If B < 9 Then Incr B
 Waitms 10
 E = B
End If



Loop

End                                                         ' end program

Int0_int:

Set Portb.1
For D = 0 To B
 Waitus 200
Next D
Reset Portb.1

Return

bascom是什么语言？我只知道Basic 和 Visual Basic

估计是basic的一种方言吧。。。

不知道是什么语言

bascom是一种BASIC语言在单片机和微控制器上，嵌入式所应用的一种语言。
很奇怪楼主为什么将这个问题放在C版，我感觉你放在嵌入式版里面会更有效果。

$regfile = "m8def.dat"                                       //应该是类似“C51.h"的驱动文件。
$crystal = 4000000                                              //宏定义了一个值 估计是用作延迟

Config Pinb.1 = Output                                      // Gate Triac这里是一个输出，详情请看电路图。
Config Pind.7 = Input                                       // Key Up这里是一个按键 标记为UP
Config Pinb.0 = Input                                       //Key Dn这里也是一个按键 标记为DOWN

Config Int0 = Rising
On Int0 Int0_int                                            //Initialise the INT0 Interrupt初始化 第一阵脚的中断


Enable Interrupts //进入初始化
Enable Int0//进入第一阵脚


Dim E As Eram Byte
Dim B As Byte
Dim D As Byte

If E > 9 Then E = 9
B = E
D = 0
Set Portb.1

Do

If Pind.7 = 0 Then
If B > 0 Then Decr B
Waitms 10
E = B
End If

If Pinb.0 = 0 Then
If B < 9 Then Incr B
Waitms 10
E = B
End If



Loop

End                                                         //主程序结束 end program

Int0_int://这是一个子程序

Set Portb.1
For D = 0 To B
Waitus 200
Next D
Reset Portb.1

Return 

电路图是http://www.avrprojects.info/files/images/Dimmer-Schmatic.gif