Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <pre><code>Structure LimitedInt Implements IComparable(Of LimitedInt) Implements IEquatable(Of LimitedInt) Private m_Value As Integer 'treat the default, 0 as being really 1' Public ReadOnly Property Value() As Integer Get Return If(m_Value = 0, 1, m_Value) End Get End Property Public Sub New(ByVal value As Integer) If value &lt; 1 Or value &gt; 10 Then Throw New ArgumentOutOfRangeException("value") End If m_Value = value End Sub Public Function CompareTo(ByVal other As LimitedInt) As Integer _ Implements System.IComparable(Of LimitedInt).CompareTo Return Me.Value - other.Value End Function Public Overloads Function Equals(ByVal other As LimitedInt) As Boolean _ Implements System.IEquatable(Of LimitedInt).Equals Return Me.Value = other.Value End Function Public Overrides Function GetHashCode() As Integer Return Value.GetHashCode End Function Public Overrides Function Equals(ByVal obj As Object) As Boolean If TypeOf obj Is LimitedInt Then Return CType(obj, LimitedInt) = Me End Function Public Shared Operator =(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Boolean Return left.Equals(right) End Operator Public Shared Operator &lt;&gt;(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Boolean Return Not (left = right) End Operator Public Shared Operator +(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value + right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator -(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value - right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator *(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value * right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator /(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Double Return left.Value / right.Value End Operator Public Shared Operator \(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value \ right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator Mod(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value Mod right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator And(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value And right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator Or(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value Or right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator Xor(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As LimitedInt Dim temp As Integer = left.Value Xor right.Value Select Case temp Case 1 To 10 : Return New LimitedInt(temp) Case Else : Throw New OverflowException End Select End Operator Public Shared Operator ^(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Double Return left.Value ^ right.Value End Operator Public Shared Operator &lt;(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Boolean Return left.Value &lt; right.Value End Operator Public Shared Operator &gt;(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Boolean Return left.Value &gt; right.Value End Operator Public Shared Operator &lt;=(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Boolean Return left.Value &lt;= right.Value End Operator Public Shared Operator &gt;=(ByVal left As LimitedInt, _ ByVal right As LimitedInt) As Boolean Return left.Value &gt;= right.Value End Operator Public Shared Widening Operator CType(ByVal left As LimitedInt) As Integer Return left.Value End Operator Public Shared Narrowing Operator CType(ByVal left As Integer) As LimitedInt Return New LimitedInt(left) End Operator End Structure </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POHow to I create my own primitive data type in .NET?
      singulars
      1. PTQuestion
    1. PTAnswer
    1. USShog9
    1. USJonathan Allen
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POHow to I create my own primitive data type in .NET?
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTDownMod
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTDownMod
    1. COAre you fishing for upvotes?
      singulars
      1. PO
      1. USdalle
    2. COWhy use an Integer when you can use a Byte? It amazes me.
      singulars
      1. PO
      1. USpyon
    3. COPuke...VB is so ugly on SO.
      singulars
      1. PO
      1. USFlySwat
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload