谁有OshonSoft注册机?可以帮我到sonsivr去下吗?

korren

有帐号的朋友可以帮我一下吗?
下载地址如下:http://www.sonsivri.to/forum/index.php?topic=20837.75
谢谢!

korren

这个软件正版的也不贵(17欧元)只是购买不了.

korren

打算用PIC16F1455按官网的资料做个编程器

korren

Define CLOCK_FREQUENCY = 16
Define CONFIG1 = 0x0f84
Define CONFIG2 = 0x1def
OSCCON = 0x3c  'intosc=16mhz

UsbSetVendorId 0x2345
UsbSetProductId 0x2345
UsbSetVersionNumber 0x1122
UsbSetManufacturerString "OshonSoft.com"
UsbSetProductString "OshonSoft.com USB Pro Programmer"
UsbSetSerialNumberString "1111111111"
UsbOnIoInGosub input_report_before_sending
UsbOnIoOutGosub output_report_received
UsbOnFtInGosub feature_report_before_sending
UsbOnFtOutGosub feature_report_received

AllDigital
Symbol led = PORTC.4
TRISC.4 = 0
led = 0

Symbol clock = PORTC.3
Symbol data = PORTC.2
Symbol vpp = PORTC.1
Symbol vdd = PORTC.0
Symbol datadir = TRISC.2

Symbol reset = PORTC.0
Symbol sck = PORTC.1
Symbol mosi = PORTC.2
Symbol miso = PORTC.3

Gosub picinit
UsbStart

Dim picprogtime As Byte
picprogtime = 10

Dim bit1 As Bit
Dim byte1 As Byte
Dim word1 As Word
bit1 = 0
byte1 = 0
word1 = 0
Dim in1 As Byte

loop:
        UsbService
Goto loop
End                                               

output_report_received:
in1 = UsbIoBuffer(0)

If in1 = 101 Then
        led = 1
        Gosub picinit
        WaitMs 100
        Gosub picentervddvpp
Endif
If in1 = 102 Then
        led = 1
        Gosub picinit
        WaitMs 100
        Gosub picentervppvdd
Endif
If in1 = 103 Then
        led = 0
        Gosub picexitvddvpp
Endif
If in1 = 104 Then
        byte1 = UsbIoBuffer(1)
        Gosub picsend6
Endif
If in1 = 105 Then
        word1.LB = UsbIoBuffer(1)
        word1.HB = UsbIoBuffer(2)
        Gosub picsend14
Endif
If in1 = 106 Then
        Gosub picget14
        UsbIoBuffer(1) = word1.LB
        UsbIoBuffer(2) = word1.HB
        word1 = 0
Endif
If in1 = 107 Then
        byte1 = UsbIoBuffer(1)
        Gosub picsend4
Endif
If in1 = 108 Then
        word1.LB = UsbIoBuffer(1)
        word1.HB = UsbIoBuffer(2)
        Gosub picsend16
Endif
If in1 = 109 Then
        Gosub picstartprog
Endif
If in1 = 110 Then
        Gosub picget8
        UsbIoBuffer(1) = byte1
        byte1 = 0
Endif
If in1 = 111 Then
        picprogtime = UsbIoBuffer(1)
Endif

If in1 = 201 Then
        led = 1
        Gosub avrinit
        WaitMs 100
        Gosub avrenterprog
Endif
If in1 = 202 Then
        led = 0
        Gosub avrexitprog
Endif
If in1 = 203 Then
        byte1 = UsbIoBuffer(1)
        Gosub avrsend8
Endif
If in1 = 204 Then
        Gosub avrget8
        UsbIoBuffer(1) = byte1
        byte1 = 0
Endif
Return                                            

picinit:
TRISC.0 = 0
TRISC.1 = 0
TRISC.2 = 0
TRISC.3 = 0
clock = 0
data = 0
vdd = 0
vpp = 0
Return                                            

picsend4:
bit1 = byte1.0
Gosub picsend1
bit1 = byte1.1
Gosub picsend1
bit1 = byte1.2
Gosub picsend1
bit1 = byte1.3
Gosub picsend1
byte1 = 0
Return                                            

picsend6:
bit1 = byte1.0
Gosub picsend1
bit1 = byte1.1
Gosub picsend1
bit1 = byte1.2
Gosub picsend1
bit1 = byte1.3
Gosub picsend1
bit1 = byte1.4
Gosub picsend1
bit1 = byte1.5
Gosub picsend1
byte1 = 0
Return                                            

picsend14:
bit1 = 0
Gosub picsend1
byte1 = word1.LB
Gosub picsend6
byte1 = word1.LB
bit1 = byte1.6
Gosub picsend1
bit1 = byte1.7
Gosub picsend1
byte1 = word1.HB
Gosub picsend6
bit1 = 0
Gosub picsend1
word1 = 0
Return                                            

picsend16:
byte1 = word1.LB
Gosub picsend6
byte1 = word1.LB
bit1 = byte1.6
Gosub picsend1
bit1 = byte1.7
Gosub picsend1
byte1 = word1.HB
Gosub picsend6
byte1 = word1.HB
bit1 = byte1.6
Gosub picsend1
bit1 = byte1.7
Gosub picsend1
byte1 = 0
word1 = 0
Return                                            

picsend1:
Gosub picclock1
If bit1 = 1 Then
        data = 1
Else
        data = 0
Endif
Gosub picclock0
data = 0
bit1 = 0
Return                                            

picstartprog:
data = 0
For byte1 = 1 To 3
        Gosub picclock1
        Gosub picclock0
Next byte1
Gosub picclock1
WaitMs picprogtime
Gosub picclock0
WaitUs 200
For byte1 = 1 To 16
        Gosub picclock1
        Gosub picclock0
Next byte1
Return                                            

picget8:
For byte1 = 1 To 8
        Gosub picclock1
        Gosub picclock0
Next byte1
datadir = 1
byte1 = 0
Gosub picget1
byte1.0 = bit1
Gosub picget1
byte1.1 = bit1
Gosub picget1
byte1.2 = bit1
Gosub picget1
byte1.3 = bit1
Gosub picget1
byte1.4 = bit1
Gosub picget1
byte1.5 = bit1
Gosub picget1
byte1.6 = bit1
Gosub picget1
byte1.7 = bit1
bit1 = 0
data = 0
datadir = 0
Return                                            

picget14:
datadir = 1
word1 = 0
byte1 = 0
Gosub picget1
bit1 = 0
Gosub picget1
byte1.0 = bit1
Gosub picget1
byte1.1 = bit1
Gosub picget1
byte1.2 = bit1
Gosub picget1
byte1.3 = bit1
Gosub picget1
byte1.4 = bit1
Gosub picget1
byte1.5 = bit1
Gosub picget1
byte1.6 = bit1
Gosub picget1
byte1.7 = bit1
word1.LB = byte1
byte1 = 0
Gosub picget1
byte1.0 = bit1
Gosub picget1
byte1.1 = bit1
Gosub picget1
byte1.2 = bit1
Gosub picget1
byte1.3 = bit1
Gosub picget1
byte1.4 = bit1
Gosub picget1
byte1.5 = bit1
word1.HB = byte1
byte1 = 0
Gosub picget1
bit1 = 0
data = 0
datadir = 0
Return                                            

picget1:
Gosub picclock1
bit1 = data
Gosub picclock0
Return                                            

picentervddvpp:
vdd = 1
WaitMs 50
vpp = 1
WaitMs 50
Return                                            

picentervppvdd:
vpp = 1
WaitMs 50
vdd = 1
WaitMs 50
Return                                            

picexitvddvpp:
vdd = 0
WaitMs 50
vpp = 0
WaitMs 50
Return                                            

picclock1:
WaitUs 3
clock = 1
WaitUs 3
Return                                            

picclock0:
WaitUs 3
clock = 0
WaitUs 3
Return                                            

avrinit:
TRISC.0 = 0
TRISC.1 = 0
TRISC.2 = 0
TRISC.3 = 1
reset = 0
sck = 0
mosi = 0
Return                                            

avrsend8:
bit1 = byte1.7
Gosub avrsend1
bit1 = byte1.6
Gosub avrsend1
bit1 = byte1.5
Gosub avrsend1
bit1 = byte1.4
Gosub avrsend1
bit1 = byte1.3
Gosub avrsend1
bit1 = byte1.2
Gosub avrsend1
bit1 = byte1.1
Gosub avrsend1
bit1 = byte1.0
Gosub avrsend1
byte1 = 0
Return                                            

avrsend1:
If bit1 = 1 Then
        mosi = 1
Else
        mosi = 0
Endif
Gosub avrclock1
Gosub avrclock0
mosi = 0
bit1 = 0
Return                                            

avrget8:
byte1 = 0
Gosub avrget1
byte1.7 = bit1
Gosub avrget1
byte1.6 = bit1
Gosub avrget1
byte1.5 = bit1
Gosub avrget1
byte1.4 = bit1
Gosub avrget1
byte1.3 = bit1
Gosub avrget1
byte1.2 = bit1
Gosub avrget1
byte1.1 = bit1
Gosub avrget1
byte1.0 = bit1
bit1 = 0
Return                                            

avrget1:
Gosub avrclock1
bit1 = miso
Gosub avrclock0
Return                                            

avrenterprog:
sck = 0
mosi = 0
reset = 1
WaitMs 10
reset = 0
WaitMs 50
Return                                            

avrexitprog:
sck = 0
mosi = 0
reset = 1
WaitMs 10
Return                                            

avrclock1:
WaitUs 1
sck = 1
WaitUs 1
Return                                            

avrclock0:
WaitUs 1
sck = 0
WaitUs 1
Return                                            

input_report_before_sending:
Return                                            

feature_report_received:
Return                                            

feature_report_before_sending:
Return                                            

有谁可以帮编译一个HEX文件

korren

编程器资料

GunGun

我下了，发现论坛没有办法上传？

korren

可以上传的

korren

GunGun 发表于 2016-11-27 17:13
我下了，发现论坛没有办法上传？

可以再试试上传吗？非常感谢！

korren

GunGun 发表于 2016-11-27 17:13
我下了，发现论坛没有办法上传？

点击附件上传图标就可以上传附件了.

GunGun

看下是不是你要的？文件全来自sonsivri，我只是搬运工，喜欢的请支持正版。

GunGun

还有一个描述文件。

GunGun

korren 发表于 2016-11-27 19:50
点击附件上传图标就可以上传附件了.

你用的什么浏览器？我用FIREFOX不行，但IE可以。

korren

GunGun 发表于 2016-11-28 07:29
你用的什么浏览器？我用FIREFOX不行，但IE可以。

我用uc浏览器

korren

GunGun 发表于 2016-11-28 07:25
看下是不是你要的？文件全来自sonsivri，我只是搬运工，喜欢的请支持正版。 ...

非常感谢,GunGun

korren

这个版本编译后仿真有问题,我还是花了17欧元(124.45RMB)买正版了.