Ανοίξτε 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 , μεταγλώττιση και εκτέλεση του προγράμματος σας για να προσομοιώσει τις σκάλα λογικών λειτουργιών .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα