Χρήση φόρμας Html για εισαγωγή Password
Σελίδα 1 από 1
Χρήση φόρμας Html για εισαγωγή Password
από m2000 Δευ Ιουν 13, 2016 1:03 pm
Γράφουμε το πρόγραμμα σε ένα αρχείο "ιστος.gsb" και το εκτελούμε. Κάνει την κονσόλα παράθυρο δίνοντας τρόπο να την μετακινήσουμε και να την κλείσουμε. Παράλληλα ένα νήμα γράφει στη κονσόλα και μια σελίδα html έχει ανοίξει και ζητάει στοιχεία, τα οποία θα διαβάζει η Μ2000. Αυτό το πρόγραμμα έτρεχε και σε παλιές εκδόσεις (6η έκδοση) όταν δεν είχε η Μ2000 παράθυρα. Το αναλόγιο, δηλαδή τις σελίδες html τις προβάλει η Μ2000 μόνο πάνω στην κονσόλα, όχι σε παράθυρα. Τα στοιχεία από την σελίδα τα στέλνουμε στον τίτλο, απ' όπου τα παίρνει η Μ2000. Για να τα βάλουμε στη σελίδα χρησιμοποιούμε το ##όνομα_μεταβλητής$##. Τις σελίδες τις φτιάχνουμε στο φάκελο των προσωρινών αρχείων των windows, και τις καθαρίζει η Μ2000 αυτόματα ή άμεσα με εντολή.
ΑΛΛΑΓΗ σε UTF-8
ΤΜΗΜΑ ΙΣΤΟΣ {
ΣΧΕΔΙΟ.ΝΗΜΑΤΩΝ ΔΙΑΔΟΧΙΚΟ
Τμήμα Α {
ΓΕΝΙΚΗ ΑΑ=0
ΚΑΘΑΡΟ ΜΧ, ΜΥ
username$ = "Γιωργος"
κειμενο utf-8 αλφα.html {<!doctype html public "-//w3c//dtd html 3.2//en">
<html><head><title>(Type a title for your page here)</title>
<meta name="GENERATOR" content="M2000">
<meta name="FORMATTER" content="M2000">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
</head>
<body bgcolor="CYAN" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000" scroll="no">
<CENTER>Χειριστής</CENTER></H1><HR>
<script>
<!-- Start Hiding
var m1;
var p1;
var total;
function alfa() {
total="?onoma=2000";
if(m1 == "") {m1="?"};
total=total+"&username="+escape(m1);
if(p1 == "") {p1="?"};
total=total+"&password="+escape(p1);
document.title=total;
setTimeout ("alfa()",100);
return true} // End hiding -->
</script>
<FORM NAME="ValidForm" action="about:blank" >
<INPUT NAME="onoma" TYPE="HIDDEN" MAXLENGTH=4 SIZE="4" VALUE="1000">
<TABLE ALIGN=CENTER BORDER=0 RULES=NO COLS="2">
<TBODY>
<TR VALIGN=TOP >
<TD >Ονομα:</TD>
<TD ><INPUT NAME="username" TYPE="TEXT" id="uname" MAXLENGTH=16 SIZE="16" VALUE="##username$##" ></TD>
</TR>
<TR VALIGN=TOP >
<TD >Συνθηματικό:</TD>
<TD ><INPUT NAME="password" ID="pass" TYPE="PASSWORD" MAXLENGTH=8 SIZE="8"></TD>
</TR>
</TABLE>
<CENTER><BR><HR>
<input type=button value="Αποστολή" onclick="m1=uname.value;p1=pass.value;alfa()">
</CENTER>
</FORM>
</body>
</html>
}
onoma$=""
ΠΑΡΑΘΥΡΟ 10, 240*40,6000;
\\ η εντολή πλαίσιο με το @ εμφανίζει γραφικά στοιχεία των windows
Πλαίσιο @ width,0,4,1,0
Πλαίσιο @ width,0,1,45,3
Δρομέας 0,0
Πένα 15
Στόχος A,"ΑΑ++",WIDTH-2,1,,,1," ΠΑΡΑΔΕΙΓΜΑ ΧΡΗΣΗΣ ΣΤΟΧΩΝ ΚΑΙ ΑΝΑΛΟΓΙΟΥ"
Τύπωσε @( width-2,0);
Πλαίσιο @ width-2,0,4,15,0
Στόχος B, "Θέσε Γ=Ψευδες : Μπιπ" ,2,1,,,5,"<>"
Πένα 15
\\ Αν ξεκινήσουμε το πρόγραμμα με διπλό κλικ στο αρχείο
\\ τότε χρειάζεται η Άναψε - για να εμφανιστεί το περιβάλλον
Άναψε
\\ η πρώτη παράμετρος δεν έχει μπει για να αφήσουμε το χρώμα ως έχει
\\ η δεύτερη αφήνει τις πάνω δυο γραμμές (0 και 1) και επιτρέπει ολισθηση
\\ από την 2 και κάτω (λειτουργία χωριστής οθόνης)
Οθόνη ,2
\\ Ορίζουμε το αναλόγιο (ο browser) να πάρει το προσωρινό αρχείο
\\ και να το δείξει σε συγκεκριμένο πλαίσιο
Αναλογιο αλφα.html, χ.σημεία-5000,500,5000,5450
μετ=1
\\ Εδώ φτιάχνω δυο νήματα
\\ Το ένα μετράει και τυπώνει στην οθόνη (πίσω από το αναλόγιο)
Νημα { Τύπωσε μετ : μετ++ } ως ΚΚ καθε 30
\\ το άλλο εκτελεί τη μετακίνιση του παραθύρου, δουλεύει κατ΄απαίτηση
\\ και μόνο του βγαίνει εκτός
Νήμα {
Κίνηση.π Κίνηση.χπ-ΜΧ+Δείκτης.χ,Κίνηση.υπ-ΜΥ+Δείκτης.υ
Αν Δείκτης=0 Τότε ΑΑ<=0: Νήμα Αυτό Κράτα
} Ως ΚΛΜ κάθε 10
νημα ΚΛΜ κράτα
\\ Εδώ είναι το κύριο έργο ή το κύριος βρόγχος
\\ Ουσιαστικά όμως είναι ένα ακόμα νήμα με το πλεονέκτημα
\\ όταν τελειώσει να σβήσει τα νήματα του τμήματος (αλλά όχι άλλα)
Κύριο.Έργο 10 {
\\ Οι στόχοι σαρώνονται με την Σάρωσε
\\ ο χρόνος .01 δεν έχει σημασία όταν έχουμε νήματα
Σάρωσε .01
Αν όχι ( onoma$="" και Γ ) τότε έξοδος
Αν ΑΑ=1 Τότε Διαμέσου ΕΚΚΙΝΗΣΗ()
}
Αναλόγιο ""
Κείμενο αλφα.html ' εδώ σβήνουμε το προσωρινό αρχείο
Λιστα
Ρουτίνα ΕΚΚΙΝΗΣΗ()
Ενώ Δείκτης=0 {}
ΜΧ=Δείκτης.χ : ΜΥ=Δείκτης.υ
ΑΑ++
Νήμα ΚΛΜ Ξεκινα
Τέλος Ρουτίνας
}
\\ Εμφανίζουμε στην γραμμή εργασιών όνομα
Τίτλος "ΙΣΤΟΣ"
Γενική Γ = Αληθές
Α : α$=Κομ$
}
ΙΣΤΟΣ: ΤΕΛΟΣ
ΑΛΛΑΓΗ σε UTF-8
ΤΜΗΜΑ ΙΣΤΟΣ {
ΣΧΕΔΙΟ.ΝΗΜΑΤΩΝ ΔΙΑΔΟΧΙΚΟ
Τμήμα Α {
ΓΕΝΙΚΗ ΑΑ=0
ΚΑΘΑΡΟ ΜΧ, ΜΥ
username$ = "Γιωργος"
κειμενο utf-8 αλφα.html {<!doctype html public "-//w3c//dtd html 3.2//en">
<html><head><title>(Type a title for your page here)</title>
<meta name="GENERATOR" content="M2000">
<meta name="FORMATTER" content="M2000">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
</head>
<body bgcolor="CYAN" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000" scroll="no">
<CENTER>Χειριστής</CENTER></H1><HR>
<script>
<!-- Start Hiding
var m1;
var p1;
var total;
function alfa() {
total="?onoma=2000";
if(m1 == "") {m1="?"};
total=total+"&username="+escape(m1);
if(p1 == "") {p1="?"};
total=total+"&password="+escape(p1);
document.title=total;
setTimeout ("alfa()",100);
return true} // End hiding -->
</script>
<FORM NAME="ValidForm" action="about:blank" >
<INPUT NAME="onoma" TYPE="HIDDEN" MAXLENGTH=4 SIZE="4" VALUE="1000">
<TABLE ALIGN=CENTER BORDER=0 RULES=NO COLS="2">
<TBODY>
<TR VALIGN=TOP >
<TD >Ονομα:</TD>
<TD ><INPUT NAME="username" TYPE="TEXT" id="uname" MAXLENGTH=16 SIZE="16" VALUE="##username$##" ></TD>
</TR>
<TR VALIGN=TOP >
<TD >Συνθηματικό:</TD>
<TD ><INPUT NAME="password" ID="pass" TYPE="PASSWORD" MAXLENGTH=8 SIZE="8"></TD>
</TR>
</TABLE>
<CENTER><BR><HR>
<input type=button value="Αποστολή" onclick="m1=uname.value;p1=pass.value;alfa()">
</CENTER>
</FORM>
</body>
</html>
}
onoma$=""
ΠΑΡΑΘΥΡΟ 10, 240*40,6000;
\\ η εντολή πλαίσιο με το @ εμφανίζει γραφικά στοιχεία των windows
Πλαίσιο @ width,0,4,1,0
Πλαίσιο @ width,0,1,45,3
Δρομέας 0,0
Πένα 15
Στόχος A,"ΑΑ++",WIDTH-2,1,,,1," ΠΑΡΑΔΕΙΓΜΑ ΧΡΗΣΗΣ ΣΤΟΧΩΝ ΚΑΙ ΑΝΑΛΟΓΙΟΥ"
Τύπωσε @( width-2,0);
Πλαίσιο @ width-2,0,4,15,0
Στόχος B, "Θέσε Γ=Ψευδες : Μπιπ" ,2,1,,,5,"<>"
Πένα 15
\\ Αν ξεκινήσουμε το πρόγραμμα με διπλό κλικ στο αρχείο
\\ τότε χρειάζεται η Άναψε - για να εμφανιστεί το περιβάλλον
Άναψε
\\ η πρώτη παράμετρος δεν έχει μπει για να αφήσουμε το χρώμα ως έχει
\\ η δεύτερη αφήνει τις πάνω δυο γραμμές (0 και 1) και επιτρέπει ολισθηση
\\ από την 2 και κάτω (λειτουργία χωριστής οθόνης)
Οθόνη ,2
\\ Ορίζουμε το αναλόγιο (ο browser) να πάρει το προσωρινό αρχείο
\\ και να το δείξει σε συγκεκριμένο πλαίσιο
Αναλογιο αλφα.html, χ.σημεία-5000,500,5000,5450
μετ=1
\\ Εδώ φτιάχνω δυο νήματα
\\ Το ένα μετράει και τυπώνει στην οθόνη (πίσω από το αναλόγιο)
Νημα { Τύπωσε μετ : μετ++ } ως ΚΚ καθε 30
\\ το άλλο εκτελεί τη μετακίνιση του παραθύρου, δουλεύει κατ΄απαίτηση
\\ και μόνο του βγαίνει εκτός
Νήμα {
Κίνηση.π Κίνηση.χπ-ΜΧ+Δείκτης.χ,Κίνηση.υπ-ΜΥ+Δείκτης.υ
Αν Δείκτης=0 Τότε ΑΑ<=0: Νήμα Αυτό Κράτα
} Ως ΚΛΜ κάθε 10
νημα ΚΛΜ κράτα
\\ Εδώ είναι το κύριο έργο ή το κύριος βρόγχος
\\ Ουσιαστικά όμως είναι ένα ακόμα νήμα με το πλεονέκτημα
\\ όταν τελειώσει να σβήσει τα νήματα του τμήματος (αλλά όχι άλλα)
Κύριο.Έργο 10 {
\\ Οι στόχοι σαρώνονται με την Σάρωσε
\\ ο χρόνος .01 δεν έχει σημασία όταν έχουμε νήματα
Σάρωσε .01
Αν όχι ( onoma$="" και Γ ) τότε έξοδος
Αν ΑΑ=1 Τότε Διαμέσου ΕΚΚΙΝΗΣΗ()
}
Αναλόγιο ""
Κείμενο αλφα.html ' εδώ σβήνουμε το προσωρινό αρχείο
Λιστα
Ρουτίνα ΕΚΚΙΝΗΣΗ()
Ενώ Δείκτης=0 {}
ΜΧ=Δείκτης.χ : ΜΥ=Δείκτης.υ
ΑΑ++
Νήμα ΚΛΜ Ξεκινα
Τέλος Ρουτίνας
}
\\ Εμφανίζουμε στην γραμμή εργασιών όνομα
Τίτλος "ΙΣΤΟΣ"
Γενική Γ = Αληθές
Α : α$=Κομ$
}
ΙΣΤΟΣ: ΤΕΛΟΣ
m2000- Admin
- Posts : 27
Join date : 10/06/2016
Age : 57
Location : Kanallaki Greece -
Σελίδα 1 από 1
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης|
|
|