Sprawl fucked around with this message at 07:21 on Apr 20, 2010

dwazegek fucked around with this message at 08:31 on Apr 20, 2010

<Application.Resources>
		<!-- Resources scoped at the Application level should be defined here. -->
		<ControlTemplate x:Key="WindowTemplateKey" TargetType="{x:Type Window}">
			<Border Background="{TemplateBinding Background}" BorderBrush="{TemplateBinding BorderBrush}" 
                         BorderThickness="{TemplateBinding BorderThickness}">
				<Grid>
					<AdornerDecorator>
						<ContentPresenter/>
					</AdornerDecorator>
					<ResizeGrip x:Name="WindowResizeGrip" HorizontalAlignment="Right" 
                                         VerticalAlignment="Bottom" IsTabStop="false" Visibility="Collapsed"/>
				</Grid>
			</Border>
			<ControlTemplate.Triggers>
				<MultiTrigger>
					<MultiTrigger.Conditions>
						<Condition Property="ResizeMode" Value="CanResizeWithGrip"/>
						<Condition Property="WindowState" Value="Normal"/>
					</MultiTrigger.Conditions>
					<Setter Property="Visibility" TargetName="WindowResizeGrip" Value="Visible"/>
				</MultiTrigger>
			</ControlTemplate.Triggers>
		</ControlTemplate>
		<Style TargetType="{x:Type Window}">
			<Setter Property="Foreground" 
                         Value="{DynamicResource {x:Static SystemColors.WindowTextBrushKey}}"/>
			<Setter Property="Background" Value="{DynamicResource {x:Static SystemColors.WindowBrushKey}}"/>
			
			<Setter Property="Template">			
				<Setter.Value>
					<ControlTemplate TargetType="{x:Type Window}">
						<Border Background="{TemplateBinding Background}" 
                                                 BorderBrush="{TemplateBinding BorderBrush}"
                                                 BorderThickness="{TemplateBinding BorderThickness}">
							<AdornerDecorator>
								<ContentPresenter/>
							</AdornerDecorator>
						</Border>
					</ControlTemplate>
				</Setter.Value>
			</Setter>
			<Setter Property="FontSize" Value="11"/>
			<Style.Triggers>
				<Trigger Property="ResizeMode" Value="CanResizeWithGrip">
					<Setter Property="Template" Value="{StaticResource WindowTemplateKey}"/>
				</Trigger>
			</Style.Triggers>
		</Style>
	</Application.Resources>

<Window
	xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
	xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
	x:Class="WpfApplication1.MainWindow"
	x:Name="Window"
	Title="MainWindow"
	Width="640" Height="480" 
	Template="{DynamicResource WindowTemplateKey}">

	<Grid x:Name="LayoutRoot">
		<Label Content="Text!" />
	</Grid>
</Window>

IcedPee fucked around with this message at 15:45 on Apr 23, 2010

IcedPee fucked around with this message at 20:41 on Apr 23, 2010

'Program Description: program to run a modified hotel resreveration system with customers names, etc
    Structure Customer
        Dim CustName As String
        Dim StartDate As String
        Dim LengthStay As Integer
        Dim Room As Integer
        Dim Bill As Double
    End Structure
    Private Sub btnDoSomething_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDoSomething.Click
        'main program
        'determine file to read
        Dim filename As String
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "Text Documents (*.TXT)|*.TXT"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.RestoreDirectory = True
        MsgBox("You selected " & OpenFileDialog1.FileName)
        filename = OpenFileDialog1.FileName
        'main program

        Dim Cust(40) As Customer

        'fill up the array

        Call LoadArray(filename, Cust)

        'dteremine which checkboxes were checked
        If chkAlphabetize.Checked = True Then Call Alpha(Cust)
        If chkAddCustomer.Checked = True Then Call newCust(Cust)
        'If chkSearch.Checked = True Then Call Search(custname)



        'if alphatize checkeboxes checked, sort ascending or descending
        'etc add more specific algorithym for each box after checkbox sub is created
  


    End Sub
    Sub newCust(ByRef Cust() As Customer)
        'description:adds a new customer to the array
        'input:custoimer name, length of stay, type of room, etc
        'output: the new customer and his/her information back into main program
        'resize the array, so there'[s blank spot at bototm of araay
        Dim index As Integer = Cust.GetUpperBound(0)
        ReDim Preserve Cust(index + 1)
        Cust(index + 1).CustName = InputBox("Enter name of Customer: <First Last>", _
                                            "Enter Name", "w")
        'may need to fix the name
        'add more input boxes, still need room type, nights staying, etc
        'calc their bill
        'Call PrintHeader()
        Call Alpha(Cust) 'cause alphabetaizeze subproduced has print array in it
    End Sub
    Sub Alpha(ByRef Cust() As Customer)
        'description: alphabetizes and sorts the output
        'input: cust
        'output:none
        'can modify this code for the sort by amount billed
        For pass As Integer = 1 To Cust.GetUpperBound(0) - 1
            For compare As Integer = 0 To Cust.GetUpperBound(0) - 1
                If Cust(compare).CustName.ToUpper > Cust(compare + 1).CustName.ToUpper Then
                    'perform a swap operation
                    Call swap(Cust(compare), Cust(compare + 1))
                End If
            Next
        Next
        'prin the sorted array
        'Call PrintArrays(Cust)
    End Sub
    Sub LoadArray(ByVal filename As String, ByRef Cust() As Customer)
        'description: filling up the array
        'inpout: taking 2 items as input, filename and list of customers as an array
        'output: sending the completed array back to the main program
        Dim counter As Integer = 0
        Dim line As String
        'open the file
        Dim sr As IO.StreamReader = IO.File.OpenText(filename)

        'begin the loop
        Do While sr.Peek <> -1
            'read from file
            line = sr.ReadLine
            'breka the line into smaller pieces
            Call parseLine(line, Cust, counter)
            counter += 1
        Loop
        'shrink the array bac kdown to the right size
        ReDim Preserve Cust(counter - 1)
        sr.Close()
    End Sub
    Sub printPerson(ByVal CustName() As Customer)
        'description:  'Print the customers and their bill
        'input: cust name, bill, lenght of stay
        'output: none
        Dim fmtStr As String = "{0, -20}{1, 15:C}"
        lstDisplay.Items.Add(String.Format(fmtStr, CustName))
    End Sub
End Class

thehandtruck fucked around with this message at 22:01 on Sep 12, 2011

    Sub printPerson(ByVal CustName() As Customer)
        'description:  'Print the customers and their bill
        'input: cust name, bill, lenght of stay
        'output: none
        Dim fmtStr As String = "{0, -20}{1, 15:C}"
        For Each Customer In CustName
            lstDisplay.Items.Add(String.Format(fmtStr, Customer.CustName, Customer.Bill))
        Next
    End Sub

    Sub Search(ByVal Cust() As Customer)
        Dim name = InputBox("Name of customer")
        Dim matches = From c In Cust Where c.CustName Like name
        lstDisplay.Items.Clear()
        printPerson(matches.ToArray)
    End Sub

Option Strict On

Public Class Form1

    'Program Description: program to run a modified hotel resreveration system with customers names, etc
    Class Customer
        Public CustName As String
        Public StartDate As String
        Public LengthStay As Integer
        Public Room As Integer
        Public Bill As Double

        Public Overrides Function ToString() As String
            Return String.Format("{0, -20}{1, 15:C}", CustName, Bill)
        End Function
    End Class

    Dim Customers As New SortedList(Of String, Customer)

    Function parseLine(ByVal line As String) As Customer
        Return New Customer With {.CustName = line, .StartDate = "today", .LengthStay = 3, .Room = 101, .Bill = 102.5}
    End Function

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "Text Documents (*.TXT)|*.TXT"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.RestoreDirectory = True

        Dim lines = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName).
            Split({vbCrLf, vbCr, vbLf}, StringSplitOptions.RemoveEmptyEntries)

        Customers.Clear()
        For Each line In lines
            Dim customer = parseLine(line)
            Customers.Add(customer.CustName, customer)
        Next
        ShowCustomers(Customers.Values)
    End Sub

    Sub ShowCustomers(ByVal cc As IEnumerable(Of Customer))
        lstDisplay.Items.Clear()
        lstDisplay.Items.AddRange(cc.ToArray())
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim name = InputBox("Enter name of Customer: <First Last>", "Enter Name", "John Doe")
        Dim customer = New Customer With {.CustName = name}
        Customers.Add(customer.CustName, customer)
        ShowCustomers(Customers.Values)
    End Sub

    Private Sub txtFilter_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFilter.TextChanged
        Dim matches = From c In Customers.Values Where c.CustName.Contains(txtFilter.Text)
        ShowCustomers(matches)
    End Sub
End Class

Dim lines = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName). _
            Split(New String() {vbCrLf, vbCr, vbLf}, StringSplitOptions.RemoveEmptyEntries)

ljw1004 fucked around with this message at 22:34 on Sep 12, 2011

Fiend fucked around with this message at 18:00 on Apr 28, 2010

Dim custname(60) As String

thehandtruck fucked around with this message at 00:01 on Apr 28, 2010