Ignore:
Timestamp:
04/06/10 17:30:53 (15 years ago)
Author:
pinwc4
Message:

Added logic to desktop application, nothing function yet though

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/desktop/ICSSerialPort.rbbas

    r6 r9  
    103103                Sub calculateChecksum() 
    104104                  //Use this to calculate byte 18, the checksum 
     105                   
     106                  valuesChanged() 
     107                End Sub 
     108        #tag EndMethod 
     109 
     110        #tag Method, Flags = &h0 
     111                Sub readCar() 
     112                  //Read values from the currently attached car 
    105113                End Sub 
    106114        #tag EndMethod 
    … …  
    119127                ASF 
    120128                AD 
    121                  
    122                  
    123                  
    124129        #tag EndNote 
    125130 
    … …  
    197202        #tag EndProperty 
    198203 
    199         #tag Property, Flags = &h21 
    200                 Private carType As String = "MR-03" 
    201         #tag EndProperty 
    202  
    203  
     204        #tag Property, Flags = &h0 
     205                carType As String = "MR-03" 
     206        #tag EndProperty 
     207 
     208 
     209        #tag ViewBehavior 
     210                #tag ViewProperty 
     211                        Name="Name" 
     212                        Visible=true 
     213                        Group="ID" 
     214                        InheritedFrom="serial" 
     215                #tag EndViewProperty 
     216                #tag ViewProperty 
     217                        Name="Index" 
     218                        Visible=true 
     219                        Group="ID" 
     220                        Type="Integer" 
     221                        InheritedFrom="serial" 
     222                #tag EndViewProperty 
     223                #tag ViewProperty 
     224                        Name="Super" 
     225                        Visible=true 
     226                        Group="ID" 
     227                        InheritedFrom="serial" 
     228                #tag EndViewProperty 
     229                #tag ViewProperty 
     230                        Name="Left" 
     231                        Visible=true 
     232                        Group="Position" 
     233                        InheritedFrom="serial" 
     234                #tag EndViewProperty 
     235                #tag ViewProperty 
     236                        Name="Top" 
     237                        Visible=true 
     238                        Group="Position" 
     239                        InheritedFrom="serial" 
     240                #tag EndViewProperty 
     241                #tag ViewProperty 
     242                        Name="Baud" 
     243                        Visible=true 
     244                        Group="Behavior" 
     245                        InitialValue="13" 
     246                        Type="Integer" 
     247                        EditorType="Enum" 
     248                        InheritedFrom="serial" 
     249                        #tag EnumValues 
     250                                "0 - 300" 
     251                                "1 - 600" 
     252                                "2 - 1200" 
     253                                "3 - 1800" 
     254                                "4 - 2400" 
     255                                "5 - 3600" 
     256                                "6 - 4800" 
     257                                "7 - 7200" 
     258                                "8 - 9600" 
     259                                "9 - 14400" 
     260                                "10 - 19200" 
     261                                "11 - 28800" 
     262                                "12 - 38400" 
     263                                "13 - 57600" 
     264                                "14 - 115200" 
     265                                "15 - 230400" 
     266                        #tag EndEnumValues 
     267                #tag EndViewProperty 
     268                #tag ViewProperty 
     269                        Name="Bits" 
     270                        Visible=true 
     271                        Group="Behavior" 
     272                        InitialValue="3" 
     273                        Type="Integer" 
     274                        EditorType="Enum" 
     275                        InheritedFrom="serial" 
     276                        #tag EnumValues 
     277                                "0 - 5 Data Bits" 
     278                                "1 - 6 Data Bits" 
     279                                "2 - 7 Data Bits" 
     280                                "3 - 8 Data bits" 
     281                        #tag EndEnumValues 
     282                #tag EndViewProperty 
     283                #tag ViewProperty 
     284                        Name="Parity" 
     285                        Visible=true 
     286                        Group="Behavior" 
     287                        InitialValue="0" 
     288                        Type="Integer" 
     289                        EditorType="Enum" 
     290                        InheritedFrom="serial" 
     291                        #tag EnumValues 
     292                                "0 - No Parity" 
     293                                "1 - Odd Parity" 
     294                                "2 - EvenParity" 
     295                        #tag EndEnumValues 
     296                #tag EndViewProperty 
     297                #tag ViewProperty 
     298                        Name="Stop" 
     299                        Visible=true 
     300                        Group="Behavior" 
     301                        InitialValue="0" 
     302                        Type="Integer" 
     303                        EditorType="Enum" 
     304                        InheritedFrom="serial" 
     305                        #tag EnumValues 
     306                                "0 - 1 Stop Bit" 
     307                                "1 - 1.5 Stop Bits" 
     308                                "2 - 2 Stop Bits" 
     309                        #tag EndEnumValues 
     310                #tag EndViewProperty 
     311                #tag ViewProperty 
     312                        Name="XON" 
     313                        Visible=true 
     314                        Group="Behavior" 
     315                        Type="Boolean" 
     316                        InheritedFrom="serial" 
     317                #tag EndViewProperty 
     318                #tag ViewProperty 
     319                        Name="CTS" 
     320                        Visible=true 
     321                        Group="Behavior" 
     322                        Type="Boolean" 
     323                        InheritedFrom="serial" 
     324                #tag EndViewProperty 
     325                #tag ViewProperty 
     326                        Name="DTR" 
     327                        Visible=true 
     328                        Group="Behavior" 
     329                        Type="Boolean" 
     330                        InheritedFrom="serial" 
     331                #tag EndViewProperty 
     332                #tag ViewProperty 
     333                        Name="byte01" 
     334                        Group="Behavior" 
     335                        InitialValue="&hFF" 
     336                        Type="String" 
     337                #tag EndViewProperty 
     338                #tag ViewProperty 
     339                        Name="byte11" 
     340                        Group="Behavior" 
     341                        Type="String" 
     342                #tag EndViewProperty 
     343                #tag ViewProperty 
     344                        Name="byte12" 
     345                        Group="Behavior" 
     346                        Type="String" 
     347                #tag EndViewProperty 
     348                #tag ViewProperty 
     349                        Name="byte13" 
     350                        Group="Behavior" 
     351                        Type="String" 
     352                #tag EndViewProperty 
     353                #tag ViewProperty 
     354                        Name="byte14" 
     355                        Group="Behavior" 
     356                        Type="String" 
     357                #tag EndViewProperty 
     358                #tag ViewProperty 
     359                        Name="byte15" 
     360                        Group="Behavior" 
     361                        Type="String" 
     362                #tag EndViewProperty 
     363                #tag ViewProperty 
     364                        Name="byte16" 
     365                        Group="Behavior" 
     366                        Type="String" 
     367                #tag EndViewProperty 
     368                #tag ViewProperty 
     369                        Name="byte17" 
     370                        Group="Behavior" 
     371                        Type="String" 
     372                #tag EndViewProperty 
     373                #tag ViewProperty 
     374                        Name="byte18" 
     375                        Group="Behavior" 
     376                        Type="String" 
     377                #tag EndViewProperty 
     378                #tag ViewProperty 
     379                        Name="byte02" 
     380                        Group="Behavior" 
     381                        Type="String" 
     382                #tag EndViewProperty 
     383                #tag ViewProperty 
     384                        Name="byte03" 
     385                        Group="Behavior" 
     386                        Type="String" 
     387                #tag EndViewProperty 
     388                #tag ViewProperty 
     389                        Name="byte04" 
     390                        Group="Behavior" 
     391                        Type="String" 
     392                #tag EndViewProperty 
     393                #tag ViewProperty 
     394                        Name="byte05" 
     395                        Group="Behavior" 
     396                        Type="String" 
     397                #tag EndViewProperty 
     398                #tag ViewProperty 
     399                        Name="byte06" 
     400                        Group="Behavior" 
     401                        Type="String" 
     402                #tag EndViewProperty 
     403                #tag ViewProperty 
     404                        Name="byte07" 
     405                        Group="Behavior" 
     406                        Type="String" 
     407                #tag EndViewProperty 
     408                #tag ViewProperty 
     409                        Name="byte08" 
     410                        Group="Behavior" 
     411                        Type="String" 
     412                #tag EndViewProperty 
     413                #tag ViewProperty 
     414                        Name="byte09" 
     415                        Group="Behavior" 
     416                        Type="String" 
     417                #tag EndViewProperty 
     418                #tag ViewProperty 
     419                        Name="byte10" 
     420                        Group="Behavior" 
     421                        Type="String" 
     422                #tag EndViewProperty 
     423        #tag EndViewBehavior 
    204424End Class 
    205425#tag EndClass 
Note: See TracChangeset for help on using the changeset viewer.