OS

This section is empty.

OS-VB.NET

QNX OPERATING SYSTEM

09/03/2010 09:02
Downloading Site: http://www.qnx.com/products/evaluation/ http://www.qnx.com/download/feature.html?programid=19603 http://www.qnx.com/download/feature.html?programid=19601 http://www.qnx.com/download/feature.html?programid=19602 Information Site: http://en.wikipedia.org/wiki/QNX

OS Exercise 1 - Input 5 Integers and sort it from Highest to Lowest.

15/12/2009 12:13
Solution: Public Class Form1     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Dim x As Integer         Dim mine As...

OS-JAVA

This section is empty.

OS-VISUAL C++

This section is empty.

Topic: OS

Date 10/03/2010

By den

Subject Plan 9 Information sites

Reply

http://www.osnews.com/story/15235/Investigating_the_Plan_9_Operating_System
http://encyclopediadramatica.com/Plan9
http://www.faqs.org/faqs/comp-os/plan9-faq/
http://plan9.bell-labs.com/plan9/index.html

Date 19/01/2010

By den

Subject duplication in VB.NET

Reply

Public Class main
Dim n, i, J, c As Integer
Dim count As Integer
Dim temp As Integer
Dim arrayelement(2) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
Label1.Visible = False

GroupBox3.Enabled = False
Button2.Enabled = False

End Sub
Sub why()
Dim index As Integer
Dim itemcount As Integer = ListBox1.Items.Count

If itemcount > 1 Then
Dim lastitem As String = ListBox1.Items(itemcount - 1)

For index = itemcount - 2 To 0 Step -1
If ListBox1.Items(index) = lastitem Then

ListBox1.Items.RemoveAt(index)
Label1.Text = ListBox1.Items(index)
Else
lastitem = ListBox1.Items(index)

End If
Next
End If
Label1.Visible = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
count = 1
c = 0



n = 5

ReDim arrayelement(n)

For i = 0 To n - 1
arrayelement(i) = InputBox("Enter the Integer:")
If arrayelement(i) < 10 Then
MsgBox("Oops less than 10.Program will end now!", vbInformation)
End
ElseIf arrayelement(i) > 100 Then

MsgBox("Oops the Integer is more than 100.Program will end now!", vbInformation)
End

Else

count = count + 1
c = c + 1

End If

Next





For J = 0 To n
For i = 1 To n
If arrayelement(i - 1) <= arrayelement(i) Then
temp = arrayelement(i - 1)
arrayelement(i - 1) = arrayelement(i)
arrayelement(i) = temp
End If
Next
Next
For i = 0 To n

ListView1.Items.Add(arrayelement(i))
ListBox1.Items.Add(arrayelement(i))
Next
ListView1.Items.RemoveAt(5)
ListBox1.Items.RemoveAt(5)
Button1.Enabled = False
Button2.Enabled = True
Button2.Focus()

Call why()




End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListView1.Items.Clear()
ListBox1.Items.Clear()
Label1.Visible = False
Button1.Enabled = True
Button2.Enabled = False
Button1.Focus()

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
End Class

Date 19/01/2010

By den

Subject FCFS IN VB.NET 2005

Reply

Public Class Form1
Dim a, b, c As Integer
Dim xx, yy As Integer




Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
End

End Sub
Sub we()
If TextBox1.Text.Length > 3 Then
TextBox8.Text = "Arrival Order inputted is higher than 3!"
ElseIf TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
TextBox8.Text = "Something is Empty"
Else



If TextBox1.Text = "123" Then
TextBox5.Text = TextBox2.Text
TextBox6.Text = TextBox3.Text
TextBox7.Text = TextBox4.Text
a = TextBox2.Text
b = TextBox3.Text
c = TextBox4.Text
xx = a + (a + b)
x.Text = xx / 3
yy = a + (a + (a + b)) + (a + (a + b) + (a + b + c))
y.Text = yy / 3
TextBox8.Text = "Successful attempt!"

ElseIf TextBox1.Text = "321" Then
TextBox5.Text = TextBox4.Text
TextBox6.Text = TextBox3.Text
TextBox7.Text = TextBox2.Text
a = TextBox2.Text
b = TextBox3.Text
c = TextBox4.Text
xx = 0 + c + (c + b)
x.Text = xx / 3
yy = c + (c + (c + b)) + (c + (c + b) + (c + b + a))
y.Text = yy / 3
TextBox8.Text = "Successful attempt!"
ElseIf TextBox1.Text = "231" Then
TextBox5.Text = TextBox3.Text
TextBox6.Text = TextBox4.Text
TextBox7.Text = TextBox2.Text

a = TextBox2.Text
b = TextBox3.Text
c = TextBox4.Text
xx = b + (b + c)
x.Text = xx / 3
yy = b + (b + (b + c)) + (b + (c + b) + (b + c + a))
y.Text = yy / 3
TextBox8.Text = "Successful attempt!"
ElseIf TextBox1.Text = "312" Then
TextBox5.Text = TextBox4.Text
TextBox6.Text = TextBox2.Text
TextBox7.Text = TextBox3.Text

a = TextBox2.Text
b = TextBox3.Text
c = TextBox4.Text
xx = c + (c + a)
x.Text = xx / 3
yy = c + (c + (c + a)) + (c + (c + a) + (c + a + b))
y.Text = yy / 3
TextBox8.Text = "Successful attempt!"
ElseIf TextBox1.Text = "213" Then
TextBox5.Text = TextBox3.Text
TextBox6.Text = TextBox2.Text
TextBox7.Text = TextBox4.Text
a = TextBox2.Text
b = TextBox3.Text
c = TextBox4.Text
xx = b + (b + a)
x.Text = xx / 3
yy = b + (b + (b + a)) + (b + (b + a) + (b + a + c))
y.Text = yy / 3
TextBox8.Text = "Successful attempt!"
ElseIf TextBox1.Text = "132" Then
TextBox5.Text = TextBox2.Text
TextBox6.Text = TextBox4.Text
TextBox7.Text = TextBox3.Text
a = TextBox2.Text
b = TextBox3.Text
c = TextBox4.Text
xx = a + (a + c)
x.Text = xx / 3
yy = a + (a + (a + c)) + (a + (a + c) + (a + c + b))
y.Text = yy / 3
TextBox8.Text = "Successful attempt!"
Else
TextBox8.Text = "Wrong Description of the Arrival Order"
End If
End If

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True





End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
x.Clear()
y.Clear()


End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Enabled = False

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Maximum = 100
If ProgressBar1.Value <> ProgressBar1.Maximum Then
ProgressBar1.Value += 20
Else
Call we()
Timer1.Enabled = False
ProgressBar1.Maximum = 0
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = "" Then
Button2.Enabled = False
Else
Button2.Enabled = True
End If
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text = "" Then
Button2.Enabled = False
Else
Button2.Enabled = True
End If
End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If TextBox3.Text = "" Then
Button2.Enabled = False
Else
Button2.Enabled = True
End If
End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
If TextBox4.Text = "" Then
Button2.Enabled = False
Else
Button2.Enabled = True
End If
End Sub
End Class

Date 19/01/2010

By den

Subject Arrow in VISUAL C++

Reply

// OS exercise.cpp : main project file.

#include "stdafx.h"
#include "conio.h"
#include "stdio.h"
using namespace System;



int main()
{

for (int r = 0;r<=15;r++){

for(int c = 0; c=15;c++)
{
if (r=1)
{
Console::WriteLine(L" *");
}
if (r=2)
{
Console::WriteLine(L" * * * ");
}
if (r=3){
Console::WriteLine(L" * * * * * ");
}
if (r=4){
Console::WriteLine(L" * * *");
}
if (r=5){
Console::WriteLine(L" * * *");
}
if (r=6){
Console::WriteLine(L" * * * * *");
}
if(r=7){
Console::WriteLine(L" * * * * * * * * * * * * * ");
}
if(r=8){
Console::WriteLine(L" * * * * * * * * * * * * * * * ");
}
if(r=9){

Console::WriteLine(L" * * * * * * * * * * * * * ");
}
if(r=10){
Console::WriteLine(L" * * * * *");
}
if(r=11){
Console::WriteLine(L" * * *");
}
if(r=12){
Console::WriteLine(L" * * *");
}
if(r=13){
Console::WriteLine(L" * * * * *");
}
if(r=14){

Console::WriteLine(L" * * *");
}
if(r=15){
Console::WriteLine(L" *");
getch();
}

else
{
Console::WriteLine(L"");

}

}

}
getch();
}



Date 23/11/2009

By denz

Subject VB.NET bubble sorting

Reply

Dim n, i, J, c As Integer
Dim count As Integer
Dim temp As Integer
Dim arrayelement(2) As Integer
count = 1
c = 0
n = InputBox("Enter the Nos of Elemets for sorting")
lblelements.Text = n
ReDim arrayelement(n)

For i = 0 To n - 1
If vbYes = MsgBoxResult.Yes Then
arrayelement(i) = InputBox("Enter the Elements")
TextBox1.Text = TextBox1.Text & "Elements " & count & ": " & arrayelement(i)
TextBox2.Text = TextBox2.Text & "a[" & c & " ]" & ":" & arrayelement(i)
TextBox1.Text = TextBox1.Text & vbCrLf
TextBox2.Text = TextBox2.Text & vbCrLf
count = count + 1
c = c + 1
Else
Me.Close()
End If
Next
Button1.Enabled = False
For J = 1 To n
For i = 1 To n
If arrayelement(i - 1) >= arrayelement(i) Then
temp = arrayelement(i - 1)
arrayelement(i - 1) = arrayelement(i)
arrayelement(i) = temp

End If
Next
Next
For i = 1 To n
TextBox3.Text = TextBox3.Text & "" & arrayelement(i)
TextBox3.Text = TextBox3.Text & vbCrLf
Next