-
diesmal die richtigen fuse bits und es geht nun alles mit dem internen 16Mhz Quarz .
nun zu meinem programm es erstellt am anfang zwei felder deas zweite mit cos aber 180° verschoben und zum schluss wird alles ausgegeben
mein problem derzeit ist das am ende wieder nur dauer an ankommt und kein sinus
Code:
$regfile = "m8def.dat"
$crystal = 16000000 '16MHz
$baud = 19200
Config Portb.1 = Output
Config Portb.2 = Output
Dim X As Double
Dim Y As Double
Dim Amp As Single
Amp = 100
Portb.1 = 0
Portb.2 = 0
Dim Freq As Long
Freq = 1
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
'Compare1a Portb1
'Compare1b Portb2
Dim Cosx(360) As Byte
Dim Cosy(360) As Byte
Dim Cy As Single
Dim Cx As Single
For X = 1 To 360
Y = X + 180
Cx = Cos(x)
Cx = Cx * 100
Cx = Cx + 100
Cosx(x) = Abs(cx)
Cy = Cos(y)
Cy = Cy * Amp
Cosy(x) = Int(cy)
Print X
Next X
Do
For X = 1 To 360
Compare1a = Cosy(x)
Compare1b = Cosx(x)
Next X
Loop
End
-
da ich den datentypen kombinationen nicht herr geworden bin und desto mehr ich rechne immer häufiger null rauskommt hab ich mir in veb ein programm geschrieben das mir eine sinus tabelle anleget und ich hab das also nicht alles per hand eingetippt. und hier der code er funktioniert ist aber für hohe frequense ungeeignet.
Code:
$regfile = "m8def.dat"
$crystal = 16000000 '16MHz
$baud = 19200
Config Portb.1 = Output
Config Portb.2 = Output
Dim X As Long
Dim Csy(722) As Byte
Dim Csyy As Byte
Dim Wart As Long
Csy(1) = 128
csy( 2) = 130
csy( 3) = 132
csy( 4) = 134
csy( 5) = 136
csy( 6) = 139
csy( 7) = 141
csy( 8) = 143
csy( 9) = 145
csy( 10) = 147
csy( 11) = 150
csy( 12) = 152
csy( 13) = 154
csy( 14) = 156
csy( 15) = 158
csy( 16) = 160
csy( 17) = 163
csy( 18) = 165
csy( 19) = 167
csy( 20) = 169
csy( 21) = 171
csy( 22) = 173
csy( 23) = 175
csy( 24) = 177
csy( 25) = 179
csy( 26) = 181
csy( 27) = 183
csy( 28) = 185
csy( 29) = 187
csy( 30) = 189
csy( 31) = 191
csy( 32) = 193
csy( 33) = 195
csy( 34) = 197
csy( 35) = 199
csy( 36) = 200
csy( 37) = 202
csy( 38) = 204
csy( 39) = 206
csy( 40) = 207
csy( 41) = 209
csy( 42) = 211
csy( 43) = 212
csy( 44) = 214
csy( 45) = 216
csy( 46) = 217
csy( 47) = 219
csy( 48) = 220
csy( 49) = 222
csy( 50) = 223
csy( 51) = 225
csy( 52) = 226
csy( 53) = 228
csy( 54) = 229
csy( 55) = 230
csy( 56) = 232
csy( 57) = 233
csy( 58) = 234
csy( 59) = 235
csy( 60) = 236
csy( 61) = 237
csy( 62) = 239
csy( 63) = 240
csy( 64) = 241
csy( 65) = 242
csy( 66) = 243
csy( 67) = 244
csy( 68) = 244
csy( 69) = 245
csy( 70) = 246
csy( 71) = 247
csy( 72) = 248
csy( 73) = 248
csy( 74) = 249
csy( 75) = 250
csy( 76) = 250
csy( 77) = 251
csy( 78) = 251
csy( 79) = 252
csy( 80) = 252
csy( 81) = 253
csy( 82) = 253
csy( 83) = 253
csy( 84) = 254
csy( 85) = 254
csy( 86) = 254
csy( 87) = 254
csy( 88) = 254
csy( 89) = 254
csy( 90) = 254
csy( 91) = 255
csy( 92) = 254
csy( 93) = 254
csy( 94) = 254
csy( 95) = 254
csy( 96) = 254
csy( 97) = 254
csy( 98) = 254
csy( 99) = 253
csy( 100) = 253
csy( 101) = 253
csy( 102) = 252
csy( 103) = 252
csy( 104) = 251
csy( 105) = 251
csy( 106) = 250
csy( 107) = 250
csy( 108) = 249
csy( 109) = 248
csy( 110) = 248
csy( 111) = 247
csy( 112) = 246
csy( 113) = 245
csy( 114) = 244
csy( 115) = 244
csy( 116) = 243
csy( 117) = 242
csy( 118) = 241
csy( 119) = 240
csy( 120) = 239
csy( 121) = 237
csy( 122) = 236
csy( 123) = 235
csy( 124) = 234
csy( 125) = 233
csy( 126) = 232
csy( 127) = 230
csy( 128) = 229
csy( 129) = 228
csy( 130) = 226
csy( 131) = 225
csy( 132) = 223
csy( 133) = 222
csy( 134) = 220
csy( 135) = 219
csy( 136) = 217
csy( 137) = 216
csy( 138) = 214
csy( 139) = 212
csy( 140) = 211
csy( 141) = 209
csy( 142) = 207
csy( 143) = 206
csy( 144) = 204
csy( 145) = 202
csy( 146) = 200
csy( 147) = 199
csy( 148) = 197
csy( 149) = 195
csy( 150) = 193
csy( 151) = 191
csy( 152) = 189
csy( 153) = 187
csy( 154) = 185
csy( 155) = 183
csy( 156) = 181
csy( 157) = 179
csy( 158) = 177
csy( 159) = 175
csy( 160) = 173
csy( 161) = 171
csy( 162) = 169
csy( 163) = 167
csy( 164) = 165
csy( 165) = 163
csy( 166) = 160
csy( 167) = 158
csy( 168) = 156
csy( 169) = 154
csy( 170) = 152
csy( 171) = 150
csy( 172) = 147
csy( 173) = 145
csy( 174) = 143
csy( 175) = 141
csy( 176) = 139
csy( 177) = 136
csy( 178) = 134
csy( 179) = 132
csy( 180) = 130
csy( 181) = 128
csy( 182) = 125
csy( 183) = 123
csy( 184) = 121
csy( 185) = 119
csy( 186) = 116
csy( 187) = 114
csy( 188) = 112
csy( 189) = 110
csy( 190) = 108
csy( 191) = 105
csy( 192) = 103
csy( 193) = 101
csy( 194) = 99
csy( 195) = 97
csy( 196) = 95
csy( 197) = 92
csy( 198) = 90
csy( 199) = 88
csy( 200) = 86
csy( 201) = 84
csy( 202) = 82
csy( 203) = 80
csy( 204) = 78
csy( 205) = 76
csy( 206) = 74
csy( 207) = 72
csy( 208) = 70
csy( 209) = 68
csy( 210) = 66
csy( 211) = 64
csy( 212) = 62
csy( 213) = 60
csy( 214) = 58
csy( 215) = 56
csy( 216) = 55
csy( 217) = 53
csy( 218) = 51
csy( 219) = 49
csy( 220) = 48
csy( 221) = 46
csy( 222) = 44
csy( 223) = 43
csy( 224) = 41
csy( 225) = 39
csy( 226) = 38
csy( 227) = 36
csy( 228) = 35
csy( 229) = 33
csy( 230) = 32
csy( 231) = 30
csy( 232) = 29
csy( 233) = 27
csy( 234) = 26
csy( 235) = 25
csy( 236) = 23
csy( 237) = 22
csy( 238) = 21
csy( 239) = 20
csy( 240) = 19
csy( 241) = 18
csy( 242) = 16
csy( 243) = 15
csy( 244) = 14
csy( 245) = 13
csy( 246) = 12
csy( 247) = 11
csy( 248) = 11
csy( 249) = 10
csy( 250) = 9
csy( 251) = 8
csy( 252) = 7
csy( 253) = 7
csy( 254) = 6
csy( 255) = 5
csy( 256) = 5
csy( 257) = 4
csy( 258) = 4
csy( 259) = 3
csy( 260) = 3
csy( 261) = 2
csy( 262) = 2
csy( 263) = 2
csy( 264) = 1
csy( 265) = 1
csy( 266) = 1
csy( 267) = 1
csy( 268) = 1
csy( 269) = 1
csy( 270) = 1
csy( 271) = 1
csy( 272) = 1
csy( 273) = 1
csy( 274) = 1
csy( 275) = 1
csy( 276) = 1
csy( 277) = 1
csy( 278) = 1
csy( 279) = 2
csy( 280) = 2
csy( 281) = 2
csy( 282) = 3
csy( 283) = 3
csy( 284) = 4
csy( 285) = 4
csy( 286) = 5
csy( 287) = 5
csy( 288) = 6
csy( 289) = 7
csy( 290) = 7
csy( 291) = 8
csy( 292) = 9
csy( 293) = 10
csy( 294) = 11
csy( 295) = 11
csy( 296) = 12
csy( 297) = 13
csy( 298) = 14
csy( 299) = 15
csy( 300) = 16
csy( 301) = 18
csy( 302) = 19
csy( 303) = 20
csy( 304) = 21
csy( 305) = 22
csy( 306) = 23
csy( 307) = 25
csy( 308) = 26
csy( 309) = 27
csy( 310) = 29
csy( 311) = 30
csy( 312) = 32
csy( 313) = 33
csy( 314) = 35
csy( 315) = 36
csy( 316) = 38
csy( 317) = 39
csy( 318) = 41
csy( 319) = 43
csy( 320) = 44
csy( 321) = 46
csy( 322) = 48
csy( 323) = 49
csy( 324) = 51
csy( 325) = 53
csy( 326) = 55
csy( 327) = 56
csy( 328) = 58
csy( 329) = 60
csy( 330) = 62
csy( 331) = 64
csy( 332) = 66
csy( 333) = 68
csy( 334) = 70
csy( 335) = 72
csy( 336) = 74
csy( 337) = 76
csy( 338) = 78
csy( 339) = 80
csy( 340) = 82
csy( 341) = 84
csy( 342) = 86
csy( 343) = 88
csy( 344) = 90
csy( 345) = 92
csy( 346) = 95
csy( 347) = 97
csy( 348) = 99
csy( 349) = 101
csy( 350) = 103
csy( 351) = 105
csy( 352) = 108
csy( 353) = 110
csy( 354) = 112
csy( 355) = 114
csy( 356) = 116
csy( 357) = 119
csy( 358) = 121
csy( 359) = 123
csy( 360) = 125
csy( 361) = 127
csy( 362) = 130
csy( 363) = 132
csy( 364) = 134
csy( 365) = 136
csy( 366) = 139
csy( 367) = 141
csy( 368) = 143
csy( 369) = 145
csy( 370) = 147
csy( 371) = 150
csy( 372) = 152
csy( 373) = 154
csy( 374) = 156
csy( 375) = 158
csy( 376) = 160
csy( 377) = 163
csy( 378) = 165
csy( 379) = 167
csy( 380) = 169
csy( 381) = 171
csy( 382) = 173
csy( 383) = 175
csy( 384) = 177
csy( 385) = 179
csy( 386) = 181
csy( 387) = 183
csy( 388) = 185
csy( 389) = 187
csy( 390) = 189
csy( 391) = 191
csy( 392) = 193
csy( 393) = 195
csy( 394) = 197
csy( 395) = 199
csy( 396) = 200
csy( 397) = 202
csy( 398) = 204
csy( 399) = 206
csy( 400) = 207
csy( 401) = 209
csy( 402) = 211
csy( 403) = 212
csy( 404) = 214
csy( 405) = 216
csy( 406) = 217
csy( 407) = 219
csy( 408) = 220
csy( 409) = 222
csy( 410) = 223
csy( 411) = 225
csy( 412) = 226
csy( 413) = 228
csy( 414) = 229
csy( 415) = 230
csy( 416) = 232
csy( 417) = 233
csy( 418) = 234
csy( 419) = 235
csy( 420) = 236
csy( 421) = 237
csy( 422) = 239
csy( 423) = 240
csy( 424) = 241
csy( 425) = 242
csy( 426) = 243
csy( 427) = 244
csy( 428) = 244
csy( 429) = 245
csy( 430) = 246
csy( 431) = 247
csy( 432) = 248
csy( 433) = 248
csy( 434) = 249
csy( 435) = 250
csy( 436) = 250
csy( 437) = 251
csy( 438) = 251
csy( 439) = 252
csy( 440) = 252
csy( 441) = 253
csy( 442) = 253
csy( 443) = 253
csy( 444) = 254
csy( 445) = 254
csy( 446) = 254
csy( 447) = 254
csy( 448) = 254
csy( 449) = 254
csy( 450) = 254
csy( 451) = 255
csy( 452) = 254
csy( 453) = 254
csy( 454) = 254
csy( 455) = 254
csy( 456) = 254
csy( 457) = 254
csy( 458) = 254
csy( 459) = 253
csy( 460) = 253
csy( 461) = 253
csy( 462) = 252
csy( 463) = 252
csy( 464) = 251
csy( 465) = 251
csy( 466) = 250
csy( 467) = 250
csy( 468) = 249
csy( 469) = 248
csy( 470) = 248
csy( 471) = 247
csy( 472) = 246
csy( 473) = 245
csy( 474) = 244
csy( 475) = 244
csy( 476) = 243
csy( 477) = 242
csy( 478) = 241
csy( 479) = 240
csy( 480) = 239
csy( 481) = 237
csy( 482) = 236
csy( 483) = 235
csy( 484) = 234
csy( 485) = 233
csy( 486) = 232
csy( 487) = 230
csy( 488) = 229
csy( 489) = 228
csy( 490) = 226
csy( 491) = 225
csy( 492) = 223
csy( 493) = 222
csy( 494) = 220
csy( 495) = 219
csy( 496) = 217
csy( 497) = 216
csy( 498) = 214
csy( 499) = 212
csy( 500) = 211
csy( 501) = 209
csy( 502) = 207
csy( 503) = 206
csy( 504) = 204
csy( 505) = 202
csy( 506) = 200
csy( 507) = 199
csy( 508) = 197
csy( 509) = 195
csy( 510) = 193
csy( 511) = 191
csy( 512) = 189
csy( 513) = 187
csy( 514) = 185
csy( 515) = 183
csy( 516) = 181
csy( 517) = 179
csy( 518) = 177
csy( 519) = 175
csy( 520) = 173
csy( 521) = 171
csy( 522) = 169
csy( 523) = 167
csy( 524) = 165
csy( 525) = 163
csy( 526) = 160
csy( 527) = 158
csy( 528) = 156
csy( 529) = 154
csy( 530) = 152
csy( 531) = 150
csy( 532) = 147
csy( 533) = 145
csy( 534) = 143
csy( 535) = 141
csy( 536) = 139
csy( 537) = 136
csy( 538) = 134
csy( 539) = 132
csy( 540) = 130
csy( 541) = 128
csy( 542) = 125
csy( 543) = 123
csy( 544) = 121
csy( 545) = 119
csy( 546) = 116
csy( 547) = 114
csy( 548) = 112
csy( 549) = 110
csy( 550) = 108
csy( 551) = 105
csy( 552) = 103
csy( 553) = 101
csy( 554) = 99
csy( 555) = 97
csy( 556) = 95
csy( 557) = 92
csy( 558) = 90
csy( 559) = 88
csy( 560) = 86
csy( 561) = 84
csy( 562) = 82
csy( 563) = 80
csy( 564) = 78
csy( 565) = 76
csy( 566) = 74
csy( 567) = 72
csy( 568) = 70
csy( 569) = 68
csy( 570) = 66
csy( 571) = 64
csy( 572) = 62
csy( 573) = 60
csy( 574) = 58
csy( 575) = 56
csy( 576) = 55
csy( 577) = 53
csy( 578) = 51
csy( 579) = 49
csy( 580) = 48
csy( 581) = 46
csy( 582) = 44
csy( 583) = 43
csy( 584) = 41
csy( 585) = 39
csy( 586) = 38
csy( 587) = 36
csy( 588) = 35
csy( 589) = 33
csy( 590) = 32
csy( 591) = 30
csy( 592) = 29
csy( 593) = 27
csy( 594) = 26
csy( 595) = 25
csy( 596) = 23
csy( 597) = 22
csy( 598) = 21
csy( 599) = 20
csy( 600) = 19
csy( 601) = 18
csy( 602) = 16
csy( 603) = 15
csy( 604) = 14
csy( 605) = 13
csy( 606) = 12
csy( 607) = 11
csy( 608) = 11
csy( 609) = 10
csy( 610) = 9
csy( 611) = 8
csy( 612) = 7
csy( 613) = 7
csy( 614) = 6
csy( 615) = 5
csy( 616) = 5
csy( 617) = 4
csy( 618) = 4
csy( 619) = 3
csy( 620) = 3
csy( 621) = 2
csy( 622) = 2
csy( 623) = 2
csy( 624) = 1
csy( 625) = 1
csy( 626) = 1
csy( 627) = 1
csy( 628) = 1
csy( 629) = 1
csy( 630) = 1
csy( 631) = 1
csy( 632) = 1
csy( 633) = 1
csy( 634) = 1
csy( 635) = 1
csy( 636) = 1
csy( 637) = 1
csy( 638) = 1
csy( 639) = 2
csy( 640) = 2
csy( 641) = 2
csy( 642) = 3
csy( 643) = 3
csy( 644) = 4
csy( 645) = 4
csy( 646) = 5
csy( 647) = 5
csy( 648) = 6
csy( 649) = 7
csy( 650) = 7
csy( 651) = 8
csy( 652) = 9
csy( 653) = 10
csy( 654) = 11
csy( 655) = 11
csy( 656) = 12
csy( 657) = 13
csy( 658) = 14
csy( 659) = 15
csy( 660) = 16
csy( 661) = 18
csy( 662) = 19
csy( 663) = 20
csy( 664) = 21
csy( 665) = 22
csy( 666) = 23
csy( 667) = 25
csy( 668) = 26
csy( 669) = 27
csy( 670) = 29
csy( 671) = 30
csy( 672) = 32
csy( 673) = 33
csy( 674) = 35
csy( 675) = 36
csy( 676) = 38
csy( 677) = 39
csy( 678) = 41
csy( 679) = 43
csy( 680) = 44
csy( 681) = 46
csy( 682) = 48
csy( 683) = 49
csy( 684) = 51
csy( 685) = 53
csy( 686) = 55
csy( 687) = 56
csy( 688) = 58
csy( 689) = 60
csy( 690) = 62
csy( 691) = 64
csy( 692) = 66
csy( 693) = 68
csy( 694) = 70
csy( 695) = 72
csy( 696) = 74
csy( 697) = 76
csy( 698) = 78
csy( 699) = 80
csy( 700) = 82
csy( 701) = 84
csy( 702) = 86
csy( 703) = 88
csy( 704) = 90
csy( 705) = 92
csy( 706) = 95
csy( 707) = 97
csy( 708) = 99
csy( 709) = 101
csy( 710) = 103
csy( 711) = 105
csy( 712) = 108
csy( 713) = 110
csy( 714) = 112
csy( 715) = 114
csy( 716) = 116
csy( 717) = 119
csy( 718) = 121
csy( 719) = 123
csy( 720) = 125
csy( 721) = 127
Portb.1 = 0
Portb.2 = 0
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
'Compare1a Portb1
'Compare1b Portb2
Do
For X = 1 To 361 Step 8
Compare1a = Csy(x)
Compare1b = Csy(x + 180)
Next X
Loop
[/code]
