Belajar dari benda yang disebut hape (smartphone), ada 3 unsur:
(1). hardware/fisik/raga/badan kasar/jasad/jasmani
(2). software/jiwa/sukma/kesadaran/badan halus/rohani
(3). energi/power/daya/ruh
fungsi ruh (3) membuat 1 & 2 bersinergi/bersenyawa/melekatkan/menyatukan/hidup/menyala dalam istilah jawa urip iku urup.
ada gangguan/disfungsi organ fisik disebut sakit /cacat (kebutuhan khusus).
ada gangguan jiwa disebut sakit jiwa / /gangguan mental/stress/gila/odgj.
saat fisik (1) ini mengalami kerusakan yang sangat parah maka ruh(3) ini akan drop dan melepaskan diri membuat (1) dan (2) berpisah yg disebut kematian.
fisik (1) dibekali kemampuan regenerasi sel, semakin sehat/alami lingkungan dimana fisik tinggal, maka usia bertahan sehat juga akan lebih lama.
ingat ada nabi yg bisa menghidupkan orang mati?!
ini terjadi saat (1)&(2) terpisah namun kondisi fisik masih baik(tak ada kerusakan organ/pecah pembuluh darah) dan sistem regenerasi sel lancar. maka ruh(3) bisa disuplai kembali untuk melekatkan kembali (1) & (2) yang membuatnya hidup kembali.
#janganterlaluserius 😂 #inifakta 🎉
2 komentar:
Sub jejer6s5()
' Recorded 29/05/2026
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim dup1 As ShapeRange
Set dup1 = OrigSelection.StepAndRepeat(5, 0#, 0.19685, 0, ModeY:=2)
End Sub
Sub jejer6s75()
' Recorded 29/05/2026
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim dup1 As ShapeRange
Set dup1 = OrigSelection.StepAndRepeat(5, 0#, 0.295276, 0, ModeY:=2)
End Sub
Sub jejer3s75()
' Recorded 29/05/2026
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim dup1 As ShapeRange
Set dup1 = OrigSelection.StepAndRepeat(2, 0.295276, 0#, 2, ModeY:=0)
End Sub
Sub naik1()
' Recorded 29/05/2026
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.Move 0#, 0.03937
End Sub
Sub width10()
' Recorded 02/06/2026
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
ActiveDocument.ReferencePoint = cdrCenter
OrigSelection.SizeWidth = 3.937008
End Sub
Sub UbahOutline()
Dim s As Shape
Dim C As Color
' Mengatur warna outline menjadi Merah (Gunakan CreateCMYKColor untuk CMYK atau CreateRGBColor untuk RGB)
Set C = CreateRGBColor(0, 0, 255)
' Menerapkan perubahan pada semua objek yang terseleksi
If ActiveSelectionRange.Count > 0 Then
For Each s In ActiveSelectionRange
If s.Outline.Type <> cdrNoOutline Then
s.Outline.Width = 0.079 ' Ubah angka 2 sesuai ukuran width (dalam points) yang diinginkan
s.Outline.Color = C
End If
Next s
Else
MsgBox "Pilih objek terlebih dahulu!", vbExclamation
End If
End Sub
https://www.mediafire.com/file/3p9yjdc72fnj9t7/Module1.txt/file
Posting Komentar