Pic 18F4550

[akutisarizar]

dear all,

i have one project about connecting 18f4550 over usb and control it's pin status over pc sw. But there is no source file as example about it. If you can help . We will succseed

Best Regards,
A. Sarizar

[hate]

Microchip have the examples you need, look for 18f4550 applications on Microchip website!

Regards...

[akutisarizar]

any one doesnt have any source code as a sample .

[bbarney]

have a look here ,it's in pic basic pro
http://www.picbasic.co.uk/forum/showthread.php?t=5418

[Ahmad_k]

Install Proton Dev Suite and use the USB functions 

http://www.sonsivri.com/forum/index.php?topic=4267

[softjad]

CCS has several examples to work
 

[neteagle]

Check the microchip forum, ther are some very interssing stuff on the PIC18F4550 USB section.

[lek05134]

Emulating RS-232 over USB using the PIC18F4550
http://techtrain.microchip.com/webseminars/ArchivedDetail.aspx?Active=72

[Spashy]

I had an idea for a project that uses a USB interface. I had no idea about USB. The site that got me started was: http://pic18fusb.online.fr/wiki/wikka.php?wakka=PIC18Fxx5x

[fb2007]

...my approach on this:

- MikroC for the PIC
- HIDLIBRARY.DLL from Mike Obrian
- Visual Studio 2005

Exchange data with my USB device:

Private Sub ReadInternalADC()

        Dim InputData As HIDLibrary.HidDeviceData
        Dim i As Integer
        Dim OutputText As String
        Dim uInput As Integer


        '--> Enumerate the devices with the Vendor Id
        '--> and Product Id of the DDS Stuff
        HidDeviceList = HIDLibrary.HidDevices.Enumerate(&H1235, &H1)

        If HidDeviceList.Length > 0 Then

            HidDevice = HidDeviceList(0)

            '--> Check if connected...

            HidDevice.OpenDevice()

            Dim OutData As Byte()

            ReDim OutData(HidDevice.Capabilities.OutputReportByteLength - 1)


            '--> Send a report to Device (8888888 is command to PIC to answer with data..)

            OutData(1) = Asc("8")
            OutData(2) = Asc("8")
            OutData(3) = Asc("8")
            OutData(4) = Asc("8")
            OutData(5) = Asc("8")
            OutData(6) = Asc("8")
            OutData(7) = Asc("8")
            OutData(Cool = Asc("8")

            HidDevice.Write(OutData)
            InputData = HidDevice.Read
            OutputText = ""

            For i = 1 To 5
                OutputText = OutputText + Chr(InputData.Data(i))
            Next

            uInput = Int((Val(OutputText) * 4.7 / 1.024) + 0.5)    ' convert Text answer (ADC) to Voltage

        End If

    End Sub

[iphone]

fb2007,

Will  you share the complete & working package ( including schemartic, hex, vc, driver, guide and tips) ?