https://www.osnews.com/story/15235/Investigating_the_Plan_9_Operating_System
https://encyclopediadramatica.com/Plan9
https://www.faqs.org/faqs/comp-os/plan9-faq/
https://plan9.bell-labs.com/plan9/index.html
OS
This section is empty.
OS-VB.NET
QNX OPERATING SYSTEM
09/03/2010 09:02———
OS Exercise 1 - Input 5 Integers and sort it from Highest to Lowest.
15/12/2009 12:13———
OS-JAVA
This section is empty.
OS-VISUAL C++
This section is empty.
Topic: OS
———
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
———
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
———
// 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();
}
———
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
———