Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να γράψετε Ladder Logic χρήση της Visual Basic

Προσομοίωση λογική σκάλα σε Visual Basic βοηθά τους προγραμματιστές να μάθουν τα βασικά σε μια κοινή γλώσσα προγραμματισμού με την οποία μπορεί να είναι πιο άνετα . Λογική σκάλα , μια γλώσσα προγραμματισμού , είναι συχνά χρησιμοποιείται σε PLCs και άλλα μηχανήματα που διαθέτουν ένα σχετικά απλό αλλά κρίσιμο σύστημα ελέγχου , όπως οι πλατφόρμες πετρελαίου . Χρησιμοποιούν μια σειρά από μεταβλητές Boolean και Visual Basic, λογικούς τελεστές για να γράψετε τη δική σας λογική σκάλα . Οδηγίες
Η 1

Ανοίξτε Visual Basic αρχείο σας με έναν επεξεργαστή κειμένου , όπως το Microsoft Visual Studio . 2

Εξομοίωση της λογικής λειτουργίας σκάλα " s = x και ( y ή z ) " προσθέτοντας τον παρακάτω κώδικα στη λειτουργία σας :

Δημ. contact_x Όπως Boolean

Dim contact_y Όπως Boolean

Dim contact_z Όπως Boolean

Dim coil_s Όπως Boolean

contact_x = True

contact_y = False

contact_z = True

coil_s = ( contact_x andalso ( contact_y Ή contact_z ) )

η αξία των πηνίο " coil_s " θα είναι " True" και σκαλί του θα είναι ανοικτή .
εικόνων 3

Εξομοιώνει το σύρτη ρύθμισης " run = (έναρξη Ή να τρέξει ) κΑΙ ( ΔΕΝ STOP ) " προσθέτοντας τον παρακάτω κώδικα στη λειτουργία σας :

Δημ. contact_start Όπως Boolean

Dim contact_stop Όπως Boolean

Dim contact_run Όπως Boolean

Dim coil_run Όπως Boolean

Dim coil_m Όπως Boolean

contact_start = True

contact_run = False

contact_stop = False

coil_run = False

coil_run = ( b_start Ή b_run ) andalso (Δεν b_stop )

coil_m = coil_run

Αν coil_run τότε contact_run = True

Ο κωδικός προσομοιώνει ένα σύστημα με "Start "και" κουμπί Stop " . Εάν το σύστημα είναι ήδη σε λειτουργία , τότε θα κρατά . Εάν το σύστημα έχει διακοπεί , πατώντας το κουμπί "Start " θα ξεκινήσει . Το κουμπί " Stop" θα σταματήσει το σύστημα
Η 4

Προσομοίωση μετρητή λειτουργικότητα με την προσθήκη του παρακάτω κώδικα στη λειτουργία σας : .

Δημ. counter_a As Integer

Dim counter_b Όπως Integer

Dim counter_c As Integer

Dim contact_r Όπως Boolean

Dim contact_i Όπως Boolean

counter_a = 0

counter_b = 0

counter_c = 0

contact_r = True

contact_i = True

Αν contact_r τότε

counter_a + = 1

counter_c + = 1

End If

Αν contact_i τότε

counter_b + = 1

counter_c + = 1

End Αν

Κάθε φορά που μία από τις επαφές ενεργοποιείται το σύστημα αυξάνει αντίστοιχο μετρητή του . Το "c" μετρητής αποθηκεύει το άθροισμα των "α" και "b" μετρητές. Αυτό είναι χρήσιμο όταν θέλετε να ξέρετε πόσες φορές ένα γεγονός έχει συμβεί .
5

Αποθηκεύστε το αρχείο Visual Basic , μεταγλώττιση και εκτέλεση του προγράμματος σας για να προσομοιώσει τις σκάλα λογικών λειτουργιών .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα