|
Lizoft programshop för PC & Mac
Under 90-talet var vi stora på utbildningsprogram för skola. En hel del inom matematik, geografi, språk, relegion. Vi har t ex översatt program som PC Globe (världsatlas), EZCosmos (stjärnhimlen), BodyWorks (människokroppen) och Orbits (planetarium). Vi har även levererat en hel del PC- och Mac-spel med action, shoot em up osv, men även lek och lär-program som Backpacker, Mulle Meck, Pettson och Findus osv.
Dessa produkter finns inte längre kvar i vårt sortiment. Hela programförsäljningen har upphört. Sök gärna vidare på Google nedan eller besök någon av platserna i annonsen. Sidan du sökte: http://www.lizoft.se/prod/prod/prod34.asp
|
|
Kunskapsvägen
<%
'
' 000620: Lagt in räknare på varje sida
' 000626: Lagt in urval för att visa enstaka artikel i separat fönster
Dim SurfType, xColor, Pricelabel, Price, Plainprice, Itemdata, iCount, ViewTitle, Vatcode
' Kontrollera vilken typ av användare (för att visa rätt priser)
' Flagga för ÅF-pris sätts på ÅF-sidan
SurfType = Session("Type")
ViewTitle = Trim(Request.QueryString("viewtitle"))
%>
<%If ViewTitle = "" Then%>
Kunskapsvägen
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "288" Then%>
| |
|
GrafMatte är ett program som är framtaget för att eleverna ska få bättre möjligheter till goda, automatiserade tabellkunskaper. Programmet är uppbyggt ungefär som småstegsmetoden, väl anpassat till de inlärningsgångar som finns i svensk grundskola. Med GrafMatte får både lärare och elever ett bra redskap som underlättar en individualiserad träning/undervisning. Läraren kan både ändra och göra egna övningar. Graden av automatisering avläses på en grafisk kurva. Ju snabbare eleven anger sitt svar, desto högre stapel bildas. Vid fel svar bildas en nedåtgående stapel. Eleven kan också sätta sitt eget mål, ungefär som en höjdhoppsribba. Grafmatte innehåller ca 90 olika övningar med de fyra räknesätten.
KG Program
|

Språk: Svenska
Plattform: W95/98
Media: Diskett
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 619.63"
'Plainprice = cInt(619.63 * 1.25)
Plainprice = cInt(619.63 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("660,93" * "1,25", 0)
Price = Formatnumber("660,93" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(660.93 * 1.25)
Plainprice = cInt(660.93 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("GrafMatte privatlicens;1;" & Plainprice & ";288;100011")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
288 661 kr<%=Price%> GrafMatte privatlicens
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "290" Then%>
| |
|
Öva läsning och läsförståelse
|
|
Det nya sättet att träna läsning och läsförståelse. Upplysta ord, ord försvinner, osynliga ord blir synliga i den takt som du vill, blockläsningar för att träna upp läshastigheten mm. Innehåller 100 texter. I textredigeraren skriver du lätt in fler.Programmet är speciellt anpassat för:- de som har läs och skrivsvårigheter
- dyslektiker
- lässvaga barn och vuxna
- de som inte tycker att det är roligt att läsa-långsamma läsare som behöver läshastighetsträning
- invandrarundervisningen - teknik och förståelsesynsvaga - texterna kan förstoras även på papper
- egna övningar i hemmen
- undervisning i läsning och läsförståelser
KG Program
|

Språk: Svenska
Plattform: W95/98
Media: Diskett
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 573.75"
'Plainprice = cInt(573.75 * 1.25)
Plainprice = cInt(573.75 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("642,60" * "1,25", 0)
Price = Formatnumber("642,60" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(642.60 * 1.25)
Plainprice = cInt(642.60 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Läsknep, privatlicens;1;" & Plainprice & ";290;100013")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
290 643 kr<%=Price%> Läsknep, privatlicens
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "3275" Then%>
| |
|
Lättanvänt program för att skapa multimedia-presentationer
|
|
Micromedia Lab är lillebror till Multimedia Lab och vänder sig alltså till nybörjare inom multimedia. Här skapar man på ett enkelt sätt utan krångliga menyer och kommandon information i form av text, bilder, ljud och film. Användaren guidas via symboler och en talande röst. Utan grundkunskaper kan vem som helst skapa en multimediatillämpning. Färdiga tillämpningar kan distribueras fritt på Internet.Micromedia Lab arbetar med ett storyboard till vänster och en flytande verktygslåda på arbetsytan till höger. Ett flertal färdiga mallar finns där användaren bara byter innehåll i bild och text. Mallarna kan bestå av färdiga presentationslayouter, fotoalbum, bildspel, presentationer för internet, olika bakgrunder mm. Guide och speakerröst ger stegvis lättförståeliga anvisningar.
|

Språk: Svenska
Plattform: W95/98
Media: CD
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 373.75"
'Plainprice = cInt(373.75 * 1.25)
Plainprice = cInt(373.75 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("418,60" * "1,25", 0)
Price = Formatnumber("418,60" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(418.60 * 1.25)
Plainprice = cInt(418.60 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("MicroMedia Lab;1;" & Plainprice & ";3275;11-34-1014")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
3275 419 kr<%=Price%> MicroMedia Lab
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "3261" Then%>
| |
|
I Minimedia kommer den lilla figuren Mini till vår värld för att hämta hjälp att befria en vän från en hemsk drake. Han möter barnen Moa och Max och det är dessa tre som är berättelsens huvudpersoner. Med hjälp av Mini, Moa och Max och en massa bokstavsdjur går det lätt att lära sig läsa! Georg Riedels originalmusik bidrar till den fina stämningen.Programmet har två svårighetsnivåer: Det gröna spåret för barn som börjar läsa och skriva. Det röda spåret för barn som läser och skriver lite grann.
KG Program
|

Språk: Svenska
Plattform: Hybrid Win95/Mac
Media: CD
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 573.75"
'Plainprice = cInt(573.75 * 1.25)
Plainprice = cInt(573.75 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("642,60" * "1,25", 0)
Price = Formatnumber("642,60" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(642.60 * 1.25)
Plainprice = cInt(642.60 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Minimedia;1;" & Plainprice & ";3261;11-34-1012")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
3261 643 kr<%=Price%> Minimedia
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "3274" Then%>
| |
|
Nu kan alla skapa multimedia på Internet!
|
|
Forska, analysera, skapa, upplev och berätta. Lär dig hantera information, bilder och ljud i MultiMedia Lab® V - det ledande verktygsprogrammet för multimedia på webben.
Allt fler människor söker eller lägger ut information på Internet. Att göra hemsidor och lägga ut på Internet blir allt populärare. För att göra detta krävs ett bra program som samtidigt är lätt att använda.
De tidigare ganska krångliga sätten att skapa multimedia på Internet är nu helt onödiga. Datoranvändare som vill skapa t ex bilder och visuell design behöver inte längre kunskap i programmering. Med Multimedia Lab® V blir arbetet mycket enklare och alla som kan använda en dator kan också publicera multimedia som är läsbart för alla i hela världen som har en webbläsare.
MultiMedia Lab® V är ett verktyg som inspirerar till kreativitet och som kräver små förkunskaper. Programmet är ändå så kraftfullt att det inte sätter hämmande gränser för resultatet.
I MultiMedia Lab® V kan man spara sina arbetsfiler såväl som det färdiga resultatet på sin hårddisk, en diskett eller t ex på en CD. Det färdiga resultatet som skall publiceras är givetvis i HTML-format med tillhörande bilder, filmer, ljud etc.
Nyheter i Multimedia Lab V- Producerar HTML för direktpublicering på Internet
- Skapa drag och släppövningar
- Händelsestyrt
- Sprites och animering efter bana
- Nya riteffekter inklusive toningsövergångar
- Bakgrundsbilder på grafiska objekt
- Förbättrad utskrift
- Stöd för publicering på Internet via FTP
- Beteenden ger tillgång till avancerade funktioner med ett musklick
- Integrerat ritverktyg och textstämplar
- Objektbanken där objekt med dess händelser och funktioner kan sparas
- Översikten visas som sidvy och trädvy
- Javascript istället för makrospråket
- Gradvis genomskinlighet på grafiska objekt
|

Språk: Svenska
Plattform: W95/98
Media: CD
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 932.50"
'Plainprice = cInt(932.50 * 1.25)
Plainprice = cInt(932.50 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("1044,40" * "1,25", 0)
Price = Formatnumber("1044,40" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(1044.40 * 1.25)
Plainprice = cInt(1044.40 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Multimedia Lab V, 1 anv;1;" & Plainprice & ";3274;11-34-1013")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
3274 1,044 kr<%=Price%> Multimedia Lab V, 1 anv
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "295" Then%>
| |
|
Ordknep innehåller ca 100 olika texter att välja mellan. I textredigeraren skriver du lätt in fler texter vilket gör att texterna inte blir enformiga. Orden som du ska öva är först markerade med en ruta. Du ska sedan skriva in ordet rätt i den lucka som bildas. Ordknep är ett program för dig som vill träna upp din stavningsförmåga på ett roligt och effektivt sätt. Alla knepiga ljudkombinationer i svenska språket finns med i form av övningstexter. Dessutom finns övningar på lång - kort vokal och förväxlingsljuden t ex b och d, k och g.- Rättstavning, lär dig förväxlingsljuden
- Ordkunskap, texterna är ordnade ämnesvis te x historia, teater, yrken, biologi osv
- Språklära, träna bl a prepositioner, tema på oregelbundna verb
- Glosor, du har även möjlighet att förhöra dig på glosor
- Lämplig för undervisning i läsning och läsförståelser
KG Program
|

Språk: Svenska
Plattform: W95/98
Media: Diskett
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 591.25"
'Plainprice = cInt(591.25 * 1.25)
Plainprice = cInt(591.25 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("662,20" * "1,25", 0)
Price = Formatnumber("662,20" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(662.20 * 1.25)
Plainprice = cInt(662.20 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Ordknep, privatlicens;1;" & Plainprice & ";295;100018")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
295 662 kr<%=Price%> Ordknep, privatlicens
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "3246" Then%>
| |
|
Lär dig svenska på ett aktivt och roligt sätt.
|
|
Programmet som på ett aktivt, roligt och strukturerat sätt tränar tala, lyssna, läsa och skriva (läroplanens fyra huvudmoment) för elevernas språkutveckling. Se-Höra-Göra är ett interaktivt multimedialt språkprogram med ljud-strukturerad läsinlärning.Första delen i programmet: - Läs och lyssna på en inspelad text.
- Läs högt och spela in ditt eget tal.
- Jämför egen inläsning med originalet.
- Skriv av den aktuella texten som extraförstärkning.
- Lagring av resultatet.
När eleven har spelat in sitt tal lagras övingen. Läraren/föräldern kan sedan när som helst se och lyssna på resultatet. Det finns tre sätt att spara elevens övning: hårddisk, diskett eller bandspelare. Andra delen i programmet: Du bestämmer själv hur lång tid du vill att ordet ska visas, táex 1 sekund. Skriv ordet rätt. Använd lyssnaknappen vid behov. Du ser inte ordet utan klickar enbart på lyssnaknappen och hör ordet eller frasen. Skriv meningen. Efter en stavningsövning redovisas resultatet med grafiska staplar, antal rätt och fel. Verktyg- I programmet finns ett verktyg med vilken du kan skapa nya övningar. Skriv text, välja bild och spela in tal.
KG Program
|

Språk: Svenska
Plattform: W95/98
Media: CD
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 573.75"
'Plainprice = cInt(573.75 * 1.25)
Plainprice = cInt(573.75 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("642,60" * "1,25", 0)
Price = Formatnumber("642,60" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(642.60 * 1.25)
Plainprice = cInt(642.60 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Se-Höra-Göra;1;" & Plainprice & ";3246;11-29-1077")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
3246 643 kr<%=Price%> Se-Höra-Göra
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "4530" Then%>
| |
| Studieknep Engelska, 1 anv |
|
Öva uttal, läsförståelse och studieteknik
|
|
Studieknep Engelska har tagits fram för dig som vill lära dig engelska på ett varierat sätt. Du läser texter, besvarar frågor, lyssnar och tränar uttal samt bearbetar texterna så att de kan återberättas muntligt eller skriftligt. Programmet är svenskt med engelskt innehåll.
Träna läsförståelse: Det finns ca 200 texter inom olika teman att välja bland. Välj en text! Läs den och besvara frågorna som kommer efter texten. Träna uttal: Microsofts talsyntes levereras med programmet gratis. Lyssna på texten, meningen eller ordet. Spela sedan in Din egen uppläsning i mikrofonen. Lyssna och jämför! Upprepa om det behövs.
Återberätta med hjälp av stödord eller samla ord du inte kan: Markera lämpliga stödord. Dessa placeras automatiskt i stödordslistan. Göm den ursprungliga texten och återberätta med hjälp av stödorden. Skriv ut stöd-orden på papper för att användas vid muntliga eller skriftliga redovisningar. Denna funktion kan också användas för att markera de ord som är okända. Skriv ut och slå upp!
Läs- och resultatlistor: I programmet kan man skapa individuella studiegångar samt lagra resultat och inspelat tal. Det inspelade talet kan spelas upp vid ett senare tillfälle. Skapa nya texter: Programmet kan byggas ut med egna texter och frågor och anpassas till enskilda behov, exempelvis från Internet. Alla texter, planeringar och resultat kan skrivas ut.
Microsofts talsyntes följer med GRATIS! Talsyntesen läser upp texten som följer med programmet, men också text som du själv skriver eller hämtar från exempelvis Internet.
|

Språk: Engelska
Plattform: W95/98
Media: CD
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 610.00"
'Plainprice = cInt(610.00 * 1.25)
Plainprice = cInt(610.00 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("683,20" * "1,25", 0)
Price = Formatnumber("683,20" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(683.20 * 1.25)
Plainprice = cInt(683.20 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Studieknep Engelska, 1 anv;1;" & Plainprice & ";4530;100521")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
4530 683 kr<%=Price%> Studieknep Engelska, 1 anv
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "4227" Then%>
| |
|
Öva lästekning, läsförståelse och studieteknik
|
|
Studieknep är en vidareutveckling av det populära dataprogrammet Läsknep. Det består av de 3 viktiga delarna: Lästeknik-Läsförståelse-Studieteknik
LÄSTEKNIK
Det finns flera olika sätt att träna upp sin lästeknik.
Alla textsidor kan skrivas ut. Man kan också skriva ut elevens egen läslista, resultatlistor, stödordslistor med eller utan miniatyrbilder, samt enbart bilderna. - Läsa på tid
- En bokstav försvinner
- Ett ord försvinner
- Mata fram en sats åt gången
- Högläsning i mikrofon och inspelning i datorn för att sedan kunna lyssna på sig själv
- Markera stödord vilka sedan placeras automatiskt i en stödordslista.
- Gömma den ursprungliga texten och med hjälp av stödorden återberätta den dolda texten.
- Spela in, lyssna på sin inspelning för att sedan jämföra med den ursprungliga texten.
- Eleven tränar sitt minne och att använda sig av stödord.
- Skriva ut stödorden på papper för att använda vid muntliga och skriftliga redovisningar.
KG Program
|

Språk: Svenska
Plattform: W95/98
Media: Diskett
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 610.00"
'Plainprice = cInt(610.00 * 1.25)
Plainprice = cInt(610.00 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("683,20" * "1,25", 0)
Price = Formatnumber("683,20" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(683.20 * 1.25)
Plainprice = cInt(683.20 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Studieknep, 1 anv;1;" & Plainprice & ";4227;29-1011")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
4227 683 kr<%=Price%> Studieknep, 1 anv
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
<%If Len(ViewTitle) = 0 Or ViewTitle = "297" Then%>
| |
| Tangenta 2.0 privatlicens |
|
Lär dig skriva maskin och att använda tangentbordet enligt den så kallade touchmetoden. Utökad med ljudåtergivning av tangenterna vid skriv- och läsövningarna.
- En skrivmaskinskurs. Ett lekfullt sätt att lära sig skriva maskin
- Ljudfunktion till teckenövningarna samt vid läsning
- Ett komplement till läsinlärning
- Läs och stavövning vid invandrarundervisning
- Rättstavningsövning. Med enkla högfrekventa och svårstavade ord
- Läxhjälp. Skriv in veckans ord och träna.
- Ett anpassat hjälpmedel för dyslektiker. Skriv själv in egna övningar.
OBS! Tangenta 2.0 är inte kompatibelt med Windows XP
KG Program
|

Språk: Svenska
Plattform: W95/98
Media: Diskett
Tips!
<%
' 020201: Momskod /MG
Vatcode = Replace(Strip("25.00\2611", "\"), ".", ",")
Vatcode = Vatcode / 100 + 1
If SurfType = "ÅF" Then
' ÅF-priser
xColor = "#0000FF"
Pricelabel = " ÅF-pris"
Price = " 573.75"
'Plainprice = cInt(573.75 * 1.25)
Plainprice = cInt(573.75 * Vatcode)
Else
' Slutkundspriser
xColor = "#008080"
Pricelabel = "Inkl moms"
'Price = Formatnumber("642,60" * "1,25", 0)
Price = Formatnumber("642,60" * Replace(Vatcode, ".", ","), 0)
Price = Right(Space(10) & Price & " kr", 10)
'Plainprice = cInt(642.60 * 1.25)
Plainprice = cInt(642.60 * Replace(Vatcode, ",", ".") / 100 + 1)
End if
%>
<%
Itemdata = server.URLEncode("Tangenta 2.0 privatlicens;1;" & Plainprice & ";297;100020")
If Ucase("prod34.ASP") <> "PROD15.ASP" Then ' 1) Koll om auktionstitel
%>
|
Best.nr Exkl moms <%=Pricelabel%> Beskrivning
297 643 kr<%=Price%> Tangenta 2.0 privatlicens
<%Else ' 1)%>
<%
End If ' 1)
%> |
|
| |
|
|
<%End If%>
031218 15:14:56 #<%=iCount%> <%=Application("ActiveUsers") %>
<%If ViewTitle = "" Then%>
<%End If%>
<%
Sub IncreaseCounter
' Räknare för denna sida
strCountFileName = Server.MapPath("prod34.ASP")
strCountFileName = Left(strCountFileName, Len(strCountFileName) - Len("prod34.ASP"))
strCountFileName = strCountFileName & "data\prod34.ASP.cnt"
'On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
' Read the current count from the file
If Not objCountFile.AtEndOfStream Then
' Set value to contents of the file
iCount = CLng(objCountFile.ReadAll)
Else
' If no file exists or it's empty start at 0
iCount = 0
End If
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
' Increment the count
iCount = iCount + 1
' Overwrite existing file and get a text stream to new one
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
' Write updated count
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
On Error Goto 0
End Sub
Function Strip(txt, sep)
'
' Dela på en sträng
'
Dim z
z = InStr(txt + sep, sep)
Strip = Left(txt, z - 1)
txt = Mid(txt, z + 1)
End Function
%>
|
|