編入試験
最近、寒くなってきましたね~
この時期は湯船に入ると最高に幸せを感じるのは僕だけでしょうか?
今日は編入について書かせて頂きます。
僕は高専から大学の経済学部へ編入したのですが、
高専では経済とは全く関係ない、プログラミングをしてました。
例えばこんなもの。
Public Class Form1
Dim g As Graphics
Dim r As Integer = 50
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
g.Clear(Color.White)
Form1_Load(sender, e)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictMain.Image = New Bitmap(PictMain.Width, PictMain.Height)
g = Graphics.FromImage(PictMain.Image)
TextBox1.Text = r
RB1.Checked = True
End Sub
Private Sub PictMain_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictMain.MouseDown
Dim ran As Random = New Random
Dim r_r As Integer = ran.Next(255)
Dim r_g As Integer = ran.Next(255)
Dim r_b As Integer = ran.Next(255)
Dim r_a As Integer = ran.Next(255)
If (TextBox1.Text <> "") Then
r = Integer.Parse(TextBox1.Text)
Else
r = 50
End If
If RB1.Checked Then
g.FillEllipse(New SolidBrush(Color.FromArgb(r_r, r_g, r_b, r_a)), e.X - r \ 2, e.Y - r \ 2, r, r)
ElseIf RB2.Checked Then
g.DrawEllipse(New Pen(Color.FromArgb(r_r, r_g, r_b, r_a), 3), e.X - r \ 2, e.Y - r \ 2, r, r)
End If
PictMain.Invalidate()
End Sub
End Class
これはVisual Basicでマウスでクリックした位置に円を描くアプリケーションです。
Pascal,C,JavaもやりましたがVBが一番面白かったです。
高専からの編入では大体の人は工学系に進みます。
東大、京大、筑波、阪大、九大などなどにも進めちゃいます。頑張れば笑
文系はほとんどないと思いますが、今いる大学は経済工学科という学科だけ募集してたので、
推薦で入ることができました。
試験内容は推薦の場合は志望動機書いて面接するだけです。
ただ、推薦条件が優の割合が1年から5年にかけて、60%か70%以上です。(どっちか忘れました)
一般は英語と数学と面接です。
英語は高専にいると全く上達しないと思うので、自力で勉強する必要があります。
今は4年になって3年生の編入生も入学してきて飲み会をする機会があるのですが、
みんな勉強だったり将来の仕事に対する意識が高くて、とてもいい刺激になります。
僕自身は編入してみて、本当に良かったと思ってます。
高専で就職してたら就職活動をすることも無かったし、今の友達とも会うことはありませんでした。
人は環境によって変わるんだと思います。勿論、自分で環境を変えることが重要ですが。
両親、友達、身近にいる人達によって自分は変わるし、変えられます!


