Home » » Prorgram nilai semester

Prorgram nilai semester

Desain form seperti gambar di bawah























Dan ini Listing programnya


  1. Public Class Form2
  2.  
  3.  
  4.     Private Sub Form2_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
  5.         ComboBox1.Items.Add("12110096")
  6.         ComboBox1.Items.Add("12110097")
  7.         ComboBox1.Items.Add("12110098")
  8.  
  9.         ComboBox2.Items.Add("88888888")
  10.         ComboBox2.Items.Add("99999999")
  11.         ComboBox2.Items.Add("11111111")
  12.  
  13.         ComboBox3.Items.Add("k01")
  14.         ComboBox3.Items.Add("k02")
  15.         ComboBox3.Items.Add("k03")
  16.  
  17.         Dim i As Integer
  18.         For i = 100 To 30 Step -1
  19.             ComboBox4.Items.Add(i)
  20.             ComboBox5.Items.Add(i)
  21.             ComboBox6.Items.Add(i)
  22.             ComboBox7.Items.Add(i)
  23.         Next
  24.         TextBox1.Enabled = False
  25.         TextBox2.Enabled = False
  26.         TextBox3.Enabled = False
  27.         TextBox4.Enabled = False
  28.         TextBox5.Enabled = False
  29.         textbox6.Enabled = False
  30.         textbox7.Enabled = False
  31.         textbox8.Enabled = False
  32.  
  33.     End Sub
  34.  
  35.     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) HandlesComboBox1.SelectedIndexChanged
  36.         Select Case ComboBox1.Text
  37.             Case "12110096"
  38.                 TextBox1.Text = "reza ariansyah"
  39.                 TextBox2.Text = "S1"
  40.                 TextBox3.Text = "TI"
  41.             Case "12110097"
  42.                 TextBox1.Text = "jailamm igaph S"
  43.                 TextBox2.Text = "S1"
  44.                 TextBox3.Text = "TI"
  45.             Case "12110098"
  46.                 TextBox1.Text = "agus setiawan"
  47.                 TextBox2.Text = "S1"
  48.                 TextBox3.Text = "TI"
  49.             Case Else
  50.                 TextBox1.Text = ""
  51.                 TextBox2.Text = ""
  52.                 TextBox3.Text = ""
  53.  
  54.         End Select
  55.     End Sub
  56.  
  57.     Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) HandlesComboBox2.SelectedIndexChanged
  58.         Select Case ComboBox2.Text
  59.             Case "88888888"
  60.                 TextBox4.Text = "mesran m.kom"
  61.             Case "99999999"
  62.                 TextBox4.Text = "abdul asani sembiring m.kom"
  63.             Case "11111111"
  64.                 TextBox4.Text = "mr.x"
  65.  
  66.  
  67.         End Select
  68.     End Sub
  69.  
  70.     Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) HandlesComboBox3.SelectedIndexChanged
  71.         Select ComboBox3.Text
  72.             Case "k01"
  73.                 TextBox5.Text = "program visual"
  74.             Case "k02"
  75.                 TextBox5.Text = "sistem operasi"
  76.             Case "k03"
  77.                 TextBox5.Text = "basis data"
  78.         End Select
  79.  
  80.     End Sub
  81.     Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
  82.         textbox6.Text = 0.1 * ComboBox4.Text + 0.15 * ComboBox5.Text + 0.3 * ComboBox6.Text + 0.45 *ComboBox6.Text
  83.         If textbox6.Text >= 90 Then
  84.             textbox7.Text = "A"
  85.             textbox8.Text = "lulus"
  86.         ElseIf textbox6.Text >= 80 Then
  87.             textbox7.Text = "B"
  88.             textbox8.Text = "lulus"
  89.         ElseIf textbox6.Text >= 70 Then
  90.             textbox7.Text = "C"
  91.             textbox8.Text = "lulus"
  92.         ElseIf textbox6.Text >= 60 Then
  93.             textbox7.Text = "D"
  94.             textbox8.Text = "lulus"
  95.         Else
  96.             textbox7.Text = "E"
  97.             textbox8.Text = "tidak lulus"
  98.  
  99.  
  100.         End If
  101.  
  102.     End Sub
  103.  
  104.     Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button2.Click
  105.         TextBox1.Text = ""
  106.         TextBox2.Text = ""
  107.         TextBox3.Text = ""
  108.         TextBox4.Text = ""
  109.         TextBox5.Text = ""
  110.         ComboBox1.Text = ""
  111.         ComboBox2.Text = ""
  112.         ComboBox3.Text = ""
  113.         ComboBox4.Text = ""
  114.         ComboBox5.Text = ""
  115.         textbox6.Text = ""
  116.         textbox7.Text = ""
  117.         ComboBox6.Text = ""
  118.         ComboBox7.Text = ""
  119.  
  120.     End Sub
  121.  
  122.     Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button3.Click
  123.         Me.Close()
  124.  
  125.     End Sub
  126. End Class



0 comments:

Posting Komentar