Public Class FRM_Calcolatrice
Dim PrimoN As Integer
Dim segno As Char
Private Sub FRM_Calcolatrice_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TXT_Risultato.Enabled = False
TXT_Risultato.Text = ""
End Sub

Private Sub BTN_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_1.Click
TXT_Risultato.Text = TXT_Risultato.Text + "1"
End Sub

Private Sub BTN_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_2.Click
TXT_Risultato.Text = TXT_Risultato.Text + "2"
End Sub

Private Sub BTN_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_3.Click
TXT_Risultato.Text = TXT_Risultato.Text + "3"
End Sub

Private Sub BTN_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_4.Click
TXT_Risultato.Text = TXT_Risultato.Text + "4"
End Sub

Private Sub BTN_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_5.Click
TXT_Risultato.Text = TXT_Risultato.Text + "5"
End Sub

Private Sub BTN_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_6.Click
TXT_Risultato.Text = TXT_Risultato.Text + "6"
End Sub

Private Sub BTN_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_7.Click
TXT_Risultato.Text = TXT_Risultato.Text + "7"
End Sub

Private Sub BTN_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_8.Click
TXT_Risultato.Text = TXT_Risultato.Text + "8"
End Sub

Private Sub BTN_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_9.Click
TXT_Risultato.Text = TXT_Risultato.Text + "9"
End Sub

Private Sub BTN_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_0.Click
TXT_Risultato.Text = TXT_Risultato.Text + "0"
End Sub





Private Sub BTN_CE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_CE.Click
TXT_Risultato.Text = ""
End Sub

Private Sub BTN_CANC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_CANC.Click
TXT_Risultato.Text = ""
PrimoN = 0
End Sub

Private Sub BTN_Piu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Piu.Click
If TXT_Risultato.Text = "" Then
MsgBox("Non hai inserito un numero.. Inseriscilo prima di selezionare un'operazione")
Else
PrimoN = CInt(TXT_Risultato.Text)
TXT_Risultato.Text = ""
segno = "+"
End If
End Sub

Private Sub BTN_Meno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Meno.Click
If TXT_Risultato.Text = "" Then
MsgBox("Non hai inserito un numero.. Inseriscilo prima di selezionare un'operazione")
Else
PrimoN = Val(TXT_Risultato.Text)
TXT_Risultato.Text = ""
segno = "-"
End If
End Sub

Private Sub BTN_Per_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Per.Click
If TXT_Risultato.Text = "" Then
MsgBox("Non hai inserito un numero.. Inseriscilo prima di selezionare un'operazione")
Else
PrimoN = Val(TXT_Risultato.Text)
TXT_Risultato.Text = ""
segno = "*"
End If
End Sub

Private Sub BTN_Diviso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Diviso.Click
If TXT_Risultato.Text = "" Then
MsgBox("Non hai inserito un numero.. Inseriscilo prima di selezionare un'operazione")
Else
PrimoN = Val(TXT_Risultato.Text)
TXT_Risultato.Text = ""
segno = "/"
End If
End Sub



Private Sub BTN_Uguale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Uguale.Click
If segno = "+" Or segno = "-" Then
If segno = "+" Then
TXT_Risultato.Text = CStr(PrimoN + Val(TXT_Risultato.Text))
Else
TXT_Risultato.Text = CStr(PrimoN - Val(TXT_Risultato.Text))
End If
Else
If segno = "*" Then
TXT_Risultato.Text = CStr(PrimoN * Val(TXT_Risultato.Text))
Else
TXT_Risultato.Text = CStr(PrimoN / Val(TXT_Risultato.Text))
End If
End If

End Sub

Private Sub BTN_piumeno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_piumeno.Click
Dim lungh As Integer
lungh = TXT_Risultato.Text.Length
If TXT_Risultato.Text.Substring(0, 1) = "-" Then
TXT_Risultato.Text = "" + TXT_Risultato.Text.Substring(1, lungh - 1)
Else
TXT_Risultato.Text = "-" + TXT_Risultato.Text.Substring(0, lungh)
End If

End Sub

Private Sub BTN_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Back.Click
Dim lungh As Integer
If TXT_Risultato.Text = "" Then
MsgBox("Ehm. Magari inserire un numero??")
Else
lungh = TXT_Risultato.Text.Length
TXT_Risultato.Text = TXT_Risultato.Text.Substring(0, lungh - 1)
End If
End Sub

Private Sub BTN_RadQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_RadQ.Click
If TXT_Risultato.Text = "" Then
MsgBox("Ehm. Magari inserire un numero??")
Else
TXT_Risultato.Text = Math.Sqrt(TXT_Risultato.Text)
End If
End Sub

Private Sub BTN_Log_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Log.Click
If TXT_Risultato.Text = "" Then
MsgBox("Ehm. Magari inserire un numero??")
Else
TXT_Risultato.Text = Math.Log10(TXT_Risultato.Text)
End If
End Sub

Private Sub BTN_Seconda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Seconda.Click
If TXT_Risultato.Text = "" Then
MsgBox("Ehm. Magari inserire un numero??")
Else
TXT_Risultato.Text = Math.Pow(TXT_Risultato.Text, 2)
End If
End Sub
End Class

La paralisi nel sonno, detta anche paralisi ipnagogica, è un disturbo del sonno in cui nel momento prima di addormentarsi o, più comunemente, al risveglio ci si trova senza la possibilità di potersi muovere. Questo disturbo dura molto poco (al massimo 2 minuti dal risveglio o pochi secondi prima di addormentarsi), talvolta qualcosa in più, ma mai per un tempo troppo lungo, consiste nel fatto che tutti i muscoli del corpo sono paralizzati, e la persona in cui si manifesta è del tutto cosciente e riesce a controllare solamente pochissimo del suo corpo, in certi casi solo il movimento degli occhi, della lingua o alcuni lievissimi movimenti degli arti, comunque durante le paralisi la respirazione è sempre assicurata.

Questo stato di paralisi è dovuto dalla persistenza dello stato di atonia che i muscoli presentano durante il sonno ed è causato da una discordanza tra la mente e il corpo: il cervello è attivo e cosciente, e il soggetto riesce spesso a vedere e sentire chiaramente ciò che lo circonda, nonostante ciò il corpo continua a rimanere in stato di riposo. Ciò solitamente incute nell'individuo affetto terrore e angoscia. Le cause più comuni sono: mancanza di riposo, stress, ritmi di sonno irregolari. Spesso la "vittima" di tale paralisi tende a gridare, talvolta chiedendo aiuto, ma quando cercherà di farlo non griderà, bensì emanerà solo un lieve sussurro ed avrà la sensazione sgradevole, di sentire la propria voce soffocata da qualcosa di anomalo.


Le paralisi nel sonno vanno distinte dalle illusioni ipnagogiche con le quali però possono accompagnarsi causando sensazioni particolarmente vivide e talvolta terrificanti.

Oddeo stavo scherzando riguardo a JAcopino
Jappyyyyyyyy *-*