Scribd
Upload
28 views

Lampiran 2 Listing Program Client

The document contains code for a program with a main menu and submenus for easy and difficult questions. It defines classes for the different forms/screens and includes code for buttons, text boxes, timers and serial communication. The program receives serial data to navigate between forms and send typed answers back through the serial port.

Uploaded by

jean
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
28 views

Lampiran 2 Listing Program Client

The document contains code for a program with a main menu and submenus for easy and difficult questions. It defines classes for the different forms/screens and includes code for buttons, text boxes, timers and serial communication. The program receives serial data to navigate between forms and send typed answers back through the serial port.

Uploaded by

jean
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 11

LAMPIRAN 1 LISTING PROGRAM CLIENT

1. MENU UTAMA
Public Class Form2
Private Delegate Sub updateformdelegate()
Private updateformdelegate1 As updateformdelegate
Dim n As String
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
SerialPort1.Open()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
SerialPort1.Write("a")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
SerialPort1.Write("b")
End Sub
Private Sub SerialPort1_DataReceived(sender As Object, e As
IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
updateformdelegate1 = New updateformdelegate(AddressOf UpdateDisplay)
n = SerialPort1.ReadExisting()
Me.Invoke(updateformdelegate1)
End Sub
Private Sub UpdateDisplay()
Dim string1, string2 As String
string1 = n
string2 = Mid(n, 1, 1000)
If string2 = "1" Then
Form4.Show()
Me.Hide()
Else
End
End If
End Sub
End Class

2. MENU TINGKAT KESULITAN


Public Class Form4
Private Delegate Sub updateformdelegate()
Private updateformdelegate1 As updateformdelegate
Dim n As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
SerialPort1.Write("a")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
SerialPort1.Write("b")
End Sub

49

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles


MyBase.Load
SerialPort1.Open()
End Sub
Private Sub UpdateDisplay()
Dim string1, string2 As String
string1 = n
string2 = Mid(n, 1, 1000)
If string2 = "1" Then
Form1.Show()
Me.Hide()
Else
susah1.Show()
Me.Hide()
End If
End Sub
Private Sub SerialPort1_DataReceived_1(sender As Object, e As
IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
updateformdelegate1 = New updateformdelegate(AddressOf UpdateDisplay)
n = SerialPort1.ReadExisting()
Me.Invoke(updateformdelegate1)
End Sub
End Class

3. MENU PERTANYAAN MUDAH


Public Class Form1
Private Delegate Sub updateformdelegate()
Private updateformdelegate1 As updateformdelegate
Dim n As String
Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles
Me.Activated
TextBox1.Text = ""
TextBox1.Enabled = True
Timer3.Enabled = True
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
SerialPort1.Open()
Timer1.Enabled = True
Timer2.Enabled = False
Label9.Text = 60
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
TextBox1.Text = TextBox1.Text & "q"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TextBox1.Text = TextBox1.Text & "w"
End Sub

50

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles


Button3.Click
TextBox1.Text = TextBox1.Text & "e"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
Button4.Click
TextBox1.Text = TextBox1.Text & "r"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles
Button5.Click
TextBox1.Text = TextBox1.Text & "t"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles
Button6.Click
TextBox1.Text = TextBox1.Text & "y"
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles
Button7.Click
TextBox1.Text = TextBox1.Text & "u"
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles
Button8.Click
TextBox1.Text = TextBox1.Text & "i"
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles
Button9.Click
TextBox1.Text = TextBox1.Text & "o"
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles
Button10.Click
TextBox1.Text = TextBox1.Text & "p"
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles
Button11.Click
TextBox1.Text = TextBox1.Text & "a"
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles
Button12.Click
TextBox1.Text = TextBox1.Text & "s"
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles
Button13.Click
TextBox1.Text = TextBox1.Text & "d"
End Sub
Private Sub Button14_Click_1(sender As Object, e As EventArgs) Handles
Button14.Click
TextBox1.Text = TextBox1.Text & "f"
End Sub

51

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles


Button15.Click
TextBox1.Text = TextBox1.Text & "g"
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles
Button16.Click
TextBox1.Text = TextBox1.Text & "h"
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles
Button17.Click
TextBox1.Text = TextBox1.Text & "j"
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles
Button18.Click
TextBox1.Text = TextBox1.Text & "k"
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles
Button19.Click
TextBox1.Text = TextBox1.Text & "l"
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles
Button20.Click
TextBox1.Text = TextBox1.Text & "z"
End Sub
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles
Button21.Click
TextBox1.Text = TextBox1.Text & "x"
End Sub
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles
Button22.Click
TextBox1.Text = TextBox1.Text & "c"
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles
Button23.Click
TextBox1.Text = TextBox1.Text & "v"
End Sub
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles
Button31.Click
TextBox1.Text = TextBox1.Text & " "
End Sub
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles
Button24.Click
TextBox1.Text = TextBox1.Text & "b"
End Sub
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles
Button25.Click
TextBox1.Text = TextBox1.Text & "n"
End Sub

52

Private Sub Button26_Click(sender As Object, e As EventArgs) Handles


Button26.Click
TextBox1.Text = TextBox1.Text & "m"
End Sub
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles
Button28.Click
TextBox1.Text = ""
End Sub
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles
TextBox1.Click
Timer3.Enabled = True
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Visible = False
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label1.Visible = True
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub UpdateDisplay()
Dim string1, string2 As String
string1 = n
string2 = Mid(n, 1, 1000)
If string2 = "1" Then
SerialPort1.Write("a")
TextBox1.Enabled = True
TextBox1.Text = ""
mudah2.Show()
Me.Hide()
End If
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles
Button27.Click
SerialPort1.Write(TextBox1.Text)
Timer3.Enabled = False
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Dim no As Integer
no = Label9.Text
Label9.Text = no - 1
If no = 1 Then
Timer3.Enabled = False
SerialPort1.Write(" ")
Label9.Text = 60
End If
End Sub
Private Sub SerialPort1_DataReceived_1(sender As Object, e As
IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
updateformdelegate1 = New updateformdelegate(AddressOf UpdateDisplay)

53

n = SerialPort1.ReadExisting()
Me.Invoke(updateformdelegate1)
End Sub
End Class

4. MENU PERTANYAAN SUSAH


Public Class susah1
Private Delegate Sub updateformdelegate()
Private updateformdelegate1 As updateformdelegate
Dim n As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
SerialPort1.Open()
Label9.Text = 30
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
TextBox1.Text = TextBox1.Text & "q"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TextBox1.Text = TextBox1.Text & "w"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
TextBox1.Text = TextBox1.Text & "e"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
Button4.Click
TextBox1.Text = TextBox1.Text & "r"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles
Button5.Click
TextBox1.Text = TextBox1.Text & "t"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles
Button6.Click
TextBox1.Text = TextBox1.Text & "y"
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles
Button7.Click
TextBox1.Text = TextBox1.Text & "u"
End Sub

54

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles


Button8.Click
TextBox1.Text = TextBox1.Text & "i"
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles
Button9.Click
TextBox1.Text = TextBox1.Text & "o"
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles
Button10.Click
TextBox1.Text = TextBox1.Text & "p"
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles
Button11.Click
TextBox1.Text = TextBox1.Text & "a"
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles
Button12.Click
TextBox1.Text = TextBox1.Text & "s"
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles
Button13.Click
TextBox1.Text = TextBox1.Text & "d"
End Sub
Private Sub Button14_Click_1(sender As Object, e As EventArgs) Handles
Button14.Click
TextBox1.Text = TextBox1.Text & "f"
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles
Button15.Click
TextBox1.Text = TextBox1.Text & "g"
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles
Button16.Click
TextBox1.Text = TextBox1.Text & "h"
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles
Button17.Click
TextBox1.Text = TextBox1.Text & "j"
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles
Button18.Click
TextBox1.Text = TextBox1.Text & "k"
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles
Button19.Click
TextBox1.Text = TextBox1.Text & "l"
End Sub

55

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles


Button20.Click
TextBox1.Text = TextBox1.Text & "z"
End Sub
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles
Button21.Click
TextBox1.Text = TextBox1.Text & "x"
End Sub
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles
Button22.Click
TextBox1.Text = TextBox1.Text & "c"
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles
Button23.Click
TextBox1.Text = TextBox1.Text & "v"
End Sub
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles
Button31.Click
TextBox1.Text = TextBox1.Text & " "
End Sub
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles
Button24.Click
TextBox1.Text = TextBox1.Text & "b"
End Sub
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles
Button25.Click
TextBox1.Text = TextBox1.Text & "n"
End Sub
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles
Button26.Click
TextBox1.Text = TextBox1.Text & "m"
End Sub
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles
Button28.Click
TextBox1.Text = ""
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Visible = False
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label1.Visible = True
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick

56

Dim no As Integer
no = Label9.Text
Label9.Text = no - 1
If no = 1 Then
Timer3.Enabled = False
SerialPort1.Write(" ")
Label9.Text = 30
End If
End Sub
Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles
Me.Activated
Timer3.Enabled = True
TextBox1.Enabled = True
TextBox1.Text = ""
End Sub
Private Sub SerialPort1_DataReceived(sender As Object, e As
IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
updateformdelegate1 = New updateformdelegate(AddressOf UpdateDisplay)
n = SerialPort1.ReadExisting()
Me.Invoke(updateformdelegate1)
End Sub
Private Sub UpdateDisplay()
Dim string1, string2 As String
string1 = n
string2 = Mid(n, 1, 1000)
If string2 = "1" Then
SerialPort1.Write("a")
TextBox1.Enabled = True
TextBox1.Text = ""
Label9.Text = 30
susah2.Show()
Me.Hide()
End If
End Sub
Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles
Button27.Click
SerialPort1.Write(TextBox1.Text)
Timer3.Enabled = False
End Sub
End Class

5. MENU MENYELESAIKAN TINGKAT MUDAH


Public Class Form3
Private Delegate Sub updateformdelegate()
Private updateformdelegate1 As updateformdelegate
Dim n As String
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
SerialPort1.Write("c")
End Sub

57

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
SerialPort1.Write("b")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
SerialPort1.Write("a")
End Sub

6. MENU MENYELESAIKAN TINGKAT SUSAH


Private Sub SerialPort1_DataReceived(sender As Object, e As
IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
updateformdelegate1 = New updateformdelegate(AddressOf UpdateDisplay)
n = SerialPort1.ReadExisting()
Me.Invoke(updateformdelegate1)
End Sub
Private Sub UpdateDisplay()
Dim string1, string2 As String
string1 = n
string2 = Mid(n, 1, 1000)
If string2 = "1" Then
Label3.Enabled = True
Label3.Text = ""
susah1.Show()
Me.Hide()
ElseIf string2 = "2" Then
Label3.Enabled = True
Label3.Text = ""
Form2.Show()
Me.Hide()
ElseIf string2 = "3" Then
End
Else
Label3.Text = string2
End If
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
SerialPort1.Open()
Label15.Visible = False
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim no As Integer
no = Label15.Text
Label15.Text = no + 1
If no = 3 Then
Label15.Text = 0
Label15.Visible = False
Timer1.Enabled = False
SerialPort1.Write("d")
End If
End Sub
End Class

58

Public Class Form5


Private Delegate Sub updateformdelegate()
Private updateformdelegate1 As updateformdelegate
Dim n As String
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
SerialPort1.Write("a")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
SerialPort1.Write("b")
End Sub
Private Sub SerialPort1_DataReceived(sender As Object, e As
IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
updateformdelegate1 = New updateformdelegate(AddressOf UpdateDisplay)
n = SerialPort1.ReadExisting()
Me.Invoke(updateformdelegate1)
End Sub
Private Sub UpdateDisplay()
Dim string1, string2 As String
string1 = n
string2 = Mid(n, 1, 1000)
Label3.Text = string2
Label3.Enabled = False
If string2 = "1" Then
Label3.Enabled = True
Label3.Text = ""
Form2.Show()
Me.Hide()
ElseIf string2 = "2" Then
End
Else
Label3.Text = string2
End If
End Sub
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
SerialPort1.Open()
Label15.Visible = False
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim no As Integer
no = Label15.Text
Label15.Text = no + 1
If no = 3 Then
Label15.Text = 0
Label15.Visible = False
Timer1.Enabled = False
SerialPort1.Write("d")
End If
End Sub
End Class

59

You might also like