سلام دوستان
این یه پروژه ی فانکشن ژنراتور
توضح کامل در مورد این برنامه میخوام
$regfile=”M8def.dat”
$crystal=12000000
Config Portd=Output
Config Potrb=Input
Config Lcd=16*2
Cls
Cursor Off
Deflcdchar 0,32,32,32,1,3,5,9,17
Deflcdchar 1,32,32,32,31,17,17,17,17
Deflcdchar 6,32,32,32,1,1,1,1,31
Deflcdchar 2,32,32,32,1,2,4,8,16
Deflcdchar 3,32,32,32,16,8,4,2,1
Deflcdchar 4,6,9,9,16,16,32,32,32
Deflcdchar 5,32,32,32,16,16,9,9,6
Home:Lcd”SIGNAL GENERATOR”
Dim I As Byte
Dim X1 As Byte
Dim X2 As Byte
Dim X3 As Byte
Dim X4 As Byte
Dim Halat As Byte
Dim K As Byte
Dim Z As Word:Z=1
Dim D As Bit
St:
D=1
If Pinb.0=0 Then
Incr Halat
If Halat=4 Then Halat=0
End If
If Pinb.1=0 Then
Incr Z
If Z>300 Then Z=300
End If
If Pinb.2=0 Then
Decr Z
If Z<1 Then Z=1
End If
Locate 2,10:Lcd”CH=”;Z;” “
Select Case Halat
Case 0:
Locate 2,1:Lcd Chr(1);Chr(6)
Restore Data 1
Do
If Pinb.o=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 50
Read X1
Port=X1
For K=1 To Z:Next
Next
Restore Data 1
Loop
Case 1:
Locate 2,1:Lcd Chr(4);Chr(5)
Restore Data2
Do
If Pinb.0=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 48
Read X2
Portd=X2
For K=1 To Z:Next
Next
Restore Data2
Loop
Case2:
Locate 2,1:Lcd Chr(2); Chr(3)
Restore Data3
Do
If Pinb.0=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 50
Read X3
Portd=X3
For K=1 To Z:Next
Next
Restore Data3
Loop
Case3:
Locate 2,1:Lcd Chr(0); Chr(0)
Restore Data4
Do
If Pinb.0=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 48
Read X4
Portd=X4
For K=1 To Z:Next
Next
Restore Data4
Loop
End Select
End
Data1:
Data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,250,250,250,250,250,250,250,250,250,250,250, 250,250,250,250,250,250,250,250,250,250,250,250,25 0
Data2:
Data128,143,158,175,192,202,212,225,238,243,247,25 1,225,251,247,243,238,225,212,202,192,175,158,143, 128,112,96,84,64,52,40,28,17, 13,8,4,0,4,8,13,17,28,40,52,64,84,96,112
Data3:
Data0,10,20,30,40,50,60,70,80,90,100,110,120,130,1 40,150,160,170,180,190,200,210,220,230,240,250,240 ,230,220,210,200,190,180,170,160,150,140,130,120,1 10,100,90,80,70,60,50,40,30,20,10
Data4:
Data250,240.235,230,225,220,215,210,205,200,195,19 0,185,180,175,170,165,160,155,150,145,140,135,130, 125,120,115,110,105,100,95,90,85,80,70,65,60,55,50 ,45,40,35,30,25,20,15,10,0
این یه پروژه ی فانکشن ژنراتور
توضح کامل در مورد این برنامه میخوام
$regfile=”M8def.dat”
$crystal=12000000
Config Portd=Output
Config Potrb=Input
Config Lcd=16*2
Cls
Cursor Off
Deflcdchar 0,32,32,32,1,3,5,9,17
Deflcdchar 1,32,32,32,31,17,17,17,17
Deflcdchar 6,32,32,32,1,1,1,1,31
Deflcdchar 2,32,32,32,1,2,4,8,16
Deflcdchar 3,32,32,32,16,8,4,2,1
Deflcdchar 4,6,9,9,16,16,32,32,32
Deflcdchar 5,32,32,32,16,16,9,9,6
Home:Lcd”SIGNAL GENERATOR”
Dim I As Byte
Dim X1 As Byte
Dim X2 As Byte
Dim X3 As Byte
Dim X4 As Byte
Dim Halat As Byte
Dim K As Byte
Dim Z As Word:Z=1
Dim D As Bit
St:
D=1
If Pinb.0=0 Then
Incr Halat
If Halat=4 Then Halat=0
End If
If Pinb.1=0 Then
Incr Z
If Z>300 Then Z=300
End If
If Pinb.2=0 Then
Decr Z
If Z<1 Then Z=1
End If
Locate 2,10:Lcd”CH=”;Z;” “
Select Case Halat
Case 0:
Locate 2,1:Lcd Chr(1);Chr(6)
Restore Data 1
Do
If Pinb.o=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 50
Read X1
Port=X1
For K=1 To Z:Next
Next
Restore Data 1
Loop
Case 1:
Locate 2,1:Lcd Chr(4);Chr(5)
Restore Data2
Do
If Pinb.0=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 48
Read X2
Portd=X2
For K=1 To Z:Next
Next
Restore Data2
Loop
Case2:
Locate 2,1:Lcd Chr(2); Chr(3)
Restore Data3
Do
If Pinb.0=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 50
Read X3
Portd=X3
For K=1 To Z:Next
Next
Restore Data3
Loop
Case3:
Locate 2,1:Lcd Chr(0); Chr(0)
Restore Data4
Do
If Pinb.0=0 Or Pinb.1=0 Or Pinb.2=0 Then Goto St
For I=1 To 48
Read X4
Portd=X4
For K=1 To Z:Next
Next
Restore Data4
Loop
End Select
End
Data1:
Data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,250,250,250,250,250,250,250,250,250,250,250, 250,250,250,250,250,250,250,250,250,250,250,250,25 0
Data2:
Data128,143,158,175,192,202,212,225,238,243,247,25 1,225,251,247,243,238,225,212,202,192,175,158,143, 128,112,96,84,64,52,40,28,17, 13,8,4,0,4,8,13,17,28,40,52,64,84,96,112
Data3:
Data0,10,20,30,40,50,60,70,80,90,100,110,120,130,1 40,150,160,170,180,190,200,210,220,230,240,250,240 ,230,220,210,200,190,180,170,160,150,140,130,120,1 10,100,90,80,70,60,50,40,30,20,10
Data4:
Data250,240.235,230,225,220,215,210,205,200,195,19 0,185,180,175,170,165,160,155,150,145,140,135,130, 125,120,115,110,105,100,95,90,85,80,70,65,60,55,50 ,45,40,35,30,25,20,15,10,0
