Dim es_ist As String Dim fuenfo As String Dim zehn_o As String Dim zwanzi As String Dim drei_o As String Dim vierte As String Dim vor___ As String Dim nach__ As String Dim halb__ As String Dim elf___ As String Dim fuenfu As String Dim ein___ As String Dim eins__ As String Dim zwei__ As String Dim drei_u As String Dim vier__ As String Dim sechs_ As String Dim acht__ As String Dim sieben As String Dim zwoelf As String Dim zehn_u As String Dim neun__ As String Dim uhr___ As String Dim ausblendfarbe Dim pumpel As Integer Private Sub Form_Load() If pumpel = 0 Then ausblendfarbe = RGB(200, 200, 200) pumpel = 1 Form1.BackColor = Label2.BackColor x = 120: y = 120: z = 0 For t = 0 To 109 Label1(t).BorderStyle = 0 Label1(t).Alignment = 2 Label1(t).ForeColor = Label2.ForeColor Label1(t).BackColor = Label2.BackColor 'Label1(t).Font = "Courier New" Label1(t).Font = "Arial" Label1(t).FontSize = 20 Label1(t).Width = 350 Label1(t).Height = 475 Label1(t).Top = y Label1(t).Left = x z = z + 1 If z = 11 Then z = 0 x = -230 y = y + 450 End If x = x + 350 Next t Form1.Width = 4150 Form1.Height = 5100 Label2.Visible = False ' Zeile (0-9) ' | es_ist = "011011100000" fuenfo = "000000001111" zehn_o = "111110000000" zwanzi = "100001111111" drei_o = "211110000000" vierte = "200001111111" vor___ = "311100000000" nach__ = "300000001111" halb__ = "411110000000" elf___ = "400000111000" fuenfu = "400000001111" ein___ = "511100000000" eins__ = "511110000000" zwei__ = "500000001111" drei_u = "611110000000" vier__ = "600000001111" sechs_ = "711111000000" acht__ = "700000001111" sieben = "811111100000" zwoelf = "800000011111" zehn_u = "911110000000" neun__ = "900011110000" uhr___ = "900000000111" b = "ESBISTEFÜNF" For t = 0 To 10 Label1(t).Caption = Mid(b, t + 1, 1) Next t b = "ZEHNZWANZIG" For t = 11 To 21 Label1(t).Caption = Mid(b, t - 10, 1) Next t b = "DREIVIERTEL" For t = 22 To 32 Label1(t).Caption = Mid(b, t - 21, 1) Next t b = "VORRNHANACH" For t = 33 To 43 Label1(t).Caption = Mid(b, t - 32, 1) Next t b = "HALBRELFÜNF" For t = 44 To 54 Label1(t).Caption = Mid(b, t - 43, 1) Next t b = "EINSDGAZWEI" For t = 55 To 65 Label1(t).Caption = Mid(b, t - 54, 1) Next t b = "DREINSWVIER" For t = 66 To 76 Label1(t).Caption = Mid(b, t - 65, 1) Next t b = "SECHSINACHT" For t = 77 To 87 Label1(t).Caption = Mid(b, t - 76, 1) Next t b = "SIEBENZWÖLF" For t = 88 To 98 Label1(t).Caption = Mid(b, t - 87, 1) Next t b = "ZEHNEUNDUHR" For t = 99 To 109 Label1(t).Caption = Mid(b, t - 98, 1) Next t Timer1.Interval = 1000 End Sub Private Sub Label1_Click(Index As Integer) If Index = 99 Then Label2.ForeColor = vbBlack Label2.BackColor = vbButtonFace ausblendfarbe = RGB(200, 200, 200) Form_Load End If If Index = 109 Then Label2.ForeColor = vbWhite Label2.BackColor = vbBlack ausblendfarbe = RGB(20, 20, 20) Form_Load End If End Sub Private Sub Timer1_Timer() Form1.Caption = Time ' Zeitanzeige aktualisieren. h = Left(Time, 2) m = Int((Mid(Time, 4, 2)) / 5) If h = 0 Then h = 12 If m >= 5 Then h = h + 1 If h > 12 Then h = h - 12 For t = 0 To 109 Label1(t).ForeColor = ausblendfarbe Next t If h = 1 Then If m = 0 Then Call farbe(ein___) If m <> 0 Then Call farbe(eins__) End If If h = 2 Then Call farbe(zwei__) If h = 3 Then Call farbe(drei_u) If h = 4 Then Call farbe(vier__) If h = 5 Then Call farbe(fuenfu) If h = 6 Then Call farbe(sechs_) If h = 7 Then Call farbe(sieben) If h = 8 Then Call farbe(acht__) If h = 9 Then Call farbe(neun__) If h = 10 Then Call farbe(zehn_u) If h = 11 Then Call farbe(elf___) If h = 12 Then Call farbe(zwoelf) If m = 0 Then Call farbe(uhr___) If m >= 0 Then Call farbe(es_ist) If m = 1 Then Call farbe(fuenfo) Call farbe(nach__) End If If m = 2 Then Call farbe(zehn_o) Call farbe(nach__) End If If m = 3 Then Call farbe(vierte) Call farbe(nach__) End If If m = 4 Then Call farbe(zwanzi) Call farbe(nach__) End If If m = 5 Then Call farbe(fuenfo) Call farbe(vor___) Call farbe(halb__) End If If m = 6 Then Call farbe(halb__) End If If m = 7 Then Call farbe(fuenfo) Call farbe(nach__) Call farbe(halb__) End If If m = 8 Then Call farbe(zehn_o) Call farbe(nach__) Call farbe(halb__) End If If m = 9 Then Call farbe(drei_o) Call farbe(vierte) End If If m = 10 Then Call farbe(zehn_o) Call farbe(vor___) End If If m = 11 Then Call farbe(fuenfo) Call farbe(vor___) End If murks = 0 End Sub Private Sub farbe(begriff) z1 = Val(Left(begriff, 1)) * 11 z2 = z1 + 10 z3 = 2 For t = z1 To z2 If Mid(begriff, z3, 1) = "1" Then Label1(t).ForeColor = Label2.ForeColor End If z3 = z3 + 1 Next t End Sub