|
|||||
Če še nimate nameščenega programa Microsoft Small Basic, kliknite tukaj, da ga namestite.
|
|||||
|
|||||
Odprite program.
|
|||||
|
|||||
Sedaj napišite:
TextWindow.WriteLine("Računalo") TextWindow.WriteLine("Za izhod napiši izhod. Pritisni enter za začetek.") TextWindow.Read() TextWindow.Clear() While (1=1) a = TextWindow.Read() If a = ("izhod") Then Program.End() EndIf Program bo čakal na pritisk tipke "enter" in pobrisal zaslon. Naslednja vrstica kode pomeni, naj se program ponavlja v neskončnost (dokler je 1 enako 1) in kasneje, če piše izhod, se program zapre. |
|||||
|
|||||
Naslednji korak:
TextWindow.Clear() l = Text.GetLength(a) 1. vrstica kot prej pobriše zaslon, 2. pa ugotovi dolžino vnosa.
|
|||||
|
|
|
|||||
Potem vpišete:
p = Text.GetIndexOf(a, "+") If p > 0 Then op1 = Text.GetSubText(a, 1, p-1) op2 = Text.GetSubText(a, p+1, l-p) res = op1+op2 TextWindow.WriteLine(a + "=" + res) EndIf S temi vrsticami kode program zna seštevati. |
|||||
|
|||||
Da bo program znal odštevati napišite:
p = Text.GetIndexOf(a, "-") If p > 0 Then op1 = Text.GetSubText(a, 1, p-1) op2 = Text.GetSubText(a, p+1, l-p) res = op1-op2 TextWindow.WriteLine(a + "=" + res) EndIf |
|||||
|
|||||
Za množenje vpišite:
p = Text.GetIndexOf(a, "*") If p > 0 Then op1 = Text.GetSubText(a, 1, p-1) op2 = Text.GetSubText(a, p+1, l-p) res = op1*op2 TextWindow.WriteLine(a + "=" + res) EndIf |
|||||
|
|||||
In za deljenje:
p = Text.GetIndexOf(a, "/") If p > 0 Then op1 = Text.GetSubText(a, 1, p-1) op2 = Text.GetSubText(a, p+1, l-p) res = op1/op2 TextWindow.WriteLine(a + "=" + res) EndIf |
|||||
|
|||||
Zatem dodate še:
EndWhile To pomeni, da program ponavlja do tukaj.
|
|||||
|
|||||
Na koncu zapišete:
Program.End() Ali po slovensko: "Končaj program". To napišete zato, da program ve, kdaj naj se konča.
|
|||||
|
|||||
Tako, programiranje končano!
Še shranimo s klikom diskete.
|
|||||
|
|||||
 Sedaj kliknemo F5 ali gumb Run, da preizkusimo svoje delo.
|
|||||
|
|||||
Končni izdelek.
|
|||||
